gcc/melt/generated/warmelt-normal+02.cc

   1 /* GCC MELT GENERATED C++ FILE warmelt-normal+02.cc - DO NOT EDIT - see http://gcc-melt.org/ */
   2 /* secondary MELT generated C++ file of rank #2 */
   3 #include "melt-run.h"
   4
   5
   6 /* used hash from melt-run.h when compiling this file: */
   7 MELT_EXTERN const char meltrun_used_md5_melt_f2[] = MELT_RUN_HASHMD5 /* from melt-run.h */;
   8
   9
  10 /**** warmelt-normal+02.cc declarations ****/
  11 /**** MELT GENERATED DECLARATIONS for warmelt-normal ** DO NOT EDIT ; see gcc-melt.org ****/
  12
  13 /****++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  14 ***
  15     Copyright 2008 - 2014  Free Software Foundation, Inc.
  16     Contributed by Basile Starynkevitch <basile@starynkevitch.net>
  17
  18     This file is part of GCC.
  19
  20     GCC is free software; you can redistribute it and/or modify
  21     it under the terms of the GNU General Public License as published by
  22     the Free Software Foundation; either version 3, or (at your option)
  23     any later version.
  24
  25     GCC is distributed in the hope that it will be useful,
  26     but WITHOUT ANY WARRANTY; without even the implied warranty of
  27     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  28     GNU General Public License for more details.
  29
  30     You should have received a copy of the GNU General Public License
  31     along with GCC; see the file COPYING3.  If not see
  32     <http://www.gnu.org/licenses/>.
  33 ***
  34 ----------------------------------------------------------------****/
  35
  36
  37 /** ordinary MELT module meltbuild-sources/warmelt-normal**/
  38 #define MELT_HAS_INITIAL_ENVIRONMENT 1 /*usualmodule*/
  39
  40
  41
  42 class Melt_InitialClassyFrame_WARMELTmiNORMAL_h867505767; // forward declaration fromline 6691
  43 typedef Melt_InitialClassyFrame_WARMELTmiNORMAL_h867505767 Melt_InitialFrame;
  44 /**** no MELT module variables ****/
  45
  46 /*** 3 MELT called hook declarations ***/
  47
  48 /*declare MELT called hook #0 HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER **/
  49 MELT_EXTERN melt_ptr_t melthook_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_PREVENV, const char* meltinp1_MODULNAME);
  50
  51 /*declare MELT called hook #1 HOOK_SYMBOL_IMPORTER **/
  52 MELT_EXTERN melt_ptr_t melthook_HOOK_SYMBOL_IMPORTER (melt_ptr_t melthookdatap, const char* meltinp0_SYMNAMESTR, const char* meltinp1_MODULENAMESTR, melt_ptr_t meltinp2_PARENV);
  53
  54 /*declare MELT called hook #2 HOOK_VALUE_EXPORTER **/
  55 MELT_EXTERN void melthook_HOOK_VALUE_EXPORTER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_SYM, melt_ptr_t meltinp1_VAL, melt_ptr_t meltinp2_CONTENV);
  56
  57 /*** end of 3 MELT called hook declarations ***/
  58
  59 /*** no extra MELT c-headers ***/
  60
  61
  62
  63
  64 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_WARMELTmiNORMAL_NORMAL_IMPORT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
  65
  66
  67
  68
  69 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_WARMELTmiNORMAL_ADD_NCTX_DATA(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
  70
  71
  72
  73
  74 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_WARMELTmiNORMAL_FILL_INITIAL_PREDEFMAP(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
  75
  76
  77
  78
  79 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_WARMELTmiNORMAL_REGISTER_LITERAL_VALUE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
  80
  81
  82
  83
  84 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_WARMELTmiNORMAL_CREATE_NORMCONTEXT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
  85
  86
  87
  88
  89 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_WARMELTmiNORMAL_CREATE_NORMAL_EXTENDING_CONTEXT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
  90
  91
  92
  93
  94 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_WARMELTmiNORMAL_NORMEXP_IDENTICAL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
  95
  96
  97
  98
  99 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_WARMELTmiNORMAL_NORMEXP_NULL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 100
 101
 102
 103
 104 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_WARMELTmiNORMAL_NORMEXP_ANY_OBJECT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 105
 106
 107
 108
 109 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_WARMELTmiNORMAL_NORMEXP_MIXED_LOCATION(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 110
 111
 112
 113
 114 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_WARMELTmiNORMAL_NORMEXP_ANY_VALUE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 115
 116
 117
 118
 119 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_WARMELTmiNORMAL_NORMEXP_SRC_CATCHALL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 120
 121
 122
 123
 124 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_WARMELTmiNORMAL_NORMEXP_LAZYMACROEXP(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 125
 126
 127
 128
 129 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_WARMELTmiNORMAL_GECTYP_ANYRECV(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 130
 131
 132
 133
 134 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_WARMELTmiNORMAL_GECTYP_ROOT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 135
 136
 137
 138
 139 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_WARMELTmiNORMAL_GECTYP_INTEGER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 140
 141
 142
 143
 144 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_WARMELTmiNORMAL_GECTYP_STRING(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 145
 146
 147
 148
 149 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_WARMELTmiNORMAL_NORMALIZE_TUPLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 150
 151
 152
 153
 154 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_WARMELTmiNORMAL_WRAP_NORMAL_LET1(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 155
 156
 157
 158
 159 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_WARMELTmiNORMAL_LAMBDA_cl1(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 160
 161
 162
 163
 164 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_WARMELTmiNORMAL_WRAP_NORMAL_LETSEQ(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 165
 166
 167
 168
 169 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_WARMELTmiNORMAL_LAMBDA_cl2(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 170
 171
 172
 173
 174 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_WARMELTmiNORMAL_CHECK_CTYPE_NARGS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 175
 176
 177
 178
 179 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_WARMELTmiNORMAL_NORMBIND_FAILANY(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 180
 181
 182
 183
 184 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_WARMELTmiNORMAL_NORMBIND_ANYBIND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 185
 186
 187
 188
 189 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_WARMELTmiNORMAL_NORMBIND_FORMALBIND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 190
 191
 192
 193
 194 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_WARMELTmiNORMAL_NORMBIND_LETBIND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 195
 196
 197
 198
 199 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_WARMELTmiNORMAL_NORMBIND_FIXBIND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 200
 201
 202
 203
 204 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_WARMELTmiNORMAL_NORMBIND_DEFINEDVALBIND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 205
 206
 207
 208
 209 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 210
 211
 212
 213
 214 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 215
 216
 217
 218
 219 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 220
 221
 222
 223
 224 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 225
 226
 227
 228
 229 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 230
 231
 232
 233
 234 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 235
 236
 237
 238
 239 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 240
 241
 242
 243
 244 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 245
 246
 247
 248
 249 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 250
 251
 252
 253
 254 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 255
 256
 257
 258
 259 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 260
 261
 262
 263
 264 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 265
 266
 267
 268
 269 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 270
 271
 272
 273
 274 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 275
 276
 277
 278
 279 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 280
 281
 282
 283
 284 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 285
 286
 287
 288
 289 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 290
 291
 292
 293
 294 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 295
 296
 297
 298
 299 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 300
 301
 302
 303
 304 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 305
 306
 307
 308
 309 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 310
 311
 312
 313
 314 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_WARMELTmiNORMAL_NORMEXP_IF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 315
 316
 317
 318
 319 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 320
 321
 322
 323
 324 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 325
 326
 327
 328
 329 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_WARMELTmiNORMAL_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 330
 331
 332
 333
 334 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_WARMELTmiNORMAL_LAMBDA_cl8(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 335
 336
 337
 338
 339 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_WARMELTmiNORMAL_NORMEXP_CPPIF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 340
 341
 342
 343
 344 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_WARMELTmiNORMAL_LAMBDA_cl9(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 345
 346
 347
 348
 349 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_WARMELTmiNORMAL_NORMEXP_OR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 350
 351
 352
 353
 354 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_WARMELTmiNORMAL_LAMBDA_cl10(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 355
 356
 357
 358
 359 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_WARMELTmiNORMAL_LAMBDA_cl11(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 360
 361
 362
 363
 364 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_WARMELTmiNORMAL_NORMEXP_PROGN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 365
 366
 367
 368
 369 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_WARMELTmiNORMAL_LAMBDA_cl12(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 370
 371
 372
 373
 374 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_WARMELTmiNORMAL_NORMEXP_LET(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 375
 376
 377
 378
 379 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_WARMELTmiNORMAL_LAMBDA_cl13(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 380
 381
 382
 383
 384 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_WARMELTmiNORMAL_LAMBDA_cl14(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 385
 386
 387
 388
 389 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_WARMELTmiNORMAL_NORMEXP_UNSAFE_GET_FIELD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 390
 391
 392
 393
 394 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_WARMELTmiNORMAL_NORMEXP_GET_FIELD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 395
 396
 397
 398
 399 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_WARMELTmiNORMAL_NORMEXP_UNSAFE_PUT_FIELDS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 400
 401
 402
 403
 404 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_WARMELTmiNORMAL_LAMBDA_cl15(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 405
 406
 407
 408
 409 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_WARMELTmiNORMAL_LAMBDA_cl16(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 410
 411
 412
 413
 414 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_WARMELTmiNORMAL_NORMEXP_PUT_FIELDS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 415
 416
 417
 418
 419 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_WARMELTmiNORMAL_NORMEXP_SETQ(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 420
 421
 422
 423
 424 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_WARMELTmiNORMAL_LAMBDA_cl17(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 425
 426
 427
 428
 429 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_WARMELTmiNORMAL_NORMEXP_INSTANCE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 430
 431
 432
 433
 434 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_WARMELTmiNORMAL_LAMBDA_cl18(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 435
 436
 437
 438
 439 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_WARMELTmiNORMAL_LAMBDA_cl19(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 440
 441
 442
 443
 444 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_WARMELTmiNORMAL_NORMEXP_FOREVER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 445
 446
 447
 448
 449 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_WARMELTmiNORMAL_NORMEXP_EXIT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 450
 451
 452
 453
 454 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_WARMELTmiNORMAL_NORMEXP_AGAIN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 455
 456
 457
 458
 459 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_WARMELTmiNORMAL_NORMEXP_IFVARIADIC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 460
 461
 462
 463
 464 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_WARMELTmiNORMAL_NORMEXP_COMPILE_WARNING(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 465
 466
 467
 468
 469 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_WARMELTmiNORMAL_LAMBDA_cl20(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 470
 471
 472
 473
 474 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_WARMELTmiNORMAL_NORMEXP_COMPILE_ERROR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 475
 476
 477
 478
 479 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_WARMELTmiNORMAL_LAMBDA_cl21(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 480
 481
 482
 483
 484 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_WARMELTmiNORMAL_REPLACE_LAST_BY_RETURN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 485
 486
 487
 488
 489 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_WARMELTmiNORMAL_LAMBDA_cl22(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 490
 491
 492
 493
 494 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_WARMELTmiNORMAL_NORMEXP_DEFUN_DEFMACRO(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 495
 496
 497
 498
 499 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_WARMELTmiNORMAL_LAMBDA_cl23(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 500
 501
 502
 503
 504 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_WARMELTmiNORMAL_LAMBDA_cl24(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 505
 506
 507
 508
 509 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_WARMELTmiNORMAL_NORMEXP_MACRO_INSTALLATION(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 510
 511
 512
 513
 514 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_WARMELTmiNORMAL_NORMEXP_DEFHOOK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 515
 516
 517
 518
 519 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_WARMELTmiNORMAL_NORMALIZE_LAMBDA(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 520
 521
 522
 523
 524 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_WARMELTmiNORMAL_LAMBDA_cl25(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 525
 526
 527
 528
 529 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_WARMELTmiNORMAL_NORMEXP_LAMBDA(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 530
 531
 532
 533
 534 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_WARMELTmiNORMAL_NORMEXP_MULTICALL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 535
 536
 537
 538
 539 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_WARMELTmiNORMAL_LAMBDA_cl26(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 540
 541
 542
 543
 544 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_WARMELTmiNORMAL_LAMBDA_cl27(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 545
 546
 547
 548
 549 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_WARMELTmiNORMAL_LAMBDA_cl28(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 550
 551
 552
 553
 554 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_WARMELTmiNORMAL_NORMEXP_TUPLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 555
 556
 557
 558
 559 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_WARMELTmiNORMAL_NORMEXP_LIST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 560
 561
 562
 563
 564 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_WARMELTmiNORMAL_LAMBDA_cl29(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 565
 566
 567
 568
 569 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_WARMELTmiNORMAL_NORMEXP_ARITHMETIC_VARIADIC_OPERATION(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 570
 571
 572
 573
 574 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_WARMELTmiNORMAL_BADMETH_PREPARE_CONSTRUCTOR_BINDING(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 575
 576
 577
 578
 579 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_WARMELTmiNORMAL_BADMETH_NORMAL_LETREC_CONSTRUCTIVE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 580
 581
 582
 583
 584 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_WARMELTmiNORMAL_PREPCONS_LAMBDA(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 585
 586
 587
 588
 589 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_WARMELTmiNORMAL_NORMLETREC_LAMBDA(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 590
 591
 592
 593
 594 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_WARMELTmiNORMAL_PREPCONS_TUPLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 595
 596
 597
 598
 599 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_WARMELTmiNORMAL_NORMLETREC_TUPLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 600
 601
 602
 603
 604 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_WARMELTmiNORMAL_PREPCONS_LIST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 605
 606
 607
 608
 609 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_WARMELTmiNORMAL_NRECLIST_FIND_LOCSYM(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 610
 611
 612
 613
 614 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_WARMELTmiNORMAL_NORMLETREC_LIST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 615
 616
 617
 618
 619 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_WARMELTmiNORMAL_PREPCONS_INSTANCE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 620
 621
 622
 623
 624 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_WARMELTmiNORMAL_NORMLETREC_INSTANCE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 625
 626
 627
 628
 629 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_WARMELTmiNORMAL_LAMBDA_cl30(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 630
 631
 632
 633
 634 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_WARMELTmiNORMAL_NORMEXP_LETREC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 635
 636
 637
 638
 639 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_WARMELTmiNORMAL_NORMAL_PREDEF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 640
 641
 642
 643
 644 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_WARMELTmiNORMAL_NORMAL_SYMBOL_DATA(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 645
 646
 647
 648
 649 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_WARMELTmiNORMAL_NORMAL_KEYWORD_DATA(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 650
 651
 652
 653
 654 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_WARMELTmiNORMAL_CREATE_DATA_SLOTS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 655
 656
 657
 658
 659 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_WARMELTmiNORMAL_FILL_DATA_SLOT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 660
 661
 662
 663
 664 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_WARMELTmiNORMAL_NORMEXP_QUOTE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 665
 666
 667
 668
 669 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_WARMELTmiNORMAL_NORMEXP_COMMENT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 670
 671
 672
 673
 674 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_WARMELTmiNORMAL_NORMEXP_KEYWORD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 675
 676
 677
 678
 679 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_WARMELTmiNORMAL_FILL_NORMAL_FORMALBIND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 680
 681
 682
 683
 684 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_WARMELTmiNORMAL_FILL_NORMAL_FORMALS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 685
 686
 687
 688
 689 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_WARMELTmiNORMAL_FILL_NORMAL_EXPANSION(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 690
 691
 692
 693
 694 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_WARMELTmiNORMAL_LAMBDA_cl31(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 695
 696
 697
 698
 699 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_WARMELTmiNORMAL_NORMEXP_DEFPRIMITIVE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 700
 701
 702
 703
 704 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_129_WARMELTmiNORMAL_NORMEXP_DEFCITERATOR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 705
 706
 707
 708
 709 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_130_WARMELTmiNORMAL_NORMEXP_CITERATION(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 710
 711
 712
 713
 714 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_131_WARMELTmiNORMAL_LAMBDA_cl32(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 715
 716
 717
 718
 719 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_132_WARMELTmiNORMAL_LAMBDA_cl33(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 720
 721
 722
 723
 724 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_133_WARMELTmiNORMAL_LAMBDA_cl34(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 725
 726
 727
 728
 729 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_134_WARMELTmiNORMAL_LAMBDA_cl35(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 730
 731
 732
 733
 734 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_135_WARMELTmiNORMAL_LAMBDA_cl36(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 735
 736
 737
 738
 739 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_136_WARMELTmiNORMAL_LAMBDA_cl37(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 740
 741
 742
 743
 744 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_137_WARMELTmiNORMAL_LAMBDA_cl38(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 745
 746
 747
 748
 749 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_138_WARMELTmiNORMAL_NORMEXP_DEFCMATCHER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 750
 751
 752
 753
 754 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_139_WARMELTmiNORMAL_NORMEXP_DEFUNMATCHER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 755
 756
 757
 758
 759 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_140_WARMELTmiNORMAL_NORMEXP_DEFCLASS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 760
 761
 762
 763
 764 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_141_WARMELTmiNORMAL_NORMEXP_DEFINSTANCE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 765
 766
 767
 768
 769 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_142_WARMELTmiNORMAL_NORMEXP_DEFVAR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 770
 771
 772
 773
 774 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_143_WARMELTmiNORMAL_NORMEXP_DEFINE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 775
 776
 777
 778
 779 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_144_WARMELTmiNORMAL_LAMBDA_cl39(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 780
 781
 782
 783
 784 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_145_WARMELTmiNORMAL_NORMEXP_DEFSELECTOR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 785
 786
 787
 788
 789 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_146_WARMELTmiNORMAL_NORMAL_EXPORTED_VALUE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 790
 791
 792
 793
 794 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_147_WARMELTmiNORMAL_NORMEXP_EXPORT_VALUES(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 795
 796
 797
 798
 799 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_148_WARMELTmiNORMAL_NORMEXP_EXPORT_SYNONYM(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 800
 801
 802
 803
 804 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_149_WARMELTmiNORMAL_NORMEXP_EXPORT_CLASS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 805
 806
 807
 808
 809 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_150_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 810
 811
 812
 813
 814 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_151_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 815
 816
 817
 818
 819 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_152_WARMELTmiNORMAL_NORMEXP_EXPORT_DEFMACRO(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 820
 821
 822
 823
 824 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_153_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 825
 826
 827
 828
 829 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_154_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 830
 831
 832
 833
 834 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_155_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 835
 836
 837
 838
 839 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_156_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 840
 841
 842
 843
 844 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_157_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 845
 846
 847
 848
 849 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_158_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 850
 851
 852
 853
 854 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_159_WARMELTmiNORMAL_LAMBDA_cl40(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 855
 856
 857
 858
 859 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_160_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 860
 861
 862
 863
 864 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_161_WARMELTmiNORMAL_LAMBDA_cl41(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 865
 866
 867
 868
 869 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_162_WARMELTmiNORMAL_NORMEXP_CHEADER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 870
 871
 872
 873
 874 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_163_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 875
 876
 877
 878
 879 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_164_WARMELTmiNORMAL_NORMEXP_MODULE_IS_GPL_COMPATIBLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 880
 881
 882
 883
 884 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_165_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
 885
 886
 887 MELT_EXTERN MELT_LOW_OPTIMIZATION void* melt_start_this_module (void*); /*mandatory start of module*/
 888
 889 MELT_EXTERN const char melt_module_is_gpl_compatible[];
 890
 891 /*declare opaque initial frame: */
 892
 893 typedef Melt_InitialClassyFrame_WARMELTmiNORMAL_h867505767 /*opaqueinitialclassy*/ meltinitial_frame_t;
 894
 895
 896 /* define different names when debugging or not */
 897 #if MELT_HAVE_DEBUG
 898 MELT_EXTERN const char meltmodule_WARMELTmiNORMAL__melt_have_debug_enabled[];
 899 #define melt_have_debug_string meltmodule_WARMELTmiNORMAL__melt_have_debug_enabled
 900 #else /*!MELT_HAVE_DEBUG*/
 901 MELT_EXTERN const char meltmodule_WARMELTmiNORMAL__melt_have_debug_disabled[];
 902 #define melt_have_debug_string meltmodule_WARMELTmiNORMAL__melt_have_debug_disabled
 903 #endif /*!MELT_HAVE_DEBUG*/
 904
 905
 906
 907 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_0 (meltinitial_frame_t*, char*); //declare
 908
 909 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_1 (meltinitial_frame_t*, char*); //declare
 910
 911 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_2 (meltinitial_frame_t*, char*); //declare
 912
 913 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_3 (meltinitial_frame_t*, char*); //declare
 914
 915 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_4 (meltinitial_frame_t*, char*); //declare
 916
 917 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_5 (meltinitial_frame_t*, char*); //declare
 918
 919 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_6 (meltinitial_frame_t*, char*); //declare
 920
 921 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_7 (meltinitial_frame_t*, char*); //declare
 922
 923 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_8 (meltinitial_frame_t*, char*); //declare
 924
 925 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_9 (meltinitial_frame_t*, char*); //declare
 926
 927 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_10 (meltinitial_frame_t*, char*); //declare
 928
 929 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_11 (meltinitial_frame_t*, char*); //declare
 930
 931 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_12 (meltinitial_frame_t*, char*); //declare
 932
 933 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_13 (meltinitial_frame_t*, char*); //declare
 934
 935 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_14 (meltinitial_frame_t*, char*); //declare
 936
 937 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_15 (meltinitial_frame_t*, char*); //declare
 938
 939 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_16 (meltinitial_frame_t*, char*); //declare
 940
 941 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_17 (meltinitial_frame_t*, char*); //declare
 942
 943 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_18 (meltinitial_frame_t*, char*); //declare
 944
 945 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_19 (meltinitial_frame_t*, char*); //declare
 946
 947 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_20 (meltinitial_frame_t*, char*); //declare
 948
 949 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_21 (meltinitial_frame_t*, char*); //declare
 950
 951 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_22 (meltinitial_frame_t*, char*); //declare
 952
 953 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_23 (meltinitial_frame_t*, char*); //declare
 954
 955 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_24 (meltinitial_frame_t*, char*); //declare
 956
 957 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_25 (meltinitial_frame_t*, char*); //declare
 958
 959 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_26 (meltinitial_frame_t*, char*); //declare
 960
 961 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_27 (meltinitial_frame_t*, char*); //declare
 962
 963 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_28 (meltinitial_frame_t*, char*); //declare
 964
 965 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_29 (meltinitial_frame_t*, char*); //declare
 966
 967 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_30 (meltinitial_frame_t*, char*); //declare
 968
 969 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_31 (meltinitial_frame_t*, char*); //declare
 970
 971 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_32 (meltinitial_frame_t*, char*); //declare
 972
 973 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_33 (meltinitial_frame_t*, char*); //declare
 974
 975 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_34 (meltinitial_frame_t*, char*); //declare
 976
 977 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_35 (meltinitial_frame_t*, char*); //declare
 978
 979 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_36 (meltinitial_frame_t*, char*); //declare
 980
 981 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_37 (meltinitial_frame_t*, char*); //declare
 982
 983 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_38 (meltinitial_frame_t*, char*); //declare
 984
 985 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_39 (meltinitial_frame_t*, char*); //declare
 986
 987 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_40 (meltinitial_frame_t*, char*); //declare
 988
 989 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_41 (meltinitial_frame_t*, char*); //declare
 990
 991 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_42 (meltinitial_frame_t*, char*); //declare
 992
 993 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_43 (meltinitial_frame_t*, char*); //declare
 994
 995 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_44 (meltinitial_frame_t*, char*); //declare
 996
 997 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_45 (meltinitial_frame_t*, char*); //declare
 998
 999 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_46 (meltinitial_frame_t*, char*); //declare
1000
1001 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_47 (meltinitial_frame_t*, char*); //declare
1002
1003 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_48 (meltinitial_frame_t*, char*); //declare
1004
1005 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_49 (meltinitial_frame_t*, char*); //declare
1006
1007 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_50 (meltinitial_frame_t*, char*); //declare
1008
1009 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_51 (meltinitial_frame_t*, char*); //declare
1010
1011 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_52 (meltinitial_frame_t*, char*); //declare
1012
1013 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_53 (meltinitial_frame_t*, char*); //declare
1014
1015 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_54 (meltinitial_frame_t*, char*); //declare
1016
1017 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_55 (meltinitial_frame_t*, char*); //declare
1018
1019 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_56 (meltinitial_frame_t*, char*); //declare
1020
1021 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_57 (meltinitial_frame_t*, char*); //declare
1022
1023 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_58 (meltinitial_frame_t*, char*); //declare
1024
1025 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_59 (meltinitial_frame_t*, char*); //declare
1026
1027 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiNORMAL__initialmeltchunk_60 (meltinitial_frame_t*, char*); //declare
1028
1029
1030
1031 /**** warmelt-normal+02.cc implementations ****/
1032
1033
1034
1035
1036 melt_ptr_t MELT_MODULE_VISIBILITY
1037 meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
1038         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
1039 {
1040     long current_blocklevel_signals_meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND_melt =  melt_blocklevel_signals;
1041
1042 #if MELT_HAVE_DEBUG
1043     static long melt_call_counter__;
1044     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
1045 #undef meltcallcount
1046 #define meltcallcount melt_thiscallcounter__
1047 #else
1048 #undef meltcallcount
1049 #define meltcallcount 0L
1050 #endif
1051 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
1052
1053     /* start of frame for routine meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND fromline 1752 */
1054
1055     /** start of frame for meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND of CLASS_PROCROUTINEOBJ from 1555**/
1056
1057     /*curframdeclclassy*/ class MeltFrame_meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND// fromline 1568
1058         : public Melt_CallFrameWithValues<40>
1059     {
1060     public: /* fromline 1572*/
1061         long mcfr_varnum[11];
1062         /*classy others*/
1063         long _meltsparel;
1064         void melt_mark_stuff (void)
1065         {
1066         } /*end melt_mark_stuff*/
1067         virtual void melt_mark_ggc_data (void)
1068         {
1069             melt_mark_values ();
1070             melt_mark_stuff ();
1071         }; /*end melt_mark_ggc_data*/
1072         MeltFrame_meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND(meltclosure_ptr_t clos) //the closure constructor fromline 1630
1073             : Melt_CallFrameWithValues<40> (
1074 #if ENABLE_CHECKING /*fromline 1634*/
1075                 __FILE__, __LINE__,
1076 #endif /* ENABLE_CHECKING fromline 1638*/
1077                 sizeof(MeltFrame_meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND), clos) {};
1078         MeltFrame_meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND() //the constructor fromline 1642
1079             : Melt_CallFrameWithValues<40> (
1080 #if ENABLE_CHECKING /*fromline 1646*/
1081                 __FILE__, __LINE__,
1082 #endif /* ENABLE_CHECKING fromline 1650*/
1083                 sizeof(MeltFrame_meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND)) {};
1084 #if ENABLE_CHECKING /*fromline 1654*/
1085         MeltFrame_meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND(const char*fil, int lin) //the constructor fromline 1656
1086             : Melt_CallFrameWithValues<40> (fil,lin, sizeof(MeltFrame_meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND)) {};
1087         MeltFrame_meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
1088             : Melt_CallFrameWithValues<40> (fil,lin, sizeof(MeltFrame_meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND), clos) {};
1089 #endif /* ENABLE_CHECKING fromline 1666*/
1090
1091     }; // end  class MeltFrame_meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND
1092
1093
1094     /** end of frame for meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND fromline 1697**/
1095
1096     /* end of frame for routine meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND fromline 1756 */
1097
1098     /* classy proc frame meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND */
1099     MeltFrame_meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND
1100     meltfram__ /*declfrastruct fromline 1780*/
1101     /*classyprocarg meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND fromline 1785*/
1102 #if ENABLE_CHECKING
1103     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
1104 #else /*ENABLE_CHECKING */
1105     (meltclosp_) /* fromline 1793*/
1106 #endif /*ENABLE_CHECKING */
1107
1108     ;
1109 #define meltframe meltfram__
1110
1111     melt_trace_start("NORMBIND_DEFMACROBIND", meltcallcount);
1112     /*use arguments*/
1113     (void) meltclosp_;
1114     (void)meltfirstargp_;
1115     (void)meltxargdescr_;
1116     (void)meltxargtab_;
1117     (void)meltxresdescr_;
1118     (void)meltxrestab_;
1119     /*getargs*/
1120
1121     /*getarg#0*/
1122     MELT_LOCATION("warmelt-normal.melt:1776:/ getarg");
1123     /*_.BIND__V2*/
1124     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
1125
1126     /*getarg#1*/
1127     /*^getarg*/
1128     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
1129     /*_.ENV__V3*/
1130     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
1131     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
1132
1133
1134     /*getarg#2*/
1135     /*^getarg*/
1136     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
1137     /*_.NCX__V4*/
1138     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
1139     gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL);
1140
1141
1142     /*getarg#3*/
1143     /*^getarg*/
1144     if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
1145     /*_.PROCS__V5*/
1146     meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
1147     gcc_assert(melt_discr((melt_ptr_t)(/*_.PROCS__V5*/ meltfptr[4])) != NULL);
1148
1149
1150     /*getarg#4*/
1151     /*^getarg*/
1152     if (meltxargdescr_[3] != MELTBPAR_PTR) goto meltlab_endgetargs;
1153     /*_.PSLOC__V6*/
1154     meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL;
1155     gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V6*/ meltfptr[5])) != NULL);
1156
1157     ;
1158     goto meltlab_endgetargs;
1159 meltlab_endgetargs:
1160     ;
1161     /*body*/
1162     /*^block*/
1163     /*anyblock*/
1164     {
1165
1166
1167 #if MELT_HAVE_DEBUG
1168         MELT_LOCATION("warmelt-normal.melt:1777:/ cppif.then");
1169         /*^block*/
1170         /*anyblock*/
1171         {
1172
1173
1174             {
1175                 /*^locexp*/
1176                 /*melt_increment_dbgcounter*/
1177 #if MELT_HAVE_DEBUG
1178                 melt_dbgcounter++;
1179 #endif
1180                 ;
1181             }
1182             ;
1183
1184             MELT_CHECK_SIGNAL();
1185             ;
1186             /*_#MELT_NEED_DBG__L1*/
1187             meltfnum[0] =
1188                 /*MELT_NEED_DBG*/
1189 #if MELT_HAVE_DEBUG
1190                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
1191 #else
1192                 0 /* no melt_need_dbg */
1193 #endif /*MELT_HAVE_DEBUG*/
1194                 ;;
1195             MELT_LOCATION("warmelt-normal.melt:1777:/ cond");
1196             /*cond*/
1197             if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
1198                 {
1199                     /*^cond.then*/
1200                     /*^block*/
1201                     /*anyblock*/
1202                     {
1203
1204                         /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
1205                             /* for melt_callcount */
1206 #if MELT_HAVE_DEBUG && defined (meltcallcount)
1207                             meltcallcount  /* melt_callcount debugging */
1208 #else
1209                             0L  /* melt_callcount without debug */
1210 #endif /* MELT_HAVE_DEBUG melt_callcount */
1211                             ;;
1212
1213                         MELT_CHECK_SIGNAL();
1214                         ;
1215                         MELT_LOCATION("warmelt-normal.melt:1777:/ apply");
1216                         /*apply*/
1217                         {
1218                             union meltparam_un argtab[15];
1219                             memset(&argtab, 0, sizeof(argtab));
1220                             /*^apply.arg*/
1221                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
1222                             /*^apply.arg*/
1223                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
1224                             /*^apply.arg*/
1225                             argtab[2].meltbp_long = 1777;
1226                             /*^apply.arg*/
1227                             argtab[3].meltbp_cstring =  "normbind_defmacrobind bind=";
1228                             /*^apply.arg*/
1229                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V2*/ meltfptr[1];
1230                             /*^apply.arg*/
1231                             argtab[5].meltbp_cstring =  "\n.. env=";
1232                             /*^apply.arg*/
1233                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
1234                             /*^apply.arg*/
1235                             argtab[7].meltbp_cstring =  "\n.. ncx=";
1236                             /*^apply.arg*/
1237                             argtab[8].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[1]);
1238                             /*^apply.arg*/
1239                             argtab[9].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
1240                             /*^apply.arg*/
1241                             argtab[10].meltbp_cstring =  "\n.. procs=";
1242                             /*^apply.arg*/
1243                             argtab[11].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[1]);
1244                             /*^apply.arg*/
1245                             argtab[12].meltbp_aptr = (melt_ptr_t*) &/*_.PROCS__V5*/ meltfptr[4];
1246                             /*^apply.arg*/
1247                             argtab[13].meltbp_cstring =  "\n.. psloc=";
1248                             /*^apply.arg*/
1249                             argtab[14].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V6*/ meltfptr[5];
1250                             /*_.MELT_DEBUG_FUN__V8*/
1251                             meltfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1252                         }
1253                         ;
1254                         /*_._IF___V7*/
1255                         meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];;
1256                         /*epilog*/
1257
1258                         MELT_LOCATION("warmelt-normal.melt:1777:/ clear");
1259                         /*clear*/ /*_#MELT_CALLCOUNT__L2*/
1260                         meltfnum[1] = 0 ;
1261                         /*^clear*/
1262                         /*clear*/ /*_.MELT_DEBUG_FUN__V8*/
1263                         meltfptr[7] = 0 ;
1264                     }
1265                     ;
1266                 }
1267             else    /*^cond.else*/
1268                 {
1269
1270                     /*_._IF___V7*/ meltfptr[6] =  /*reallynil*/ NULL ;;
1271                 }
1272             ;
1273
1274             {
1275                 MELT_LOCATION("warmelt-normal.melt:1777:/ locexp");
1276                 /*void*/
1277                 (void)0;
1278             }
1279             ;
1280             /*^quasiblock*/
1281
1282
1283             /*epilog*/
1284
1285             /*^clear*/
1286             /*clear*/ /*_#MELT_NEED_DBG__L1*/
1287             meltfnum[0] = 0 ;
1288             /*^clear*/
1289             /*clear*/ /*_._IF___V7*/
1290             meltfptr[6] = 0 ;
1291         }
1292
1293 #else /*MELT_HAVE_DEBUG*/
1294         /*^cppif.else*/
1295         /*^block*/
1296         /*anyblock*/
1297         {
1298
1299
1300             {
1301                 /*^locexp*/
1302                 /*void*/(void)0;
1303             }
1304             ;
1305             /*epilog*/
1306         }
1307
1308 #endif /*MELT_HAVE_DEBUG*/
1309         ;
1310
1311         {
1312             MELT_LOCATION("warmelt-normal.melt:1779:/ locexp");
1313
1314 #if MELT_HAVE_DEBUG
1315             if (melt_need_debug (0))
1316                 melt_dbgshortbacktrace(( "normbind_defmacrobind"), (12));
1317 #endif
1318             ;
1319         }
1320         ;
1321
1322 #if MELT_HAVE_DEBUG
1323         MELT_LOCATION("warmelt-normal.melt:1780:/ cppif.then");
1324         /*^block*/
1325         /*anyblock*/
1326         {
1327
1328
1329             MELT_CHECK_SIGNAL();
1330             ;
1331             /*_#IS_A__L3*/
1332             meltfnum[1] =
1333                 melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DEFINED_MACRO_BINDING*/ meltfrout->tabval[2])));;
1334             MELT_LOCATION("warmelt-normal.melt:1780:/ cond");
1335             /*cond*/
1336             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
1337                 {
1338                     /*^cond.then*/
1339                     /*_._IFELSE___V10*/ meltfptr[6] = (/*nil*/NULL);;
1340                 }
1341             else
1342                 {
1343                     MELT_LOCATION("warmelt-normal.melt:1780:/ cond.else");
1344
1345                     /*^block*/
1346                     /*anyblock*/
1347                     {
1348
1349
1350                         MELT_CHECK_SIGNAL();
1351                         ;
1352                         /*^apply*/
1353                         /*apply*/
1354                         {
1355                             union meltparam_un argtab[4];
1356                             memset(&argtab, 0, sizeof(argtab));
1357                             /*^apply.arg*/
1358                             argtab[0].meltbp_cstring =  "check bind";
1359                             /*^apply.arg*/
1360                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
1361                             /*^apply.arg*/
1362                             argtab[2].meltbp_long = 1780;
1363                             /*^apply.arg*/
1364                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V2*/ meltfptr[1];
1365                             /*_.MELT_ASSERT_FAILURE_FUN__V11*/
1366                             meltfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1367                         }
1368                         ;
1369                         /*_._IFELSE___V10*/
1370                         meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];;
1371                         /*epilog*/
1372
1373                         MELT_LOCATION("warmelt-normal.melt:1780:/ clear");
1374                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/
1375                         meltfptr[10] = 0 ;
1376                     }
1377                     ;
1378                 }
1379             ;
1380             /*_.IFCPP___V9*/
1381             meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[6];;
1382             /*epilog*/
1383
1384             MELT_LOCATION("warmelt-normal.melt:1780:/ clear");
1385             /*clear*/ /*_#IS_A__L3*/
1386             meltfnum[1] = 0 ;
1387             /*^clear*/
1388             /*clear*/ /*_._IFELSE___V10*/
1389             meltfptr[6] = 0 ;
1390         }
1391
1392 #else /*MELT_HAVE_DEBUG*/
1393         /*^cppif.else*/
1394         /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL);
1395 #endif /*MELT_HAVE_DEBUG*/
1396         ;
1397
1398 #if MELT_HAVE_DEBUG
1399         MELT_LOCATION("warmelt-normal.melt:1781:/ cppif.then");
1400         /*^block*/
1401         /*anyblock*/
1402         {
1403
1404
1405             MELT_CHECK_SIGNAL();
1406             ;
1407             /*_#IS_A__L4*/
1408             meltfnum[0] =
1409                 melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[4])));;
1410             MELT_LOCATION("warmelt-normal.melt:1781:/ cond");
1411             /*cond*/
1412             if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/
1413                 {
1414                     /*^cond.then*/
1415                     /*_._IFELSE___V13*/ meltfptr[6] = (/*nil*/NULL);;
1416                 }
1417             else
1418                 {
1419                     MELT_LOCATION("warmelt-normal.melt:1781:/ cond.else");
1420
1421                     /*^block*/
1422                     /*anyblock*/
1423                     {
1424
1425
1426                         MELT_CHECK_SIGNAL();
1427                         ;
1428                         /*^apply*/
1429                         /*apply*/
1430                         {
1431                             union meltparam_un argtab[4];
1432                             memset(&argtab, 0, sizeof(argtab));
1433                             /*^apply.arg*/
1434                             argtab[0].meltbp_cstring =  "check env";
1435                             /*^apply.arg*/
1436                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
1437                             /*^apply.arg*/
1438                             argtab[2].meltbp_long = 1781;
1439                             /*^apply.arg*/
1440                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
1441                             /*_.MELT_ASSERT_FAILURE_FUN__V14*/
1442                             meltfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1443                         }
1444                         ;
1445                         /*_._IFELSE___V13*/
1446                         meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];;
1447                         /*epilog*/
1448
1449                         MELT_LOCATION("warmelt-normal.melt:1781:/ clear");
1450                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/
1451                         meltfptr[13] = 0 ;
1452                     }
1453                     ;
1454                 }
1455             ;
1456             /*_.IFCPP___V12*/
1457             meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[6];;
1458             /*epilog*/
1459
1460             MELT_LOCATION("warmelt-normal.melt:1781:/ clear");
1461             /*clear*/ /*_#IS_A__L4*/
1462             meltfnum[0] = 0 ;
1463             /*^clear*/
1464             /*clear*/ /*_._IFELSE___V13*/
1465             meltfptr[6] = 0 ;
1466         }
1467
1468 #else /*MELT_HAVE_DEBUG*/
1469         /*^cppif.else*/
1470         /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL);
1471 #endif /*MELT_HAVE_DEBUG*/
1472         ;
1473
1474 #if MELT_HAVE_DEBUG
1475         MELT_LOCATION("warmelt-normal.melt:1782:/ cppif.then");
1476         /*^block*/
1477         /*anyblock*/
1478         {
1479
1480
1481             MELT_CHECK_SIGNAL();
1482             ;
1483             /*_#IS_A__L5*/
1484             meltfnum[1] =
1485                 melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[5])));;
1486             MELT_LOCATION("warmelt-normal.melt:1782:/ cond");
1487             /*cond*/
1488             if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/
1489                 {
1490                     /*^cond.then*/
1491                     /*_._IFELSE___V16*/ meltfptr[6] = (/*nil*/NULL);;
1492                 }
1493             else
1494                 {
1495                     MELT_LOCATION("warmelt-normal.melt:1782:/ cond.else");
1496
1497                     /*^block*/
1498                     /*anyblock*/
1499                     {
1500
1501
1502                         MELT_CHECK_SIGNAL();
1503                         ;
1504                         /*^apply*/
1505                         /*apply*/
1506                         {
1507                             union meltparam_un argtab[4];
1508                             memset(&argtab, 0, sizeof(argtab));
1509                             /*^apply.arg*/
1510                             argtab[0].meltbp_cstring =  "check ncx";
1511                             /*^apply.arg*/
1512                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
1513                             /*^apply.arg*/
1514                             argtab[2].meltbp_long = 1782;
1515                             /*^apply.arg*/
1516                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
1517                             /*_.MELT_ASSERT_FAILURE_FUN__V17*/
1518                             meltfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1519                         }
1520                         ;
1521                         /*_._IFELSE___V16*/
1522                         meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];;
1523                         /*epilog*/
1524
1525                         MELT_LOCATION("warmelt-normal.melt:1782:/ clear");
1526                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/
1527                         meltfptr[16] = 0 ;
1528                     }
1529                     ;
1530                 }
1531             ;
1532             /*_.IFCPP___V15*/
1533             meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[6];;
1534             /*epilog*/
1535
1536             MELT_LOCATION("warmelt-normal.melt:1782:/ clear");
1537             /*clear*/ /*_#IS_A__L5*/
1538             meltfnum[1] = 0 ;
1539             /*^clear*/
1540             /*clear*/ /*_._IFELSE___V16*/
1541             meltfptr[6] = 0 ;
1542         }
1543
1544 #else /*MELT_HAVE_DEBUG*/
1545         /*^cppif.else*/
1546         /*_.IFCPP___V15*/ meltfptr[13] = (/*nil*/NULL);
1547 #endif /*MELT_HAVE_DEBUG*/
1548         ;
1549         MELT_LOCATION("warmelt-normal.melt:1783:/ quasiblock");
1550
1551
1552         /*^getslot*/
1553         {
1554             melt_ptr_t slot=NULL, obj=NULL;
1555             obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/;
1556             melt_object_get_field(slot,obj, 7, "NCTX_SYMBCACHEMAP");
1557             /*_.SYCMAP__V19*/
1558             meltfptr[6] = slot;
1559         };
1560         ;
1561         MELT_LOCATION("warmelt-normal.melt:1784:/ getslot");
1562         {
1563             melt_ptr_t slot=NULL, obj=NULL;
1564             obj = (melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]) /*=obj*/;
1565             melt_object_get_field(slot,obj, 0, "BINDER");
1566             /*_.SYMB__V20*/
1567             meltfptr[19] = slot;
1568         };
1569         ;
1570         MELT_LOCATION("warmelt-normal.melt:1785:/ cond");
1571         /*cond*/
1572         if (
1573             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]),
1574                                           (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[5])))
1575         ) /*then*/
1576             {
1577                 /*^cond.then*/
1578                 /*^getslot*/
1579                 {
1580                     melt_ptr_t slot=NULL, obj=NULL;
1581                     obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/;
1582                     melt_object_get_field(slot,obj, 11, "NCTX_CURPROC");
1583                     /*_.CURPROC__V21*/
1584                     meltfptr[20] = slot;
1585                 };
1586                 ;
1587             }
1588         else    /*^cond.else*/
1589             {
1590
1591                 /*_.CURPROC__V21*/ meltfptr[20] =  /*reallynil*/ NULL ;;
1592             }
1593         ;
1594         MELT_LOCATION("warmelt-normal.melt:1786:/ cond");
1595         /*cond*/
1596         if (
1597             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]),
1598                                           (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[5])))
1599         ) /*then*/
1600             {
1601                 /*^cond.then*/
1602                 /*^getslot*/
1603                 {
1604                     melt_ptr_t slot=NULL, obj=NULL;
1605                     obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/;
1606                     melt_object_get_field(slot,obj, 12, "NCTX_MODULCONTEXT");
1607                     /*_.MODCTX__V22*/
1608                     meltfptr[21] = slot;
1609                 };
1610                 ;
1611             }
1612         else    /*^cond.else*/
1613             {
1614
1615                 /*_.MODCTX__V22*/ meltfptr[21] =  /*reallynil*/ NULL ;;
1616             }
1617         ;
1618         MELT_LOCATION("warmelt-normal.melt:1787:/ cond");
1619         /*cond*/
1620         if (
1621             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]),
1622                                           (melt_ptr_t)((/*!CLASS_DEFINED_MACRO_BINDING*/ meltfrout->tabval[2])))
1623         ) /*then*/
1624             {
1625                 /*^cond.then*/
1626                 /*^getslot*/
1627                 {
1628                     melt_ptr_t slot=NULL, obj=NULL;
1629                     obj = (melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]) /*=obj*/;
1630                     melt_object_get_field(slot,obj, 3, "MBIND_DATA");
1631                     /*_.MDATA__V23*/
1632                     meltfptr[22] = slot;
1633                 };
1634                 ;
1635             }
1636         else    /*^cond.else*/
1637             {
1638
1639                 /*_.MDATA__V23*/ meltfptr[22] =  /*reallynil*/ NULL ;;
1640             }
1641         ;
1642
1643 #if MELT_HAVE_DEBUG
1644         MELT_LOCATION("warmelt-normal.melt:1789:/ cppif.then");
1645         /*^block*/
1646         /*anyblock*/
1647         {
1648
1649
1650             {
1651                 /*^locexp*/
1652                 /*melt_increment_dbgcounter*/
1653 #if MELT_HAVE_DEBUG
1654                 melt_dbgcounter++;
1655 #endif
1656                 ;
1657             }
1658             ;
1659
1660             MELT_CHECK_SIGNAL();
1661             ;
1662             /*_#MELT_NEED_DBG__L6*/
1663             meltfnum[0] =
1664                 /*MELT_NEED_DBG*/
1665 #if MELT_HAVE_DEBUG
1666                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
1667 #else
1668                 0 /* no melt_need_dbg */
1669 #endif /*MELT_HAVE_DEBUG*/
1670                 ;;
1671             MELT_LOCATION("warmelt-normal.melt:1789:/ cond");
1672             /*cond*/
1673             if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/
1674                 {
1675                     /*^cond.then*/
1676                     /*^block*/
1677                     /*anyblock*/
1678                     {
1679
1680                         /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] =
1681                             /* for melt_callcount */
1682 #if MELT_HAVE_DEBUG && defined (meltcallcount)
1683                             meltcallcount  /* melt_callcount debugging */
1684 #else
1685                             0L  /* melt_callcount without debug */
1686 #endif /* MELT_HAVE_DEBUG melt_callcount */
1687                             ;;
1688
1689                         MELT_CHECK_SIGNAL();
1690                         ;
1691                         MELT_LOCATION("warmelt-normal.melt:1789:/ apply");
1692                         /*apply*/
1693                         {
1694                             union meltparam_un argtab[5];
1695                             memset(&argtab, 0, sizeof(argtab));
1696                             /*^apply.arg*/
1697                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L7*/ meltfnum[1];
1698                             /*^apply.arg*/
1699                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
1700                             /*^apply.arg*/
1701                             argtab[2].meltbp_long = 1789;
1702                             /*^apply.arg*/
1703                             argtab[3].meltbp_cstring =  "normbind_defmacrobind mdata=";
1704                             /*^apply.arg*/
1705                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MDATA__V23*/ meltfptr[22];
1706                             /*_.MELT_DEBUG_FUN__V25*/
1707                             meltfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1708                         }
1709                         ;
1710                         /*_._IF___V24*/
1711                         meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];;
1712                         /*epilog*/
1713
1714                         MELT_LOCATION("warmelt-normal.melt:1789:/ clear");
1715                         /*clear*/ /*_#MELT_CALLCOUNT__L7*/
1716                         meltfnum[1] = 0 ;
1717                         /*^clear*/
1718                         /*clear*/ /*_.MELT_DEBUG_FUN__V25*/
1719                         meltfptr[24] = 0 ;
1720                     }
1721                     ;
1722                 }
1723             else    /*^cond.else*/
1724                 {
1725
1726                     /*_._IF___V24*/ meltfptr[23] =  /*reallynil*/ NULL ;;
1727                 }
1728             ;
1729
1730             {
1731                 MELT_LOCATION("warmelt-normal.melt:1789:/ locexp");
1732                 /*void*/
1733                 (void)0;
1734             }
1735             ;
1736             /*^quasiblock*/
1737
1738
1739             /*epilog*/
1740
1741             /*^clear*/
1742             /*clear*/ /*_#MELT_NEED_DBG__L6*/
1743             meltfnum[0] = 0 ;
1744             /*^clear*/
1745             /*clear*/ /*_._IF___V24*/
1746             meltfptr[23] = 0 ;
1747         }
1748
1749 #else /*MELT_HAVE_DEBUG*/
1750         /*^cppif.else*/
1751         /*^block*/
1752         /*anyblock*/
1753         {
1754
1755
1756             {
1757                 /*^locexp*/
1758                 /*void*/(void)0;
1759             }
1760             ;
1761             /*epilog*/
1762         }
1763
1764 #endif /*MELT_HAVE_DEBUG*/
1765         ;
1766
1767         MELT_CHECK_SIGNAL();
1768         ;
1769         /*_#IS_NON_EMPTY_LIST__L8*/
1770         meltfnum[1] =
1771             (melt_magic_discr((melt_ptr_t)(/*_.PROCS__V5*/ meltfptr[4])) == MELTOBMAG_LIST && NULL != melt_list_first((melt_ptr_t)(/*_.PROCS__V5*/ meltfptr[4])));;
1772         MELT_LOCATION("warmelt-normal.melt:1790:/ cond");
1773         /*cond*/
1774         if (/*_#IS_NON_EMPTY_LIST__L8*/ meltfnum[1]) /*then*/
1775             {
1776                 /*^cond.then*/
1777                 /*^block*/
1778                 /*anyblock*/
1779                 {
1780
1781
1782 #if MELT_HAVE_DEBUG
1783                     MELT_LOCATION("warmelt-normal.melt:1791:/ cppif.then");
1784                     /*^block*/
1785                     /*anyblock*/
1786                     {
1787
1788
1789                         MELT_CHECK_SIGNAL();
1790                         ;
1791                         /*^cond*/
1792                         /*cond*/
1793                         if ((/*nil*/NULL)) /*then*/
1794                             {
1795                                 /*^cond.then*/
1796                                 /*_._IFELSE___V28*/ meltfptr[27] = (/*nil*/NULL);;
1797                             }
1798                         else
1799                             {
1800                                 MELT_LOCATION("warmelt-normal.melt:1791:/ cond.else");
1801
1802                                 /*^block*/
1803                                 /*anyblock*/
1804                                 {
1805
1806
1807                                     MELT_CHECK_SIGNAL();
1808                                     ;
1809                                     /*^apply*/
1810                                     /*apply*/
1811                                     {
1812                                         union meltparam_un argtab[4];
1813                                         memset(&argtab, 0, sizeof(argtab));
1814                                         /*^apply.arg*/
1815                                         argtab[0].meltbp_cstring =  "normbind_defmacrobind bad procs";
1816                                         /*^apply.arg*/
1817                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
1818                                         /*^apply.arg*/
1819                                         argtab[2].meltbp_long = 1791;
1820                                         /*^apply.arg*/
1821                                         argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PROCS__V5*/ meltfptr[4];
1822                                         /*_.MELT_ASSERT_FAILURE_FUN__V29*/
1823                                         meltfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1824                                     }
1825                                     ;
1826                                     /*_._IFELSE___V28*/
1827                                     meltfptr[27] = /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28];;
1828                                     /*epilog*/
1829
1830                                     MELT_LOCATION("warmelt-normal.melt:1791:/ clear");
1831                                     /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V29*/
1832                                     meltfptr[28] = 0 ;
1833                                 }
1834                                 ;
1835                             }
1836                         ;
1837                         /*_.IFCPP___V27*/
1838                         meltfptr[23] = /*_._IFELSE___V28*/ meltfptr[27];;
1839                         /*epilog*/
1840
1841                         MELT_LOCATION("warmelt-normal.melt:1791:/ clear");
1842                         /*clear*/ /*_._IFELSE___V28*/
1843                         meltfptr[27] = 0 ;
1844                     }
1845
1846 #else /*MELT_HAVE_DEBUG*/
1847                     /*^cppif.else*/
1848                     /*_.IFCPP___V27*/ meltfptr[23] = (/*nil*/NULL);
1849 #endif /*MELT_HAVE_DEBUG*/
1850                     ;
1851                     MELT_LOCATION("warmelt-normal.melt:1790:/ quasiblock");
1852
1853
1854                     /*_.PROGN___V30*/
1855                     meltfptr[28] = /*_.IFCPP___V27*/ meltfptr[23];;
1856                     /*^compute*/
1857                     /*_._IF___V26*/
1858                     meltfptr[24] = /*_.PROGN___V30*/ meltfptr[28];;
1859                     /*epilog*/
1860
1861                     MELT_LOCATION("warmelt-normal.melt:1790:/ clear");
1862                     /*clear*/ /*_.IFCPP___V27*/
1863                     meltfptr[23] = 0 ;
1864                     /*^clear*/
1865                     /*clear*/ /*_.PROGN___V30*/
1866                     meltfptr[28] = 0 ;
1867                 }
1868                 ;
1869             }
1870         else    /*^cond.else*/
1871             {
1872
1873                 /*_._IF___V26*/ meltfptr[24] =  /*reallynil*/ NULL ;;
1874             }
1875         ;
1876
1877         MELT_CHECK_SIGNAL();
1878         ;
1879         /*^compute*/
1880         /*_#IS_NOT_A__L9*/
1881         meltfnum[0] =
1882             !melt_is_instance_of((melt_ptr_t)(/*_.MDATA__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_NREP_DATACLOSURE*/ meltfrout->tabval[6])));;
1883         MELT_LOCATION("warmelt-normal.melt:1792:/ cond");
1884         /*cond*/
1885         if (/*_#IS_NOT_A__L9*/ meltfnum[0]) /*then*/
1886             {
1887                 /*^cond.then*/
1888                 /*^block*/
1889                 /*anyblock*/
1890                 {
1891
1892                     MELT_LOCATION("warmelt-normal.melt:1793:/ cond");
1893                     /*cond*/
1894                     if (
1895                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V20*/ meltfptr[19]),
1896                                                       (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8])))
1897                     ) /*then*/
1898                         {
1899                             /*^cond.then*/
1900                             /*^getslot*/
1901                             {
1902                                 melt_ptr_t slot=NULL, obj=NULL;
1903                                 obj = (melt_ptr_t)(/*_.SYMB__V20*/ meltfptr[19]) /*=obj*/;
1904                                 melt_object_get_field(slot,obj, 1, "NAMED_NAME");
1905                                 /*_.NAMED_NAME__V32*/
1906                                 meltfptr[23] = slot;
1907                             };
1908                             ;
1909                         }
1910                     else    /*^cond.else*/
1911                         {
1912
1913                             /*_.NAMED_NAME__V32*/ meltfptr[23] =  /*reallynil*/ NULL ;;
1914                         }
1915                     ;
1916
1917                     MELT_CHECK_SIGNAL();
1918                     ;
1919                     MELT_LOCATION("warmelt-normal.melt:1793:/ apply");
1920                     /*apply*/
1921                     {
1922                         union meltparam_un argtab[2];
1923                         memset(&argtab, 0, sizeof(argtab));
1924                         /*^apply.arg*/
1925                         argtab[0].meltbp_cstring =  "insane use of undefined or ill-defined macro $1; macro uses should\
1926  be operator-like.";
1927                         /*^apply.arg*/
1928                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V32*/ meltfptr[23];
1929                         /*_.ERROR_AT__V33*/
1930                         meltfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.PSLOC__V6*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1931                     }
1932                     ;
1933
1934 #if MELT_HAVE_DEBUG
1935                     MELT_LOCATION("warmelt-normal.melt:1794:/ cppif.then");
1936                     /*^block*/
1937                     /*anyblock*/
1938                     {
1939
1940
1941                         MELT_CHECK_SIGNAL();
1942                         ;
1943                         /*_#MELT_IS_BOOTSTRAPPING__L10*/
1944                         meltfnum[9] =
1945                             (melt_flag_bootstrapping);;
1946                         /*^compute*/
1947                         /*_#NOT__L11*/
1948                         meltfnum[10] =
1949                             (!(/*_#MELT_IS_BOOTSTRAPPING__L10*/ meltfnum[9]));;
1950                         MELT_LOCATION("warmelt-normal.melt:1794:/ cond");
1951                         /*cond*/
1952                         if (/*_#NOT__L11*/ meltfnum[10]) /*then*/
1953                             {
1954                                 /*^cond.then*/
1955                                 /*_._IFELSE___V35*/ meltfptr[34] = (/*nil*/NULL);;
1956                             }
1957                         else
1958                             {
1959                                 MELT_LOCATION("warmelt-normal.melt:1794:/ cond.else");
1960
1961                                 /*^block*/
1962                                 /*anyblock*/
1963                                 {
1964
1965                                     /*_.DISCRIM__V36*/ meltfptr[35] =
1966                                         ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]))));;
1967
1968                                     MELT_CHECK_SIGNAL();
1969                                     ;
1970                                     MELT_LOCATION("warmelt-normal.melt:1794:/ apply");
1971                                     /*apply*/
1972                                     {
1973                                         union meltparam_un argtab[6];
1974                                         memset(&argtab, 0, sizeof(argtab));
1975                                         /*^apply.arg*/
1976                                         argtab[0].meltbp_cstring =  "normbind_defmacrobind bad macro data while bootstrapping";
1977                                         /*^apply.arg*/
1978                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
1979                                         /*^apply.arg*/
1980                                         argtab[2].meltbp_long = 1794;
1981                                         /*^apply.arg*/
1982                                         argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MDATA__V23*/ meltfptr[22];
1983                                         /*^apply.arg*/
1984                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V2*/ meltfptr[1];
1985                                         /*^apply.arg*/
1986                                         argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.DISCRIM__V36*/ meltfptr[35];
1987                                         /*_.MELT_ASSERT_FAILURE_FUN__V37*/
1988                                         meltfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1989                                     }
1990                                     ;
1991                                     /*_._IFELSE___V35*/
1992                                     meltfptr[34] = /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36];;
1993                                     /*epilog*/
1994
1995                                     MELT_LOCATION("warmelt-normal.melt:1794:/ clear");
1996                                     /*clear*/ /*_.DISCRIM__V36*/
1997                                     meltfptr[35] = 0 ;
1998                                     /*^clear*/
1999                                     /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V37*/
2000                                     meltfptr[36] = 0 ;
2001                                 }
2002                                 ;
2003                             }
2004                         ;
2005                         /*_.IFCPP___V34*/
2006                         meltfptr[33] = /*_._IFELSE___V35*/ meltfptr[34];;
2007                         /*epilog*/
2008
2009                         MELT_LOCATION("warmelt-normal.melt:1794:/ clear");
2010                         /*clear*/ /*_#MELT_IS_BOOTSTRAPPING__L10*/
2011                         meltfnum[9] = 0 ;
2012                         /*^clear*/
2013                         /*clear*/ /*_#NOT__L11*/
2014                         meltfnum[10] = 0 ;
2015                         /*^clear*/
2016                         /*clear*/ /*_._IFELSE___V35*/
2017                         meltfptr[34] = 0 ;
2018                     }
2019
2020 #else /*MELT_HAVE_DEBUG*/
2021                     /*^cppif.else*/
2022                     /*_.IFCPP___V34*/ meltfptr[33] = (/*nil*/NULL);
2023 #endif /*MELT_HAVE_DEBUG*/
2024                     ;
2025                     MELT_LOCATION("warmelt-normal.melt:1797:/ quasiblock");
2026
2027
2028                     /*_._RETVAL___V1*/
2029                     meltfptr[0] =  /*reallynil*/ NULL ;;
2030
2031                     {
2032                         MELT_LOCATION("warmelt-normal.melt:1797:/ locexp");
2033                         /*ochecknores compilobj_nrep_return*/
2034 #if MELT_HAVE_DEBUG
2035                         if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
2036                             melt_warn_for_no_expected_secondary_results();
2037                         /* we warned when secondary results are expected but not returned. */
2038 #endif /*MELT_HAVE_DEBUG*/
2039                         ;
2040                     }
2041                     ;
2042                     /*^finalreturn*/
2043                     ;
2044                     /*finalret*/
2045                     goto meltlabend_rout ;
2046                     MELT_LOCATION("warmelt-normal.melt:1792:/ quasiblock");
2047
2048
2049                     /*_.PROGN___V39*/
2050                     meltfptr[36] = /*_.RETURN___V38*/ meltfptr[35];;
2051                     /*^compute*/
2052                     /*_._IF___V31*/
2053                     meltfptr[27] = /*_.PROGN___V39*/ meltfptr[36];;
2054                     /*epilog*/
2055
2056                     MELT_LOCATION("warmelt-normal.melt:1792:/ clear");
2057                     /*clear*/ /*_.NAMED_NAME__V32*/
2058                     meltfptr[23] = 0 ;
2059                     /*^clear*/
2060                     /*clear*/ /*_.ERROR_AT__V33*/
2061                     meltfptr[28] = 0 ;
2062                     /*^clear*/
2063                     /*clear*/ /*_.IFCPP___V34*/
2064                     meltfptr[33] = 0 ;
2065                     /*^clear*/
2066                     /*clear*/ /*_.RETURN___V38*/
2067                     meltfptr[35] = 0 ;
2068                     /*^clear*/
2069                     /*clear*/ /*_.PROGN___V39*/
2070                     meltfptr[36] = 0 ;
2071                 }
2072                 ;
2073             }
2074         else    /*^cond.else*/
2075             {
2076
2077                 /*_._IF___V31*/ meltfptr[27] =  /*reallynil*/ NULL ;;
2078             }
2079         ;
2080
2081         {
2082             MELT_LOCATION("warmelt-normal.melt:1799:/ locexp");
2083             meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYCMAP__V19*/ meltfptr[6]),
2084                                    (meltobject_ptr_t) (/*_.SYMB__V20*/ meltfptr[19]),
2085                                    (melt_ptr_t)(/*_.MDATA__V23*/ meltfptr[22]));
2086         }
2087         ;
2088
2089         MELT_CHECK_SIGNAL();
2090         ;
2091         MELT_LOCATION("warmelt-normal.melt:1800:/ quasiblock");
2092
2093
2094         /*_._RETVAL___V1*/
2095         meltfptr[0] = /*_.MDATA__V23*/ meltfptr[22];;
2096
2097         {
2098             MELT_LOCATION("warmelt-normal.melt:1800:/ locexp");
2099             /*ochecknores compilobj_nrep_return*/
2100 #if MELT_HAVE_DEBUG
2101             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
2102                 melt_warn_for_no_expected_secondary_results();
2103             /* we warned when secondary results are expected but not returned. */
2104 #endif /*MELT_HAVE_DEBUG*/
2105             ;
2106         }
2107         ;
2108         /*^finalreturn*/
2109         ;
2110         /*finalret*/
2111         goto meltlabend_rout ;
2112         /*_.LET___V18*/
2113         meltfptr[16] = /*_.RETURN___V40*/ meltfptr[34];;
2114
2115         MELT_LOCATION("warmelt-normal.melt:1783:/ clear");
2116         /*clear*/ /*_.SYCMAP__V19*/
2117         meltfptr[6] = 0 ;
2118         /*^clear*/
2119         /*clear*/ /*_.SYMB__V20*/
2120         meltfptr[19] = 0 ;
2121         /*^clear*/
2122         /*clear*/ /*_.CURPROC__V21*/
2123         meltfptr[20] = 0 ;
2124         /*^clear*/
2125         /*clear*/ /*_.MODCTX__V22*/
2126         meltfptr[21] = 0 ;
2127         /*^clear*/
2128         /*clear*/ /*_.MDATA__V23*/
2129         meltfptr[22] = 0 ;
2130         /*^clear*/
2131         /*clear*/ /*_#IS_NON_EMPTY_LIST__L8*/
2132         meltfnum[1] = 0 ;
2133         /*^clear*/
2134         /*clear*/ /*_._IF___V26*/
2135         meltfptr[24] = 0 ;
2136         /*^clear*/
2137         /*clear*/ /*_#IS_NOT_A__L9*/
2138         meltfnum[0] = 0 ;
2139         /*^clear*/
2140         /*clear*/ /*_._IF___V31*/
2141         meltfptr[27] = 0 ;
2142         /*^clear*/
2143         /*clear*/ /*_.RETURN___V40*/
2144         meltfptr[34] = 0 ;
2145
2146         MELT_CHECK_SIGNAL();
2147         ;
2148         MELT_LOCATION("warmelt-normal.melt:1776:/ quasiblock");
2149
2150
2151         /*_._RETVAL___V1*/
2152         meltfptr[0] = /*_.LET___V18*/ meltfptr[16];;
2153
2154         {
2155             MELT_LOCATION("warmelt-normal.melt:1776:/ locexp");
2156             /*ochecknores compilobj_nrep_return*/
2157 #if MELT_HAVE_DEBUG
2158             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
2159                 melt_warn_for_no_expected_secondary_results();
2160             /* we warned when secondary results are expected but not returned. */
2161 #endif /*MELT_HAVE_DEBUG*/
2162             ;
2163         }
2164         ;
2165         /*^finalreturn*/
2166         ;
2167         /*finalret*/
2168         goto meltlabend_rout ;
2169         /*epilog*/
2170
2171         /*^clear*/
2172         /*clear*/ /*_.IFCPP___V9*/
2173         meltfptr[7] = 0 ;
2174         /*^clear*/
2175         /*clear*/ /*_.IFCPP___V12*/
2176         meltfptr[10] = 0 ;
2177         /*^clear*/
2178         /*clear*/ /*_.IFCPP___V15*/
2179         meltfptr[13] = 0 ;
2180         /*^clear*/
2181         /*clear*/ /*_.LET___V18*/
2182         meltfptr[16] = 0 ;
2183     }
2184
2185     ;
2186     goto meltlabend_rout;
2187 meltlabend_rout:
2188     melt_trace_end("NORMBIND_DEFMACROBIND", meltcallcount);
2189     melt_blocklevel_signals = current_blocklevel_signals_meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND_melt;
2190     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
2191 #undef meltcallcount
2192 #undef meltfram__
2193 #undef MELTFRAM_NBVARNUM
2194 #undef MELTFRAM_NBVARPTR
2195 } /*end meltrout_30_WARMELTmiNORMAL_NORMBIND_DEFMACROBIND*/
2196
2197
2198
2199
2200
2201
2202 melt_ptr_t MELT_MODULE_VISIBILITY
2203 meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
2204         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
2205 {
2206     long current_blocklevel_signals_meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND_melt =  melt_blocklevel_signals;
2207
2208 #if MELT_HAVE_DEBUG
2209     static long melt_call_counter__;
2210     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
2211 #undef meltcallcount
2212 #define meltcallcount melt_thiscallcounter__
2213 #else
2214 #undef meltcallcount
2215 #define meltcallcount 0L
2216 #endif
2217 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
2218
2219     /* start of frame for routine meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND fromline 1752 */
2220
2221     /** start of frame for meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND of CLASS_PROCROUTINEOBJ from 1555**/
2222
2223     /*curframdeclclassy*/ class MeltFrame_meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND// fromline 1568
2224         : public Melt_CallFrameWithValues<42>
2225     {
2226     public: /* fromline 1572*/
2227         long mcfr_varnum[16];
2228         /*classy others*/
2229         long _meltsparel;
2230         void melt_mark_stuff (void)
2231         {
2232         } /*end melt_mark_stuff*/
2233         virtual void melt_mark_ggc_data (void)
2234         {
2235             melt_mark_values ();
2236             melt_mark_stuff ();
2237         }; /*end melt_mark_ggc_data*/
2238         MeltFrame_meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND(meltclosure_ptr_t clos) //the closure constructor fromline 1630
2239             : Melt_CallFrameWithValues<42> (
2240 #if ENABLE_CHECKING /*fromline 1634*/
2241                 __FILE__, __LINE__,
2242 #endif /* ENABLE_CHECKING fromline 1638*/
2243                 sizeof(MeltFrame_meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND), clos) {};
2244         MeltFrame_meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND() //the constructor fromline 1642
2245             : Melt_CallFrameWithValues<42> (
2246 #if ENABLE_CHECKING /*fromline 1646*/
2247                 __FILE__, __LINE__,
2248 #endif /* ENABLE_CHECKING fromline 1650*/
2249                 sizeof(MeltFrame_meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND)) {};
2250 #if ENABLE_CHECKING /*fromline 1654*/
2251         MeltFrame_meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND(const char*fil, int lin) //the constructor fromline 1656
2252             : Melt_CallFrameWithValues<42> (fil,lin, sizeof(MeltFrame_meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND)) {};
2253         MeltFrame_meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
2254             : Melt_CallFrameWithValues<42> (fil,lin, sizeof(MeltFrame_meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND), clos) {};
2255 #endif /* ENABLE_CHECKING fromline 1666*/
2256
2257     }; // end  class MeltFrame_meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND
2258
2259
2260     /** end of frame for meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND fromline 1697**/
2261
2262     /* end of frame for routine meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND fromline 1756 */
2263
2264     /* classy proc frame meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND */
2265     MeltFrame_meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND
2266     meltfram__ /*declfrastruct fromline 1780*/
2267     /*classyprocarg meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND fromline 1785*/
2268 #if ENABLE_CHECKING
2269     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
2270 #else /*ENABLE_CHECKING */
2271     (meltclosp_) /* fromline 1793*/
2272 #endif /*ENABLE_CHECKING */
2273
2274     ;
2275 #define meltframe meltfram__
2276
2277     melt_trace_start("NORMBIND_CONSTRUCTBIND", meltcallcount);
2278     /*use arguments*/
2279     (void) meltclosp_;
2280     (void)meltfirstargp_;
2281     (void)meltxargdescr_;
2282     (void)meltxargtab_;
2283     (void)meltxresdescr_;
2284     (void)meltxrestab_;
2285     /*getargs*/
2286
2287     /*getarg#0*/
2288     MELT_LOCATION("warmelt-normal.melt:1807:/ getarg");
2289     /*_.BIND__V2*/
2290     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
2291
2292     /*getarg#1*/
2293     /*^getarg*/
2294     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
2295     /*_.ENV__V3*/
2296     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
2297     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
2298
2299
2300     /*getarg#2*/
2301     /*^getarg*/
2302     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
2303     /*_.NCX__V4*/
2304     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
2305     gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL);
2306
2307
2308     /*getarg#3*/
2309     /*^getarg*/
2310     if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
2311     /*_.PROCS__V5*/
2312     meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
2313     gcc_assert(melt_discr((melt_ptr_t)(/*_.PROCS__V5*/ meltfptr[4])) != NULL);
2314
2315
2316     /*getarg#4*/
2317     /*^getarg*/
2318     if (meltxargdescr_[3] != MELTBPAR_PTR) goto meltlab_endgetargs;
2319     /*_.PSLOC__V6*/
2320     meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL;
2321     gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V6*/ meltfptr[5])) != NULL);
2322
2323     ;
2324     goto meltlab_endgetargs;
2325 meltlab_endgetargs:
2326     ;
2327     /*body*/
2328     /*^block*/
2329     /*anyblock*/
2330     {
2331
2332
2333 #if MELT_HAVE_DEBUG
2334         MELT_LOCATION("warmelt-normal.melt:1808:/ cppif.then");
2335         /*^block*/
2336         /*anyblock*/
2337         {
2338
2339
2340             MELT_CHECK_SIGNAL();
2341             ;
2342             /*_#IS_A__L1*/
2343             meltfnum[0] =
2344                 melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ meltfrout->tabval[0])));;
2345             MELT_LOCATION("warmelt-normal.melt:1808:/ cond");
2346             /*cond*/
2347             if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/
2348                 {
2349                     /*^cond.then*/
2350                     /*_._IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);;
2351                 }
2352             else
2353                 {
2354                     MELT_LOCATION("warmelt-normal.melt:1808:/ cond.else");
2355
2356                     /*^block*/
2357                     /*anyblock*/
2358                     {
2359
2360
2361                         MELT_CHECK_SIGNAL();
2362                         ;
2363                         /*^apply*/
2364                         /*apply*/
2365                         {
2366                             union meltparam_un argtab[4];
2367                             memset(&argtab, 0, sizeof(argtab));
2368                             /*^apply.arg*/
2369                             argtab[0].meltbp_cstring =  "check bind";
2370                             /*^apply.arg*/
2371                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
2372                             /*^apply.arg*/
2373                             argtab[2].meltbp_long = 1808;
2374                             /*^apply.arg*/
2375                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V2*/ meltfptr[1];
2376                             /*_.MELT_ASSERT_FAILURE_FUN__V9*/
2377                             meltfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2378                         }
2379                         ;
2380                         /*_._IFELSE___V8*/
2381                         meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
2382                         /*epilog*/
2383
2384                         MELT_LOCATION("warmelt-normal.melt:1808:/ clear");
2385                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/
2386                         meltfptr[8] = 0 ;
2387                     }
2388                     ;
2389                 }
2390             ;
2391             /*_.IFCPP___V7*/
2392             meltfptr[6] = /*_._IFELSE___V8*/ meltfptr[7];;
2393             /*epilog*/
2394
2395             MELT_LOCATION("warmelt-normal.melt:1808:/ clear");
2396             /*clear*/ /*_#IS_A__L1*/
2397             meltfnum[0] = 0 ;
2398             /*^clear*/
2399             /*clear*/ /*_._IFELSE___V8*/
2400             meltfptr[7] = 0 ;
2401         }
2402
2403 #else /*MELT_HAVE_DEBUG*/
2404         /*^cppif.else*/
2405         /*_.IFCPP___V7*/ meltfptr[6] = (/*nil*/NULL);
2406 #endif /*MELT_HAVE_DEBUG*/
2407         ;
2408
2409 #if MELT_HAVE_DEBUG
2410         MELT_LOCATION("warmelt-normal.melt:1809:/ cppif.then");
2411         /*^block*/
2412         /*anyblock*/
2413         {
2414
2415
2416             MELT_CHECK_SIGNAL();
2417             ;
2418             /*_#IS_A__L2*/
2419             meltfnum[0] =
2420                 melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));;
2421             MELT_LOCATION("warmelt-normal.melt:1809:/ cond");
2422             /*cond*/
2423             if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/
2424                 {
2425                     /*^cond.then*/
2426                     /*_._IFELSE___V11*/ meltfptr[7] = (/*nil*/NULL);;
2427                 }
2428             else
2429                 {
2430                     MELT_LOCATION("warmelt-normal.melt:1809:/ cond.else");
2431
2432                     /*^block*/
2433                     /*anyblock*/
2434                     {
2435
2436
2437                         MELT_CHECK_SIGNAL();
2438                         ;
2439                         /*^apply*/
2440                         /*apply*/
2441                         {
2442                             union meltparam_un argtab[4];
2443                             memset(&argtab, 0, sizeof(argtab));
2444                             /*^apply.arg*/
2445                             argtab[0].meltbp_cstring =  "check env";
2446                             /*^apply.arg*/
2447                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
2448                             /*^apply.arg*/
2449                             argtab[2].meltbp_long = 1809;
2450                             /*^apply.arg*/
2451                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
2452                             /*_.MELT_ASSERT_FAILURE_FUN__V12*/
2453                             meltfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2454                         }
2455                         ;
2456                         /*_._IFELSE___V11*/
2457                         meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];;
2458                         /*epilog*/
2459
2460                         MELT_LOCATION("warmelt-normal.melt:1809:/ clear");
2461                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V12*/
2462                         meltfptr[11] = 0 ;
2463                     }
2464                     ;
2465                 }
2466             ;
2467             /*_.IFCPP___V10*/
2468             meltfptr[8] = /*_._IFELSE___V11*/ meltfptr[7];;
2469             /*epilog*/
2470
2471             MELT_LOCATION("warmelt-normal.melt:1809:/ clear");
2472             /*clear*/ /*_#IS_A__L2*/
2473             meltfnum[0] = 0 ;
2474             /*^clear*/
2475             /*clear*/ /*_._IFELSE___V11*/
2476             meltfptr[7] = 0 ;
2477         }
2478
2479 #else /*MELT_HAVE_DEBUG*/
2480         /*^cppif.else*/
2481         /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL);
2482 #endif /*MELT_HAVE_DEBUG*/
2483         ;
2484
2485 #if MELT_HAVE_DEBUG
2486         MELT_LOCATION("warmelt-normal.melt:1810:/ cppif.then");
2487         /*^block*/
2488         /*anyblock*/
2489         {
2490
2491
2492             MELT_CHECK_SIGNAL();
2493             ;
2494             /*_#IS_A__L3*/
2495             meltfnum[0] =
2496                 melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[3])));;
2497             MELT_LOCATION("warmelt-normal.melt:1810:/ cond");
2498             /*cond*/
2499             if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/
2500                 {
2501                     /*^cond.then*/
2502                     /*_._IFELSE___V14*/ meltfptr[7] = (/*nil*/NULL);;
2503                 }
2504             else
2505                 {
2506                     MELT_LOCATION("warmelt-normal.melt:1810:/ cond.else");
2507
2508                     /*^block*/
2509                     /*anyblock*/
2510                     {
2511
2512
2513                         MELT_CHECK_SIGNAL();
2514                         ;
2515                         /*^apply*/
2516                         /*apply*/
2517                         {
2518                             union meltparam_un argtab[4];
2519                             memset(&argtab, 0, sizeof(argtab));
2520                             /*^apply.arg*/
2521                             argtab[0].meltbp_cstring =  "check ncx";
2522                             /*^apply.arg*/
2523                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
2524                             /*^apply.arg*/
2525                             argtab[2].meltbp_long = 1810;
2526                             /*^apply.arg*/
2527                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
2528                             /*_.MELT_ASSERT_FAILURE_FUN__V15*/
2529                             meltfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2530                         }
2531                         ;
2532                         /*_._IFELSE___V14*/
2533                         meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];;
2534                         /*epilog*/
2535
2536                         MELT_LOCATION("warmelt-normal.melt:1810:/ clear");
2537                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/
2538                         meltfptr[14] = 0 ;
2539                     }
2540                     ;
2541                 }
2542             ;
2543             /*_.IFCPP___V13*/
2544             meltfptr[11] = /*_._IFELSE___V14*/ meltfptr[7];;
2545             /*epilog*/
2546
2547             MELT_LOCATION("warmelt-normal.melt:1810:/ clear");
2548             /*clear*/ /*_#IS_A__L3*/
2549             meltfnum[0] = 0 ;
2550             /*^clear*/
2551             /*clear*/ /*_._IFELSE___V14*/
2552             meltfptr[7] = 0 ;
2553         }
2554
2555 #else /*MELT_HAVE_DEBUG*/
2556         /*^cppif.else*/
2557         /*_.IFCPP___V13*/ meltfptr[11] = (/*nil*/NULL);
2558 #endif /*MELT_HAVE_DEBUG*/
2559         ;
2560         MELT_LOCATION("warmelt-normal.melt:1811:/ quasiblock");
2561
2562
2563         /*^getslot*/
2564         {
2565             melt_ptr_t slot=NULL, obj=NULL;
2566             obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/;
2567             melt_object_get_field(slot,obj, 7, "NCTX_SYMBCACHEMAP");
2568             /*_.SYCMAP__V17*/
2569             meltfptr[7] = slot;
2570         };
2571         ;
2572         MELT_LOCATION("warmelt-normal.melt:1812:/ getslot");
2573         {
2574             melt_ptr_t slot=NULL, obj=NULL;
2575             obj = (melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]) /*=obj*/;
2576             melt_object_get_field(slot,obj, 0, "BINDER");
2577             /*_.SYMB__V18*/
2578             meltfptr[17] = slot;
2579         };
2580         ;
2581         MELT_LOCATION("warmelt-normal.melt:1813:/ cond");
2582         /*cond*/
2583         if (
2584             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]),
2585                                           (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ meltfrout->tabval[0])))
2586         ) /*then*/
2587             {
2588                 /*^cond.then*/
2589                 /*^getslot*/
2590                 {
2591                     melt_ptr_t slot=NULL, obj=NULL;
2592                     obj = (melt_ptr_t)(/*_.BIND__V2*/ meltfptr[1]) /*=obj*/;
2593                     melt_object_get_field(slot,obj, 3, "NCONSB_NLETREC");
2594                     /*_.NLETREC__V19*/
2595                     meltfptr[18] = slot;
2596                 };
2597                 ;
2598             }
2599         else    /*^cond.else*/
2600             {
2601
2602                 /*_.NLETREC__V19*/ meltfptr[18] =  /*reallynil*/ NULL ;;
2603             }
2604         ;
2605
2606 #if MELT_HAVE_DEBUG
2607         MELT_LOCATION("warmelt-normal.melt:1815:/ cppif.then");
2608         /*^block*/
2609         /*anyblock*/
2610         {
2611
2612
2613             {
2614                 /*^locexp*/
2615                 /*melt_increment_dbgcounter*/
2616 #if MELT_HAVE_DEBUG
2617                 melt_dbgcounter++;
2618 #endif
2619                 ;
2620             }
2621             ;
2622
2623             MELT_CHECK_SIGNAL();
2624             ;
2625             /*_#MELT_NEED_DBG__L4*/
2626             meltfnum[0] =
2627                 /*MELT_NEED_DBG*/
2628 #if MELT_HAVE_DEBUG
2629                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
2630 #else
2631                 0 /* no melt_need_dbg */
2632 #endif /*MELT_HAVE_DEBUG*/
2633                 ;;
2634             MELT_LOCATION("warmelt-normal.melt:1815:/ cond");
2635             /*cond*/
2636             if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/
2637                 {
2638                     /*^cond.then*/
2639                     /*^block*/
2640                     /*anyblock*/
2641                     {
2642
2643                         /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] =
2644                             /* for melt_callcount */
2645 #if MELT_HAVE_DEBUG && defined (meltcallcount)
2646                             meltcallcount  /* melt_callcount debugging */
2647 #else
2648                             0L  /* melt_callcount without debug */
2649 #endif /* MELT_HAVE_DEBUG melt_callcount */
2650                             ;;
2651
2652                         MELT_CHECK_SIGNAL();
2653                         ;
2654                         MELT_LOCATION("warmelt-normal.melt:1815:/ apply");
2655                         /*apply*/
2656                         {
2657                             union meltparam_un argtab[5];
2658                             memset(&argtab, 0, sizeof(argtab));
2659                             /*^apply.arg*/
2660                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L5*/ meltfnum[4];
2661                             /*^apply.arg*/
2662                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
2663                             /*^apply.arg*/
2664                             argtab[2].meltbp_long = 1815;
2665                             /*^apply.arg*/
2666                             argtab[3].meltbp_cstring =  "normbind_constructbind nletrec";
2667                             /*^apply.arg*/
2668                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NLETREC__V19*/ meltfptr[18];
2669                             /*_.MELT_DEBUG_FUN__V21*/
2670                             meltfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2671                         }
2672                         ;
2673                         /*_._IF___V20*/
2674                         meltfptr[19] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];;
2675                         /*epilog*/
2676
2677                         MELT_LOCATION("warmelt-normal.melt:1815:/ clear");
2678                         /*clear*/ /*_#MELT_CALLCOUNT__L5*/
2679                         meltfnum[4] = 0 ;
2680                         /*^clear*/
2681                         /*clear*/ /*_.MELT_DEBUG_FUN__V21*/
2682                         meltfptr[20] = 0 ;
2683                     }
2684                     ;
2685                 }
2686             else    /*^cond.else*/
2687                 {
2688
2689                     /*_._IF___V20*/ meltfptr[19] =  /*reallynil*/ NULL ;;
2690                 }
2691             ;
2692
2693             {
2694                 MELT_LOCATION("warmelt-normal.melt:1815:/ locexp");
2695                 /*void*/
2696                 (void)0;
2697             }
2698             ;
2699             /*^quasiblock*/
2700
2701
2702             /*epilog*/
2703
2704             /*^clear*/
2705             /*clear*/ /*_#MELT_NEED_DBG__L4*/
2706             meltfnum[0] = 0 ;
2707             /*^clear*/
2708             /*clear*/ /*_._IF___V20*/
2709             meltfptr[19] = 0 ;
2710         }
2711
2712 #else /*MELT_HAVE_DEBUG*/
2713         /*^cppif.else*/
2714         /*^block*/
2715         /*anyblock*/
2716         {
2717
2718
2719             {
2720                 /*^locexp*/
2721                 /*void*/(void)0;
2722             }
2723             ;
2724             /*epilog*/
2725         }
2726
2727 #endif /*MELT_HAVE_DEBUG*/
2728         ;
2729
2730 #if MELT_HAVE_DEBUG
2731         MELT_LOCATION("warmelt-normal.melt:1816:/ cppif.then");
2732         /*^block*/
2733         /*anyblock*/
2734         {
2735
2736
2737             MELT_CHECK_SIGNAL();
2738             ;
2739             /*_#IS_A__L6*/
2740             meltfnum[4] =
2741                 melt_is_instance_of((melt_ptr_t)(/*_.NLETREC__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NREP_LETREC*/ meltfrout->tabval[5])));;
2742             MELT_LOCATION("warmelt-normal.melt:1816:/ cond");
2743             /*cond*/
2744             if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/
2745                 {
2746                     /*^cond.then*/
2747                     /*_._IFELSE___V23*/ meltfptr[19] = (/*nil*/NULL);;
2748                 }
2749             else
2750                 {
2751                     MELT_LOCATION("warmelt-normal.melt:1816:/ cond.else");
2752
2753                     /*^block*/
2754                     /*anyblock*/
2755                     {
2756
2757
2758                         MELT_CHECK_SIGNAL();
2759                         ;
2760                         /*^apply*/
2761                         /*apply*/
2762                         {
2763                             union meltparam_un argtab[4];
2764                             memset(&argtab, 0, sizeof(argtab));
2765                             /*^apply.arg*/
2766                             argtab[0].meltbp_cstring =  "normbind_constructbind  check nletrec";
2767                             /*^apply.arg*/
2768                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
2769                             /*^apply.arg*/
2770                             argtab[2].meltbp_long = 1816;
2771                             /*^apply.arg*/
2772                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NLETREC__V19*/ meltfptr[18];
2773                             /*_.MELT_ASSERT_FAILURE_FUN__V24*/
2774                             meltfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2775                         }
2776                         ;
2777                         /*_._IFELSE___V23*/
2778                         meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];;
2779                         /*epilog*/
2780
2781                         MELT_LOCATION("warmelt-normal.melt:1816:/ clear");
2782                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/
2783                         meltfptr[23] = 0 ;
2784                     }
2785                     ;
2786                 }
2787             ;
2788             /*_.IFCPP___V22*/
2789             meltfptr[20] = /*_._IFELSE___V23*/ meltfptr[19];;
2790             /*epilog*/
2791
2792             MELT_LOCATION("warmelt-normal.melt:1816:/ clear");
2793             /*clear*/ /*_#IS_A__L6*/
2794             meltfnum[4] = 0 ;
2795             /*^clear*/
2796             /*clear*/ /*_._IFELSE___V23*/
2797             meltfptr[19] = 0 ;
2798         }
2799
2800 #else /*MELT_HAVE_DEBUG*/
2801         /*^cppif.else*/
2802         /*_.IFCPP___V22*/ meltfptr[20] = (/*nil*/NULL);
2803 #endif /*MELT_HAVE_DEBUG*/
2804         ;
2805         MELT_LOCATION("warmelt-normal.melt:1817:/ quasiblock");
2806
2807
2808         /*^cond*/
2809         /*cond*/
2810         if (
2811             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NLETREC__V19*/ meltfptr[18]),
2812                                           (melt_ptr_t)((/*!CLASS_NREP_LETREC*/ meltfrout->tabval[5])))
2813         ) /*then*/
2814             {
2815                 /*^cond.then*/
2816                 /*^getslot*/
2817                 {
2818                     melt_ptr_t slot=NULL, obj=NULL;
2819                     obj = (melt_ptr_t)(/*_.NLETREC__V19*/ meltfptr[18]) /*=obj*/;
2820                     melt_object_get_field(slot,obj, 5, "NLETREC_LOCSYMS");
2821                     /*_.NLOCSYMS__V26*/
2822                     meltfptr[19] = slot;
2823                 };
2824                 ;
2825             }
2826         else    /*^cond.else*/
2827             {
2828
2829                 /*_.NLOCSYMS__V26*/ meltfptr[19] =  /*reallynil*/ NULL ;;
2830             }
2831         ;
2832         /*^compute*/
2833         /*_.OURLOCSYM__V27*/
2834         meltfptr[26] = (/*nil*/NULL);;
2835
2836 #if MELT_HAVE_DEBUG
2837         MELT_LOCATION("warmelt-normal.melt:1820:/ cppif.then");
2838         /*^block*/
2839         /*anyblock*/
2840         {
2841
2842
2843             {
2844                 /*^locexp*/
2845                 /*melt_increment_dbgcounter*/
2846 #if MELT_HAVE_DEBUG
2847                 melt_dbgcounter++;
2848 #endif
2849                 ;
2850             }
2851             ;
2852
2853             MELT_CHECK_SIGNAL();
2854             ;
2855             /*_#MELT_NEED_DBG__L7*/
2856             meltfnum[0] =
2857                 /*MELT_NEED_DBG*/
2858 #if MELT_HAVE_DEBUG
2859                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
2860 #else
2861                 0 /* no melt_need_dbg */
2862 #endif /*MELT_HAVE_DEBUG*/
2863                 ;;
2864             MELT_LOCATION("warmelt-normal.melt:1820:/ cond");
2865             /*cond*/
2866             if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/
2867                 {
2868                     /*^cond.then*/
2869                     /*^block*/
2870                     /*anyblock*/
2871                     {
2872
2873                         /*_#MELT_CALLCOUNT__L8*/ meltfnum[4] =
2874                             /* for melt_callcount */
2875 #if MELT_HAVE_DEBUG && defined (meltcallcount)
2876                             meltcallcount  /* melt_callcount debugging */
2877 #else
2878                             0L  /* melt_callcount without debug */
2879 #endif /* MELT_HAVE_DEBUG melt_callcount */
2880                             ;;
2881
2882                         MELT_CHECK_SIGNAL();
2883                         ;
2884                         MELT_LOCATION("warmelt-normal.melt:1820:/ apply");
2885                         /*apply*/
2886                         {
2887                             union meltparam_un argtab[5];
2888                             memset(&argtab, 0, sizeof(argtab));
2889                             /*^apply.arg*/
2890                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[4];
2891                             /*^apply.arg*/
2892                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
2893                             /*^apply.arg*/
2894                             argtab[2].meltbp_long = 1820;
2895                             /*^apply.arg*/
2896                             argtab[3].meltbp_cstring =  "normbind_constructbind nlocsyms";
2897                             /*^apply.arg*/
2898                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NLOCSYMS__V26*/ meltfptr[19];
2899                             /*_.MELT_DEBUG_FUN__V29*/
2900                             meltfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2901                         }
2902                         ;
2903                         /*_._IF___V28*/
2904                         meltfptr[27] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];;
2905                         /*epilog*/
2906
2907                         MELT_LOCATION("warmelt-normal.melt:1820:/ clear");
2908                         /*clear*/ /*_#MELT_CALLCOUNT__L8*/
2909                         meltfnum[4] = 0 ;
2910                         /*^clear*/
2911                         /*clear*/ /*_.MELT_DEBUG_FUN__V29*/
2912                         meltfptr[28] = 0 ;
2913                     }
2914                     ;
2915                 }
2916             else    /*^cond.else*/
2917                 {
2918
2919                     /*_._IF___V28*/ meltfptr[27] =  /*reallynil*/ NULL ;;
2920                 }
2921             ;
2922
2923             {
2924                 MELT_LOCATION("warmelt-normal.melt:1820:/ locexp");
2925                 /*void*/
2926                 (void)0;
2927             }
2928             ;
2929             /*^quasiblock*/
2930
2931
2932             /*epilog*/
2933
2934             /*^clear*/
2935             /*clear*/ /*_#MELT_NEED_DBG__L7*/
2936             meltfnum[0] = 0 ;
2937             /*^clear*/
2938             /*clear*/ /*_._IF___V28*/
2939             meltfptr[27] = 0 ;
2940         }
2941
2942 #else /*MELT_HAVE_DEBUG*/
2943         /*^cppif.else*/
2944         /*^block*/
2945         /*anyblock*/
2946         {
2947
2948
2949             {
2950                 /*^locexp*/
2951                 /*void*/(void)0;
2952             }
2953             ;
2954             /*epilog*/
2955         }
2956
2957 #endif /*MELT_HAVE_DEBUG*/
2958         ;
2959         /*citerblock FOREACH_IN_MULTIPLE*/
2960         {
2961             /* start foreach_in_multiple meltcit1__EACHTUP */
2962             long  meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NLOCSYMS__V26*/ meltfptr[19]);
2963             for (/*_#SYIX__L9*/ meltfnum[4] = 0;
2964                                 (/*_#SYIX__L9*/ meltfnum[4] >= 0) && (/*_#SYIX__L9*/ meltfnum[4] <  meltcit1__EACHTUP_ln);
2965                                 /*_#SYIX__L9*/ meltfnum[4]++)
2966                 {
2967                     /*_.CURLOCSYM__V30*/ meltfptr[28] = melt_multiple_nth((melt_ptr_t)(/*_.NLOCSYMS__V26*/ meltfptr[19]),  /*_#SYIX__L9*/ meltfnum[4]);
2968
2969
2970
2971
2972                     MELT_CHECK_SIGNAL();
2973                     ;
2974                     MELT_LOCATION("warmelt-normal.melt:1825:/ cond");
2975                     /*cond*/
2976                     if (
2977                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURLOCSYM__V30*/ meltfptr[28]),
2978                                                       (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ meltfrout->tabval[6])))
2979                     ) /*then*/
2980                         {
2981                             /*^cond.then*/
2982                             /*^getslot*/
2983                             {
2984                                 melt_ptr_t slot=NULL, obj=NULL;
2985                                 obj = (melt_ptr_t)(/*_.CURLOCSYM__V30*/ meltfptr[28]) /*=obj*/;
2986                                 melt_object_get_field(slot,obj, 3, "NOCC_BIND");
2987                                 /*_.NOCC_BIND__V31*/
2988                                 meltfptr[27] = slot;
2989                             };
2990                             ;
2991                         }
2992                     else    /*^cond.else*/
2993                         {
2994
2995                             /*_.NOCC_BIND__V31*/ meltfptr[27] =  /*reallynil*/ NULL ;;
2996                         }
2997                     ;
2998                     /*^compute*/
2999                     /*_#eqeq__L10*/
3000                     meltfnum[0] =
3001                         ((/*_.NOCC_BIND__V31*/ meltfptr[27]) == (/*_.BIND__V2*/ meltfptr[1]));;
3002                     MELT_LOCATION("warmelt-normal.melt:1825:/ cond");
3003                     /*cond*/
3004                     if (/*_#eqeq__L10*/ meltfnum[0]) /*then*/
3005                         {
3006                             /*^cond.then*/
3007                             /*^block*/
3008                             /*anyblock*/
3009                             {
3010
3011                                 MELT_LOCATION("warmelt-normal.melt:1826:/ compute");
3012                                 /*_#SYIX__L9*/
3013                                 meltfnum[4] = /*_#SETQ___L11*/ meltfnum[10] = -9999;;
3014                                 MELT_LOCATION("warmelt-normal.melt:1827:/ compute");
3015                                 /*_.OURLOCSYM__V27*/
3016                                 meltfptr[26] = /*_.SETQ___V33*/ meltfptr[32] = /*_.CURLOCSYM__V30*/ meltfptr[28];;
3017                                 MELT_LOCATION("warmelt-normal.melt:1825:/ quasiblock");
3018
3019
3020                                 /*_.PROGN___V34*/
3021                                 meltfptr[33] = /*_.SETQ___V33*/ meltfptr[32];;
3022                                 /*^compute*/
3023                                 /*_._IF___V32*/
3024                                 meltfptr[31] = /*_.PROGN___V34*/ meltfptr[33];;
3025                                 /*epilog*/
3026
3027                                 MELT_LOCATION("warmelt-normal.melt:1825:/ clear");
3028                                 /*clear*/ /*_#SETQ___L11*/
3029                                 meltfnum[10] = 0 ;
3030                                 /*^clear*/
3031                                 /*clear*/ /*_.SETQ___V33*/
3032                                 meltfptr[32] = 0 ;
3033                                 /*^clear*/
3034                                 /*clear*/ /*_.PROGN___V34*/
3035                                 meltfptr[33] = 0 ;
3036                             }
3037                             ;
3038                         }
3039                     else    /*^cond.else*/
3040                         {
3041
3042                             /*_._IF___V32*/ meltfptr[31] =  /*reallynil*/ NULL ;;
3043                         }
3044                     ;
3045                     if (/*_#SYIX__L9*/ meltfnum[4]<0) break;
3046                 } /* end  foreach_in_multiple meltcit1__EACHTUP */
3047
3048             /*citerepilog*/
3049
3050             MELT_LOCATION("warmelt-normal.melt:1822:/ clear");
3051             /*clear*/ /*_.CURLOCSYM__V30*/
3052             meltfptr[28] = 0 ;
3053             /*^clear*/
3054             /*clear*/ /*_#SYIX__L9*/
3055             meltfnum[4] = 0 ;
3056             /*^clear*/
3057             /*clear*/ /*_.NOCC_BIND__V31*/
3058             meltfptr[27] = 0 ;
3059             /*^clear*/
3060             /*clear*/ /*_#eqeq__L10*/
3061             meltfnum[0] = 0 ;
3062             /*^clear*/
3063             /*clear*/ /*_._IF___V32*/
3064             meltfptr[31] = 0 ;
3065         } /*endciterblock FOREACH_IN_MULTIPLE*/
3066         ;
3067
3068 #if MELT_HAVE_DEBUG
3069         MELT_LOCATION("warmelt-normal.melt:1829:/ cppif.then");
3070         /*^block*/
3071         /*anyblock*/
3072         {
3073
3074
3075             {
3076                 /*^locexp*/
3077                 /*melt_increment_dbgcounter*/
3078 #if MELT_HAVE_DEBUG
3079                 melt_dbgcounter++;
3080 #endif
3081                 ;
3082             }
3083             ;
3084
3085             MELT_CHECK_SIGNAL();
3086             ;
3087             /*_#MELT_NEED_DBG__L12*/
3088             meltfnum[10] =
3089                 /*MELT_NEED_DBG*/
3090 #if MELT_HAVE_DEBUG
3091                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
3092 #else
3093                 0 /* no melt_need_dbg */
3094 #endif /*MELT_HAVE_DEBUG*/
3095                 ;;
3096             MELT_LOCATION("warmelt-normal.melt:1829:/ cond");
3097             /*cond*/
3098             if (/*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then*/
3099                 {
3100                     /*^cond.then*/
3101                     /*^block*/
3102                     /*anyblock*/
3103                     {
3104
3105                         /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] =
3106                             /* for melt_callcount */
3107 #if MELT_HAVE_DEBUG && defined (meltcallcount)
3108                             meltcallcount  /* melt_callcount debugging */
3109 #else
3110                             0L  /* melt_callcount without debug */
3111 #endif /* MELT_HAVE_DEBUG melt_callcount */
3112                             ;;
3113
3114                         MELT_CHECK_SIGNAL();
3115                         ;
3116                         MELT_LOCATION("warmelt-normal.melt:1829:/ apply");
3117                         /*apply*/
3118                         {
3119                             union meltparam_un argtab[5];
3120                             memset(&argtab, 0, sizeof(argtab));
3121                             /*^apply.arg*/
3122                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L13*/ meltfnum[12];
3123                             /*^apply.arg*/
3124                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
3125                             /*^apply.arg*/
3126                             argtab[2].meltbp_long = 1829;
3127                             /*^apply.arg*/
3128                             argtab[3].meltbp_cstring =  "normbind_constructbind ourlocsym";
3129                             /*^apply.arg*/
3130                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OURLOCSYM__V27*/ meltfptr[26];
3131                             /*_.MELT_DEBUG_FUN__V36*/
3132                             meltfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3133                         }
3134                         ;
3135                         /*_._IF___V35*/
3136                         meltfptr[32] = /*_.MELT_DEBUG_FUN__V36*/ meltfptr[33];;
3137                         /*epilog*/
3138
3139                         MELT_LOCATION("warmelt-normal.melt:1829:/ clear");
3140                         /*clear*/ /*_#MELT_CALLCOUNT__L13*/
3141                         meltfnum[12] = 0 ;
3142                         /*^clear*/
3143                         /*clear*/ /*_.MELT_DEBUG_FUN__V36*/
3144                         meltfptr[33] = 0 ;
3145                     }
3146                     ;
3147                 }
3148             else    /*^cond.else*/
3149                 {
3150
3151                     /*_._IF___V35*/ meltfptr[32] =  /*reallynil*/ NULL ;;
3152                 }
3153             ;
3154
3155             {
3156                 MELT_LOCATION("warmelt-normal.melt:1829:/ locexp");
3157                 /*void*/
3158                 (void)0;
3159             }
3160             ;
3161             /*^quasiblock*/
3162
3163
3164             /*epilog*/
3165
3166             /*^clear*/
3167             /*clear*/ /*_#MELT_NEED_DBG__L12*/
3168             meltfnum[10] = 0 ;
3169             /*^clear*/
3170             /*clear*/ /*_._IF___V35*/
3171             meltfptr[32] = 0 ;
3172         }
3173
3174 #else /*MELT_HAVE_DEBUG*/
3175         /*^cppif.else*/
3176         /*^block*/
3177         /*anyblock*/
3178         {
3179
3180
3181             {
3182                 /*^locexp*/
3183                 /*void*/(void)0;
3184             }
3185             ;
3186             /*epilog*/
3187         }
3188
3189 #endif /*MELT_HAVE_DEBUG*/
3190         ;
3191
3192 #if MELT_HAVE_DEBUG
3193         MELT_LOCATION("warmelt-normal.melt:1830:/ cppif.then");
3194         /*^block*/
3195         /*anyblock*/
3196         {
3197
3198
3199             MELT_CHECK_SIGNAL();
3200             ;
3201             /*_#IS_A__L14*/
3202             meltfnum[12] =
3203                 melt_is_instance_of((melt_ptr_t)(/*_.OURLOCSYM__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[7])));;
3204             MELT_LOCATION("warmelt-normal.melt:1830:/ cond");
3205             /*cond*/
3206             if (/*_#IS_A__L14*/ meltfnum[12]) /*then*/
3207                 {
3208                     /*^cond.then*/
3209                     /*_._IFELSE___V38*/ meltfptr[32] = (/*nil*/NULL);;
3210                 }
3211             else
3212                 {
3213                     MELT_LOCATION("warmelt-normal.melt:1830:/ cond.else");
3214
3215                     /*^block*/
3216                     /*anyblock*/
3217                     {
3218
3219
3220                         MELT_CHECK_SIGNAL();
3221                         ;
3222                         /*^apply*/
3223                         /*apply*/
3224                         {
3225                             union meltparam_un argtab[4];
3226                             memset(&argtab, 0, sizeof(argtab));
3227                             /*^apply.arg*/
3228                             argtab[0].meltbp_cstring =  "normbind_constructbind should have ourlocsym";
3229                             /*^apply.arg*/
3230                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
3231                             /*^apply.arg*/
3232                             argtab[2].meltbp_long = 1830;
3233                             /*^apply.arg*/
3234                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OURLOCSYM__V27*/ meltfptr[26];
3235                             /*_.MELT_ASSERT_FAILURE_FUN__V39*/
3236                             meltfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3237                         }
3238                         ;
3239                         /*_._IFELSE___V38*/
3240                         meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38];;
3241                         /*epilog*/
3242
3243                         MELT_LOCATION("warmelt-normal.melt:1830:/ clear");
3244                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V39*/
3245                         meltfptr[38] = 0 ;
3246                     }
3247                     ;
3248                 }
3249             ;
3250             /*_.IFCPP___V37*/
3251             meltfptr[33] = /*_._IFELSE___V38*/ meltfptr[32];;
3252             /*epilog*/
3253
3254             MELT_LOCATION("warmelt-normal.melt:1830:/ clear");
3255             /*clear*/ /*_#IS_A__L14*/
3256             meltfnum[12] = 0 ;
3257             /*^clear*/
3258             /*clear*/ /*_._IFELSE___V38*/
3259             meltfptr[32] = 0 ;
3260         }
3261
3262 #else /*MELT_HAVE_DEBUG*/
3263         /*^cppif.else*/
3264         /*_.IFCPP___V37*/ meltfptr[33] = (/*nil*/NULL);
3265 #endif /*MELT_HAVE_DEBUG*/
3266         ;
3267
3268         {
3269             MELT_LOCATION("warmelt-normal.melt:1833:/ locexp");
3270             meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYCMAP__V17*/ meltfptr[7]),
3271                                    (meltobject_ptr_t) (/*_.SYMB__V18*/ meltfptr[17]),
3272                                    (melt_ptr_t)(/*_.OURLOCSYM__V27*/ meltfptr[26]));
3273         }
3274         ;
3275
3276 #if MELT_HAVE_DEBUG
3277         MELT_LOCATION("warmelt-normal.melt:1834:/ cppif.then");
3278         /*^block*/
3279         /*anyblock*/
3280         {
3281
3282
3283             {
3284                 /*^locexp*/
3285                 /*melt_increment_dbgcounter*/
3286 #if MELT_HAVE_DEBUG
3287                 melt_dbgcounter++;
3288 #endif
3289                 ;
3290             }
3291             ;
3292
3293             MELT_CHECK_SIGNAL();
3294             ;
3295             /*_#MELT_NEED_DBG__L15*/
3296             meltfnum[10] =
3297                 /*MELT_NEED_DBG*/
3298 #if MELT_HAVE_DEBUG
3299                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
3300 #else
3301                 0 /* no melt_need_dbg */
3302 #endif /*MELT_HAVE_DEBUG*/
3303                 ;;
3304             MELT_LOCATION("warmelt-normal.melt:1834:/ cond");
3305             /*cond*/
3306             if (/*_#MELT_NEED_DBG__L15*/ meltfnum[10]) /*then*/
3307                 {
3308                     /*^cond.then*/
3309                     /*^block*/
3310                     /*anyblock*/
3311                     {
3312
3313                         /*_#MELT_CALLCOUNT__L16*/ meltfnum[12] =
3314                             /* for melt_callcount */
3315 #if MELT_HAVE_DEBUG && defined (meltcallcount)
3316                             meltcallcount  /* melt_callcount debugging */
3317 #else
3318                             0L  /* melt_callcount without debug */
3319 #endif /* MELT_HAVE_DEBUG melt_callcount */
3320                             ;;
3321
3322                         MELT_CHECK_SIGNAL();
3323                         ;
3324                         MELT_LOCATION("warmelt-normal.melt:1834:/ apply");
3325                         /*apply*/
3326                         {
3327                             union meltparam_un argtab[9];
3328                             memset(&argtab, 0, sizeof(argtab));
3329                             /*^apply.arg*/
3330                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L16*/ meltfnum[12];
3331                             /*^apply.arg*/
3332                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
3333                             /*^apply.arg*/
3334                             argtab[2].meltbp_long = 1834;
3335                             /*^apply.arg*/
3336                             argtab[3].meltbp_cstring =  "normbind_constructbind updated sycmap=";
3337                             /*^apply.arg*/
3338                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SYCMAP__V17*/ meltfptr[7];
3339                             /*^apply.arg*/
3340                             argtab[5].meltbp_cstring =  " symb=";
3341                             /*^apply.arg*/
3342                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SYMB__V18*/ meltfptr[17];
3343                             /*^apply.arg*/
3344                             argtab[7].meltbp_cstring =  " ourlocsym=";
3345                             /*^apply.arg*/
3346                             argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.OURLOCSYM__V27*/ meltfptr[26];
3347                             /*_.MELT_DEBUG_FUN__V41*/
3348                             meltfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3349                         }
3350                         ;
3351                         /*_._IF___V40*/
3352                         meltfptr[38] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[32];;
3353                         /*epilog*/
3354
3355                         MELT_LOCATION("warmelt-normal.melt:1834:/ clear");
3356                         /*clear*/ /*_#MELT_CALLCOUNT__L16*/
3357                         meltfnum[12] = 0 ;
3358                         /*^clear*/
3359                         /*clear*/ /*_.MELT_DEBUG_FUN__V41*/
3360                         meltfptr[32] = 0 ;
3361                     }
3362                     ;
3363                 }
3364             else    /*^cond.else*/
3365                 {
3366
3367                     /*_._IF___V40*/ meltfptr[38] =  /*reallynil*/ NULL ;;
3368                 }
3369             ;
3370
3371             {
3372                 MELT_LOCATION("warmelt-normal.melt:1834:/ locexp");
3373                 /*void*/
3374                 (void)0;
3375             }
3376             ;
3377             /*^quasiblock*/
3378
3379
3380             /*epilog*/
3381
3382             /*^clear*/
3383             /*clear*/ /*_#MELT_NEED_DBG__L15*/
3384             meltfnum[10] = 0 ;
3385             /*^clear*/
3386             /*clear*/ /*_._IF___V40*/
3387             meltfptr[38] = 0 ;
3388         }
3389
3390 #else /*MELT_HAVE_DEBUG*/
3391         /*^cppif.else*/
3392         /*^block*/
3393         /*anyblock*/
3394         {
3395
3396
3397             {
3398                 /*^locexp*/
3399                 /*void*/(void)0;
3400             }
3401             ;
3402             /*epilog*/
3403         }
3404
3405 #endif /*MELT_HAVE_DEBUG*/
3406         ;
3407
3408         MELT_CHECK_SIGNAL();
3409         ;
3410         MELT_LOCATION("warmelt-normal.melt:1835:/ quasiblock");
3411
3412
3413         /*_._RETVAL___V1*/
3414         meltfptr[0] = /*_.OURLOCSYM__V27*/ meltfptr[26];;
3415
3416         {
3417             MELT_LOCATION("warmelt-normal.melt:1835:/ locexp");
3418             /*ochecknores compilobj_nrep_return*/
3419 #if MELT_HAVE_DEBUG
3420             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
3421                 melt_warn_for_no_expected_secondary_results();
3422             /* we warned when secondary results are expected but not returned. */
3423 #endif /*MELT_HAVE_DEBUG*/
3424             ;
3425         }
3426         ;
3427         /*^finalreturn*/
3428         ;
3429         /*finalret*/
3430         goto meltlabend_rout ;
3431         /*_.LET___V25*/
3432         meltfptr[23] = /*_.RETURN___V42*/ meltfptr[32];;
3433
3434         MELT_LOCATION("warmelt-normal.melt:1817:/ clear");
3435         /*clear*/ /*_.NLOCSYMS__V26*/
3436         meltfptr[19] = 0 ;
3437         /*^clear*/
3438         /*clear*/ /*_.OURLOCSYM__V27*/
3439         meltfptr[26] = 0 ;
3440         /*^clear*/
3441         /*clear*/ /*_.IFCPP___V37*/
3442         meltfptr[33] = 0 ;
3443         /*^clear*/
3444         /*clear*/ /*_.RETURN___V42*/
3445         meltfptr[32] = 0 ;
3446         /*_.LET___V16*/
3447         meltfptr[14] = /*_.LET___V25*/ meltfptr[23];;
3448
3449         MELT_LOCATION("warmelt-normal.melt:1811:/ clear");
3450         /*clear*/ /*_.SYCMAP__V17*/
3451         meltfptr[7] = 0 ;
3452         /*^clear*/
3453         /*clear*/ /*_.SYMB__V18*/
3454         meltfptr[17] = 0 ;
3455         /*^clear*/
3456         /*clear*/ /*_.NLETREC__V19*/
3457         meltfptr[18] = 0 ;
3458         /*^clear*/
3459         /*clear*/ /*_.IFCPP___V22*/
3460         meltfptr[20] = 0 ;
3461         /*^clear*/
3462         /*clear*/ /*_.LET___V25*/
3463         meltfptr[23] = 0 ;
3464
3465         MELT_CHECK_SIGNAL();
3466         ;
3467         MELT_LOCATION("warmelt-normal.melt:1807:/ quasiblock");
3468
3469
3470         /*_._RETVAL___V1*/
3471         meltfptr[0] = /*_.LET___V16*/ meltfptr[14];;
3472
3473         {
3474             MELT_LOCATION("warmelt-normal.melt:1807:/ locexp");
3475             /*ochecknores compilobj_nrep_return*/
3476 #if MELT_HAVE_DEBUG
3477             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
3478                 melt_warn_for_no_expected_secondary_results();
3479             /* we warned when secondary results are expected but not returned. */
3480 #endif /*MELT_HAVE_DEBUG*/
3481             ;
3482         }
3483         ;
3484         /*^finalreturn*/
3485         ;
3486         /*finalret*/
3487         goto meltlabend_rout ;
3488         /*epilog*/
3489
3490         /*^clear*/
3491         /*clear*/ /*_.IFCPP___V7*/
3492         meltfptr[6] = 0 ;
3493         /*^clear*/
3494         /*clear*/ /*_.IFCPP___V10*/
3495         meltfptr[8] = 0 ;
3496         /*^clear*/
3497         /*clear*/ /*_.IFCPP___V13*/
3498         meltfptr[11] = 0 ;
3499         /*^clear*/
3500         /*clear*/ /*_.LET___V16*/
3501         meltfptr[14] = 0 ;
3502     }
3503
3504     ;
3505     goto meltlabend_rout;
3506 meltlabend_rout:
3507     melt_trace_end("NORMBIND_CONSTRUCTBIND", meltcallcount);
3508     melt_blocklevel_signals = current_blocklevel_signals_meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND_melt;
3509     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
3510 #undef meltcallcount
3511 #undef meltfram__
3512 #undef MELTFRAM_NBVARNUM
3513 #undef MELTFRAM_NBVARPTR
3514 } /*end meltrout_31_WARMELTmiNORMAL_NORMBIND_CONSTRUCTBIND*/
3515
3516
3517
3518
3519
3520
3521 melt_ptr_t MELT_MODULE_VISIBILITY
3522 meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
3523         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
3524 {
3525     long current_blocklevel_signals_meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL_melt =  melt_blocklevel_signals;
3526
3527 #if MELT_HAVE_DEBUG
3528     static long melt_call_counter__;
3529     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
3530 #undef meltcallcount
3531 #define meltcallcount melt_thiscallcounter__
3532 #else
3533 #undef meltcallcount
3534 #define meltcallcount 0L
3535 #endif
3536 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
3537
3538     /* start of frame for routine meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL fromline 1752 */
3539
3540     /** start of frame for meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL of CLASS_PROCROUTINEOBJ from 1555**/
3541
3542     /*curframdeclclassy*/ class MeltFrame_meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL// fromline 1568
3543         : public Melt_CallFrameWithValues<255>
3544     {
3545     public: /* fromline 1572*/
3546         long mcfr_varnum[113];
3547         /*classy others*/
3548         long _meltsparel;
3549         void melt_mark_stuff (void)
3550         {
3551         } /*end melt_mark_stuff*/
3552         virtual void melt_mark_ggc_data (void)
3553         {
3554             melt_mark_values ();
3555             melt_mark_stuff ();
3556         }; /*end melt_mark_ggc_data*/
3557         MeltFrame_meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL(meltclosure_ptr_t clos) //the closure constructor fromline 1630
3558             : Melt_CallFrameWithValues<255> (
3559 #if ENABLE_CHECKING /*fromline 1634*/
3560                 __FILE__, __LINE__,
3561 #endif /* ENABLE_CHECKING fromline 1638*/
3562                 sizeof(MeltFrame_meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL), clos) {};
3563         MeltFrame_meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL() //the constructor fromline 1642
3564             : Melt_CallFrameWithValues<255> (
3565 #if ENABLE_CHECKING /*fromline 1646*/
3566                 __FILE__, __LINE__,
3567 #endif /* ENABLE_CHECKING fromline 1650*/
3568                 sizeof(MeltFrame_meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL)) {};
3569 #if ENABLE_CHECKING /*fromline 1654*/
3570         MeltFrame_meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL(const char*fil, int lin) //the constructor fromline 1656
3571             : Melt_CallFrameWithValues<255> (fil,lin, sizeof(MeltFrame_meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL)) {};
3572         MeltFrame_meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
3573             : Melt_CallFrameWithValues<255> (fil,lin, sizeof(MeltFrame_meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL), clos) {};
3574 #endif /* ENABLE_CHECKING fromline 1666*/
3575
3576     }; // end  class MeltFrame_meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL
3577
3578
3579     /** end of frame for meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL fromline 1697**/
3580
3581     /* end of frame for routine meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL fromline 1756 */
3582
3583     /* classy proc frame meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL */
3584     MeltFrame_meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL
3585     meltfram__ /*declfrastruct fromline 1780*/
3586     /*classyprocarg meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL fromline 1785*/
3587 #if ENABLE_CHECKING
3588     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
3589 #else /*ENABLE_CHECKING */
3590     (meltclosp_) /* fromline 1793*/
3591 #endif /*ENABLE_CHECKING */
3592
3593     ;
3594 #define meltframe meltfram__
3595
3596     melt_trace_start("NORMEXP_SYMBOL", meltcallcount);
3597     /*use arguments*/
3598     (void) meltclosp_;
3599     (void)meltfirstargp_;
3600     (void)meltxargdescr_;
3601     (void)meltxargtab_;
3602     (void)meltxresdescr_;
3603     (void)meltxrestab_;
3604     /*getargs*/
3605
3606     /*getarg#0*/
3607     MELT_LOCATION("warmelt-normal.melt:1848:/ getarg");
3608     /*_.RECV__V2*/
3609     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
3610
3611     /*getarg#1*/
3612     /*^getarg*/
3613     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
3614     /*_.ENV__V3*/
3615     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
3616     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
3617
3618
3619     /*getarg#2*/
3620     /*^getarg*/
3621     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
3622     /*_.NCX__V4*/
3623     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
3624     gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL);
3625
3626
3627     /*getarg#3*/
3628     /*^getarg*/
3629     if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
3630     /*_.PSLOC__V5*/
3631     meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
3632     gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL);
3633
3634     ;
3635     goto meltlab_endgetargs;
3636 meltlab_endgetargs:
3637     ;
3638     /*body*/
3639     /*^block*/
3640     /*anyblock*/
3641     {
3642
3643
3644 #if MELT_HAVE_DEBUG
3645         MELT_LOCATION("warmelt-normal.melt:1849:/ cppif.then");
3646         /*^block*/
3647         /*anyblock*/
3648         {
3649
3650
3651             {
3652                 /*^locexp*/
3653                 /*melt_increment_dbgcounter*/
3654 #if MELT_HAVE_DEBUG
3655                 melt_dbgcounter++;
3656 #endif
3657                 ;
3658             }
3659             ;
3660
3661             MELT_CHECK_SIGNAL();
3662             ;
3663             /*_#MELT_NEED_DBG__L1*/
3664             meltfnum[0] =
3665                 /*MELT_NEED_DBG*/
3666 #if MELT_HAVE_DEBUG
3667                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
3668 #else
3669                 0 /* no melt_need_dbg */
3670 #endif /*MELT_HAVE_DEBUG*/
3671                 ;;
3672             MELT_LOCATION("warmelt-normal.melt:1849:/ cond");
3673             /*cond*/
3674             if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
3675                 {
3676                     /*^cond.then*/
3677                     /*^block*/
3678                     /*anyblock*/
3679                     {
3680
3681                         /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
3682                             /* for melt_callcount */
3683 #if MELT_HAVE_DEBUG && defined (meltcallcount)
3684                             meltcallcount  /* melt_callcount debugging */
3685 #else
3686                             0L  /* melt_callcount without debug */
3687 #endif /* MELT_HAVE_DEBUG melt_callcount */
3688                             ;;
3689
3690                         MELT_CHECK_SIGNAL();
3691                         ;
3692                         MELT_LOCATION("warmelt-normal.melt:1849:/ apply");
3693                         /*apply*/
3694                         {
3695                             union meltparam_un argtab[12];
3696                             memset(&argtab, 0, sizeof(argtab));
3697                             /*^apply.arg*/
3698                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
3699                             /*^apply.arg*/
3700                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
3701                             /*^apply.arg*/
3702                             argtab[2].meltbp_long = 1849;
3703                             /*^apply.arg*/
3704                             argtab[3].meltbp_cstring =  "normexp_symbol recv=";
3705                             /*^apply.arg*/
3706                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
3707                             /*^apply.arg*/
3708                             argtab[5].meltbp_cstring =  "\n.. env=";
3709                             /*^apply.arg*/
3710                             argtab[6].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_MORE*/ meltfrout->tabval[1]);
3711                             /*^apply.arg*/
3712                             argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
3713                             /*^apply.arg*/
3714                             argtab[8].meltbp_cstring =  "\n.. ncx=";
3715                             /*^apply.arg*/
3716                             argtab[9].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
3717                             /*^apply.arg*/
3718                             argtab[10].meltbp_cstring =  "\n.. psloc=";
3719                             /*^apply.arg*/
3720                             argtab[11].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4];
3721                             /*_.MELT_DEBUG_FUN__V7*/
3722                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3723                         }
3724                         ;
3725                         /*_._IF___V6*/
3726                         meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];;
3727                         /*epilog*/
3728
3729                         MELT_LOCATION("warmelt-normal.melt:1849:/ clear");
3730                         /*clear*/ /*_#MELT_CALLCOUNT__L2*/
3731                         meltfnum[1] = 0 ;
3732                         /*^clear*/
3733                         /*clear*/ /*_.MELT_DEBUG_FUN__V7*/
3734                         meltfptr[6] = 0 ;
3735                     }
3736                     ;
3737                 }
3738             else    /*^cond.else*/
3739                 {
3740
3741                     /*_._IF___V6*/ meltfptr[5] =  /*reallynil*/ NULL ;;
3742                 }
3743             ;
3744
3745             {
3746                 MELT_LOCATION("warmelt-normal.melt:1849:/ locexp");
3747                 /*void*/
3748                 (void)0;
3749             }
3750             ;
3751             /*^quasiblock*/
3752
3753
3754             /*epilog*/
3755
3756             /*^clear*/
3757             /*clear*/ /*_#MELT_NEED_DBG__L1*/
3758             meltfnum[0] = 0 ;
3759             /*^clear*/
3760             /*clear*/ /*_._IF___V6*/
3761             meltfptr[5] = 0 ;
3762         }
3763
3764 #else /*MELT_HAVE_DEBUG*/
3765         /*^cppif.else*/
3766         /*^block*/
3767         /*anyblock*/
3768         {
3769
3770
3771             {
3772                 /*^locexp*/
3773                 /*void*/(void)0;
3774             }
3775             ;
3776             /*epilog*/
3777         }
3778
3779 #endif /*MELT_HAVE_DEBUG*/
3780         ;
3781
3782         {
3783             MELT_LOCATION("warmelt-normal.melt:1854:/ locexp");
3784
3785 #if MELT_HAVE_DEBUG
3786             if (melt_need_debug (0))
3787                 melt_dbgshortbacktrace(( "normexp_symbol"), (32));
3788 #endif
3789             ;
3790         }
3791         ;
3792
3793 #if MELT_HAVE_DEBUG
3794         MELT_LOCATION("warmelt-normal.melt:1855:/ cppif.then");
3795         /*^block*/
3796         /*anyblock*/
3797         {
3798
3799
3800             MELT_CHECK_SIGNAL();
3801             ;
3802             /*_#IS_A__L3*/
3803             meltfnum[1] =
3804                 melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[2])));;
3805             MELT_LOCATION("warmelt-normal.melt:1855:/ cond");
3806             /*cond*/
3807             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
3808                 {
3809                     /*^cond.then*/
3810                     /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);;
3811                 }
3812             else
3813                 {
3814                     MELT_LOCATION("warmelt-normal.melt:1855:/ cond.else");
3815
3816                     /*^block*/
3817                     /*anyblock*/
3818                     {
3819
3820
3821                         MELT_CHECK_SIGNAL();
3822                         ;
3823                         /*^apply*/
3824                         /*apply*/
3825                         {
3826                             union meltparam_un argtab[4];
3827                             memset(&argtab, 0, sizeof(argtab));
3828                             /*^apply.arg*/
3829                             argtab[0].meltbp_cstring =  "check ncx";
3830                             /*^apply.arg*/
3831                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
3832                             /*^apply.arg*/
3833                             argtab[2].meltbp_long = 1855;
3834                             /*^apply.arg*/
3835                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
3836                             /*_.MELT_ASSERT_FAILURE_FUN__V10*/
3837                             meltfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3838                         }
3839                         ;
3840                         /*_._IFELSE___V9*/
3841                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];;
3842                         /*epilog*/
3843
3844                         MELT_LOCATION("warmelt-normal.melt:1855:/ clear");
3845                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/
3846                         meltfptr[9] = 0 ;
3847                     }
3848                     ;
3849                 }
3850             ;
3851             /*_.IFCPP___V8*/
3852             meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];;
3853             /*epilog*/
3854
3855             MELT_LOCATION("warmelt-normal.melt:1855:/ clear");
3856             /*clear*/ /*_#IS_A__L3*/
3857             meltfnum[1] = 0 ;
3858             /*^clear*/
3859             /*clear*/ /*_._IFELSE___V9*/
3860             meltfptr[5] = 0 ;
3861         }
3862
3863 #else /*MELT_HAVE_DEBUG*/
3864         /*^cppif.else*/
3865         /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL);
3866 #endif /*MELT_HAVE_DEBUG*/
3867         ;
3868
3869 #if MELT_HAVE_DEBUG
3870         MELT_LOCATION("warmelt-normal.melt:1856:/ cppif.then");
3871         /*^block*/
3872         /*anyblock*/
3873         {
3874
3875
3876             MELT_CHECK_SIGNAL();
3877             ;
3878             /*_#IS_A__L4*/
3879             meltfnum[0] =
3880                 melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));;
3881             MELT_LOCATION("warmelt-normal.melt:1856:/ cond");
3882             /*cond*/
3883             if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/
3884                 {
3885                     /*^cond.then*/
3886                     /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);;
3887                 }
3888             else
3889                 {
3890                     MELT_LOCATION("warmelt-normal.melt:1856:/ cond.else");
3891
3892                     /*^block*/
3893                     /*anyblock*/
3894                     {
3895
3896
3897                         MELT_CHECK_SIGNAL();
3898                         ;
3899                         /*^apply*/
3900                         /*apply*/
3901                         {
3902                             union meltparam_un argtab[4];
3903                             memset(&argtab, 0, sizeof(argtab));
3904                             /*^apply.arg*/
3905                             argtab[0].meltbp_cstring =  "check recv";
3906                             /*^apply.arg*/
3907                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
3908                             /*^apply.arg*/
3909                             argtab[2].meltbp_long = 1856;
3910                             /*^apply.arg*/
3911                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
3912                             /*_.MELT_ASSERT_FAILURE_FUN__V13*/
3913                             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3914                         }
3915                         ;
3916                         /*_._IFELSE___V12*/
3917                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];;
3918                         /*epilog*/
3919
3920                         MELT_LOCATION("warmelt-normal.melt:1856:/ clear");
3921                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/
3922                         meltfptr[12] = 0 ;
3923                     }
3924                     ;
3925                 }
3926             ;
3927             /*_.IFCPP___V11*/
3928             meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];;
3929             /*epilog*/
3930
3931             MELT_LOCATION("warmelt-normal.melt:1856:/ clear");
3932             /*clear*/ /*_#IS_A__L4*/
3933             meltfnum[0] = 0 ;
3934             /*^clear*/
3935             /*clear*/ /*_._IFELSE___V12*/
3936             meltfptr[5] = 0 ;
3937         }
3938
3939 #else /*MELT_HAVE_DEBUG*/
3940         /*^cppif.else*/
3941         /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL);
3942 #endif /*MELT_HAVE_DEBUG*/
3943         ;
3944
3945         MELT_CHECK_SIGNAL();
3946         ;
3947         MELT_LOCATION("warmelt-normal.melt:1857:/ quasiblock");
3948
3949
3950         /*^multiapply*/
3951         /*multiapply 2args, 2x.res*/
3952         {
3953             union meltparam_un argtab[1];
3954
3955             union meltparam_un restab[2];
3956             memset(&restab, 0, sizeof(restab));
3957             memset(&argtab, 0, sizeof(argtab));
3958             /*^multiapply.arg*/
3959             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
3960             /*^multiapply.xres*/
3961             restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.PROCS__V16*/ meltfptr[15];
3962             /*^multiapply.xres*/
3963             restab[1].meltbp_aptr = (melt_ptr_t*) &/*_.GOTENV__V17*/ meltfptr[16];
3964             /*^multiapply.appl*/
3965             /*_.BIND__V15*/
3966             meltfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENCLOSING_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), restab);
3967         }
3968         ;
3969         /*^quasiblock*/
3970
3971
3972
3973 #if MELT_HAVE_DEBUG
3974         MELT_LOCATION("warmelt-normal.melt:1860:/ cppif.then");
3975         /*^block*/
3976         /*anyblock*/
3977         {
3978
3979
3980             {
3981                 /*^locexp*/
3982                 /*melt_increment_dbgcounter*/
3983 #if MELT_HAVE_DEBUG
3984                 melt_dbgcounter++;
3985 #endif
3986                 ;
3987             }
3988             ;
3989
3990             MELT_CHECK_SIGNAL();
3991             ;
3992             /*_#MELT_NEED_DBG__L5*/
3993             meltfnum[1] =
3994                 /*MELT_NEED_DBG*/
3995 #if MELT_HAVE_DEBUG
3996                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
3997 #else
3998                 0 /* no melt_need_dbg */
3999 #endif /*MELT_HAVE_DEBUG*/
4000                 ;;
4001             MELT_LOCATION("warmelt-normal.melt:1860:/ cond");
4002             /*cond*/
4003             if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/
4004                 {
4005                     /*^cond.then*/
4006                     /*^block*/
4007                     /*anyblock*/
4008                     {
4009
4010                         /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] =
4011                             /* for melt_callcount */
4012 #if MELT_HAVE_DEBUG && defined (meltcallcount)
4013                             meltcallcount  /* melt_callcount debugging */
4014 #else
4015                             0L  /* melt_callcount without debug */
4016 #endif /* MELT_HAVE_DEBUG melt_callcount */
4017                             ;;
4018
4019                         MELT_CHECK_SIGNAL();
4020                         ;
4021                         MELT_LOCATION("warmelt-normal.melt:1860:/ apply");
4022                         /*apply*/
4023                         {
4024                             union meltparam_un argtab[17];
4025                             memset(&argtab, 0, sizeof(argtab));
4026                             /*^apply.arg*/
4027                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[0];
4028                             /*^apply.arg*/
4029                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
4030                             /*^apply.arg*/
4031                             argtab[2].meltbp_long = 1860;
4032                             /*^apply.arg*/
4033                             argtab[3].meltbp_cstring =  "normexp_symbol after find_enclosing_env bind=";
4034                             /*^apply.arg*/
4035                             argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_MORE*/ meltfrout->tabval[1]);
4036                             /*^apply.arg*/
4037                             argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V15*/ meltfptr[5];
4038                             /*^apply.arg*/
4039                             argtab[6].meltbp_cstring =  "\n.. procs=";
4040                             /*^apply.arg*/
4041                             argtab[7].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[6]);
4042                             /*^apply.arg*/
4043                             argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.PROCS__V16*/ meltfptr[15];
4044                             /*^apply.arg*/
4045                             argtab[9].meltbp_cstring =  "\n.. gotenv=";
4046                             /*^apply.arg*/
4047                             argtab[10].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_MORE*/ meltfrout->tabval[1]);
4048                             /*^apply.arg*/
4049                             argtab[11].meltbp_aptr = (melt_ptr_t*) &/*_.GOTENV__V17*/ meltfptr[16];
4050                             /*^apply.arg*/
4051                             argtab[12].meltbp_cstring =  "\n.. env=";
4052                             /*^apply.arg*/
4053                             argtab[13].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_MORE*/ meltfrout->tabval[1]);
4054                             /*^apply.arg*/
4055                             argtab[14].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
4056                             /*^apply.arg*/
4057                             argtab[15].meltbp_cstring =  "\n.. recv=";
4058                             /*^apply.arg*/
4059                             argtab[16].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
4060                             /*_.MELT_DEBUG_FUN__V19*/
4061                             meltfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4062                         }
4063                         ;
4064                         /*_._IF___V18*/
4065                         meltfptr[17] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];;
4066                         /*epilog*/
4067
4068                         MELT_LOCATION("warmelt-normal.melt:1860:/ clear");
4069                         /*clear*/ /*_#MELT_CALLCOUNT__L6*/
4070                         meltfnum[0] = 0 ;
4071                         /*^clear*/
4072                         /*clear*/ /*_.MELT_DEBUG_FUN__V19*/
4073                         meltfptr[18] = 0 ;
4074                     }
4075                     ;
4076                 }
4077             else    /*^cond.else*/
4078                 {
4079
4080                     /*_._IF___V18*/ meltfptr[17] =  /*reallynil*/ NULL ;;
4081                 }
4082             ;
4083
4084             {
4085                 MELT_LOCATION("warmelt-normal.melt:1860:/ locexp");
4086                 /*void*/
4087                 (void)0;
4088             }
4089             ;
4090             /*^quasiblock*/
4091
4092
4093             /*epilog*/
4094
4095             /*^clear*/
4096             /*clear*/ /*_#MELT_NEED_DBG__L5*/
4097             meltfnum[1] = 0 ;
4098             /*^clear*/
4099             /*clear*/ /*_._IF___V18*/
4100             meltfptr[17] = 0 ;
4101         }
4102
4103 #else /*MELT_HAVE_DEBUG*/
4104         /*^cppif.else*/
4105         /*^block*/
4106         /*anyblock*/
4107         {
4108
4109
4110             {
4111                 /*^locexp*/
4112                 /*void*/(void)0;
4113             }
4114             ;
4115             /*epilog*/
4116         }
4117
4118 #endif /*MELT_HAVE_DEBUG*/
4119         ;
4120
4121 #if MELT_HAVE_DEBUG
4122         MELT_LOCATION("warmelt-normal.melt:1863:/ cppif.then");
4123         /*^block*/
4124         /*anyblock*/
4125         {
4126
4127
4128             MELT_CHECK_SIGNAL();
4129             ;
4130             /*_#IS_A__L7*/
4131             meltfnum[0] =
4132                 melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));;
4133             MELT_LOCATION("warmelt-normal.melt:1863:/ cond");
4134             /*cond*/
4135             if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/
4136                 {
4137                     /*^cond.then*/
4138                     /*_._IFELSE___V21*/ meltfptr[17] = (/*nil*/NULL);;
4139                 }
4140             else
4141                 {
4142                     MELT_LOCATION("warmelt-normal.melt:1863:/ cond.else");
4143
4144                     /*^block*/
4145                     /*anyblock*/
4146                     {
4147
4148
4149                         MELT_CHECK_SIGNAL();
4150                         ;
4151                         /*^apply*/
4152                         /*apply*/
4153                         {
4154                             union meltparam_un argtab[4];
4155                             memset(&argtab, 0, sizeof(argtab));
4156                             /*^apply.arg*/
4157                             argtab[0].meltbp_cstring =  "normexp_symbol check recv";
4158                             /*^apply.arg*/
4159                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
4160                             /*^apply.arg*/
4161                             argtab[2].meltbp_long = 1863;
4162                             /*^apply.arg*/
4163                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
4164                             /*_.MELT_ASSERT_FAILURE_FUN__V22*/
4165                             meltfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4166                         }
4167                         ;
4168                         /*_._IFELSE___V21*/
4169                         meltfptr[17] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];;
4170                         /*epilog*/
4171
4172                         MELT_LOCATION("warmelt-normal.melt:1863:/ clear");
4173                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/
4174                         meltfptr[21] = 0 ;
4175                     }
4176                     ;
4177                 }
4178             ;
4179             /*_.IFCPP___V20*/
4180             meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[17];;
4181             /*epilog*/
4182
4183             MELT_LOCATION("warmelt-normal.melt:1863:/ clear");
4184             /*clear*/ /*_#IS_A__L7*/
4185             meltfnum[0] = 0 ;
4186             /*^clear*/
4187             /*clear*/ /*_._IFELSE___V21*/
4188             meltfptr[17] = 0 ;
4189         }
4190
4191 #else /*MELT_HAVE_DEBUG*/
4192         /*^cppif.else*/
4193         /*_.IFCPP___V20*/ meltfptr[18] = (/*nil*/NULL);
4194 #endif /*MELT_HAVE_DEBUG*/
4195         ;
4196         MELT_LOCATION("warmelt-normal.melt:1864:/ quasiblock");
4197
4198
4199         /*^getslot*/
4200         {
4201             melt_ptr_t slot=NULL, obj=NULL;
4202             obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/;
4203             melt_object_get_field(slot,obj, 12, "NCTX_MODULCONTEXT");
4204             /*_.MODCTX__V24*/
4205             meltfptr[17] = slot;
4206         };
4207         ;
4208         MELT_LOCATION("warmelt-normal.melt:1865:/ getslot");
4209         {
4210             melt_ptr_t slot=NULL, obj=NULL;
4211             obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/;
4212             melt_object_get_field(slot,obj, 10, "NCTX_VALBINDMAP");
4213             /*_.VALBINDMAP__V25*/
4214             meltfptr[24] = slot;
4215         };
4216         ;
4217         MELT_LOCATION("warmelt-normal.melt:1866:/ getslot");
4218         {
4219             melt_ptr_t slot=NULL, obj=NULL;
4220             obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/;
4221             melt_object_get_field(slot,obj, 4, "NCTX_VALUELIST");
4222             /*_.VALUELIST__V26*/
4223             meltfptr[25] = slot;
4224         };
4225         ;
4226         MELT_LOCATION("warmelt-normal.melt:1867:/ cond");
4227         /*cond*/
4228         if (
4229             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]),
4230                                           (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[7])))
4231         ) /*then*/
4232             {
4233                 /*^cond.then*/
4234                 /*^getslot*/
4235                 {
4236                     melt_ptr_t slot=NULL, obj=NULL;
4237                     obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
4238                     melt_object_get_field(slot,obj, 1, "NAMED_NAME");
4239                     /*_.SYMBNAME__V27*/
4240                     meltfptr[26] = slot;
4241                 };
4242                 ;
4243             }
4244         else    /*^cond.else*/
4245             {
4246
4247                 /*_.SYMBNAME__V27*/ meltfptr[26] =  /*reallynil*/ NULL ;;
4248             }
4249         ;
4250
4251         MELT_CHECK_SIGNAL();
4252         ;
4253         /*^compute*/
4254         /*_#NULL__L8*/
4255         meltfnum[1] =
4256             (/*null*/(/*_.PSLOC__V5*/ meltfptr[4]) == NULL);;
4257         MELT_LOCATION("warmelt-normal.melt:1869:/ cond");
4258         /*cond*/
4259         if (/*_#NULL__L8*/ meltfnum[1]) /*then*/
4260             {
4261                 /*^cond.then*/
4262                 /*^block*/
4263                 /*anyblock*/
4264                 {
4265
4266
4267                     {
4268                         MELT_LOCATION("warmelt-normal.melt:1870:/ locexp");
4269
4270 #if MELT_HAVE_DEBUG
4271                         if (melt_need_debug (0))
4272                             melt_dbgshortbacktrace(( "normex_symbol null psloc"), (10));
4273 #endif
4274                         ;
4275                     }
4276                     ;
4277                     /*epilog*/
4278                 }
4279                 ;
4280             } /*noelse*/
4281         ;
4282
4283         MELT_CHECK_SIGNAL();
4284         ;
4285         /*_#NULL__L9*/
4286         meltfnum[0] =
4287             (/*null*/(/*_.BIND__V15*/ meltfptr[5]) == NULL);;
4288         MELT_LOCATION("warmelt-normal.melt:1872:/ cond");
4289         /*cond*/
4290         if (/*_#NULL__L9*/ meltfnum[0]) /*then*/
4291             {
4292                 /*^cond.then*/
4293                 /*^block*/
4294                 /*anyblock*/
4295                 {
4296
4297
4298                     MELT_CHECK_SIGNAL();
4299                     ;
4300                     MELT_LOCATION("warmelt-normal.melt:1873:/ apply");
4301                     /*apply*/
4302                     {
4303                         union meltparam_un argtab[2];
4304                         memset(&argtab, 0, sizeof(argtab));
4305                         /*^apply.arg*/
4306                         argtab[0].meltbp_cstring =  "unknown name $1; symbol is not bound";
4307                         /*^apply.arg*/
4308                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SYMBNAME__V27*/ meltfptr[26];
4309                         /*_.ERROR_AT__V29*/
4310                         meltfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4311                     }
4312                     ;
4313
4314                     {
4315                         MELT_LOCATION("warmelt-normal.melt:1875:/ locexp");
4316
4317 #if MELT_HAVE_DEBUG
4318                         if (melt_need_debug (0))
4319                             melt_dbgshortbacktrace(( "normexp_symbol null bind"), (15));
4320 #endif
4321                         ;
4322                     }
4323                     ;
4324
4325 #if MELT_HAVE_DEBUG
4326                     MELT_LOCATION("warmelt-normal.melt:1876:/ cppif.then");
4327                     /*^block*/
4328                     /*anyblock*/
4329                     {
4330
4331
4332                         {
4333                             /*^locexp*/
4334                             /*melt_increment_dbgcounter*/
4335 #if MELT_HAVE_DEBUG
4336                             melt_dbgcounter++;
4337 #endif
4338                             ;
4339                         }
4340                         ;
4341
4342                         MELT_CHECK_SIGNAL();
4343                         ;
4344                         /*_#MELT_NEED_DBG__L10*/
4345                         meltfnum[9] =
4346                             /*MELT_NEED_DBG*/
4347 #if MELT_HAVE_DEBUG
4348                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
4349 #else
4350                             0 /* no melt_need_dbg */
4351 #endif /*MELT_HAVE_DEBUG*/
4352                             ;;
4353                         MELT_LOCATION("warmelt-normal.melt:1876:/ cond");
4354                         /*cond*/
4355                         if (/*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then*/
4356                             {
4357                                 /*^cond.then*/
4358                                 /*^block*/
4359                                 /*anyblock*/
4360                                 {
4361
4362                                     /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] =
4363                                         /* for melt_callcount */
4364 #if MELT_HAVE_DEBUG && defined (meltcallcount)
4365                                         meltcallcount  /* melt_callcount debugging */
4366 #else
4367                                         0L  /* melt_callcount without debug */
4368 #endif /* MELT_HAVE_DEBUG melt_callcount */
4369                                         ;;
4370
4371                                     MELT_CHECK_SIGNAL();
4372                                     ;
4373                                     MELT_LOCATION("warmelt-normal.melt:1876:/ apply");
4374                                     /*apply*/
4375                                     {
4376                                         union meltparam_un argtab[8];
4377                                         memset(&argtab, 0, sizeof(argtab));
4378                                         /*^apply.arg*/
4379                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L11*/ meltfnum[10];
4380                                         /*^apply.arg*/
4381                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
4382                                         /*^apply.arg*/
4383                                         argtab[2].meltbp_long = 1876;
4384                                         /*^apply.arg*/
4385                                         argtab[3].meltbp_cstring =  "normexp_symbol bad name recv=";
4386                                         /*^apply.arg*/
4387                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
4388                                         /*^apply.arg*/
4389                                         argtab[5].meltbp_cstring =  "\n.. env=";
4390                                         /*^apply.arg*/
4391                                         argtab[6].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_MORE*/ meltfrout->tabval[1]);
4392                                         /*^apply.arg*/
4393                                         argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
4394                                         /*_.MELT_DEBUG_FUN__V31*/
4395                                         meltfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4396                                     }
4397                                     ;
4398                                     /*_._IF___V30*/
4399                                     meltfptr[29] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];;
4400                                     /*epilog*/
4401
4402                                     MELT_LOCATION("warmelt-normal.melt:1876:/ clear");
4403                                     /*clear*/ /*_#MELT_CALLCOUNT__L11*/
4404                                     meltfnum[10] = 0 ;
4405                                     /*^clear*/
4406                                     /*clear*/ /*_.MELT_DEBUG_FUN__V31*/
4407                                     meltfptr[30] = 0 ;
4408                                 }
4409                                 ;
4410                             }
4411                         else    /*^cond.else*/
4412                             {
4413
4414                                 /*_._IF___V30*/ meltfptr[29] =  /*reallynil*/ NULL ;;
4415                             }
4416                         ;
4417
4418                         {
4419                             MELT_LOCATION("warmelt-normal.melt:1876:/ locexp");
4420                             /*void*/
4421                             (void)0;
4422                         }
4423                         ;
4424                         /*^quasiblock*/
4425
4426
4427                         /*epilog*/
4428
4429                         /*^clear*/
4430                         /*clear*/ /*_#MELT_NEED_DBG__L10*/
4431                         meltfnum[9] = 0 ;
4432                         /*^clear*/
4433                         /*clear*/ /*_._IF___V30*/
4434                         meltfptr[29] = 0 ;
4435                     }
4436
4437 #else /*MELT_HAVE_DEBUG*/
4438                     /*^cppif.else*/
4439                     /*^block*/
4440                     /*anyblock*/
4441                     {
4442
4443
4444                         {
4445                             /*^locexp*/
4446                             /*void*/(void)0;
4447                         }
4448                         ;
4449                         /*epilog*/
4450                     }
4451
4452 #endif /*MELT_HAVE_DEBUG*/
4453                     ;
4454
4455 #if MELT_HAVE_DEBUG
4456                     MELT_LOCATION("warmelt-normal.melt:1877:/ cppif.then");
4457                     /*^block*/
4458                     /*anyblock*/
4459                     {
4460
4461
4462                         {
4463                             /*^locexp*/
4464                             /*melt_increment_dbgcounter*/
4465 #if MELT_HAVE_DEBUG
4466                             melt_dbgcounter++;
4467 #endif
4468                             ;
4469                         }
4470                         ;
4471
4472                         MELT_CHECK_SIGNAL();
4473                         ;
4474                         /*_#MELT_NEED_DBG__L12*/
4475                         meltfnum[10] =
4476                             /*MELT_NEED_DBG*/
4477 #if MELT_HAVE_DEBUG
4478                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
4479 #else
4480                             0 /* no melt_need_dbg */
4481 #endif /*MELT_HAVE_DEBUG*/
4482                             ;;
4483                         MELT_LOCATION("warmelt-normal.melt:1877:/ cond");
4484                         /*cond*/
4485                         if (/*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then*/
4486                             {
4487                                 /*^cond.then*/
4488                                 /*^block*/
4489                                 /*anyblock*/
4490                                 {
4491
4492                                     /*_#MELT_CALLCOUNT__L13*/ meltfnum[9] =
4493                                         /* for melt_callcount */
4494 #if MELT_HAVE_DEBUG && defined (meltcallcount)
4495                                         meltcallcount  /* melt_callcount debugging */
4496 #else
4497                                         0L  /* melt_callcount without debug */
4498 #endif /* MELT_HAVE_DEBUG melt_callcount */
4499                                         ;;
4500                                     MELT_LOCATION("warmelt-normal.melt:1877:/ cond");
4501                                     /*cond*/
4502                                     if (
4503                                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]),
4504                                                                       (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[9])))
4505                                     ) /*then*/
4506                                         {
4507                                             /*^cond.then*/
4508                                             /*^getslot*/
4509                                             {
4510                                                 melt_ptr_t slot=NULL, obj=NULL;
4511                                                 obj = (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]) /*=obj*/;
4512                                                 melt_object_get_field(slot,obj, 1, "ENV_PREV");
4513                                                 /*_.ENV_PREV__V33*/
4514                                                 meltfptr[29] = slot;
4515                                             };
4516                                             ;
4517                                         }
4518                                     else    /*^cond.else*/
4519                                         {
4520
4521                                             /*_.ENV_PREV__V33*/ meltfptr[29] =  /*reallynil*/ NULL ;;
4522                                         }
4523                                     ;
4524
4525                                     MELT_CHECK_SIGNAL();
4526                                     ;
4527                                     MELT_LOCATION("warmelt-normal.melt:1877:/ apply");
4528                                     /*apply*/
4529                                     {
4530                                         union meltparam_un argtab[6];
4531                                         memset(&argtab, 0, sizeof(argtab));
4532                                         /*^apply.arg*/
4533                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L13*/ meltfnum[9];
4534                                         /*^apply.arg*/
4535                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
4536                                         /*^apply.arg*/
4537                                         argtab[2].meltbp_long = 1877;
4538                                         /*^apply.arg*/
4539                                         argtab[3].meltbp_cstring =  "normexp_symbol bad name envprev=";
4540                                         /*^apply.arg*/
4541                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_MORE*/ meltfrout->tabval[1]);
4542                                         /*^apply.arg*/
4543                                         argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.ENV_PREV__V33*/ meltfptr[29];
4544                                         /*_.MELT_DEBUG_FUN__V34*/
4545                                         meltfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4546                                     }
4547                                     ;
4548                                     /*_._IF___V32*/
4549                                     meltfptr[30] = /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33];;
4550                                     /*epilog*/
4551
4552                                     MELT_LOCATION("warmelt-normal.melt:1877:/ clear");
4553                                     /*clear*/ /*_#MELT_CALLCOUNT__L13*/
4554                                     meltfnum[9] = 0 ;
4555                                     /*^clear*/
4556                                     /*clear*/ /*_.ENV_PREV__V33*/
4557                                     meltfptr[29] = 0 ;
4558                                     /*^clear*/
4559                                     /*clear*/ /*_.MELT_DEBUG_FUN__V34*/
4560                                     meltfptr[33] = 0 ;
4561                                 }
4562                                 ;
4563                             }
4564                         else    /*^cond.else*/
4565                             {
4566
4567                                 /*_._IF___V32*/ meltfptr[30] =  /*reallynil*/ NULL ;;
4568                             }
4569                         ;
4570
4571                         {
4572                             MELT_LOCATION("warmelt-normal.melt:1877:/ locexp");
4573                             /*void*/
4574                             (void)0;
4575                         }
4576                         ;
4577                         /*^quasiblock*/
4578
4579
4580                         /*epilog*/
4581
4582                         /*^clear*/
4583                         /*clear*/ /*_#MELT_NEED_DBG__L12*/
4584                         meltfnum[10] = 0 ;
4585                         /*^clear*/
4586                         /*clear*/ /*_._IF___V32*/
4587                         meltfptr[30] = 0 ;
4588                     }
4589
4590 #else /*MELT_HAVE_DEBUG*/
4591                     /*^cppif.else*/
4592                     /*^block*/
4593                     /*anyblock*/
4594                     {
4595
4596
4597                         {
4598                             /*^locexp*/
4599                             /*void*/(void)0;
4600                         }
4601                         ;
4602                         /*epilog*/
4603                     }
4604
4605 #endif /*MELT_HAVE_DEBUG*/
4606                     ;
4607
4608 #if MELT_HAVE_DEBUG
4609                     MELT_LOCATION("warmelt-normal.melt:1878:/ cppif.then");
4610                     /*^block*/
4611                     /*anyblock*/
4612                     {
4613
4614
4615                         {
4616                             /*^locexp*/
4617                             /*melt_increment_dbgcounter*/
4618 #if MELT_HAVE_DEBUG
4619                             melt_dbgcounter++;
4620 #endif
4621                             ;
4622                         }
4623                         ;
4624
4625                         MELT_CHECK_SIGNAL();
4626                         ;
4627                         /*_#MELT_NEED_DBG__L14*/
4628                         meltfnum[9] =
4629                             /*MELT_NEED_DBG*/
4630 #if MELT_HAVE_DEBUG
4631                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
4632 #else
4633                             0 /* no melt_need_dbg */
4634 #endif /*MELT_HAVE_DEBUG*/
4635                             ;;
4636                         MELT_LOCATION("warmelt-normal.melt:1878:/ cond");
4637                         /*cond*/
4638                         if (/*_#MELT_NEED_DBG__L14*/ meltfnum[9]) /*then*/
4639                             {
4640                                 /*^cond.then*/
4641                                 /*^block*/
4642                                 /*anyblock*/
4643                                 {
4644
4645                                     /*_#MELT_CALLCOUNT__L15*/ meltfnum[10] =
4646                                         /* for melt_callcount */
4647 #if MELT_HAVE_DEBUG && defined (meltcallcount)
4648                                         meltcallcount  /* melt_callcount debugging */
4649 #else
4650                                         0L  /* melt_callcount without debug */
4651 #endif /* MELT_HAVE_DEBUG melt_callcount */
4652                                         ;;
4653                                     MELT_LOCATION("warmelt-normal.melt:1878:/ cond");
4654                                     /*cond*/
4655                                     if (
4656                                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]),
4657                                                                       (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[9])))
4658                                     ) /*then*/
4659                                         {
4660                                             /*^cond.then*/
4661                                             /*^getslot*/
4662                                             {
4663                                                 melt_ptr_t slot=NULL, obj=NULL;
4664                                                 obj = (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]) /*=obj*/;
4665                                                 melt_object_get_field(slot,obj, 1, "ENV_PREV");
4666                                                 /*_.ENV_PREV__V36*/
4667                                                 meltfptr[33] = slot;
4668                                             };
4669                                             ;
4670                                         }
4671                                     else    /*^cond.else*/
4672                                         {
4673
4674                                             /*_.ENV_PREV__V36*/ meltfptr[33] =  /*reallynil*/ NULL ;;
4675                                         }
4676                                     ;
4677                                     MELT_LOCATION("warmelt-normal.melt:1878:/ cond");
4678                                     /*cond*/
4679                                     if (
4680                                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ENV_PREV__V36*/ meltfptr[33]),
4681                                                                       (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[9])))
4682                                     ) /*then*/
4683                                         {
4684                                             /*^cond.then*/
4685                                             /*^getslot*/
4686                                             {
4687                                                 melt_ptr_t slot=NULL, obj=NULL;
4688                                                 obj = (melt_ptr_t)(/*_.ENV_PREV__V36*/ meltfptr[33]) /*=obj*/;
4689                                                 melt_object_get_field(slot,obj, 1, "ENV_PREV");
4690                                                 /*_.ENV_PREV__V37*/
4691                                                 meltfptr[30] = slot;
4692                                             };
4693                                             ;
4694                                         }
4695                                     else    /*^cond.else*/
4696                                         {
4697
4698                                             /*_.ENV_PREV__V37*/ meltfptr[30] =  /*reallynil*/ NULL ;;
4699                                         }
4700                                     ;
4701
4702                                     MELT_CHECK_SIGNAL();
4703                                     ;
4704                                     MELT_LOCATION("warmelt-normal.melt:1878:/ apply");
4705                                     /*apply*/
4706                                     {
4707                                         union meltparam_un argtab[6];
4708                                         memset(&argtab, 0, sizeof(argtab));
4709                                         /*^apply.arg*/
4710                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L15*/ meltfnum[10];
4711                                         /*^apply.arg*/
4712                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
4713                                         /*^apply.arg*/
4714                                         argtab[2].meltbp_long = 1878;
4715                                         /*^apply.arg*/
4716                                         argtab[3].meltbp_cstring =  "normexp_symbol bad name envprev2=";
4717                                         /*^apply.arg*/
4718                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_MORE*/ meltfrout->tabval[1]);
4719                                         /*^apply.arg*/
4720                                         argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.ENV_PREV__V37*/ meltfptr[30];
4721                                         /*_.MELT_DEBUG_FUN__V38*/
4722                                         meltfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4723                                     }
4724                                     ;
4725                                     /*_._IF___V35*/
4726                                     meltfptr[29] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];;
4727                                     /*epilog*/
4728
4729                                     MELT_LOCATION("warmelt-normal.melt:1878:/ clear");
4730                                     /*clear*/ /*_#MELT_CALLCOUNT__L15*/
4731                                     meltfnum[10] = 0 ;
4732                                     /*^clear*/
4733                                     /*clear*/ /*_.ENV_PREV__V36*/
4734                                     meltfptr[33] = 0 ;
4735                                     /*^clear*/
4736                                     /*clear*/ /*_.ENV_PREV__V37*/
4737                                     meltfptr[30] = 0 ;
4738                                     /*^clear*/
4739                                     /*clear*/ /*_.MELT_DEBUG_FUN__V38*/
4740                                     meltfptr[37] = 0 ;
4741                                 }
4742                                 ;
4743                             }
4744                         else    /*^cond.else*/
4745                             {
4746
4747                                 /*_._IF___V35*/ meltfptr[29] =  /*reallynil*/ NULL ;;
4748                             }
4749                         ;
4750
4751                         {
4752                             MELT_LOCATION("warmelt-normal.melt:1878:/ locexp");
4753                             /*void*/
4754                             (void)0;
4755                         }
4756                         ;
4757                         /*^quasiblock*/
4758
4759
4760                         /*epilog*/
4761
4762                         /*^clear*/
4763                         /*clear*/ /*_#MELT_NEED_DBG__L14*/
4764                         meltfnum[9] = 0 ;
4765                         /*^clear*/
4766                         /*clear*/ /*_._IF___V35*/
4767                         meltfptr[29] = 0 ;
4768                     }
4769
4770 #else /*MELT_HAVE_DEBUG*/
4771                     /*^cppif.else*/
4772                     /*^block*/
4773                     /*anyblock*/
4774                     {
4775
4776
4777                         {
4778                             /*^locexp*/
4779                             /*void*/(void)0;
4780                         }
4781                         ;
4782                         /*epilog*/
4783                     }
4784
4785 #endif /*MELT_HAVE_DEBUG*/
4786                     ;
4787
4788 #if MELT_HAVE_DEBUG
4789                     MELT_LOCATION("warmelt-normal.melt:1879:/ cppif.then");
4790                     /*^block*/
4791                     /*anyblock*/
4792                     {
4793
4794
4795                         {
4796                             /*^locexp*/
4797                             /*melt_increment_dbgcounter*/
4798 #if MELT_HAVE_DEBUG
4799                             melt_dbgcounter++;
4800 #endif
4801                             ;
4802                         }
4803                         ;
4804
4805                         MELT_CHECK_SIGNAL();
4806                         ;
4807                         /*_#MELT_NEED_DBG__L16*/
4808                         meltfnum[10] =
4809                             /*MELT_NEED_DBG*/
4810 #if MELT_HAVE_DEBUG
4811                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
4812 #else
4813                             0 /* no melt_need_dbg */
4814 #endif /*MELT_HAVE_DEBUG*/
4815                             ;;
4816                         MELT_LOCATION("warmelt-normal.melt:1879:/ cond");
4817                         /*cond*/
4818                         if (/*_#MELT_NEED_DBG__L16*/ meltfnum[10]) /*then*/
4819                             {
4820                                 /*^cond.then*/
4821                                 /*^block*/
4822                                 /*anyblock*/
4823                                 {
4824
4825                                     /*_#MELT_CALLCOUNT__L17*/ meltfnum[9] =
4826                                         /* for melt_callcount */
4827 #if MELT_HAVE_DEBUG && defined (meltcallcount)
4828                                         meltcallcount  /* melt_callcount debugging */
4829 #else
4830                                         0L  /* melt_callcount without debug */
4831 #endif /* MELT_HAVE_DEBUG melt_callcount */
4832                                         ;;
4833                                     MELT_LOCATION("warmelt-normal.melt:1879:/ cond");
4834                                     /*cond*/
4835                                     if (
4836                                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]),
4837                                                                       (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[9])))
4838                                     ) /*then*/
4839                                         {
4840                                             /*^cond.then*/
4841                                             /*^getslot*/
4842                                             {
4843                                                 melt_ptr_t slot=NULL, obj=NULL;
4844                                                 obj = (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]) /*=obj*/;
4845                                                 melt_object_get_field(slot,obj, 1, "ENV_PREV");
4846                                                 /*_.ENV_PREV__V40*/
4847                                                 meltfptr[30] = slot;
4848                                             };
4849                                             ;
4850                                         }
4851                                     else    /*^cond.else*/
4852                                         {
4853
4854                                             /*_.ENV_PREV__V40*/ meltfptr[30] =  /*reallynil*/ NULL ;;
4855                                         }
4856                                     ;
4857                                     MELT_LOCATION("warmelt-normal.melt:1879:/ cond");
4858                                     /*cond*/
4859                                     if (
4860                                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ENV_PREV__V40*/ meltfptr[30]),
4861                                                                       (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[9])))
4862                                     ) /*then*/
4863                                         {
4864                                             /*^cond.then*/
4865                                             /*^getslot*/
4866                                             {
4867                                                 melt_ptr_t slot=NULL, obj=NULL;
4868                                                 obj = (melt_ptr_t)(/*_.ENV_PREV__V40*/ meltfptr[30]) /*=obj*/;
4869                                                 melt_object_get_field(slot,obj, 1, "ENV_PREV");
4870                                                 /*_.ENV_PREV__V41*/
4871                                                 meltfptr[37] = slot;
4872                                             };
4873                                             ;
4874                                         }
4875                                     else    /*^cond.else*/
4876                                         {
4877
4878                                             /*_.ENV_PREV__V41*/ meltfptr[37] =  /*reallynil*/ NULL ;;
4879                                         }
4880                                     ;
4881                                     MELT_LOCATION("warmelt-normal.melt:1879:/ cond");
4882                                     /*cond*/
4883                                     if (
4884                                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ENV_PREV__V41*/ meltfptr[37]),
4885                                                                       (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[9])))
4886                                     ) /*then*/
4887                                         {
4888                                             /*^cond.then*/
4889                                             /*^getslot*/
4890                                             {
4891                                                 melt_ptr_t slot=NULL, obj=NULL;
4892                                                 obj = (melt_ptr_t)(/*_.ENV_PREV__V41*/ meltfptr[37]) /*=obj*/;
4893                                                 melt_object_get_field(slot,obj, 1, "ENV_PREV");
4894                                                 /*_.ENV_PREV__V42*/
4895                                                 meltfptr[29] = slot;
4896                                             };
4897                                             ;
4898                                         }
4899                                     else    /*^cond.else*/
4900                                         {
4901
4902                                             /*_.ENV_PREV__V42*/ meltfptr[29] =  /*reallynil*/ NULL ;;
4903                                         }
4904                                     ;
4905
4906                                     MELT_CHECK_SIGNAL();
4907                                     ;
4908                                     MELT_LOCATION("warmelt-normal.melt:1879:/ apply");
4909                                     /*apply*/
4910                                     {
4911                                         union meltparam_un argtab[5];
4912                                         memset(&argtab, 0, sizeof(argtab));
4913                                         /*^apply.arg*/
4914                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L17*/ meltfnum[9];
4915                                         /*^apply.arg*/
4916                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
4917                                         /*^apply.arg*/
4918                                         argtab[2].meltbp_long = 1879;
4919                                         /*^apply.arg*/
4920                                         argtab[3].meltbp_cstring =  "normexp_symbol bad name envprev3=";
4921                                         /*^apply.arg*/
4922                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ENV_PREV__V42*/ meltfptr[29];
4923                                         /*_.MELT_DEBUG_FUN__V43*/
4924                                         meltfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4925                                     }
4926                                     ;
4927                                     /*_._IF___V39*/
4928                                     meltfptr[33] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42];;
4929                                     /*epilog*/
4930
4931                                     MELT_LOCATION("warmelt-normal.melt:1879:/ clear");
4932                                     /*clear*/ /*_#MELT_CALLCOUNT__L17*/
4933                                     meltfnum[9] = 0 ;
4934                                     /*^clear*/
4935                                     /*clear*/ /*_.ENV_PREV__V40*/
4936                                     meltfptr[30] = 0 ;
4937                                     /*^clear*/
4938                                     /*clear*/ /*_.ENV_PREV__V41*/
4939                                     meltfptr[37] = 0 ;
4940                                     /*^clear*/
4941                                     /*clear*/ /*_.ENV_PREV__V42*/
4942                                     meltfptr[29] = 0 ;
4943                                     /*^clear*/
4944                                     /*clear*/ /*_.MELT_DEBUG_FUN__V43*/
4945                                     meltfptr[42] = 0 ;
4946                                 }
4947                                 ;
4948                             }
4949                         else    /*^cond.else*/
4950                             {
4951
4952                                 /*_._IF___V39*/ meltfptr[33] =  /*reallynil*/ NULL ;;
4953                             }
4954                         ;
4955
4956                         {
4957                             MELT_LOCATION("warmelt-normal.melt:1879:/ locexp");
4958                             /*void*/
4959                             (void)0;
4960                         }
4961                         ;
4962                         /*^quasiblock*/
4963
4964
4965                         /*epilog*/
4966
4967                         /*^clear*/
4968                         /*clear*/ /*_#MELT_NEED_DBG__L16*/
4969                         meltfnum[10] = 0 ;
4970                         /*^clear*/
4971                         /*clear*/ /*_._IF___V39*/
4972                         meltfptr[33] = 0 ;
4973                     }
4974
4975 #else /*MELT_HAVE_DEBUG*/
4976                     /*^cppif.else*/
4977                     /*^block*/
4978                     /*anyblock*/
4979                     {
4980
4981
4982                         {
4983                             /*^locexp*/
4984                             /*void*/(void)0;
4985                         }
4986                         ;
4987                         /*epilog*/
4988                     }
4989
4990 #endif /*MELT_HAVE_DEBUG*/
4991                     ;
4992
4993                     MELT_CHECK_SIGNAL();
4994                     ;
4995                     /*_#MELT_IS_BOOTSTRAPPING__L18*/
4996                     meltfnum[9] =
4997                         (melt_flag_bootstrapping);;
4998                     MELT_LOCATION("warmelt-normal.melt:1880:/ cond");
4999                     /*cond*/
5000                     if (/*_#MELT_IS_BOOTSTRAPPING__L18*/ meltfnum[9]) /*then*/
5001                         {
5002                             /*^cond.then*/
5003                             /*^block*/
5004                             /*anyblock*/
5005                             {
5006
5007
5008 #if MELT_HAVE_DEBUG
5009                                 MELT_LOCATION("warmelt-normal.melt:1881:/ cppif.then");
5010                                 /*^block*/
5011                                 /*anyblock*/
5012                                 {
5013
5014
5015                                     MELT_CHECK_SIGNAL();
5016                                     ;
5017                                     /*^cond*/
5018                                     /*cond*/
5019                                     if ((/*nil*/NULL)) /*then*/
5020                                         {
5021                                             /*^cond.then*/
5022                                             /*_._IFELSE___V46*/ meltfptr[29] = (/*nil*/NULL);;
5023                                         }
5024                                     else
5025                                         {
5026                                             MELT_LOCATION("warmelt-normal.melt:1881:/ cond.else");
5027
5028                                             /*^block*/
5029                                             /*anyblock*/
5030                                             {
5031
5032
5033                                                 MELT_CHECK_SIGNAL();
5034                                                 ;
5035                                                 /*^apply*/
5036                                                 /*apply*/
5037                                                 {
5038                                                     union meltparam_un argtab[5];
5039                                                     memset(&argtab, 0, sizeof(argtab));
5040                                                     /*^apply.arg*/
5041                                                     argtab[0].meltbp_cstring =  "@$@normexp_symbol is failing while bootstrapping";
5042                                                     /*^apply.arg*/
5043                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
5044                                                     /*^apply.arg*/
5045                                                     argtab[2].meltbp_long = 1881;
5046                                                     /*^apply.arg*/
5047                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
5048                                                     /*^apply.arg*/
5049                                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
5050                                                     /*_.MELT_ASSERT_FAILURE_FUN__V47*/
5051                                                     meltfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5052                                                 }
5053                                                 ;
5054                                                 /*_._IFELSE___V46*/
5055                                                 meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[42];;
5056                                                 /*epilog*/
5057
5058                                                 MELT_LOCATION("warmelt-normal.melt:1881:/ clear");
5059                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V47*/
5060                                                 meltfptr[42] = 0 ;
5061                                             }
5062                                             ;
5063                                         }
5064                                     ;
5065                                     /*_.IFCPP___V45*/
5066                                     meltfptr[37] = /*_._IFELSE___V46*/ meltfptr[29];;
5067                                     /*epilog*/
5068
5069                                     MELT_LOCATION("warmelt-normal.melt:1881:/ clear");
5070                                     /*clear*/ /*_._IFELSE___V46*/
5071                                     meltfptr[29] = 0 ;
5072                                 }
5073
5074 #else /*MELT_HAVE_DEBUG*/
5075                                 /*^cppif.else*/
5076                                 /*_.IFCPP___V45*/ meltfptr[37] = (/*nil*/NULL);
5077 #endif /*MELT_HAVE_DEBUG*/
5078                                 ;
5079                                 /*^compute*/
5080                                 /*_._IF___V44*/
5081                                 meltfptr[30] = /*_.IFCPP___V45*/ meltfptr[37];;
5082                                 /*epilog*/
5083
5084                                 MELT_LOCATION("warmelt-normal.melt:1880:/ clear");
5085                                 /*clear*/ /*_.IFCPP___V45*/
5086                                 meltfptr[37] = 0 ;
5087                             }
5088                             ;
5089                         }
5090                     else    /*^cond.else*/
5091                         {
5092
5093                             /*_._IF___V44*/ meltfptr[30] =  /*reallynil*/ NULL ;;
5094                         }
5095                     ;
5096
5097                     MELT_CHECK_SIGNAL();
5098                     ;
5099                     MELT_LOCATION("warmelt-normal.melt:1882:/ quasiblock");
5100
5101
5102                     /*_._RETVAL___V1*/
5103                     meltfptr[0] = (/*nil*/NULL);;
5104                     MELT_LOCATION("warmelt-normal.melt:1882:/ putxtraresult");
5105                     if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
5106                     if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
5107                     if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*nil*/NULL));
5108                     ;
5109                     /*^finalreturn*/
5110                     ;
5111                     /*finalret*/
5112                     goto meltlabend_rout ;
5113                     MELT_LOCATION("warmelt-normal.melt:1872:/ quasiblock");
5114
5115
5116                     /*_.PROGN___V49*/
5117                     meltfptr[42] = /*_.RETURN___V48*/ meltfptr[33];;
5118                     /*^compute*/
5119                     /*_._IF___V28*/
5120                     meltfptr[27] = /*_.PROGN___V49*/ meltfptr[42];;
5121                     /*epilog*/
5122
5123                     MELT_LOCATION("warmelt-normal.melt:1872:/ clear");
5124                     /*clear*/ /*_.ERROR_AT__V29*/
5125                     meltfptr[28] = 0 ;
5126                     /*^clear*/
5127                     /*clear*/ /*_#MELT_IS_BOOTSTRAPPING__L18*/
5128                     meltfnum[9] = 0 ;
5129                     /*^clear*/
5130                     /*clear*/ /*_._IF___V44*/
5131                     meltfptr[30] = 0 ;
5132                     /*^clear*/
5133                     /*clear*/ /*_.RETURN___V48*/
5134                     meltfptr[33] = 0 ;
5135                     /*^clear*/
5136                     /*clear*/ /*_.PROGN___V49*/
5137                     meltfptr[42] = 0 ;
5138                 }
5139                 ;
5140             }
5141         else    /*^cond.else*/
5142             {
5143
5144                 /*_._IF___V28*/ meltfptr[27] =  /*reallynil*/ NULL ;;
5145             }
5146         ;
5147
5148         MELT_CHECK_SIGNAL();
5149         ;
5150         /*^compute*/
5151         /*_#IS_A__L19*/
5152         meltfnum[10] =
5153             melt_is_instance_of((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NORMAL_MAGIC_BINDING*/ meltfrout->tabval[10])));;
5154         MELT_LOCATION("warmelt-normal.melt:1884:/ cond");
5155         /*cond*/
5156         if (/*_#IS_A__L19*/ meltfnum[10]) /*then*/
5157             {
5158                 /*^cond.then*/
5159                 /*^block*/
5160                 /*anyblock*/
5161                 {
5162
5163                     MELT_LOCATION("warmelt-normal.melt:1885:/ quasiblock");
5164
5165
5166                     /*^cond*/
5167                     /*cond*/
5168                     if (
5169                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]),
5170                                                       (melt_ptr_t)((/*!CLASS_NORMAL_MAGIC_BINDING*/ meltfrout->tabval[10])))
5171                     ) /*then*/
5172                         {
5173                             /*^cond.then*/
5174                             /*^getslot*/
5175                             {
5176                                 melt_ptr_t slot=NULL, obj=NULL;
5177                                 obj = (melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]) /*=obj*/;
5178                                 melt_object_get_field(slot,obj, 1, "NMAGIC_VALUE");
5179                                 /*_.MAGVAL__V52*/
5180                                 meltfptr[28] = slot;
5181                             };
5182                             ;
5183                         }
5184                     else    /*^cond.else*/
5185                         {
5186
5187                             /*_.MAGVAL__V52*/ meltfptr[28] =  /*reallynil*/ NULL ;;
5188                         }
5189                     ;
5190
5191 #if MELT_HAVE_DEBUG
5192                     MELT_LOCATION("warmelt-normal.melt:1887:/ cppif.then");
5193                     /*^block*/
5194                     /*anyblock*/
5195                     {
5196
5197
5198                         {
5199                             /*^locexp*/
5200                             /*melt_increment_dbgcounter*/
5201 #if MELT_HAVE_DEBUG
5202                             melt_dbgcounter++;
5203 #endif
5204                             ;
5205                         }
5206                         ;
5207
5208                         MELT_CHECK_SIGNAL();
5209                         ;
5210                         /*_#MELT_NEED_DBG__L20*/
5211                         meltfnum[9] =
5212                             /*MELT_NEED_DBG*/
5213 #if MELT_HAVE_DEBUG
5214                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
5215 #else
5216                             0 /* no melt_need_dbg */
5217 #endif /*MELT_HAVE_DEBUG*/
5218                             ;;
5219                         MELT_LOCATION("warmelt-normal.melt:1887:/ cond");
5220                         /*cond*/
5221                         if (/*_#MELT_NEED_DBG__L20*/ meltfnum[9]) /*then*/
5222                             {
5223                                 /*^cond.then*/
5224                                 /*^block*/
5225                                 /*anyblock*/
5226                                 {
5227
5228                                     /*_#MELT_CALLCOUNT__L21*/ meltfnum[20] =
5229                                         /* for melt_callcount */
5230 #if MELT_HAVE_DEBUG && defined (meltcallcount)
5231                                         meltcallcount  /* melt_callcount debugging */
5232 #else
5233                                         0L  /* melt_callcount without debug */
5234 #endif /* MELT_HAVE_DEBUG melt_callcount */
5235                                         ;;
5236
5237                                     MELT_CHECK_SIGNAL();
5238                                     ;
5239                                     MELT_LOCATION("warmelt-normal.melt:1887:/ apply");
5240                                     /*apply*/
5241                                     {
5242                                         union meltparam_un argtab[5];
5243                                         memset(&argtab, 0, sizeof(argtab));
5244                                         /*^apply.arg*/
5245                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L21*/ meltfnum[20];
5246                                         /*^apply.arg*/
5247                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
5248                                         /*^apply.arg*/
5249                                         argtab[2].meltbp_long = 1887;
5250                                         /*^apply.arg*/
5251                                         argtab[3].meltbp_cstring =  "normexp_symbol magicbind magval=";
5252                                         /*^apply.arg*/
5253                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MAGVAL__V52*/ meltfptr[28];
5254                                         /*_.MELT_DEBUG_FUN__V54*/
5255                                         meltfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5256                                     }
5257                                     ;
5258                                     /*_._IF___V53*/
5259                                     meltfptr[30] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[33];;
5260                                     /*epilog*/
5261
5262                                     MELT_LOCATION("warmelt-normal.melt:1887:/ clear");
5263                                     /*clear*/ /*_#MELT_CALLCOUNT__L21*/
5264                                     meltfnum[20] = 0 ;
5265                                     /*^clear*/
5266                                     /*clear*/ /*_.MELT_DEBUG_FUN__V54*/
5267                                     meltfptr[33] = 0 ;
5268                                 }
5269                                 ;
5270                             }
5271                         else    /*^cond.else*/
5272                             {
5273
5274                                 /*_._IF___V53*/ meltfptr[30] =  /*reallynil*/ NULL ;;
5275                             }
5276                         ;
5277
5278                         {
5279                             MELT_LOCATION("warmelt-normal.melt:1887:/ locexp");
5280                             /*void*/
5281                             (void)0;
5282                         }
5283                         ;
5284                         /*^quasiblock*/
5285
5286
5287                         /*epilog*/
5288
5289                         /*^clear*/
5290                         /*clear*/ /*_#MELT_NEED_DBG__L20*/
5291                         meltfnum[9] = 0 ;
5292                         /*^clear*/
5293                         /*clear*/ /*_._IF___V53*/
5294                         meltfptr[30] = 0 ;
5295                     }
5296
5297 #else /*MELT_HAVE_DEBUG*/
5298                     /*^cppif.else*/
5299                     /*^block*/
5300                     /*anyblock*/
5301                     {
5302
5303
5304                         {
5305                             /*^locexp*/
5306                             /*void*/(void)0;
5307                         }
5308                         ;
5309                         /*epilog*/
5310                     }
5311
5312 #endif /*MELT_HAVE_DEBUG*/
5313                     ;
5314
5315                     MELT_CHECK_SIGNAL();
5316                     ;
5317                     /*_#IS_A__L22*/
5318                     meltfnum[20] =
5319                         melt_is_instance_of((melt_ptr_t)(/*_.MAGVAL__V52*/ meltfptr[28]), (melt_ptr_t)((/*!DISCR_NORMALIZING_CLOSURE*/ meltfrout->tabval[11])));;
5320                     MELT_LOCATION("warmelt-normal.melt:1888:/ cond");
5321                     /*cond*/
5322                     if (/*_#IS_A__L22*/ meltfnum[20]) /*then*/
5323                         {
5324                             /*^cond.then*/
5325                             /*^block*/
5326                             /*anyblock*/
5327                             {
5328
5329
5330                                 MELT_CHECK_SIGNAL();
5331                                 ;
5332                                 MELT_LOCATION("warmelt-normal.melt:1889:/ quasiblock");
5333
5334
5335                                 /*^multiapply*/
5336                                 /*multiapply 3args, 1x.res*/
5337                                 {
5338                                     union meltparam_un argtab[2];
5339
5340                                     union meltparam_un restab[1];
5341                                     memset(&restab, 0, sizeof(restab));
5342                                     memset(&argtab, 0, sizeof(argtab));
5343                                     /*^multiapply.arg*/
5344                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multiapply.arg*/
5345                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4];
5346                                     /*^multiapply.xres*/
5347                                     restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V58*/ meltfptr[57];
5348                                     /*^multiapply.appl*/
5349                                     /*_.NVAL__V57*/
5350                                     meltfptr[30] =  melt_apply ((meltclosure_ptr_t)(/*_.MAGVAL__V52*/ meltfptr[28]), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
5351                                 }
5352                                 ;
5353                                 /*^quasiblock*/
5354
5355
5356
5357 #if MELT_HAVE_DEBUG
5358                                 MELT_LOCATION("warmelt-normal.melt:1892:/ cppif.then");
5359                                 /*^block*/
5360                                 /*anyblock*/
5361                                 {
5362
5363
5364                                     {
5365                                         /*^locexp*/
5366                                         /*melt_increment_dbgcounter*/
5367 #if MELT_HAVE_DEBUG
5368                                         melt_dbgcounter++;
5369 #endif
5370                                         ;
5371                                     }
5372                                     ;
5373
5374                                     MELT_CHECK_SIGNAL();
5375                                     ;
5376                                     /*_#MELT_NEED_DBG__L23*/
5377                                     meltfnum[9] =
5378                                         /*MELT_NEED_DBG*/
5379 #if MELT_HAVE_DEBUG
5380                                         (/*melt_need_dbg*/ melt_need_debug ((int) 0))
5381 #else
5382                                         0 /* no melt_need_dbg */
5383 #endif /*MELT_HAVE_DEBUG*/
5384                                         ;;
5385                                     MELT_LOCATION("warmelt-normal.melt:1892:/ cond");
5386                                     /*cond*/
5387                                     if (/*_#MELT_NEED_DBG__L23*/ meltfnum[9]) /*then*/
5388                                         {
5389                                             /*^cond.then*/
5390                                             /*^block*/
5391                                             /*anyblock*/
5392                                             {
5393
5394                                                 /*_#MELT_CALLCOUNT__L24*/ meltfnum[23] =
5395                                                     /* for melt_callcount */
5396 #if MELT_HAVE_DEBUG && defined (meltcallcount)
5397                                                     meltcallcount  /* melt_callcount debugging */
5398 #else
5399                                                     0L  /* melt_callcount without debug */
5400 #endif /* MELT_HAVE_DEBUG melt_callcount */
5401                                                     ;;
5402
5403                                                 MELT_CHECK_SIGNAL();
5404                                                 ;
5405                                                 MELT_LOCATION("warmelt-normal.melt:1892:/ apply");
5406                                                 /*apply*/
5407                                                 {
5408                                                     union meltparam_un argtab[7];
5409                                                     memset(&argtab, 0, sizeof(argtab));
5410                                                     /*^apply.arg*/
5411                                                     argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L24*/ meltfnum[23];
5412                                                     /*^apply.arg*/
5413                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
5414                                                     /*^apply.arg*/
5415                                                     argtab[2].meltbp_long = 1892;
5416                                                     /*^apply.arg*/
5417                                                     argtab[3].meltbp_cstring =  "normexp_symbol magicbind nval=";
5418                                                     /*^apply.arg*/
5419                                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NVAL__V57*/ meltfptr[30];
5420                                                     /*^apply.arg*/
5421                                                     argtab[5].meltbp_cstring =  " nbind=";
5422                                                     /*^apply.arg*/
5423                                                     argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V58*/ meltfptr[57];
5424                                                     /*_.MELT_DEBUG_FUN__V60*/
5425                                                     meltfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5426                                                 }
5427                                                 ;
5428                                                 /*_._IF___V59*/
5429                                                 meltfptr[58] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59];;
5430                                                 /*epilog*/
5431
5432                                                 MELT_LOCATION("warmelt-normal.melt:1892:/ clear");
5433                                                 /*clear*/ /*_#MELT_CALLCOUNT__L24*/
5434                                                 meltfnum[23] = 0 ;
5435                                                 /*^clear*/
5436                                                 /*clear*/ /*_.MELT_DEBUG_FUN__V60*/
5437                                                 meltfptr[59] = 0 ;
5438                                             }
5439                                             ;
5440                                         }
5441                                     else    /*^cond.else*/
5442                                         {
5443
5444                                             /*_._IF___V59*/ meltfptr[58] =  /*reallynil*/ NULL ;;
5445                                         }
5446                                     ;
5447
5448                                     {
5449                                         MELT_LOCATION("warmelt-normal.melt:1892:/ locexp");
5450                                         /*void*/
5451                                         (void)0;
5452                                     }
5453                                     ;
5454                                     /*^quasiblock*/
5455
5456
5457                                     /*epilog*/
5458
5459                                     /*^clear*/
5460                                     /*clear*/ /*_#MELT_NEED_DBG__L23*/
5461                                     meltfnum[9] = 0 ;
5462                                     /*^clear*/
5463                                     /*clear*/ /*_._IF___V59*/
5464                                     meltfptr[58] = 0 ;
5465                                 }
5466
5467 #else /*MELT_HAVE_DEBUG*/
5468                                 /*^cppif.else*/
5469                                 /*^block*/
5470                                 /*anyblock*/
5471                                 {
5472
5473
5474                                     {
5475                                         /*^locexp*/
5476                                         /*void*/(void)0;
5477                                     }
5478                                     ;
5479                                     /*epilog*/
5480                                 }
5481
5482 #endif /*MELT_HAVE_DEBUG*/
5483                                 ;
5484
5485                                 MELT_CHECK_SIGNAL();
5486                                 ;
5487                                 MELT_LOCATION("warmelt-normal.melt:1893:/ quasiblock");
5488
5489
5490                                 /*_._RETVAL___V1*/
5491                                 meltfptr[0] = /*_.NVAL__V57*/ meltfptr[30];;
5492                                 MELT_LOCATION("warmelt-normal.melt:1893:/ putxtraresult");
5493                                 if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
5494                                 if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
5495                                 if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.NBIND__V58*/ meltfptr[57]);
5496                                 ;
5497                                 /*^finalreturn*/
5498                                 ;
5499                                 /*finalret*/
5500                                 goto meltlabend_rout ;
5501
5502                                 MELT_CHECK_SIGNAL();
5503                                 ;
5504                                 /*_.MULTI___V56*/
5505                                 meltfptr[33] = /*_.RETURN___V61*/ meltfptr[59];;
5506
5507                                 MELT_LOCATION("warmelt-normal.melt:1889:/ clear");
5508                                 /*clear*/ /*_.RETURN___V61*/
5509                                 meltfptr[59] = 0 ;
5510
5511                                 /*^clear*/
5512                                 /*clear*/ /*_.NBIND__V58*/
5513                                 meltfptr[57] = 0 ;
5514                                 /*_._IFELSE___V55*/
5515                                 meltfptr[42] = /*_.MULTI___V56*/ meltfptr[33];;
5516                                 /*epilog*/
5517
5518                                 MELT_LOCATION("warmelt-normal.melt:1888:/ clear");
5519                                 /*clear*/ /*_.MULTI___V56*/
5520                                 meltfptr[33] = 0 ;
5521                             }
5522                             ;
5523                         }
5524                     else    /*^cond.else*/
5525                         {
5526
5527                             /*^block*/
5528                             /*anyblock*/
5529                             {
5530
5531
5532 #if MELT_HAVE_DEBUG
5533                                 MELT_LOCATION("warmelt-normal.melt:1895:/ cppif.then");
5534                                 /*^block*/
5535                                 /*anyblock*/
5536                                 {
5537
5538
5539                                     {
5540                                         /*^locexp*/
5541                                         /*melt_increment_dbgcounter*/
5542 #if MELT_HAVE_DEBUG
5543                                         melt_dbgcounter++;
5544 #endif
5545                                         ;
5546                                     }
5547                                     ;
5548
5549                                     MELT_CHECK_SIGNAL();
5550                                     ;
5551                                     /*_#MELT_NEED_DBG__L25*/
5552                                     meltfnum[23] =
5553                                         /*MELT_NEED_DBG*/
5554 #if MELT_HAVE_DEBUG
5555                                         (/*melt_need_dbg*/ melt_need_debug ((int) 0))
5556 #else
5557                                         0 /* no melt_need_dbg */
5558 #endif /*MELT_HAVE_DEBUG*/
5559                                         ;;
5560                                     MELT_LOCATION("warmelt-normal.melt:1895:/ cond");
5561                                     /*cond*/
5562                                     if (/*_#MELT_NEED_DBG__L25*/ meltfnum[23]) /*then*/
5563                                         {
5564                                             /*^cond.then*/
5565                                             /*^block*/
5566                                             /*anyblock*/
5567                                             {
5568
5569                                                 /*_#MELT_CALLCOUNT__L26*/ meltfnum[9] =
5570                                                     /* for melt_callcount */
5571 #if MELT_HAVE_DEBUG && defined (meltcallcount)
5572                                                     meltcallcount  /* melt_callcount debugging */
5573 #else
5574                                                     0L  /* melt_callcount without debug */
5575 #endif /* MELT_HAVE_DEBUG melt_callcount */
5576                                                     ;;
5577
5578                                                 MELT_CHECK_SIGNAL();
5579                                                 ;
5580                                                 MELT_LOCATION("warmelt-normal.melt:1895:/ apply");
5581                                                 /*apply*/
5582                                                 {
5583                                                     union meltparam_un argtab[7];
5584                                                     memset(&argtab, 0, sizeof(argtab));
5585                                                     /*^apply.arg*/
5586                                                     argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L26*/ meltfnum[9];
5587                                                     /*^apply.arg*/
5588                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
5589                                                     /*^apply.arg*/
5590                                                     argtab[2].meltbp_long = 1895;
5591                                                     /*^apply.arg*/
5592                                                     argtab[3].meltbp_cstring =  "normexp_symbol magicbind bind=";
5593                                                     /*^apply.arg*/
5594                                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V15*/ meltfptr[5];
5595                                                     /*^apply.arg*/
5596                                                     argtab[5].meltbp_cstring =  "\n gives magval=";
5597                                                     /*^apply.arg*/
5598                                                     argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MAGVAL__V52*/ meltfptr[28];
5599                                                     /*_.MELT_DEBUG_FUN__V63*/
5600                                                     meltfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5601                                                 }
5602                                                 ;
5603                                                 /*_._IF___V62*/
5604                                                 meltfptr[58] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[59];;
5605                                                 /*epilog*/
5606
5607                                                 MELT_LOCATION("warmelt-normal.melt:1895:/ clear");
5608                                                 /*clear*/ /*_#MELT_CALLCOUNT__L26*/
5609                                                 meltfnum[9] = 0 ;
5610                                                 /*^clear*/
5611                                                 /*clear*/ /*_.MELT_DEBUG_FUN__V63*/
5612                                                 meltfptr[59] = 0 ;
5613                                             }
5614                                             ;
5615                                         }
5616                                     else    /*^cond.else*/
5617                                         {
5618
5619                                             /*_._IF___V62*/ meltfptr[58] =  /*reallynil*/ NULL ;;
5620                                         }
5621                                     ;
5622
5623                                     {
5624                                         MELT_LOCATION("warmelt-normal.melt:1895:/ locexp");
5625                                         /*void*/
5626                                         (void)0;
5627                                     }
5628                                     ;
5629                                     /*^quasiblock*/
5630
5631
5632                                     /*epilog*/
5633
5634                                     /*^clear*/
5635                                     /*clear*/ /*_#MELT_NEED_DBG__L25*/
5636                                     meltfnum[23] = 0 ;
5637                                     /*^clear*/
5638                                     /*clear*/ /*_._IF___V62*/
5639                                     meltfptr[58] = 0 ;
5640                                 }
5641
5642 #else /*MELT_HAVE_DEBUG*/
5643                                 /*^cppif.else*/
5644                                 /*^block*/
5645                                 /*anyblock*/
5646                                 {
5647
5648
5649                                     {
5650                                         /*^locexp*/
5651                                         /*void*/(void)0;
5652                                     }
5653                                     ;
5654                                     /*epilog*/
5655                                 }
5656
5657 #endif /*MELT_HAVE_DEBUG*/
5658                                 ;
5659
5660                                 MELT_CHECK_SIGNAL();
5661                                 ;
5662                                 MELT_LOCATION("warmelt-normal.melt:1896:/ quasiblock");
5663
5664
5665                                 /*_._RETVAL___V1*/
5666                                 meltfptr[0] = /*_.MAGVAL__V52*/ meltfptr[28];;
5667                                 MELT_LOCATION("warmelt-normal.melt:1896:/ putxtraresult");
5668                                 if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
5669                                 if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
5670                                 if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*nil*/NULL));
5671                                 ;
5672                                 /*^finalreturn*/
5673                                 ;
5674                                 /*finalret*/
5675                                 goto meltlabend_rout ;
5676                                 MELT_LOCATION("warmelt-normal.melt:1894:/ quasiblock");
5677
5678
5679                                 /*_.PROGN___V65*/
5680                                 meltfptr[57] = /*_.RETURN___V64*/ meltfptr[30];;
5681                                 /*^compute*/
5682                                 /*_._IFELSE___V55*/
5683                                 meltfptr[42] = /*_.PROGN___V65*/ meltfptr[57];;
5684                                 /*epilog*/
5685
5686                                 MELT_LOCATION("warmelt-normal.melt:1888:/ clear");
5687                                 /*clear*/ /*_.RETURN___V64*/
5688                                 meltfptr[30] = 0 ;
5689                                 /*^clear*/
5690                                 /*clear*/ /*_.PROGN___V65*/
5691                                 meltfptr[57] = 0 ;
5692                             }
5693                             ;
5694                         }
5695                     ;
5696                     /*_.LET___V51*/
5697                     meltfptr[37] = /*_._IFELSE___V55*/ meltfptr[42];;
5698
5699                     MELT_LOCATION("warmelt-normal.melt:1885:/ clear");
5700                     /*clear*/ /*_.MAGVAL__V52*/
5701                     meltfptr[28] = 0 ;
5702                     /*^clear*/
5703                     /*clear*/ /*_#IS_A__L22*/
5704                     meltfnum[20] = 0 ;
5705                     /*^clear*/
5706                     /*clear*/ /*_._IFELSE___V55*/
5707                     meltfptr[42] = 0 ;
5708                     /*_._IF___V50*/
5709                     meltfptr[29] = /*_.LET___V51*/ meltfptr[37];;
5710                     /*epilog*/
5711
5712                     MELT_LOCATION("warmelt-normal.melt:1884:/ clear");
5713                     /*clear*/ /*_.LET___V51*/
5714                     meltfptr[37] = 0 ;
5715                 }
5716                 ;
5717             }
5718         else    /*^cond.else*/
5719             {
5720
5721                 /*_._IF___V50*/ meltfptr[29] =  /*reallynil*/ NULL ;;
5722             }
5723         ;
5724         MELT_LOCATION("warmelt-normal.melt:1900:/ quasiblock");
5725
5726
5727         /*^getslot*/
5728         {
5729             melt_ptr_t slot=NULL, obj=NULL;
5730             obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/;
5731             melt_object_get_field(slot,obj, 7, "NCTX_SYMBCACHEMAP");
5732             /*_.SYCMAP__V67*/
5733             meltfptr[59] = slot;
5734         };
5735         ;
5736         /*_.SYCA__V68*/
5737         meltfptr[58] =
5738             /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.SYCMAP__V67*/ meltfptr[59]),
5739                     (meltobject_ptr_t)(/*_.RECV__V2*/ meltfptr[1]));;
5740
5741 #if MELT_HAVE_DEBUG
5742         MELT_LOCATION("warmelt-normal.melt:1902:/ cppif.then");
5743         /*^block*/
5744         /*anyblock*/
5745         {
5746
5747
5748             MELT_CHECK_SIGNAL();
5749             ;
5750             /*_#IS_MAPOBJECT__L27*/
5751             meltfnum[9] =
5752                 /*is_mapobject:*/(melt_magic_discr((melt_ptr_t)(/*_.SYCMAP__V67*/ meltfptr[59])) == MELTOBMAG_MAPOBJECTS);;
5753             MELT_LOCATION("warmelt-normal.melt:1902:/ cond");
5754             /*cond*/
5755             if (/*_#IS_MAPOBJECT__L27*/ meltfnum[9]) /*then*/
5756                 {
5757                     /*^cond.then*/
5758                     /*_._IFELSE___V70*/ meltfptr[57] = (/*nil*/NULL);;
5759                 }
5760             else
5761                 {
5762                     MELT_LOCATION("warmelt-normal.melt:1902:/ cond.else");
5763
5764                     /*^block*/
5765                     /*anyblock*/
5766                     {
5767
5768
5769                         MELT_CHECK_SIGNAL();
5770                         ;
5771                         /*^apply*/
5772                         /*apply*/
5773                         {
5774                             union meltparam_un argtab[4];
5775                             memset(&argtab, 0, sizeof(argtab));
5776                             /*^apply.arg*/
5777                             argtab[0].meltbp_cstring =  "check sycmap";
5778                             /*^apply.arg*/
5779                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
5780                             /*^apply.arg*/
5781                             argtab[2].meltbp_long = 1902;
5782                             /*^apply.arg*/
5783                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SYCMAP__V67*/ meltfptr[59];
5784                             /*_.MELT_ASSERT_FAILURE_FUN__V71*/
5785                             meltfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5786                         }
5787                         ;
5788                         /*_._IFELSE___V70*/
5789                         meltfptr[57] = /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[28];;
5790                         /*epilog*/
5791
5792                         MELT_LOCATION("warmelt-normal.melt:1902:/ clear");
5793                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V71*/
5794                         meltfptr[28] = 0 ;
5795                     }
5796                     ;
5797                 }
5798             ;
5799             /*_.IFCPP___V69*/
5800             meltfptr[30] = /*_._IFELSE___V70*/ meltfptr[57];;
5801             /*epilog*/
5802
5803             MELT_LOCATION("warmelt-normal.melt:1902:/ clear");
5804             /*clear*/ /*_#IS_MAPOBJECT__L27*/
5805             meltfnum[9] = 0 ;
5806             /*^clear*/
5807             /*clear*/ /*_._IFELSE___V70*/
5808             meltfptr[57] = 0 ;
5809         }
5810
5811 #else /*MELT_HAVE_DEBUG*/
5812         /*^cppif.else*/
5813         /*_.IFCPP___V69*/ meltfptr[30] = (/*nil*/NULL);
5814 #endif /*MELT_HAVE_DEBUG*/
5815         ;
5816
5817 #if MELT_HAVE_DEBUG
5818         MELT_LOCATION("warmelt-normal.melt:1903:/ cppif.then");
5819         /*^block*/
5820         /*anyblock*/
5821         {
5822
5823
5824             {
5825                 /*^locexp*/
5826                 /*melt_increment_dbgcounter*/
5827 #if MELT_HAVE_DEBUG
5828                 melt_dbgcounter++;
5829 #endif
5830                 ;
5831             }
5832             ;
5833
5834             MELT_CHECK_SIGNAL();
5835             ;
5836             /*_#MELT_NEED_DBG__L28*/
5837             meltfnum[23] =
5838                 /*MELT_NEED_DBG*/
5839 #if MELT_HAVE_DEBUG
5840                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
5841 #else
5842                 0 /* no melt_need_dbg */
5843 #endif /*MELT_HAVE_DEBUG*/
5844                 ;;
5845             MELT_LOCATION("warmelt-normal.melt:1903:/ cond");
5846             /*cond*/
5847             if (/*_#MELT_NEED_DBG__L28*/ meltfnum[23]) /*then*/
5848                 {
5849                     /*^cond.then*/
5850                     /*^block*/
5851                     /*anyblock*/
5852                     {
5853
5854                         /*_#MELT_CALLCOUNT__L29*/ meltfnum[20] =
5855                             /* for melt_callcount */
5856 #if MELT_HAVE_DEBUG && defined (meltcallcount)
5857                             meltcallcount  /* melt_callcount debugging */
5858 #else
5859                             0L  /* melt_callcount without debug */
5860 #endif /* MELT_HAVE_DEBUG melt_callcount */
5861                             ;;
5862
5863                         MELT_CHECK_SIGNAL();
5864                         ;
5865                         MELT_LOCATION("warmelt-normal.melt:1903:/ apply");
5866                         /*apply*/
5867                         {
5868                             union meltparam_un argtab[9];
5869                             memset(&argtab, 0, sizeof(argtab));
5870                             /*^apply.arg*/
5871                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L29*/ meltfnum[20];
5872                             /*^apply.arg*/
5873                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
5874                             /*^apply.arg*/
5875                             argtab[2].meltbp_long = 1903;
5876                             /*^apply.arg*/
5877                             argtab[3].meltbp_cstring =  "normexp_symbol syca=";
5878                             /*^apply.arg*/
5879                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SYCA__V68*/ meltfptr[58];
5880                             /*^apply.arg*/
5881                             argtab[5].meltbp_cstring =  "\n.. for recv=";
5882                             /*^apply.arg*/
5883                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
5884                             /*^apply.arg*/
5885                             argtab[7].meltbp_cstring =  "\n.. bind=";
5886                             /*^apply.arg*/
5887                             argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V15*/ meltfptr[5];
5888                             /*_.MELT_DEBUG_FUN__V73*/
5889                             meltfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5890                         }
5891                         ;
5892                         /*_._IF___V72*/
5893                         meltfptr[42] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[37];;
5894                         /*epilog*/
5895
5896                         MELT_LOCATION("warmelt-normal.melt:1903:/ clear");
5897                         /*clear*/ /*_#MELT_CALLCOUNT__L29*/
5898                         meltfnum[20] = 0 ;
5899                         /*^clear*/
5900                         /*clear*/ /*_.MELT_DEBUG_FUN__V73*/
5901                         meltfptr[37] = 0 ;
5902                     }
5903                     ;
5904                 }
5905             else    /*^cond.else*/
5906                 {
5907
5908                     /*_._IF___V72*/ meltfptr[42] =  /*reallynil*/ NULL ;;
5909                 }
5910             ;
5911
5912             {
5913                 MELT_LOCATION("warmelt-normal.melt:1903:/ locexp");
5914                 /*void*/
5915                 (void)0;
5916             }
5917             ;
5918             /*^quasiblock*/
5919
5920
5921             /*epilog*/
5922
5923             /*^clear*/
5924             /*clear*/ /*_#MELT_NEED_DBG__L28*/
5925             meltfnum[23] = 0 ;
5926             /*^clear*/
5927             /*clear*/ /*_._IF___V72*/
5928             meltfptr[42] = 0 ;
5929         }
5930
5931 #else /*MELT_HAVE_DEBUG*/
5932         /*^cppif.else*/
5933         /*^block*/
5934         /*anyblock*/
5935         {
5936
5937
5938             {
5939                 /*^locexp*/
5940                 /*void*/(void)0;
5941             }
5942             ;
5943             /*epilog*/
5944         }
5945
5946 #endif /*MELT_HAVE_DEBUG*/
5947         ;
5948
5949         MELT_CHECK_SIGNAL();
5950         ;
5951         MELT_LOCATION("warmelt-normal.melt:1906:/ cond");
5952         /*cond*/
5953         if (/*_.SYCA__V68*/ meltfptr[58]) /*then*/
5954             {
5955                 /*^cond.then*/
5956                 /*^block*/
5957                 /*anyblock*/
5958                 {
5959
5960
5961                     MELT_CHECK_SIGNAL();
5962                     ;
5963                     MELT_LOCATION("warmelt-normal.melt:1907:/ quasiblock");
5964
5965
5966                     /*_._RETVAL___V1*/
5967                     meltfptr[0] = /*_.SYCA__V68*/ meltfptr[58];;
5968                     MELT_LOCATION("warmelt-normal.melt:1907:/ putxtraresult");
5969                     if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
5970                     if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
5971                     if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*nil*/NULL));
5972                     ;
5973                     /*^finalreturn*/
5974                     ;
5975                     /*finalret*/
5976                     goto meltlabend_rout ;
5977                     /*_._IFELSE___V74*/
5978                     meltfptr[28] = /*_.RETURN___V75*/ meltfptr[57];;
5979                     /*epilog*/
5980
5981                     MELT_LOCATION("warmelt-normal.melt:1906:/ clear");
5982                     /*clear*/ /*_.RETURN___V75*/
5983                     meltfptr[57] = 0 ;
5984                 }
5985                 ;
5986             }
5987         else    /*^cond.else*/
5988             {
5989
5990                 /*^block*/
5991                 /*anyblock*/
5992                 {
5993
5994
5995                     MELT_CHECK_SIGNAL();
5996                     ;
5997                     /*_#IS_A__L30*/
5998                     meltfnum[9] =
5999                         melt_is_instance_of((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[12])));;
6000                     MELT_LOCATION("warmelt-normal.melt:1910:/ cond");
6001                     /*cond*/
6002                     if (/*_#IS_A__L30*/ meltfnum[9]) /*then*/
6003                         {
6004                             /*^cond.then*/
6005                             /*^block*/
6006                             /*anyblock*/
6007                             {
6008
6009                                 MELT_LOCATION("warmelt-normal.melt:1911:/ quasiblock");
6010
6011
6012                                 /*_.BVAR__V78*/
6013                                 meltfptr[57] =
6014                                     /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.VALBINDMAP__V25*/ meltfptr[24]),
6015                                             (meltobject_ptr_t)(/*_.BIND__V15*/ meltfptr[5]));;
6016                                 MELT_LOCATION("warmelt-normal.melt:1912:/ cond");
6017                                 /*cond*/
6018                                 if (
6019                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]),
6020                                                                   (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[12])))
6021                                 ) /*then*/
6022                                     {
6023                                         /*^cond.then*/
6024                                         /*^getslot*/
6025                                         {
6026                                             melt_ptr_t slot=NULL, obj=NULL;
6027                                             obj = (melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]) /*=obj*/;
6028                                             melt_object_get_field(slot,obj, 1, "VBIND_VALUE");
6029                                             /*_.VAL__V79*/
6030                                             meltfptr[78] = slot;
6031                                         };
6032                                         ;
6033                                     }
6034                                 else    /*^cond.else*/
6035                                     {
6036
6037                                         /*_.VAL__V79*/ meltfptr[78] =  /*reallynil*/ NULL ;;
6038                                     }
6039                                 ;
6040
6041 #if MELT_HAVE_DEBUG
6042                                 MELT_LOCATION("warmelt-normal.melt:1914:/ cppif.then");
6043                                 /*^block*/
6044                                 /*anyblock*/
6045                                 {
6046
6047
6048                                     {
6049                                         /*^locexp*/
6050                                         /*melt_increment_dbgcounter*/
6051 #if MELT_HAVE_DEBUG
6052                                         melt_dbgcounter++;
6053 #endif
6054                                         ;
6055                                     }
6056                                     ;
6057
6058                                     MELT_CHECK_SIGNAL();
6059                                     ;
6060                                     /*_#MELT_NEED_DBG__L31*/
6061                                     meltfnum[20] =
6062                                         /*MELT_NEED_DBG*/
6063 #if MELT_HAVE_DEBUG
6064                                         (/*melt_need_dbg*/ melt_need_debug ((int) 0))
6065 #else
6066                                         0 /* no melt_need_dbg */
6067 #endif /*MELT_HAVE_DEBUG*/
6068                                         ;;
6069                                     MELT_LOCATION("warmelt-normal.melt:1914:/ cond");
6070                                     /*cond*/
6071                                     if (/*_#MELT_NEED_DBG__L31*/ meltfnum[20]) /*then*/
6072                                         {
6073                                             /*^cond.then*/
6074                                             /*^block*/
6075                                             /*anyblock*/
6076                                             {
6077
6078                                                 /*_#MELT_CALLCOUNT__L32*/ meltfnum[23] =
6079                                                     /* for melt_callcount */
6080 #if MELT_HAVE_DEBUG && defined (meltcallcount)
6081                                                     meltcallcount  /* melt_callcount debugging */
6082 #else
6083                                                     0L  /* melt_callcount without debug */
6084 #endif /* MELT_HAVE_DEBUG melt_callcount */
6085                                                     ;;
6086
6087                                                 MELT_CHECK_SIGNAL();
6088                                                 ;
6089                                                 MELT_LOCATION("warmelt-normal.melt:1914:/ apply");
6090                                                 /*apply*/
6091                                                 {
6092                                                     union meltparam_un argtab[11];
6093                                                     memset(&argtab, 0, sizeof(argtab));
6094                                                     /*^apply.arg*/
6095                                                     argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L32*/ meltfnum[23];
6096                                                     /*^apply.arg*/
6097                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
6098                                                     /*^apply.arg*/
6099                                                     argtab[2].meltbp_long = 1914;
6100                                                     /*^apply.arg*/
6101                                                     argtab[3].meltbp_cstring =  "normexp_symbol value bind=";
6102                                                     /*^apply.arg*/
6103                                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V15*/ meltfptr[5];
6104                                                     /*^apply.arg*/
6105                                                     argtab[5].meltbp_cstring =  "\n.. procs=";
6106                                                     /*^apply.arg*/
6107                                                     argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.PROCS__V16*/ meltfptr[15];
6108                                                     /*^apply.arg*/
6109                                                     argtab[7].meltbp_cstring =  "\n.. bvar=";
6110                                                     /*^apply.arg*/
6111                                                     argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.BVAR__V78*/ meltfptr[57];
6112                                                     /*^apply.arg*/
6113                                                     argtab[9].meltbp_cstring =  "\n.. val=";
6114                                                     /*^apply.arg*/
6115                                                     argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.VAL__V79*/ meltfptr[78];
6116                                                     /*_.MELT_DEBUG_FUN__V81*/
6117                                                     meltfptr[80] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
6118                                                 }
6119                                                 ;
6120                                                 /*_._IF___V80*/
6121                                                 meltfptr[79] = /*_.MELT_DEBUG_FUN__V81*/ meltfptr[80];;
6122                                                 /*epilog*/
6123
6124                                                 MELT_LOCATION("warmelt-normal.melt:1914:/ clear");
6125                                                 /*clear*/ /*_#MELT_CALLCOUNT__L32*/
6126                                                 meltfnum[23] = 0 ;
6127                                                 /*^clear*/
6128                                                 /*clear*/ /*_.MELT_DEBUG_FUN__V81*/
6129                                                 meltfptr[80] = 0 ;
6130                                             }
6131                                             ;
6132                                         }
6133                                     else    /*^cond.else*/
6134                                         {
6135
6136                                             /*_._IF___V80*/ meltfptr[79] =  /*reallynil*/ NULL ;;
6137                                         }
6138                                     ;
6139
6140                                     {
6141                                         MELT_LOCATION("warmelt-normal.melt:1914:/ locexp");
6142                                         /*void*/
6143                                         (void)0;
6144                                     }
6145                                     ;
6146                                     /*^quasiblock*/
6147
6148
6149                                     /*epilog*/
6150
6151                                     /*^clear*/
6152                                     /*clear*/ /*_#MELT_NEED_DBG__L31*/
6153                                     meltfnum[20] = 0 ;
6154                                     /*^clear*/
6155                                     /*clear*/ /*_._IF___V80*/
6156                                     meltfptr[79] = 0 ;
6157                                 }
6158
6159 #else /*MELT_HAVE_DEBUG*/
6160                                 /*^cppif.else*/
6161                                 /*^block*/
6162                                 /*anyblock*/
6163                                 {
6164
6165
6166                                     {
6167                                         /*^locexp*/
6168                                         /*void*/(void)0;
6169                                     }
6170                                     ;
6171                                     /*epilog*/
6172                                 }
6173
6174 #endif /*MELT_HAVE_DEBUG*/
6175                                 ;
6176
6177                                 MELT_CHECK_SIGNAL();
6178                                 ;
6179                                 /*_#NULL__L33*/
6180                                 meltfnum[23] =
6181                                     (/*null*/(/*_.BVAR__V78*/ meltfptr[57]) == NULL);;
6182                                 MELT_LOCATION("warmelt-normal.melt:1916:/ cond");
6183                                 /*cond*/
6184                                 if (/*_#NULL__L33*/ meltfnum[23]) /*then*/
6185                                     {
6186                                         /*^cond.then*/
6187                                         /*^block*/
6188                                         /*anyblock*/
6189                                         {
6190
6191                                             MELT_LOCATION("warmelt-normal.melt:1917:/ quasiblock");
6192
6193
6194
6195                                             MELT_CHECK_SIGNAL();
6196                                             ;
6197                                             /*_#IS_A__L34*/
6198                                             meltfnum[20] =
6199                                                 melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V24*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_RUNNING_EXTENSION_MODULE_CONTEXT*/ meltfrout->tabval[13])));;
6200                                             MELT_LOCATION("warmelt-normal.melt:1918:/ cond");
6201                                             /*cond*/
6202                                             if (/*_#IS_A__L34*/ meltfnum[20]) /*then*/
6203                                                 {
6204                                                     /*^cond.then*/
6205                                                     /*^block*/
6206                                                     /*anyblock*/
6207                                                     {
6208
6209                                                         MELT_LOCATION("warmelt-normal.melt:1919:/ quasiblock");
6210
6211
6212
6213                                                         MELT_CHECK_SIGNAL();
6214                                                         ;
6215                                                         MELT_LOCATION("warmelt-normal.melt:1920:/ apply");
6216                                                         /*apply*/
6217                                                         {
6218                                                             union meltparam_un argtab[1];
6219                                                             memset(&argtab, 0, sizeof(argtab));
6220                                                             /*^apply.arg*/
6221                                                             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V24*/ meltfptr[17];
6222                                                             /*_.REGLITVAL__V84*/
6223                                                             meltfptr[83] =  melt_apply ((meltclosure_ptr_t)((/*!REGISTER_LITERAL_VALUE*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.VAL__V79*/ meltfptr[78]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
6224                                                         }
6225                                                         ;
6226
6227                                                         MELT_CHECK_SIGNAL();
6228                                                         ;
6229                                                         MELT_LOCATION("warmelt-normal.melt:1921:/ quasiblock");
6230
6231
6232                                                         /*^rawallocobj*/
6233                                                         /*rawallocobj*/
6234                                                         {
6235                                                             melt_ptr_t newobj = 0;
6236                                                             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LITERALNAMEDVALUE*/ meltfrout->tabval[15])), (3), "CLASS_NREP_LITERALNAMEDVALUE");
6237                                                             /*_.INST__V86*/
6238                                                             meltfptr[85] =
6239                                                                 newobj;
6240                                                         };
6241                                                         ;
6242                                                         /*^putslot*/
6243                                                         /*putslot*/
6244                                                         melt_assertmsg("checkobj putslot  _ @NLITVAL_REGVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V86*/ meltfptr[85])) == MELTOBMAG_OBJECT);
6245                                                         melt_putfield_object((/*_.INST__V86*/ meltfptr[85]), (1), (/*_.REGLITVAL__V84*/ meltfptr[83]), "NLITVAL_REGVAL");
6246                                                         ;
6247                                                         /*^putslot*/
6248                                                         /*putslot*/
6249                                                         melt_assertmsg("checkobj putslot  _ @NLITVAL_SYMBOL", melt_magic_discr((melt_ptr_t)(/*_.INST__V86*/ meltfptr[85])) == MELTOBMAG_OBJECT);
6250                                                         melt_putfield_object((/*_.INST__V86*/ meltfptr[85]), (2), (/*_.RECV__V2*/ meltfptr[1]), "NLITVAL_SYMBOL");
6251                                                         ;
6252                                                         /*^touchobj*/
6253
6254                                                         melt_dbgtrace_written_object (/*_.INST__V86*/ meltfptr[85], "newly made instance");
6255                                                         ;
6256                                                         /*_.NLITVAL__V85*/
6257                                                         meltfptr[84] = /*_.INST__V86*/ meltfptr[85];;
6258
6259 #if MELT_HAVE_DEBUG
6260                                                         MELT_LOCATION("warmelt-normal.melt:1925:/ cppif.then");
6261                                                         /*^block*/
6262                                                         /*anyblock*/
6263                                                         {
6264
6265
6266                                                             {
6267                                                                 /*^locexp*/
6268                                                                 /*melt_increment_dbgcounter*/
6269 #if MELT_HAVE_DEBUG
6270                                                                 melt_dbgcounter++;
6271 #endif
6272                                                                 ;
6273                                                             }
6274                                                             ;
6275
6276                                                             MELT_CHECK_SIGNAL();
6277                                                             ;
6278                                                             /*_#MELT_NEED_DBG__L35*/
6279                                                             meltfnum[34] =
6280                                                                 /*MELT_NEED_DBG*/
6281 #if MELT_HAVE_DEBUG
6282                                                                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
6283 #else
6284                                                                 0 /* no melt_need_dbg */
6285 #endif /*MELT_HAVE_DEBUG*/
6286                                                                 ;;
6287                                                             MELT_LOCATION("warmelt-normal.melt:1925:/ cond");
6288                                                             /*cond*/
6289                                                             if (/*_#MELT_NEED_DBG__L35*/ meltfnum[34]) /*then*/
6290                                                                 {
6291                                                                     /*^cond.then*/
6292                                                                     /*^block*/
6293                                                                     /*anyblock*/
6294                                                                     {
6295
6296                                                                         /*_#MELT_CALLCOUNT__L36*/ meltfnum[35] =
6297                                                                             /* for melt_callcount */
6298 #if MELT_HAVE_DEBUG && defined (meltcallcount)
6299                                                                             meltcallcount  /* melt_callcount debugging */
6300 #else
6301                                                                             0L  /* melt_callcount without debug */
6302 #endif /* MELT_HAVE_DEBUG melt_callcount */
6303                                                                             ;;
6304
6305                                                                         MELT_CHECK_SIGNAL();
6306                                                                         ;
6307                                                                         MELT_LOCATION("warmelt-normal.melt:1925:/ apply");
6308                                                                         /*apply*/
6309                                                                         {
6310                                                                             union meltparam_un argtab[5];
6311                                                                             memset(&argtab, 0, sizeof(argtab));
6312                                                                             /*^apply.arg*/
6313                                                                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L36*/ meltfnum[35];
6314                                                                             /*^apply.arg*/
6315                                                                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
6316                                                                             /*^apply.arg*/
6317                                                                             argtab[2].meltbp_long = 1925;
6318                                                                             /*^apply.arg*/
6319                                                                             argtab[3].meltbp_cstring =  "normexp_symbol nlitval=";
6320                                                                             /*^apply.arg*/
6321                                                                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NLITVAL__V85*/ meltfptr[84];
6322                                                                             /*_.MELT_DEBUG_FUN__V88*/
6323                                                                             meltfptr[87] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
6324                                                                         }
6325                                                                         ;
6326                                                                         /*_._IF___V87*/
6327                                                                         meltfptr[86] = /*_.MELT_DEBUG_FUN__V88*/ meltfptr[87];;
6328                                                                         /*epilog*/
6329
6330                                                                         MELT_LOCATION("warmelt-normal.melt:1925:/ clear");
6331                                                                         /*clear*/ /*_#MELT_CALLCOUNT__L36*/
6332                                                                         meltfnum[35] = 0 ;
6333                                                                         /*^clear*/
6334                                                                         /*clear*/ /*_.MELT_DEBUG_FUN__V88*/
6335                                                                         meltfptr[87] = 0 ;
6336                                                                     }
6337                                                                     ;
6338                                                                 }
6339                                                             else    /*^cond.else*/
6340                                                                 {
6341
6342                                                                     /*_._IF___V87*/ meltfptr[86] =  /*reallynil*/ NULL ;;
6343                                                                 }
6344                                                             ;
6345
6346                                                             {
6347                                                                 MELT_LOCATION("warmelt-normal.melt:1925:/ locexp");
6348                                                                 /*void*/
6349                                                                 (void)0;
6350                                                             }
6351                                                             ;
6352                                                             /*^quasiblock*/
6353
6354
6355                                                             /*epilog*/
6356
6357                                                             /*^clear*/
6358                                                             /*clear*/ /*_#MELT_NEED_DBG__L35*/
6359                                                             meltfnum[34] = 0 ;
6360                                                             /*^clear*/
6361                                                             /*clear*/ /*_._IF___V87*/
6362                                                             meltfptr[86] = 0 ;
6363                                                         }
6364
6365 #else /*MELT_HAVE_DEBUG*/
6366                                                         /*^cppif.else*/
6367                                                         /*^block*/
6368                                                         /*anyblock*/
6369                                                         {
6370
6371
6372                                                             {
6373                                                                 /*^locexp*/
6374                                                                 /*void*/(void)0;
6375                                                             }
6376                                                             ;
6377                                                             /*epilog*/
6378                                                         }
6379
6380 #endif /*MELT_HAVE_DEBUG*/
6381                                                         ;
6382                                                         /*_.LET___V83*/
6383                                                         meltfptr[79] = /*_.NLITVAL__V85*/ meltfptr[84];;
6384
6385                                                         MELT_LOCATION("warmelt-normal.melt:1919:/ clear");
6386                                                         /*clear*/ /*_.REGLITVAL__V84*/
6387                                                         meltfptr[83] = 0 ;
6388                                                         /*^clear*/
6389                                                         /*clear*/ /*_.NLITVAL__V85*/
6390                                                         meltfptr[84] = 0 ;
6391                                                         /*_.NEWBVAR__V82*/
6392                                                         meltfptr[80] = /*_.LET___V83*/ meltfptr[79];;
6393                                                         /*epilog*/
6394
6395                                                         MELT_LOCATION("warmelt-normal.melt:1918:/ clear");
6396                                                         /*clear*/ /*_.LET___V83*/
6397                                                         meltfptr[79] = 0 ;
6398                                                     }
6399                                                     ;
6400                                                 }
6401                                             else    /*^cond.else*/
6402                                                 {
6403
6404                                                     /*^block*/
6405                                                     /*anyblock*/
6406                                                     {
6407
6408
6409                                                         MELT_CHECK_SIGNAL();
6410                                                         ;
6411
6412                                                         MELT_CHECK_SIGNAL();
6413                                                         ;
6414                                                         MELT_LOCATION("warmelt-normal.melt:1933:/ apply");
6415                                                         /*apply*/
6416                                                         {
6417                                                             union meltparam_un argtab[2];
6418                                                             memset(&argtab, 0, sizeof(argtab));
6419                                                             /*^apply.arg*/
6420                                                             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
6421                                                             /*^apply.arg*/
6422                                                             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4];
6423                                                             /*_.NORMAL_SYMBOL_DATA__V89*/
6424                                                             meltfptr[87] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
6425                                                         }
6426                                                         ;
6427                                                         MELT_LOCATION("warmelt-normal.melt:1930:/ quasiblock");
6428
6429
6430                                                         /*^rawallocobj*/
6431                                                         /*rawallocobj*/
6432                                                         {
6433                                                             melt_ptr_t newobj = 0;
6434                                                             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_IMPORTEDVAL*/ meltfrout->tabval[16])), (3), "CLASS_NREP_IMPORTEDVAL");
6435                                                             /*_.INST__V91*/
6436                                                             meltfptr[83] =
6437                                                                 newobj;
6438                                                         };
6439                                                         ;
6440                                                         /*^putslot*/
6441                                                         /*putslot*/
6442                                                         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V91*/ meltfptr[83])) == MELTOBMAG_OBJECT);
6443                                                         melt_putfield_object((/*_.INST__V91*/ meltfptr[83]), (0), (/*_.PSLOC__V5*/ meltfptr[4]), "NREP_LOC");
6444                                                         ;
6445                                                         /*^putslot*/
6446                                                         /*putslot*/
6447                                                         melt_assertmsg("checkobj putslot  _ @NIMPORT_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V91*/ meltfptr[83])) == MELTOBMAG_OBJECT);
6448                                                         melt_putfield_object((/*_.INST__V91*/ meltfptr[83]), (1), (/*_.RECV__V2*/ meltfptr[1]), "NIMPORT_SYMB");
6449                                                         ;
6450                                                         /*^putslot*/
6451                                                         /*putslot*/
6452                                                         melt_assertmsg("checkobj putslot  _ @NIMPORT_SYDATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V91*/ meltfptr[83])) == MELTOBMAG_OBJECT);
6453                                                         melt_putfield_object((/*_.INST__V91*/ meltfptr[83]), (2), (/*_.NORMAL_SYMBOL_DATA__V89*/ meltfptr[87]), "NIMPORT_SYDATA");
6454                                                         ;
6455                                                         /*^touchobj*/
6456
6457                                                         melt_dbgtrace_written_object (/*_.INST__V91*/ meltfptr[83], "newly made instance");
6458                                                         ;
6459                                                         /*_.INST___V90*/
6460                                                         meltfptr[86] = /*_.INST__V91*/ meltfptr[83];;
6461                                                         MELT_LOCATION("warmelt-normal.melt:1929:/ quasiblock");
6462
6463
6464                                                         /*_.PROGN___V92*/
6465                                                         meltfptr[84] = /*_.INST___V90*/ meltfptr[86];;
6466                                                         /*^compute*/
6467                                                         /*_.NEWBVAR__V82*/
6468                                                         meltfptr[80] = /*_.PROGN___V92*/ meltfptr[84];;
6469                                                         /*epilog*/
6470
6471                                                         MELT_LOCATION("warmelt-normal.melt:1918:/ clear");
6472                                                         /*clear*/ /*_.NORMAL_SYMBOL_DATA__V89*/
6473                                                         meltfptr[87] = 0 ;
6474                                                         /*^clear*/
6475                                                         /*clear*/ /*_.INST___V90*/
6476                                                         meltfptr[86] = 0 ;
6477                                                         /*^clear*/
6478                                                         /*clear*/ /*_.PROGN___V92*/
6479                                                         meltfptr[84] = 0 ;
6480                                                     }
6481                                                     ;
6482                                                 }
6483                                             ;
6484
6485                                             {
6486                                                 MELT_LOCATION("warmelt-normal.melt:1935:/ locexp");
6487                                                 meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.VALBINDMAP__V25*/ meltfptr[24]),
6488                                                                        (meltobject_ptr_t) (/*_.BIND__V15*/ meltfptr[5]),
6489                                                                        (melt_ptr_t)(/*_.NEWBVAR__V82*/ meltfptr[80]));
6490                                             }
6491                                             ;
6492                                             MELT_LOCATION("warmelt-normal.melt:1936:/ compute");
6493                                             /*_.BVAR__V78*/
6494                                             meltfptr[57] = /*_.SETQ___V93*/ meltfptr[79] = /*_.NEWBVAR__V82*/ meltfptr[80];;
6495
6496                                             {
6497                                                 MELT_LOCATION("warmelt-normal.melt:1937:/ locexp");
6498                                                 meltgc_append_list((melt_ptr_t)(/*_.VALUELIST__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.NEWBVAR__V82*/ meltfptr[80]));
6499                                             }
6500                                             ;
6501
6502 #if MELT_HAVE_DEBUG
6503                                             MELT_LOCATION("warmelt-normal.melt:1938:/ cppif.then");
6504                                             /*^block*/
6505                                             /*anyblock*/
6506                                             {
6507
6508
6509                                                 {
6510                                                     /*^locexp*/
6511                                                     /*melt_increment_dbgcounter*/
6512 #if MELT_HAVE_DEBUG
6513                                                     melt_dbgcounter++;
6514 #endif
6515                                                     ;
6516                                                 }
6517                                                 ;
6518
6519                                                 MELT_CHECK_SIGNAL();
6520                                                 ;
6521                                                 /*_#MELT_NEED_DBG__L37*/
6522                                                 meltfnum[35] =
6523                                                     /*MELT_NEED_DBG*/
6524 #if MELT_HAVE_DEBUG
6525                                                     (/*melt_need_dbg*/ melt_need_debug ((int) 0))
6526 #else
6527                                                     0 /* no melt_need_dbg */
6528 #endif /*MELT_HAVE_DEBUG*/
6529                                                     ;;
6530                                                 MELT_LOCATION("warmelt-normal.melt:1938:/ cond");
6531                                                 /*cond*/
6532                                                 if (/*_#MELT_NEED_DBG__L37*/ meltfnum[35]) /*then*/
6533                                                     {
6534                                                         /*^cond.then*/
6535                                                         /*^block*/
6536                                                         /*anyblock*/
6537                                                         {
6538
6539                                                             /*_#MELT_CALLCOUNT__L38*/ meltfnum[34] =
6540                                                                 /* for melt_callcount */
6541 #if MELT_HAVE_DEBUG && defined (meltcallcount)
6542                                                                 meltcallcount  /* melt_callcount debugging */
6543 #else
6544                                                                 0L  /* melt_callcount without debug */
6545 #endif /* MELT_HAVE_DEBUG melt_callcount */
6546                                                                 ;;
6547
6548                                                             MELT_CHECK_SIGNAL();
6549                                                             ;
6550                                                             MELT_LOCATION("warmelt-normal.melt:1938:/ apply");
6551                                                             /*apply*/
6552                                                             {
6553                                                                 union meltparam_un argtab[7];
6554                                                                 memset(&argtab, 0, sizeof(argtab));
6555                                                                 /*^apply.arg*/
6556                                                                 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L38*/ meltfnum[34];
6557                                                                 /*^apply.arg*/
6558                                                                 argtab[1].meltbp_cstring =  "warmelt-normal.melt";
6559                                                                 /*^apply.arg*/
6560                                                                 argtab[2].meltbp_long = 1938;
6561                                                                 /*^apply.arg*/
6562                                                                 argtab[3].meltbp_cstring =  "normexp_symbol newbvar=";
6563                                                                 /*^apply.arg*/
6564                                                                 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWBVAR__V82*/ meltfptr[80];
6565                                                                 /*^apply.arg*/
6566                                                                 argtab[5].meltbp_cstring =  "\n.. valuelist=";
6567                                                                 /*^apply.arg*/
6568                                                                 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.VALUELIST__V26*/ meltfptr[25];
6569                                                                 /*_.MELT_DEBUG_FUN__V95*/
6570                                                                 meltfptr[86] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
6571                                                             }
6572                                                             ;
6573                                                             /*_._IF___V94*/
6574                                                             meltfptr[87] = /*_.MELT_DEBUG_FUN__V95*/ meltfptr[86];;
6575                                                             /*epilog*/
6576
6577                                                             MELT_LOCATION("warmelt-normal.melt:1938:/ clear");
6578                                                             /*clear*/ /*_#MELT_CALLCOUNT__L38*/
6579                                                             meltfnum[34] = 0 ;
6580                                                             /*^clear*/
6581                                                             /*clear*/ /*_.MELT_DEBUG_FUN__V95*/
6582                                                             meltfptr[86] = 0 ;
6583                                                         }
6584                                                         ;
6585                                                     }
6586                                                 else    /*^cond.else*/
6587                                                     {
6588
6589                                                         /*_._IF___V94*/ meltfptr[87] =  /*reallynil*/ NULL ;;
6590                                                     }
6591                                                 ;
6592
6593                                                 {
6594                                                     MELT_LOCATION("warmelt-normal.melt:1938:/ locexp");
6595                                                     /*void*/
6596                                                     (void)0;
6597                                                 }
6598                                                 ;
6599                                                 /*^quasiblock*/
6600
6601
6602                                                 /*epilog*/
6603
6604                                                 /*^clear*/
6605                                                 /*clear*/ /*_#MELT_NEED_DBG__L37*/
6606                                                 meltfnum[35] = 0 ;
6607                                                 /*^clear*/
6608                                                 /*clear*/ /*_._IF___V94*/
6609                                                 meltfptr[87] = 0 ;
6610                                             }
6611
6612 #else /*MELT_HAVE_DEBUG*/
6613                                             /*^cppif.else*/
6614                                             /*^block*/
6615                                             /*anyblock*/
6616                                             {
6617
6618
6619                                                 {
6620                                                     /*^locexp*/
6621                                                     /*void*/(void)0;
6622                                                 }
6623                                                 ;
6624                                                 /*epilog*/
6625                                             }
6626
6627 #endif /*MELT_HAVE_DEBUG*/
6628                                             ;
6629
6630                                             MELT_LOCATION("warmelt-normal.melt:1917:/ clear");
6631                                             /*clear*/ /*_#IS_A__L34*/
6632                                             meltfnum[20] = 0 ;
6633                                             /*^clear*/
6634                                             /*clear*/ /*_.NEWBVAR__V82*/
6635                                             meltfptr[80] = 0 ;
6636                                             /*^clear*/
6637                                             /*clear*/ /*_.SETQ___V93*/
6638                                             meltfptr[79] = 0 ;
6639                                             /*epilog*/
6640                                         }
6641                                         ;
6642                                     } /*noelse*/
6643                                 ;
6644
6645 #if MELT_HAVE_DEBUG
6646                                 MELT_LOCATION("warmelt-normal.melt:1942:/ cppif.then");
6647                                 /*^block*/
6648                                 /*anyblock*/
6649                                 {
6650
6651
6652                                     {
6653                                         /*^locexp*/
6654                                         /*melt_increment_dbgcounter*/
6655 #if MELT_HAVE_DEBUG
6656                                         melt_dbgcounter++;
6657 #endif
6658                                         ;
6659                                     }
6660                                     ;
6661
6662                                     MELT_CHECK_SIGNAL();
6663                                     ;
6664                                     /*_#MELT_NEED_DBG__L39*/
6665                                     meltfnum[34] =
6666                                         /*MELT_NEED_DBG*/
6667 #if MELT_HAVE_DEBUG
6668                                         (/*melt_need_dbg*/ melt_need_debug ((int) 0))
6669 #else
6670                                         0 /* no melt_need_dbg */
6671 #endif /*MELT_HAVE_DEBUG*/
6672                                         ;;
6673                                     MELT_LOCATION("warmelt-normal.melt:1942:/ cond");
6674                                     /*cond*/
6675                                     if (/*_#MELT_NEED_DBG__L39*/ meltfnum[34]) /*then*/
6676                                         {
6677                                             /*^cond.then*/
6678                                             /*^block*/
6679                                             /*anyblock*/
6680                                             {
6681
6682                                                 /*_#MELT_CALLCOUNT__L40*/ meltfnum[35] =
6683                                                     /* for melt_callcount */
6684 #if MELT_HAVE_DEBUG && defined (meltcallcount)
6685                                                     meltcallcount  /* melt_callcount debugging */
6686 #else
6687                                                     0L  /* melt_callcount without debug */
6688 #endif /* MELT_HAVE_DEBUG melt_callcount */
6689                                                     ;;
6690
6691                                                 MELT_CHECK_SIGNAL();
6692                                                 ;
6693                                                 MELT_LOCATION("warmelt-normal.melt:1942:/ apply");
6694                                                 /*apply*/
6695                                                 {
6696                                                     union meltparam_un argtab[7];
6697                                                     memset(&argtab, 0, sizeof(argtab));
6698                                                     /*^apply.arg*/
6699                                                     argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L40*/ meltfnum[35];
6700                                                     /*^apply.arg*/
6701                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
6702                                                     /*^apply.arg*/
6703                                                     argtab[2].meltbp_long = 1942;
6704                                                     /*^apply.arg*/
6705                                                     argtab[3].meltbp_cstring =  "normexp_symbol recv=";
6706                                                     /*^apply.arg*/
6707                                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
6708                                                     /*^apply.arg*/
6709                                                     argtab[5].meltbp_cstring =  "\n.. procs=";
6710                                                     /*^apply.arg*/
6711                                                     argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.PROCS__V16*/ meltfptr[15];
6712                                                     /*_.MELT_DEBUG_FUN__V97*/
6713                                                     meltfptr[86] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
6714                                                 }
6715                                                 ;
6716                                                 /*_._IF___V96*/
6717                                                 meltfptr[84] = /*_.MELT_DEBUG_FUN__V97*/ meltfptr[86];;
6718                                                 /*epilog*/
6719
6720                                                 MELT_LOCATION("warmelt-normal.melt:1942:/ clear");
6721                                                 /*clear*/ /*_#MELT_CALLCOUNT__L40*/
6722                                                 meltfnum[35] = 0 ;
6723                                                 /*^clear*/
6724                                                 /*clear*/ /*_.MELT_DEBUG_FUN__V97*/
6725                                                 meltfptr[86] = 0 ;
6726                                             }
6727                                             ;
6728                                         }
6729                                     else    /*^cond.else*/
6730                                         {
6731
6732                                             /*_._IF___V96*/ meltfptr[84] =  /*reallynil*/ NULL ;;
6733                                         }
6734                                     ;
6735
6736                                     {
6737                                         MELT_LOCATION("warmelt-normal.melt:1942:/ locexp");
6738                                         /*void*/
6739                                         (void)0;
6740                                     }
6741                                     ;
6742                                     /*^quasiblock*/
6743
6744
6745                                     /*epilog*/
6746
6747                                     /*^clear*/
6748                                     /*clear*/ /*_#MELT_NEED_DBG__L39*/
6749                                     meltfnum[34] = 0 ;
6750                                     /*^clear*/
6751                                     /*clear*/ /*_._IF___V96*/
6752                                     meltfptr[84] = 0 ;
6753                                 }
6754
6755 #else /*MELT_HAVE_DEBUG*/
6756                                 /*^cppif.else*/
6757                                 /*^block*/
6758                                 /*anyblock*/
6759                                 {
6760
6761
6762                                     {
6763                                         /*^locexp*/
6764                                         /*void*/(void)0;
6765                                     }
6766                                     ;
6767                                     /*epilog*/
6768                                 }
6769
6770 #endif /*MELT_HAVE_DEBUG*/
6771                                 ;
6772
6773                                 MELT_CHECK_SIGNAL();
6774                                 ;
6775
6776                                 MELT_CHECK_SIGNAL();
6777                                 ;
6778                                 /*_#IS_LIST__L41*/
6779                                 meltfnum[20] =
6780                                     (melt_magic_discr((melt_ptr_t)(/*_.PROCS__V16*/ meltfptr[15])) == MELTOBMAG_LIST);;
6781                                 MELT_LOCATION("warmelt-normal.melt:1943:/ cond");
6782                                 /*cond*/
6783                                 if (/*_#IS_LIST__L41*/ meltfnum[20]) /*then*/
6784                                     {
6785                                         /*^cond.then*/
6786                                         /*^block*/
6787                                         /*anyblock*/
6788                                         {
6789
6790                                             /*_.LIST_FIRST__V98*/ meltfptr[87] =
6791                                                 (melt_list_first((melt_ptr_t)(/*_.PROCS__V16*/ meltfptr[15])));;
6792                                             /*^compute*/
6793                                             /*_#IS_PAIR__L43*/
6794                                             meltfnum[34] =
6795                                                 (melt_magic_discr((melt_ptr_t)(/*_.LIST_FIRST__V98*/ meltfptr[87])) == MELTOBMAG_PAIR);;
6796                                             /*^compute*/
6797                                             /*_#_IF___L42*/
6798                                             meltfnum[35] = /*_#IS_PAIR__L43*/ meltfnum[34];;
6799                                             /*epilog*/
6800
6801                                             MELT_LOCATION("warmelt-normal.melt:1943:/ clear");
6802                                             /*clear*/ /*_.LIST_FIRST__V98*/
6803                                             meltfptr[87] = 0 ;
6804                                             /*^clear*/
6805                                             /*clear*/ /*_#IS_PAIR__L43*/
6806                                             meltfnum[34] = 0 ;
6807                                         }
6808                                         ;
6809                                     }
6810                                 else    /*^cond.else*/
6811                                     {
6812
6813                                         /*_#_IF___L42*/ meltfnum[35] = 0;;
6814                                     }
6815                                 ;
6816                                 MELT_LOCATION("warmelt-normal.melt:1943:/ cond");
6817                                 /*cond*/
6818                                 if (/*_#_IF___L42*/ meltfnum[35]) /*then*/
6819                                     {
6820                                         /*^cond.then*/
6821                                         /*^block*/
6822                                         /*anyblock*/
6823                                         {
6824
6825                                             MELT_LOCATION("warmelt-normal.melt:1945:/ quasiblock");
6826
6827
6828
6829                                             MELT_CHECK_SIGNAL();
6830                                             ;
6831                                             MELT_LOCATION("warmelt-normal.melt:1946:/ quasiblock");
6832
6833
6834                                             /*^rawallocobj*/
6835                                             /*rawallocobj*/
6836                                             {
6837                                                 melt_ptr_t newobj = 0;
6838                                                 melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CONSTOCC*/ meltfrout->tabval[18])), (5), "CLASS_NREP_CONSTOCC");
6839                                                 /*_.INST__V102*/
6840                                                 meltfptr[84] =
6841                                                     newobj;
6842                                             };
6843                                             ;
6844                                             /*^putslot*/
6845                                             /*putslot*/
6846                                             melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V102*/ meltfptr[84])) == MELTOBMAG_OBJECT);
6847                                             melt_putfield_object((/*_.INST__V102*/ meltfptr[84]), (0), (/*_.PSLOC__V5*/ meltfptr[4]), "NREP_LOC");
6848                                             ;
6849                                             /*^putslot*/
6850                                             /*putslot*/
6851                                             melt_assertmsg("checkobj putslot  _ @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V102*/ meltfptr[84])) == MELTOBMAG_OBJECT);
6852                                             melt_putfield_object((/*_.INST__V102*/ meltfptr[84]), (1), (/*_.RECV__V2*/ meltfptr[1]), "NOCC_SYMB");
6853                                             ;
6854                                             /*^putslot*/
6855                                             /*putslot*/
6856                                             melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V102*/ meltfptr[84])) == MELTOBMAG_OBJECT);
6857                                             melt_putfield_object((/*_.INST__V102*/ meltfptr[84]), (3), (/*_.BIND__V15*/ meltfptr[5]), "NOCC_BIND");
6858                                             ;
6859                                             /*^putslot*/
6860                                             /*putslot*/
6861                                             melt_assertmsg("checkobj putslot  _ @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V102*/ meltfptr[84])) == MELTOBMAG_OBJECT);
6862                                             melt_putfield_object((/*_.INST__V102*/ meltfptr[84]), (2), ((/*!CTYPE_VALUE*/ meltfrout->tabval[19])), "NOCC_CTYP");
6863                                             ;
6864                                             /*^putslot*/
6865                                             /*putslot*/
6866                                             melt_assertmsg("checkobj putslot  _ @NCLOC_PROCS", melt_magic_discr((melt_ptr_t)(/*_.INST__V102*/ meltfptr[84])) == MELTOBMAG_OBJECT);
6867                                             melt_putfield_object((/*_.INST__V102*/ meltfptr[84]), (4), (/*_.PROCS__V16*/ meltfptr[15]), "NCLOC_PROCS");
6868                                             ;
6869                                             /*^touchobj*/
6870
6871                                             melt_dbgtrace_written_object (/*_.INST__V102*/ meltfptr[84], "newly made instance");
6872                                             ;
6873                                             /*_.FXOCC__V101*/
6874                                             meltfptr[86] = /*_.INST__V102*/ meltfptr[84];;
6875
6876                                             {
6877                                                 MELT_LOCATION("warmelt-normal.melt:1954:/ locexp");
6878                                                 meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYCMAP__V67*/ meltfptr[59]),
6879                                                                        (meltobject_ptr_t) (/*_.RECV__V2*/ meltfptr[1]),
6880                                                                        (melt_ptr_t)(/*_.FXOCC__V101*/ meltfptr[86]));
6881                                             }
6882                                             ;
6883
6884 #if MELT_HAVE_DEBUG
6885                                             MELT_LOCATION("warmelt-normal.melt:1955:/ cppif.then");
6886                                             /*^block*/
6887                                             /*anyblock*/
6888                                             {
6889
6890
6891                                                 {
6892                                                     /*^locexp*/
6893                                                     /*melt_increment_dbgcounter*/
6894 #if MELT_HAVE_DEBUG
6895                                                     melt_dbgcounter++;
6896 #endif
6897                                                     ;
6898                                                 }
6899                                                 ;
6900
6901                                                 MELT_CHECK_SIGNAL();
6902                                                 ;
6903                                                 /*_#MELT_NEED_DBG__L44*/
6904                                                 meltfnum[34] =
6905                                                     /*MELT_NEED_DBG*/
6906 #if MELT_HAVE_DEBUG
6907                                                     (/*melt_need_dbg*/ melt_need_debug ((int) 0))
6908 #else
6909                                                     0 /* no melt_need_dbg */
6910 #endif /*MELT_HAVE_DEBUG*/
6911                                                     ;;
6912                                                 MELT_LOCATION("warmelt-normal.melt:1955:/ cond");
6913                                                 /*cond*/
6914                                                 if (/*_#MELT_NEED_DBG__L44*/ meltfnum[34]) /*then*/
6915                                                     {
6916                                                         /*^cond.then*/
6917                                                         /*^block*/
6918                                                         /*anyblock*/
6919                                                         {
6920
6921                                                             /*_#MELT_CALLCOUNT__L45*/ meltfnum[44] =
6922                                                                 /* for melt_callcount */
6923 #if MELT_HAVE_DEBUG && defined (meltcallcount)
6924                                                                 meltcallcount  /* melt_callcount debugging */
6925 #else
6926                                                                 0L  /* melt_callcount without debug */
6927 #endif /* MELT_HAVE_DEBUG melt_callcount */
6928                                                                 ;;
6929
6930                                                             MELT_CHECK_SIGNAL();
6931                                                             ;
6932                                                             MELT_LOCATION("warmelt-normal.melt:1955:/ apply");
6933                                                             /*apply*/
6934                                                             {
6935                                                                 union meltparam_un argtab[14];
6936                                                                 memset(&argtab, 0, sizeof(argtab));
6937                                                                 /*^apply.arg*/
6938                                                                 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L45*/ meltfnum[44];
6939                                                                 /*^apply.arg*/
6940                                                                 argtab[1].meltbp_cstring =  "warmelt-normal.melt";
6941                                                                 /*^apply.arg*/
6942                                                                 argtab[2].meltbp_long = 1955;
6943                                                                 /*^apply.arg*/
6944                                                                 argtab[3].meltbp_cstring =  "normexp_symbol const value fxocc=";
6945                                                                 /*^apply.arg*/
6946                                                                 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FXOCC__V101*/ meltfptr[86];
6947                                                                 /*^apply.arg*/
6948                                                                 argtab[5].meltbp_cstring =  "\n.. recv=";
6949                                                                 /*^apply.arg*/
6950                                                                 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
6951                                                                 /*^apply.arg*/
6952                                                                 argtab[7].meltbp_cstring =  "\n.. updated sycmap=";
6953                                                                 /*^apply.arg*/
6954                                                                 argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.SYCMAP__V67*/ meltfptr[59];
6955                                                                 /*^apply.arg*/
6956                                                                 argtab[9].meltbp_cstring =  "\n.. procs=";
6957                                                                 /*^apply.arg*/
6958                                                                 argtab[10].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[6]);
6959                                                                 /*^apply.arg*/
6960                                                                 argtab[11].meltbp_aptr = (melt_ptr_t*) &/*_.PROCS__V16*/ meltfptr[15];
6961                                                                 /*^apply.arg*/
6962                                                                 argtab[12].meltbp_cstring =  "\n.. for symbname=";
6963                                                                 /*^apply.arg*/
6964                                                                 argtab[13].meltbp_aptr = (melt_ptr_t*) &/*_.SYMBNAME__V27*/ meltfptr[26];
6965                                                                 /*_.MELT_DEBUG_FUN__V104*/
6966                                                                 meltfptr[103] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
6967                                                             }
6968                                                             ;
6969                                                             /*_._IF___V103*/
6970                                                             meltfptr[87] = /*_.MELT_DEBUG_FUN__V104*/ meltfptr[103];;
6971                                                             /*epilog*/
6972
6973                                                             MELT_LOCATION("warmelt-normal.melt:1955:/ clear");
6974                                                             /*clear*/ /*_#MELT_CALLCOUNT__L45*/
6975                                                             meltfnum[44] = 0 ;
6976                                                             /*^clear*/
6977                                                             /*clear*/ /*_.MELT_DEBUG_FUN__V104*/
6978                                                             meltfptr[103] = 0 ;
6979                                                         }
6980                                                         ;
6981                                                     }
6982                                                 else    /*^cond.else*/
6983                                                     {
6984
6985                                                         /*_._IF___V103*/ meltfptr[87] =  /*reallynil*/ NULL ;;
6986                                                     }
6987                                                 ;
6988
6989                                                 {
6990                                                     MELT_LOCATION("warmelt-normal.melt:1955:/ locexp");
6991                                                     /*void*/
6992                                                     (void)0;
6993                                                 }
6994                                                 ;
6995                                                 /*^quasiblock*/
6996
6997
6998                                                 /*epilog*/
6999
7000                                                 /*^clear*/
7001                                                 /*clear*/ /*_#MELT_NEED_DBG__L44*/
7002                                                 meltfnum[34] = 0 ;
7003                                                 /*^clear*/
7004                                                 /*clear*/ /*_._IF___V103*/
7005                                                 meltfptr[87] = 0 ;
7006                                             }
7007
7008 #else /*MELT_HAVE_DEBUG*/
7009                                             /*^cppif.else*/
7010                                             /*^block*/
7011                                             /*anyblock*/
7012                                             {
7013
7014
7015                                                 {
7016                                                     /*^locexp*/
7017                                                     /*void*/(void)0;
7018                                                 }
7019                                                 ;
7020                                                 /*epilog*/
7021                                             }
7022
7023 #endif /*MELT_HAVE_DEBUG*/
7024                                             ;
7025                                             /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
7026                                             {
7027                                                 /* start foreach_pair_component_in_list meltcit1__EACHLIST */
7028                                                 for (/*_.CURPAIRPRO__V105*/ meltfptr[103] = melt_list_first( (melt_ptr_t)/*_.PROCS__V16*/ meltfptr[15]);
7029                                                                             melt_magic_discr((melt_ptr_t) /*_.CURPAIRPRO__V105*/ meltfptr[103]) == MELTOBMAG_PAIR;
7030                                                                             /*_.CURPAIRPRO__V105*/ meltfptr[103] = melt_pair_tail((melt_ptr_t) /*_.CURPAIRPRO__V105*/ meltfptr[103]))
7031                                                     {
7032                                                         /*_.PR__V106*/ meltfptr[87] = melt_pair_head((melt_ptr_t) /*_.CURPAIRPRO__V105*/ meltfptr[103]);
7033
7034
7035
7036 #if MELT_HAVE_DEBUG
7037                                                         MELT_LOCATION("warmelt-normal.melt:1962:/ cppif.then");
7038                                                         /*^block*/
7039                                                         /*anyblock*/
7040                                                         {
7041
7042
7043                                                             {
7044                                                                 /*^locexp*/
7045                                                                 /*melt_increment_dbgcounter*/
7046 #if MELT_HAVE_DEBUG
7047                                                                 melt_dbgcounter++;
7048 #endif
7049                                                                 ;
7050                                                             }
7051                                                             ;
7052
7053                                                             MELT_CHECK_SIGNAL();
7054                                                             ;
7055                                                             /*_#MELT_NEED_DBG__L46*/
7056                                                             meltfnum[44] =
7057                                                                 /*MELT_NEED_DBG*/
7058 #if MELT_HAVE_DEBUG
7059                                                                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
7060 #else
7061                                                                 0 /* no melt_need_dbg */
7062 #endif /*MELT_HAVE_DEBUG*/
7063                                                                 ;;
7064                                                             MELT_LOCATION("warmelt-normal.melt:1962:/ cond");
7065                                                             /*cond*/
7066                                                             if (/*_#MELT_NEED_DBG__L46*/ meltfnum[44]) /*then*/
7067                                                                 {
7068                                                                     /*^cond.then*/
7069                                                                     /*^block*/
7070                                                                     /*anyblock*/
7071                                                                     {
7072
7073                                                                         /*_#MELT_CALLCOUNT__L47*/ meltfnum[34] =
7074                                                                             /* for melt_callcount */
7075 #if MELT_HAVE_DEBUG && defined (meltcallcount)
7076                                                                             meltcallcount  /* melt_callcount debugging */
7077 #else
7078                                                                             0L  /* melt_callcount without debug */
7079 #endif /* MELT_HAVE_DEBUG melt_callcount */
7080                                                                             ;;
7081
7082                                                                         MELT_CHECK_SIGNAL();
7083                                                                         ;
7084                                                                         MELT_LOCATION("warmelt-normal.melt:1962:/ apply");
7085                                                                         /*apply*/
7086                                                                         {
7087                                                                             union meltparam_un argtab[9];
7088                                                                             memset(&argtab, 0, sizeof(argtab));
7089                                                                             /*^apply.arg*/
7090                                                                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L47*/ meltfnum[34];
7091                                                                             /*^apply.arg*/
7092                                                                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
7093                                                                             /*^apply.arg*/
7094                                                                             argtab[2].meltbp_long = 1962;
7095                                                                             /*^apply.arg*/
7096                                                                             argtab[3].meltbp_cstring =  "normexp_symbol const symbname=";
7097                                                                             /*^apply.arg*/
7098                                                                             argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[6]);
7099                                                                             /*^apply.arg*/
7100                                                                             argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.SYMBNAME__V27*/ meltfptr[26];
7101                                                                             /*^apply.arg*/
7102                                                                             argtab[6].meltbp_cstring =  " pr=";
7103                                                                             /*^apply.arg*/
7104                                                                             argtab[7].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[6]);
7105                                                                             /*^apply.arg*/
7106                                                                             argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.PR__V106*/ meltfptr[87];
7107                                                                             /*_.MELT_DEBUG_FUN__V108*/
7108                                                                             meltfptr[107] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
7109                                                                         }
7110                                                                         ;
7111                                                                         /*_._IF___V107*/
7112                                                                         meltfptr[106] = /*_.MELT_DEBUG_FUN__V108*/ meltfptr[107];;
7113                                                                         /*epilog*/
7114
7115                                                                         MELT_LOCATION("warmelt-normal.melt:1962:/ clear");
7116                                                                         /*clear*/ /*_#MELT_CALLCOUNT__L47*/
7117                                                                         meltfnum[34] = 0 ;
7118                                                                         /*^clear*/
7119                                                                         /*clear*/ /*_.MELT_DEBUG_FUN__V108*/
7120                                                                         meltfptr[107] = 0 ;
7121                                                                     }
7122                                                                     ;
7123                                                                 }
7124                                                             else    /*^cond.else*/
7125                                                                 {
7126
7127                                                                     /*_._IF___V107*/ meltfptr[106] =  /*reallynil*/ NULL ;;
7128                                                                 }
7129                                                             ;
7130
7131                                                             {
7132                                                                 MELT_LOCATION("warmelt-normal.melt:1962:/ locexp");
7133                                                                 /*void*/
7134                                                                 (void)0;
7135                                                             }
7136                                                             ;
7137                                                             /*^quasiblock*/
7138
7139
7140                                                             /*epilog*/
7141
7142                                                             /*^clear*/
7143                                                             /*clear*/ /*_#MELT_NEED_DBG__L46*/
7144                                                             meltfnum[44] = 0 ;
7145                                                             /*^clear*/
7146                                                             /*clear*/ /*_._IF___V107*/
7147                                                             meltfptr[106] = 0 ;
7148                                                         }
7149
7150 #else /*MELT_HAVE_DEBUG*/
7151                                                         /*^cppif.else*/
7152                                                         /*^block*/
7153                                                         /*anyblock*/
7154                                                         {
7155
7156
7157                                                             {
7158                                                                 /*^locexp*/
7159                                                                 /*void*/(void)0;
7160                                                             }
7161                                                             ;
7162                                                             /*epilog*/
7163                                                         }
7164
7165 #endif /*MELT_HAVE_DEBUG*/
7166                                                         ;
7167
7168 #if MELT_HAVE_DEBUG
7169                                                         MELT_LOCATION("warmelt-normal.melt:1963:/ cppif.then");
7170                                                         /*^block*/
7171                                                         /*anyblock*/
7172                                                         {
7173
7174
7175                                                             MELT_CHECK_SIGNAL();
7176                                                             ;
7177                                                             /*_#IS_A__L48*/
7178                                                             meltfnum[34] =
7179                                                                 melt_is_instance_of((melt_ptr_t)(/*_.PR__V106*/ meltfptr[87]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ meltfrout->tabval[20])));;
7180                                                             MELT_LOCATION("warmelt-normal.melt:1963:/ cond");
7181                                                             /*cond*/
7182                                                             if (/*_#IS_A__L48*/ meltfnum[34]) /*then*/
7183                                                                 {
7184                                                                     /*^cond.then*/
7185                                                                     /*_._IFELSE___V110*/ meltfptr[106] = (/*nil*/NULL);;
7186                                                                 }
7187                                                             else
7188                                                                 {
7189                                                                     MELT_LOCATION("warmelt-normal.melt:1963:/ cond.else");
7190
7191                                                                     /*^block*/
7192                                                                     /*anyblock*/
7193                                                                     {
7194
7195
7196                                                                         MELT_CHECK_SIGNAL();
7197                                                                         ;
7198                                                                         /*^apply*/
7199                                                                         /*apply*/
7200                                                                         {
7201                                                                             union meltparam_un argtab[4];
7202                                                                             memset(&argtab, 0, sizeof(argtab));
7203                                                                             /*^apply.arg*/
7204                                                                             argtab[0].meltbp_cstring =  "check pr";
7205                                                                             /*^apply.arg*/
7206                                                                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
7207                                                                             /*^apply.arg*/
7208                                                                             argtab[2].meltbp_long = 1963;
7209                                                                             /*^apply.arg*/
7210                                                                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PR__V106*/ meltfptr[87];
7211                                                                             /*_.MELT_ASSERT_FAILURE_FUN__V111*/
7212                                                                             meltfptr[110] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
7213                                                                         }
7214                                                                         ;
7215                                                                         /*_._IFELSE___V110*/
7216                                                                         meltfptr[106] = /*_.MELT_ASSERT_FAILURE_FUN__V111*/ meltfptr[110];;
7217                                                                         /*epilog*/
7218
7219                                                                         MELT_LOCATION("warmelt-normal.melt:1963:/ clear");
7220                                                                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V111*/
7221                                                                         meltfptr[110] = 0 ;
7222                                                                     }
7223                                                                     ;
7224                                                                 }
7225                                                             ;
7226                                                             /*_.IFCPP___V109*/
7227                                                             meltfptr[107] = /*_._IFELSE___V110*/ meltfptr[106];;
7228                                                             /*epilog*/
7229
7230                                                             MELT_LOCATION("warmelt-normal.melt:1963:/ clear");
7231                                                             /*clear*/ /*_#IS_A__L48*/
7232                                                             meltfnum[34] = 0 ;
7233                                                             /*^clear*/
7234                                                             /*clear*/ /*_._IFELSE___V110*/
7235                                                             meltfptr[106] = 0 ;
7236                                                         }
7237
7238 #else /*MELT_HAVE_DEBUG*/
7239                                                         /*^cppif.else*/
7240                                                         /*_.IFCPP___V109*/ meltfptr[107] = (/*nil*/NULL);
7241 #endif /*MELT_HAVE_DEBUG*/
7242                                                         ;
7243
7244                                                         MELT_CHECK_SIGNAL();
7245                                                         ;
7246                                                         /*^compute*/
7247                                                         /*_#IS_A__L49*/
7248                                                         meltfnum[44] =
7249                                                             melt_is_instance_of((melt_ptr_t)(/*_.PR__V106*/ meltfptr[87]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ meltfrout->tabval[21])));;
7250                                                         MELT_LOCATION("warmelt-normal.melt:1964:/ cond");
7251                                                         /*cond*/
7252                                                         if (/*_#IS_A__L49*/ meltfnum[44]) /*then*/
7253                                                             {
7254                                                                 /*^cond.then*/
7255                                                                 /*^block*/
7256                                                                 /*anyblock*/
7257                                                                 {
7258
7259                                                                     MELT_LOCATION("warmelt-normal.melt:1965:/ quasiblock");
7260
7261
7262
7263                                                                     MELT_CHECK_SIGNAL();
7264                                                                     ;
7265                                                                     MELT_LOCATION("warmelt-normal.melt:1966:/ quasiblock");
7266
7267
7268                                                                     /*^rawallocobj*/
7269                                                                     /*rawallocobj*/
7270                                                                     {
7271                                                                         melt_ptr_t newobj = 0;
7272                                                                         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[22])), (1), "CLASS_REFERENCE");
7273                                                                         /*_.INST__V114*/
7274                                                                         meltfptr[113] =
7275                                                                             newobj;
7276                                                                     };
7277                                                                     ;
7278                                                                     /*^putslot*/
7279                                                                     /*putslot*/
7280                                                                     melt_assertmsg("checkobj putslot  _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V114*/ meltfptr[113])) == MELTOBMAG_OBJECT);
7281                                                                     melt_putfield_object((/*_.INST__V114*/ meltfptr[113]), (0), (/*_.FXOCC__V101*/ meltfptr[86]), "REFERENCED_VALUE");
7282                                                                     ;
7283                                                                     /*^touchobj*/
7284
7285                                                                     melt_dbgtrace_written_object (/*_.INST__V114*/ meltfptr[113], "newly made instance");
7286                                                                     ;
7287                                                                     /*_.CLCONT__V113*/
7288                                                                     meltfptr[106] = /*_.INST__V114*/ meltfptr[113];;
7289                                                                     MELT_LOCATION("warmelt-normal.melt:1967:/ cond");
7290                                                                     /*cond*/
7291                                                                     if (
7292                                                                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PR__V106*/ meltfptr[87]),
7293                                                                                                       (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[23])))
7294                                                                     ) /*then*/
7295                                                                         {
7296                                                                             /*^cond.then*/
7297                                                                             /*^getslot*/
7298                                                                             {
7299                                                                                 melt_ptr_t slot=NULL, obj=NULL;
7300                                                                                 obj = (melt_ptr_t)(/*_.PR__V106*/ meltfptr[87]) /*=obj*/;
7301                                                                                 melt_object_get_field(slot,obj, 5, "NRCLOP_CONSTLIST");
7302                                                                                 /*_.CNSTLIST__V115*/
7303                                                                                 meltfptr[114] = slot;
7304                                                                             };
7305                                                                             ;
7306                                                                         }
7307                                                                     else    /*^cond.else*/
7308                                                                         {
7309
7310                                                                             /*_.CNSTLIST__V115*/ meltfptr[114] =  /*reallynil*/ NULL ;;
7311                                                                         }
7312                                                                     ;
7313
7314 #if MELT_HAVE_DEBUG
7315                                                                     MELT_LOCATION("warmelt-normal.melt:1968:/ cppif.then");
7316                                                                     /*^block*/
7317                                                                     /*anyblock*/
7318                                                                     {
7319
7320
7321                                                                         {
7322                                                                             /*^locexp*/
7323                                                                             /*melt_increment_dbgcounter*/
7324 #if MELT_HAVE_DEBUG
7325                                                                             melt_dbgcounter++;
7326 #endif
7327                                                                             ;
7328                                                                         }
7329                                                                         ;
7330
7331                                                                         MELT_CHECK_SIGNAL();
7332                                                                         ;
7333                                                                         /*_#MELT_NEED_DBG__L50*/
7334                                                                         meltfnum[34] =
7335                                                                             /*MELT_NEED_DBG*/
7336 #if MELT_HAVE_DEBUG
7337                                                                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
7338 #else
7339                                                                             0 /* no melt_need_dbg */
7340 #endif /*MELT_HAVE_DEBUG*/
7341                                                                             ;;
7342                                                                         MELT_LOCATION("warmelt-normal.melt:1968:/ cond");
7343                                                                         /*cond*/
7344                                                                         if (/*_#MELT_NEED_DBG__L50*/ meltfnum[34]) /*then*/
7345                                                                             {
7346                                                                                 /*^cond.then*/
7347                                                                                 /*^block*/
7348                                                                                 /*anyblock*/
7349                                                                                 {
7350
7351                                                                                     /*_#MELT_CALLCOUNT__L51*/ meltfnum[50] =
7352                                                                                         /* for melt_callcount */
7353 #if MELT_HAVE_DEBUG && defined (meltcallcount)
7354                                                                                         meltcallcount  /* melt_callcount debugging */
7355 #else
7356                                                                                         0L  /* melt_callcount without debug */
7357 #endif /* MELT_HAVE_DEBUG melt_callcount */
7358                                                                                         ;;
7359
7360                                                                                     MELT_CHECK_SIGNAL();
7361                                                                                     ;
7362                                                                                     MELT_LOCATION("warmelt-normal.melt:1968:/ apply");
7363                                                                                     /*apply*/
7364                                                                                     {
7365                                                                                         union meltparam_un argtab[9];
7366                                                                                         memset(&argtab, 0, sizeof(argtab));
7367                                                                                         /*^apply.arg*/
7368                                                                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L51*/ meltfnum[50];
7369                                                                                         /*^apply.arg*/
7370                                                                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
7371                                                                                         /*^apply.arg*/
7372                                                                                         argtab[2].meltbp_long = 1968;
7373                                                                                         /*^apply.arg*/
7374                                                                                         argtab[3].meltbp_cstring =  "normexp_symbol cnstlist=";
7375                                                                                         /*^apply.arg*/
7376                                                                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CNSTLIST__V115*/ meltfptr[114];
7377                                                                                         /*^apply.arg*/
7378                                                                                         argtab[5].meltbp_cstring =  "\n.. pr=";
7379                                                                                         /*^apply.arg*/
7380                                                                                         argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.PR__V106*/ meltfptr[87];
7381                                                                                         /*^apply.arg*/
7382                                                                                         argtab[7].meltbp_cstring =  "\n.. recv=";
7383                                                                                         /*^apply.arg*/
7384                                                                                         argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
7385                                                                                         /*_.MELT_DEBUG_FUN__V117*/
7386                                                                                         meltfptr[116] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
7387                                                                                     }
7388                                                                                     ;
7389                                                                                     /*_._IF___V116*/
7390                                                                                     meltfptr[115] = /*_.MELT_DEBUG_FUN__V117*/ meltfptr[116];;
7391                                                                                     /*epilog*/
7392
7393                                                                                     MELT_LOCATION("warmelt-normal.melt:1968:/ clear");
7394                                                                                     /*clear*/ /*_#MELT_CALLCOUNT__L51*/
7395                                                                                     meltfnum[50] = 0 ;
7396                                                                                     /*^clear*/
7397                                                                                     /*clear*/ /*_.MELT_DEBUG_FUN__V117*/
7398                                                                                     meltfptr[116] = 0 ;
7399                                                                                 }
7400                                                                                 ;
7401                                                                             }
7402                                                                         else    /*^cond.else*/
7403                                                                             {
7404
7405                                                                                 /*_._IF___V116*/ meltfptr[115] =  /*reallynil*/ NULL ;;
7406                                                                             }
7407                                                                         ;
7408
7409                                                                         {
7410                                                                             MELT_LOCATION("warmelt-normal.melt:1968:/ locexp");
7411                                                                             /*void*/
7412                                                                             (void)0;
7413                                                                         }
7414                                                                         ;
7415                                                                         /*^quasiblock*/
7416
7417
7418                                                                         /*epilog*/
7419
7420                                                                         /*^clear*/
7421                                                                         /*clear*/ /*_#MELT_NEED_DBG__L50*/
7422                                                                         meltfnum[34] = 0 ;
7423                                                                         /*^clear*/
7424                                                                         /*clear*/ /*_._IF___V116*/
7425                                                                         meltfptr[115] = 0 ;
7426                                                                     }
7427
7428 #else /*MELT_HAVE_DEBUG*/
7429                                                                     /*^cppif.else*/
7430                                                                     /*^block*/
7431                                                                     /*anyblock*/
7432                                                                     {
7433
7434
7435                                                                         {
7436                                                                             /*^locexp*/
7437                                                                             /*void*/(void)0;
7438                                                                         }
7439                                                                         ;
7440                                                                         /*epilog*/
7441                                                                     }
7442
7443 #endif /*MELT_HAVE_DEBUG*/
7444                                                                     ;
7445                                                                     /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
7446                                                                     {
7447                                                                         /* start foreach_pair_component_in_list meltcit2__EACHLIST */
7448                                                                         for (/*_.CURPAIRCX__V118*/ meltfptr[116] = melt_list_first( (melt_ptr_t)/*_.CNSTLIST__V115*/ meltfptr[114]);
7449                                                                                                    melt_magic_discr((melt_ptr_t) /*_.CURPAIRCX__V118*/ meltfptr[116]) == MELTOBMAG_PAIR;
7450                                                                                                    /*_.CURPAIRCX__V118*/ meltfptr[116] = melt_pair_tail((melt_ptr_t) /*_.CURPAIRCX__V118*/ meltfptr[116]))
7451                                                                             {
7452                                                                                 /*_.CX__V119*/ meltfptr[115] = melt_pair_head((melt_ptr_t) /*_.CURPAIRCX__V118*/ meltfptr[116]);
7453
7454
7455
7456                                                                                 MELT_CHECK_SIGNAL();
7457                                                                                 ;
7458                                                                                 /*_#eqeq__L52*/
7459                                                                                 meltfnum[50] =
7460                                                                                     ((/*_.CX__V119*/ meltfptr[115]) == (/*_.FXOCC__V101*/ meltfptr[86]));;
7461                                                                                 MELT_LOCATION("warmelt-normal.melt:1972:/ cond");
7462                                                                                 /*cond*/
7463                                                                                 if (/*_#eqeq__L52*/ meltfnum[50]) /*then*/
7464                                                                                     {
7465                                                                                         /*^cond.then*/
7466                                                                                         /*^block*/
7467                                                                                         /*anyblock*/
7468                                                                                         {
7469
7470
7471                                                                                             MELT_CHECK_SIGNAL();
7472                                                                                             ;
7473                                                                                             MELT_LOCATION("warmelt-normal.melt:1973:/ cond");
7474                                                                                             /*cond*/
7475                                                                                             if (
7476                                                                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLCONT__V113*/ meltfptr[106]),
7477                                                                                                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[22])))
7478                                                                                             ) /*then*/
7479                                                                                                 {
7480                                                                                                     /*^cond.then*/
7481                                                                                                     /*^block*/
7482                                                                                                     /*anyblock*/
7483                                                                                                     {
7484
7485                                                                                                         /*^putslot*/
7486                                                                                                         /*putslot*/
7487                                                                                                         melt_assertmsg("checkobj putslot  _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)(/*_.CLCONT__V113*/ meltfptr[106])) == MELTOBMAG_OBJECT);
7488                                                                                                         melt_putfield_object((/*_.CLCONT__V113*/ meltfptr[106]), (0), ((/*nil*/NULL)), "REFERENCED_VALUE");
7489                                                                                                         ;
7490                                                                                                         /*^touch*/
7491                                                                                                         meltgc_touch(/*_.CLCONT__V113*/ meltfptr[106]);
7492                                                                                                         ;
7493                                                                                                         /*^touchobj*/
7494
7495                                                                                                         melt_dbgtrace_written_object (/*_.CLCONT__V113*/ meltfptr[106], "put-fields");
7496                                                                                                         ;
7497                                                                                                         /*epilog*/
7498                                                                                                     }
7499                                                                                                     ;
7500                                                                                                 } /*noelse*/
7501                                                                                             ;
7502                                                                                             MELT_LOCATION("warmelt-normal.melt:1972:/ quasiblock");
7503
7504
7505                                                                                             /*epilog*/
7506                                                                                         }
7507                                                                                         ;
7508                                                                                     } /*noelse*/
7509                                                                                 ;
7510                                                                             } /* end foreach_pair_component_in_list meltcit2__EACHLIST */
7511                                                                         /*_.CURPAIRCX__V118*/ meltfptr[116] = NULL;
7512                                                                         /*_.CX__V119*/
7513                                                                         meltfptr[115] = NULL;
7514
7515
7516                                                                         /*citerepilog*/
7517
7518                                                                         MELT_LOCATION("warmelt-normal.melt:1969:/ clear");
7519                                                                         /*clear*/ /*_.CURPAIRCX__V118*/
7520                                                                         meltfptr[116] = 0 ;
7521                                                                         /*^clear*/
7522                                                                         /*clear*/ /*_.CX__V119*/
7523                                                                         meltfptr[115] = 0 ;
7524                                                                         /*^clear*/
7525                                                                         /*clear*/ /*_#eqeq__L52*/
7526                                                                         meltfnum[50] = 0 ;
7527                                                                     } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
7528                                                                     ;
7529                                                                     MELT_LOCATION("warmelt-normal.melt:1974:/ quasiblock");
7530
7531
7532                                                                     /*^cond*/
7533                                                                     /*cond*/
7534                                                                     if (
7535                                                                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLCONT__V113*/ meltfptr[106]),
7536                                                                                                       (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[22])))
7537                                                                     ) /*then*/
7538                                                                         {
7539                                                                             /*^cond.then*/
7540                                                                             /*^getslot*/
7541                                                                             {
7542                                                                                 melt_ptr_t slot=NULL, obj=NULL;
7543                                                                                 obj = (melt_ptr_t)(/*_.CLCONT__V113*/ meltfptr[106]) /*=obj*/;
7544                                                                                 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
7545                                                                                 /*_.NEWCL__V120*/
7546                                                                                 meltfptr[119] = slot;
7547                                                                             };
7548                                                                             ;
7549                                                                         }
7550                                                                     else    /*^cond.else*/
7551                                                                         {
7552
7553                                                                             /*_.NEWCL__V120*/ meltfptr[119] =  /*reallynil*/ NULL ;;
7554                                                                         }
7555                                                                     ;
7556
7557                                                                     MELT_CHECK_SIGNAL();
7558                                                                     ;
7559                                                                     MELT_LOCATION("warmelt-normal.melt:1975:/ cond");
7560                                                                     /*cond*/
7561                                                                     if (/*_.NEWCL__V120*/ meltfptr[119]) /*then*/
7562                                                                         {
7563                                                                             /*^cond.then*/
7564                                                                             /*^block*/
7565                                                                             /*anyblock*/
7566                                                                             {
7567
7568
7569 #if MELT_HAVE_DEBUG
7570                                                                                 MELT_LOCATION("warmelt-normal.melt:1976:/ cppif.then");
7571                                                                                 /*^block*/
7572                                                                                 /*anyblock*/
7573                                                                                 {
7574
7575
7576                                                                                     {
7577                                                                                         /*^locexp*/
7578                                                                                         /*melt_increment_dbgcounter*/
7579 #if MELT_HAVE_DEBUG
7580                                                                                         melt_dbgcounter++;
7581 #endif
7582                                                                                         ;
7583                                                                                     }
7584                                                                                     ;
7585
7586                                                                                     MELT_CHECK_SIGNAL();
7587                                                                                     ;
7588                                                                                     /*_#MELT_NEED_DBG__L53*/
7589                                                                                     meltfnum[34] =
7590                                                                                         /*MELT_NEED_DBG*/
7591 #if MELT_HAVE_DEBUG
7592                                                                                         (/*melt_need_dbg*/ melt_need_debug ((int) 0))
7593 #else
7594                                                                                         0 /* no melt_need_dbg */
7595 #endif /*MELT_HAVE_DEBUG*/
7596                                                                                         ;;
7597                                                                                     MELT_LOCATION("warmelt-normal.melt:1976:/ cond");
7598                                                                                     /*cond*/
7599                                                                                     if (/*_#MELT_NEED_DBG__L53*/ meltfnum[34]) /*then*/
7600                                                                                         {
7601                                                                                             /*^cond.then*/
7602                                                                                             /*^block*/
7603                                                                                             /*anyblock*/
7604                                                                                             {
7605
7606                                                                                                 /*_#MELT_CALLCOUNT__L54*/ meltfnum[53] =
7607                                                                                                     /* for melt_callcount */
7608 #if MELT_HAVE_DEBUG && defined (meltcallcount)
7609                                                                                                     meltcallcount  /* melt_callcount debugging */
7610 #else
7611                                                                                                     0L  /* melt_callcount without debug */
7612 #endif /* MELT_HAVE_DEBUG melt_callcount */
7613                                                                                                     ;;
7614
7615                                                                                                 MELT_CHECK_SIGNAL();
7616                                                                                                 ;
7617                                                                                                 MELT_LOCATION("warmelt-normal.melt:1976:/ apply");
7618                                                                                                 /*apply*/
7619                                                                                                 {
7620                                                                                                     union meltparam_un argtab[5];
7621                                                                                                     memset(&argtab, 0, sizeof(argtab));
7622                                                                                                     /*^apply.arg*/
7623                                                                                                     argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L54*/ meltfnum[53];
7624                                                                                                     /*^apply.arg*/
7625                                                                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
7626                                                                                                     /*^apply.arg*/
7627                                                                                                     argtab[2].meltbp_long = 1976;
7628                                                                                                     /*^apply.arg*/
7629                                                                                                     argtab[3].meltbp_cstring =  "normexp_symbol newcl=";
7630                                                                                                     /*^apply.arg*/
7631                                                                                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWCL__V120*/ meltfptr[119];
7632                                                                                                     /*_.MELT_DEBUG_FUN__V122*/
7633                                                                                                     meltfptr[121] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
7634                                                                                                 }
7635                                                                                                 ;
7636                                                                                                 /*_._IF___V121*/
7637                                                                                                 meltfptr[120] = /*_.MELT_DEBUG_FUN__V122*/ meltfptr[121];;
7638                                                                                                 /*epilog*/
7639
7640                                                                                                 MELT_LOCATION("warmelt-normal.melt:1976:/ clear");
7641                                                                                                 /*clear*/ /*_#MELT_CALLCOUNT__L54*/
7642                                                                                                 meltfnum[53] = 0 ;
7643                                                                                                 /*^clear*/
7644                                                                                                 /*clear*/ /*_.MELT_DEBUG_FUN__V122*/
7645                                                                                                 meltfptr[121] = 0 ;
7646                                                                                             }
7647                                                                                             ;
7648                                                                                         }
7649                                                                                     else    /*^cond.else*/
7650                                                                                         {
7651
7652                                                                                             /*_._IF___V121*/ meltfptr[120] =  /*reallynil*/ NULL ;;
7653                                                                                         }
7654                                                                                     ;
7655
7656                                                                                     {
7657                                                                                         MELT_LOCATION("warmelt-normal.melt:1976:/ locexp");
7658                                                                                         /*void*/
7659                                                                                         (void)0;
7660                                                                                     }
7661                                                                                     ;
7662                                                                                     /*^quasiblock*/
7663
7664
7665                                                                                     /*epilog*/
7666
7667                                                                                     /*^clear*/
7668                                                                                     /*clear*/ /*_#MELT_NEED_DBG__L53*/
7669                                                                                     meltfnum[34] = 0 ;
7670                                                                                     /*^clear*/
7671                                                                                     /*clear*/ /*_._IF___V121*/
7672                                                                                     meltfptr[120] = 0 ;
7673                                                                                 }
7674
7675 #else /*MELT_HAVE_DEBUG*/
7676                                                                                 /*^cppif.else*/
7677                                                                                 /*^block*/
7678                                                                                 /*anyblock*/
7679                                                                                 {
7680
7681
7682                                                                                     {
7683                                                                                         /*^locexp*/
7684                                                                                         /*void*/(void)0;
7685                                                                                     }
7686                                                                                     ;
7687                                                                                     /*epilog*/
7688                                                                                 }
7689
7690 #endif /*MELT_HAVE_DEBUG*/
7691                                                                                 ;
7692
7693                                                                                 {
7694                                                                                     MELT_LOCATION("warmelt-normal.melt:1977:/ locexp");
7695                                                                                     meltgc_append_list((melt_ptr_t)(/*_.CNSTLIST__V115*/ meltfptr[114]), (melt_ptr_t)(/*_.NEWCL__V120*/ meltfptr[119]));
7696                                                                                 }
7697                                                                                 ;
7698                                                                                 MELT_LOCATION("warmelt-normal.melt:1975:/ quasiblock");
7699
7700
7701                                                                                 /*epilog*/
7702                                                                             }
7703                                                                             ;
7704                                                                         }
7705                                                                     else    /*^cond.else*/
7706                                                                         {
7707
7708                                                                             /*_._IFELSE___V112*/ meltfptr[110] =  /*reallynil*/ NULL ;;
7709                                                                         }
7710                                                                     ;
7711
7712                                                                     MELT_LOCATION("warmelt-normal.melt:1974:/ clear");
7713                                                                     /*clear*/ /*_.NEWCL__V120*/
7714                                                                     meltfptr[119] = 0 ;
7715
7716                                                                     MELT_LOCATION("warmelt-normal.melt:1965:/ clear");
7717                                                                     /*clear*/ /*_.CLCONT__V113*/
7718                                                                     meltfptr[106] = 0 ;
7719                                                                     /*^clear*/
7720                                                                     /*clear*/ /*_.CNSTLIST__V115*/
7721                                                                     meltfptr[114] = 0 ;
7722                                                                     /*epilog*/
7723                                                                 }
7724                                                                 ;
7725                                                             }
7726                                                         else
7727                                                             {
7728                                                                 MELT_LOCATION("warmelt-normal.melt:1964:/ cond.else");
7729
7730                                                                 /*^block*/
7731                                                                 /*anyblock*/
7732                                                                 {
7733
7734
7735                                                                     MELT_CHECK_SIGNAL();
7736                                                                     ;
7737                                                                     /*_#IS_A__L55*/
7738                                                                     meltfnum[53] =
7739                                                                         melt_is_instance_of((melt_ptr_t)(/*_.PR__V106*/ meltfptr[87]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[24])));;
7740                                                                     MELT_LOCATION("warmelt-normal.melt:1979:/ cond");
7741                                                                     /*cond*/
7742                                                                     if (/*_#IS_A__L55*/ meltfnum[53]) /*then*/
7743                                                                         {
7744                                                                             /*^cond.then*/
7745                                                                             /*^block*/
7746                                                                             /*anyblock*/
7747                                                                             {
7748
7749                                                                                 MELT_LOCATION("warmelt-normal.melt:1980:/ quasiblock");
7750
7751
7752                                                                                 /*^cond*/
7753                                                                                 /*cond*/
7754                                                                                 if (
7755                                                                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PR__V106*/ meltfptr[87]),
7756                                                                                                                   (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[23])))
7757                                                                                 ) /*then*/
7758                                                                                     {
7759                                                                                         /*^cond.then*/
7760                                                                                         /*^getslot*/
7761                                                                                         {
7762                                                                                             melt_ptr_t slot=NULL, obj=NULL;
7763                                                                                             obj = (melt_ptr_t)(/*_.PR__V106*/ meltfptr[87]) /*=obj*/;
7764                                                                                             melt_object_get_field(slot,obj, 4, "NRCLOP_CLOBINDLIST");
7765                                                                                             /*_.HKCLOBINDLIST__V124*/
7766                                                                                             meltfptr[120] = slot;
7767                                                                                         };
7768                                                                                         ;
7769                                                                                     }
7770                                                                                 else    /*^cond.else*/
7771                                                                                     {
7772
7773                                                                                         /*_.HKCLOBINDLIST__V124*/ meltfptr[120] =  /*reallynil*/ NULL ;;
7774                                                                                     }
7775                                                                                 ;
7776                                                                                 /*^compute*/
7777                                                                                 /*_.FOUNDBIND__V125*/
7778                                                                                 meltfptr[119] = (/*nil*/NULL);;
7779
7780 #if MELT_HAVE_DEBUG
7781                                                                                 MELT_LOCATION("warmelt-normal.melt:1983:/ cppif.then");
7782                                                                                 /*^block*/
7783                                                                                 /*anyblock*/
7784                                                                                 {
7785
7786
7787                                                                                     {
7788                                                                                         /*^locexp*/
7789                                                                                         /*melt_increment_dbgcounter*/
7790 #if MELT_HAVE_DEBUG
7791                                                                                         melt_dbgcounter++;
7792 #endif
7793                                                                                         ;
7794                                                                                     }
7795                                                                                     ;
7796
7797                                                                                     MELT_CHECK_SIGNAL();
7798                                                                                     ;
7799                                                                                     /*_#MELT_NEED_DBG__L56*/
7800                                                                                     meltfnum[34] =
7801                                                                                         /*MELT_NEED_DBG*/
7802 #if MELT_HAVE_DEBUG
7803                                                                                         (/*melt_need_dbg*/ melt_need_debug ((int) 0))
7804 #else
7805                                                                                         0 /* no melt_need_dbg */
7806 #endif /*MELT_HAVE_DEBUG*/
7807                                                                                         ;;
7808                                                                                     MELT_LOCATION("warmelt-normal.melt:1983:/ cond");
7809                                                                                     /*cond*/
7810                                                                                     if (/*_#MELT_NEED_DBG__L56*/ meltfnum[34]) /*then*/
7811                                                                                         {
7812                                                                                             /*^cond.then*/
7813                                                                                             /*^block*/
7814                                                                                             /*anyblock*/
7815                                                                                             {
7816
7817                                                                                                 /*_#MELT_CALLCOUNT__L57*/ meltfnum[56] =
7818                                                                                                     /* for melt_callcount */
7819 #if MELT_HAVE_DEBUG && defined (meltcallcount)
7820                                                                                                     meltcallcount  /* melt_callcount debugging */
7821 #else
7822                                                                                                     0L  /* melt_callcount without debug */
7823 #endif /* MELT_HAVE_DEBUG melt_callcount */
7824                                                                                                     ;;
7825
7826                                                                                                 MELT_CHECK_SIGNAL();
7827                                                                                                 ;
7828                                                                                                 MELT_LOCATION("warmelt-normal.melt:1983:/ apply");
7829                                                                                                 /*apply*/
7830                                                                                                 {
7831                                                                                                     union meltparam_un argtab[5];
7832                                                                                                     memset(&argtab, 0, sizeof(argtab));
7833                                                                                                     /*^apply.arg*/
7834                                                                                                     argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L57*/ meltfnum[56];
7835                                                                                                     /*^apply.arg*/
7836                                                                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
7837                                                                                                     /*^apply.arg*/
7838                                                                                                     argtab[2].meltbp_long = 1983;
7839                                                                                                     /*^apply.arg*/
7840                                                                                                     argtab[3].meltbp_cstring =  "normexp_symbol hkclobindlist=";
7841                                                                                                     /*^apply.arg*/
7842                                                                                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.HKCLOBINDLIST__V124*/ meltfptr[120];
7843                                                                                                     /*_.MELT_DEBUG_FUN__V127*/
7844                                                                                                     meltfptr[114] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
7845                                                                                                 }
7846                                                                                                 ;
7847                                                                                                 /*_._IF___V126*/
7848                                                                                                 meltfptr[106] = /*_.MELT_DEBUG_FUN__V127*/ meltfptr[114];;
7849                                                                                                 /*epilog*/
7850
7851                                                                                                 MELT_LOCATION("warmelt-normal.melt:1983:/ clear");
7852                                                                                                 /*clear*/ /*_#MELT_CALLCOUNT__L57*/
7853                                                                                                 meltfnum[56] = 0 ;
7854                                                                                                 /*^clear*/
7855                                                                                                 /*clear*/ /*_.MELT_DEBUG_FUN__V127*/
7856                                                                                                 meltfptr[114] = 0 ;
7857                                                                                             }
7858                                                                                             ;
7859                                                                                         }
7860                                                                                     else    /*^cond.else*/
7861                                                                                         {
7862
7863                                                                                             /*_._IF___V126*/ meltfptr[106] =  /*reallynil*/ NULL ;;
7864                                                                                         }
7865                                                                                     ;
7866
7867                                                                                     {
7868                                                                                         MELT_LOCATION("warmelt-normal.melt:1983:/ locexp");
7869                                                                                         /*void*/
7870                                                                                         (void)0;
7871                                                                                     }
7872                                                                                     ;
7873                                                                                     /*^quasiblock*/
7874
7875
7876                                                                                     /*epilog*/
7877
7878                                                                                     /*^clear*/
7879                                                                                     /*clear*/ /*_#MELT_NEED_DBG__L56*/
7880                                                                                     meltfnum[34] = 0 ;
7881                                                                                     /*^clear*/
7882                                                                                     /*clear*/ /*_._IF___V126*/
7883                                                                                     meltfptr[106] = 0 ;
7884                                                                                 }
7885
7886 #else /*MELT_HAVE_DEBUG*/
7887                                                                                 /*^cppif.else*/
7888                                                                                 /*^block*/
7889                                                                                 /*anyblock*/
7890                                                                                 {
7891
7892
7893                                                                                     {
7894                                                                                         /*^locexp*/
7895                                                                                         /*void*/(void)0;
7896                                                                                     }
7897                                                                                     ;
7898                                                                                     /*epilog*/
7899                                                                                 }
7900
7901 #endif /*MELT_HAVE_DEBUG*/
7902                                                                                 ;
7903
7904 #if MELT_HAVE_DEBUG
7905                                                                                 MELT_LOCATION("warmelt-normal.melt:1984:/ cppif.then");
7906                                                                                 /*^block*/
7907                                                                                 /*anyblock*/
7908                                                                                 {
7909
7910
7911                                                                                     MELT_CHECK_SIGNAL();
7912                                                                                     ;
7913                                                                                     /*_#IS_LIST__L58*/
7914                                                                                     meltfnum[56] =
7915                                                                                         (melt_magic_discr((melt_ptr_t)(/*_.HKCLOBINDLIST__V124*/ meltfptr[120])) == MELTOBMAG_LIST);;
7916                                                                                     MELT_LOCATION("warmelt-normal.melt:1984:/ cond");
7917                                                                                     /*cond*/
7918                                                                                     if (/*_#IS_LIST__L58*/ meltfnum[56]) /*then*/
7919                                                                                         {
7920                                                                                             /*^cond.then*/
7921                                                                                             /*_._IFELSE___V129*/ meltfptr[106] = (/*nil*/NULL);;
7922                                                                                         }
7923                                                                                     else
7924                                                                                         {
7925                                                                                             MELT_LOCATION("warmelt-normal.melt:1984:/ cond.else");
7926
7927                                                                                             /*^block*/
7928                                                                                             /*anyblock*/
7929                                                                                             {
7930
7931
7932                                                                                                 MELT_CHECK_SIGNAL();
7933                                                                                                 ;
7934                                                                                                 /*^apply*/
7935                                                                                                 /*apply*/
7936                                                                                                 {
7937                                                                                                     union meltparam_un argtab[4];
7938                                                                                                     memset(&argtab, 0, sizeof(argtab));
7939                                                                                                     /*^apply.arg*/
7940                                                                                                     argtab[0].meltbp_cstring =  "check hkclobindlist";
7941                                                                                                     /*^apply.arg*/
7942                                                                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
7943                                                                                                     /*^apply.arg*/
7944                                                                                                     argtab[2].meltbp_long = 1984;
7945                                                                                                     /*^apply.arg*/
7946                                                                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKCLOBINDLIST__V124*/ meltfptr[120];
7947                                                                                                     /*_.MELT_ASSERT_FAILURE_FUN__V130*/
7948                                                                                                     meltfptr[129] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
7949                                                                                                 }
7950                                                                                                 ;
7951                                                                                                 /*_._IFELSE___V129*/
7952                                                                                                 meltfptr[106] = /*_.MELT_ASSERT_FAILURE_FUN__V130*/ meltfptr[129];;
7953                                                                                                 /*epilog*/
7954
7955                                                                                                 MELT_LOCATION("warmelt-normal.melt:1984:/ clear");
7956                                                                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V130*/
7957                                                                                                 meltfptr[129] = 0 ;
7958                                                                                             }
7959                                                                                             ;
7960                                                                                         }
7961                                                                                     ;
7962                                                                                     /*_.IFCPP___V128*/
7963                                                                                     meltfptr[114] = /*_._IFELSE___V129*/ meltfptr[106];;
7964                                                                                     /*epilog*/
7965
7966                                                                                     MELT_LOCATION("warmelt-normal.melt:1984:/ clear");
7967                                                                                     /*clear*/ /*_#IS_LIST__L58*/
7968                                                                                     meltfnum[56] = 0 ;
7969                                                                                     /*^clear*/
7970                                                                                     /*clear*/ /*_._IFELSE___V129*/
7971                                                                                     meltfptr[106] = 0 ;
7972                                                                                 }
7973
7974 #else /*MELT_HAVE_DEBUG*/
7975                                                                                 /*^cppif.else*/
7976                                                                                 /*_.IFCPP___V128*/ meltfptr[114] = (/*nil*/NULL);
7977 #endif /*MELT_HAVE_DEBUG*/
7978                                                                                 ;
7979                                                                                 /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
7980                                                                                 {
7981                                                                                     /* start foreach_pair_component_in_list meltcit3__EACHLIST */
7982                                                                                     for (/*_.CURPAIRBNDHC__V131*/ meltfptr[129] = melt_list_first( (melt_ptr_t)/*_.HKCLOBINDLIST__V124*/ meltfptr[120]);
7983                                                                                                                   melt_magic_discr((melt_ptr_t) /*_.CURPAIRBNDHC__V131*/ meltfptr[129]) == MELTOBMAG_PAIR;
7984                                                                                                                   /*_.CURPAIRBNDHC__V131*/ meltfptr[129] = melt_pair_tail((melt_ptr_t) /*_.CURPAIRBNDHC__V131*/ meltfptr[129]))
7985                                                                                         {
7986                                                                                             /*_.CURBND__V132*/ meltfptr[106] = melt_pair_head((melt_ptr_t) /*_.CURPAIRBNDHC__V131*/ meltfptr[129]);
7987
7988
7989
7990 #if MELT_HAVE_DEBUG
7991                                                                                             MELT_LOCATION("warmelt-normal.melt:1988:/ cppif.then");
7992                                                                                             /*^block*/
7993                                                                                             /*anyblock*/
7994                                                                                             {
7995
7996
7997                                                                                                 MELT_CHECK_SIGNAL();
7998                                                                                                 ;
7999                                                                                                 /*_#IS_A__L59*/
8000                                                                                                 meltfnum[34] =
8001                                                                                                     melt_is_instance_of((melt_ptr_t)(/*_.CURBND__V132*/ meltfptr[106]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[25])));;
8002                                                                                                 MELT_LOCATION("warmelt-normal.melt:1988:/ cond");
8003                                                                                                 /*cond*/
8004                                                                                                 if (/*_#IS_A__L59*/ meltfnum[34]) /*then*/
8005                                                                                                     {
8006                                                                                                         /*^cond.then*/
8007                                                                                                         /*_._IFELSE___V134*/ meltfptr[133] = (/*nil*/NULL);;
8008                                                                                                     }
8009                                                                                                 else
8010                                                                                                     {
8011                                                                                                         MELT_LOCATION("warmelt-normal.melt:1988:/ cond.else");
8012
8013                                                                                                         /*^block*/
8014                                                                                                         /*anyblock*/
8015                                                                                                         {
8016
8017
8018                                                                                                             MELT_CHECK_SIGNAL();
8019                                                                                                             ;
8020                                                                                                             /*^apply*/
8021                                                                                                             /*apply*/
8022                                                                                                             {
8023                                                                                                                 union meltparam_un argtab[4];
8024                                                                                                                 memset(&argtab, 0, sizeof(argtab));
8025                                                                                                                 /*^apply.arg*/
8026                                                                                                                 argtab[0].meltbp_cstring =  "check curbnd";
8027                                                                                                                 /*^apply.arg*/
8028                                                                                                                 argtab[1].meltbp_cstring =  "warmelt-normal.melt";
8029                                                                                                                 /*^apply.arg*/
8030                                                                                                                 argtab[2].meltbp_long = 1988;
8031                                                                                                                 /*^apply.arg*/
8032                                                                                                                 argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURBND__V132*/ meltfptr[106];
8033                                                                                                                 /*_.MELT_ASSERT_FAILURE_FUN__V135*/
8034                                                                                                                 meltfptr[134] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
8035                                                                                                             }
8036                                                                                                             ;
8037                                                                                                             /*_._IFELSE___V134*/
8038                                                                                                             meltfptr[133] = /*_.MELT_ASSERT_FAILURE_FUN__V135*/ meltfptr[134];;
8039                                                                                                             /*epilog*/
8040
8041                                                                                                             MELT_LOCATION("warmelt-normal.melt:1988:/ clear");
8042                                                                                                             /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V135*/
8043                                                                                                             meltfptr[134] = 0 ;
8044                                                                                                         }
8045                                                                                                         ;
8046                                                                                                     }
8047                                                                                                 ;
8048                                                                                                 /*_.IFCPP___V133*/
8049                                                                                                 meltfptr[132] = /*_._IFELSE___V134*/ meltfptr[133];;
8050                                                                                                 /*epilog*/
8051
8052                                                                                                 MELT_LOCATION("warmelt-normal.melt:1988:/ clear");
8053                                                                                                 /*clear*/ /*_#IS_A__L59*/
8054                                                                                                 meltfnum[34] = 0 ;
8055                                                                                                 /*^clear*/
8056                                                                                                 /*clear*/ /*_._IFELSE___V134*/
8057                                                                                                 meltfptr[133] = 0 ;
8058                                                                                             }
8059
8060 #else /*MELT_HAVE_DEBUG*/
8061                                                                                             /*^cppif.else*/
8062                                                                                             /*_.IFCPP___V133*/ meltfptr[132] = (/*nil*/NULL);
8063 #endif /*MELT_HAVE_DEBUG*/
8064                                                                                             ;
8065
8066                                                                                             MELT_CHECK_SIGNAL();
8067                                                                                             ;
8068                                                                                             /*^compute*/
8069                                                                                             /*_#eqeq__L60*/
8070                                                                                             meltfnum[56] =
8071                                                                                                 ((/*_.CURBND__V132*/ meltfptr[106]) == (/*_.BIND__V15*/ meltfptr[5]));;
8072                                                                                             MELT_LOCATION("warmelt-normal.melt:1989:/ cond");
8073                                                                                             /*cond*/
8074                                                                                             if (/*_#eqeq__L60*/ meltfnum[56]) /*then*/
8075                                                                                                 {
8076                                                                                                     /*^cond.then*/
8077                                                                                                     /*^block*/
8078                                                                                                     /*anyblock*/
8079                                                                                                     {
8080
8081                                                                                                         /*^compute*/
8082                                                                                                         /*_.FOUNDBIND__V125*/ meltfptr[119] = /*_.SETQ___V137*/ meltfptr[133] = /*_.CURBND__V132*/ meltfptr[106];;
8083                                                                                                         /*_._IF___V136*/
8084                                                                                                         meltfptr[134] = /*_.SETQ___V137*/ meltfptr[133];;
8085                                                                                                         /*epilog*/
8086
8087                                                                                                         MELT_LOCATION("warmelt-normal.melt:1989:/ clear");
8088                                                                                                         /*clear*/ /*_.SETQ___V137*/
8089                                                                                                         meltfptr[133] = 0 ;
8090                                                                                                     }
8091                                                                                                     ;
8092                                                                                                 }
8093                                                                                             else    /*^cond.else*/
8094                                                                                                 {
8095
8096                                                                                                     /*_._IF___V136*/ meltfptr[134] =  /*reallynil*/ NULL ;;
8097                                                                                                 }
8098                                                                                             ;
8099                                                                                         } /* end foreach_pair_component_in_list meltcit3__EACHLIST */
8100                                                                                     /*_.CURPAIRBNDHC__V131*/ meltfptr[129] = NULL;
8101                                                                                     /*_.CURBND__V132*/
8102                                                                                     meltfptr[106] = NULL;
8103
8104
8105                                                                                     /*citerepilog*/
8106
8107                                                                                     MELT_LOCATION("warmelt-normal.melt:1985:/ clear");
8108                                                                                     /*clear*/ /*_.CURPAIRBNDHC__V131*/
8109                                                                                     meltfptr[129] = 0 ;
8110                                                                                     /*^clear*/
8111                                                                                     /*clear*/ /*_.CURBND__V132*/
8112                                                                                     meltfptr[106] = 0 ;
8113                                                                                     /*^clear*/
8114                                                                                     /*clear*/ /*_.IFCPP___V133*/
8115                                                                                     meltfptr[132] = 0 ;
8116                                                                                     /*^clear*/
8117                                                                                     /*clear*/ /*_#eqeq__L60*/
8118                                                                                     meltfnum[56] = 0 ;
8119                                                                                     /*^clear*/
8120                                                                                     /*clear*/ /*_._IF___V136*/
8121                                                                                     meltfptr[134] = 0 ;
8122                                                                                 } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
8123                                                                                 ;
8124
8125                                                                                 MELT_CHECK_SIGNAL();
8126                                                                                 ;
8127                                                                                 /*_#NULL__L61*/
8128                                                                                 meltfnum[34] =
8129                                                                                     (/*null*/(/*_.FOUNDBIND__V125*/ meltfptr[119]) == NULL);;
8130                                                                                 MELT_LOCATION("warmelt-normal.melt:1991:/ cond");
8131                                                                                 /*cond*/
8132                                                                                 if (/*_#NULL__L61*/ meltfnum[34]) /*then*/
8133                                                                                     {
8134                                                                                         /*^cond.then*/
8135                                                                                         /*^block*/
8136                                                                                         /*anyblock*/
8137                                                                                         {
8138
8139
8140                                                                                             {
8141                                                                                                 MELT_LOCATION("warmelt-normal.melt:1992:/ locexp");
8142                                                                                                 meltgc_append_list((melt_ptr_t)(/*_.HKCLOBINDLIST__V124*/ meltfptr[120]), (melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]));
8143                                                                                             }
8144                                                                                             ;
8145
8146 #if MELT_HAVE_DEBUG
8147                                                                                             MELT_LOCATION("warmelt-normal.melt:1993:/ cppif.then");
8148                                                                                             /*^block*/
8149                                                                                             /*anyblock*/
8150                                                                                             {
8151
8152
8153                                                                                                 {
8154                                                                                                     /*^locexp*/
8155                                                                                                     /*melt_increment_dbgcounter*/
8156 #if MELT_HAVE_DEBUG
8157                                                                                                     melt_dbgcounter++;
8158 #endif
8159                                                                                                     ;
8160                                                                                                 }
8161                                                                                                 ;
8162
8163                                                                                                 MELT_CHECK_SIGNAL();
8164                                                                                                 ;
8165                                                                                                 /*_#MELT_NEED_DBG__L62*/
8166                                                                                                 meltfnum[61] =
8167                                                                                                     /*MELT_NEED_DBG*/
8168 #if MELT_HAVE_DEBUG
8169                                                                                                     (/*melt_need_dbg*/ melt_need_debug ((int) 0))
8170 #else
8171                                                                                                     0 /* no melt_need_dbg */
8172 #endif /*MELT_HAVE_DEBUG*/
8173                                                                                                     ;;
8174                                                                                                 MELT_LOCATION("warmelt-normal.melt:1993:/ cond");
8175                                                                                                 /*cond*/
8176                                                                                                 if (/*_#MELT_NEED_DBG__L62*/ meltfnum[61]) /*then*/
8177                                                                                                     {
8178                                                                                                         /*^cond.then*/
8179                                                                                                         /*^block*/
8180                                                                                                         /*anyblock*/
8181                                                                                                         {
8182
8183                                                                                                             /*_#MELT_CALLCOUNT__L63*/ meltfnum[62] =
8184                                                                                                                 /* for melt_callcount */
8185 #if MELT_HAVE_DEBUG && defined (meltcallcount)
8186                                                                                                                 meltcallcount  /* melt_callcount debugging */
8187 #else
8188                                                                                                                 0L  /* melt_callcount without debug */
8189 #endif /* MELT_HAVE_DEBUG melt_callcount */
8190                                                                                                                 ;;
8191
8192                                                                                                             MELT_CHECK_SIGNAL();
8193                                                                                                             ;
8194                                                                                                             MELT_LOCATION("warmelt-normal.melt:1993:/ apply");
8195                                                                                                             /*apply*/
8196                                                                                                             {
8197                                                                                                                 union meltparam_un argtab[7];
8198                                                                                                                 memset(&argtab, 0, sizeof(argtab));
8199                                                                                                                 /*^apply.arg*/
8200                                                                                                                 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L63*/ meltfnum[62];
8201                                                                                                                 /*^apply.arg*/
8202                                                                                                                 argtab[1].meltbp_cstring =  "warmelt-normal.melt";
8203                                                                                                                 /*^apply.arg*/
8204                                                                                                                 argtab[2].meltbp_long = 1993;
8205                                                                                                                 /*^apply.arg*/
8206                                                                                                                 argtab[3].meltbp_cstring =  "normexp_symbol recv=";
8207                                                                                                                 /*^apply.arg*/
8208                                                                                                                 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
8209                                                                                                                 /*^apply.arg*/
8210                                                                                                                 argtab[5].meltbp_cstring =  "\n.. updated hkclobindlist=";
8211                                                                                                                 /*^apply.arg*/
8212                                                                                                                 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.HKCLOBINDLIST__V124*/ meltfptr[120];
8213                                                                                                                 /*_.MELT_DEBUG_FUN__V139*/
8214                                                                                                                 meltfptr[138] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
8215                                                                                                             }
8216                                                                                                             ;
8217                                                                                                             /*_._IF___V138*/
8218                                                                                                             meltfptr[133] = /*_.MELT_DEBUG_FUN__V139*/ meltfptr[138];;
8219                                                                                                             /*epilog*/
8220
8221                                                                                                             MELT_LOCATION("warmelt-normal.melt:1993:/ clear");
8222                                                                                                             /*clear*/ /*_#MELT_CALLCOUNT__L63*/
8223                                                                                                             meltfnum[62] = 0 ;
8224                                                                                                             /*^clear*/
8225                                                                                                             /*clear*/ /*_.MELT_DEBUG_FUN__V139*/
8226                                                                                                             meltfptr[138] = 0 ;
8227                                                                                                         }
8228                                                                                                         ;
8229                                                                                                     }
8230                                                                                                 else    /*^cond.else*/
8231                                                                                                     {
8232
8233                                                                                                         /*_._IF___V138*/ meltfptr[133] =  /*reallynil*/ NULL ;;
8234                                                                                                     }
8235                                                                                                 ;
8236
8237                                                                                                 {
8238                                                                                                     MELT_LOCATION("warmelt-normal.melt:1993:/ locexp");
8239                                                                                                     /*void*/
8240                                                                                                     (void)0;
8241                                                                                                 }
8242                                                                                                 ;
8243                                                                                                 /*^quasiblock*/
8244
8245
8246                                                                                                 /*epilog*/
8247
8248                                                                                                 /*^clear*/
8249                                                                                                 /*clear*/ /*_#MELT_NEED_DBG__L62*/
8250                                                                                                 meltfnum[61] = 0 ;
8251                                                                                                 /*^clear*/
8252                                                                                                 /*clear*/ /*_._IF___V138*/
8253                                                                                                 meltfptr[133] = 0 ;
8254                                                                                             }
8255
8256 #else /*MELT_HAVE_DEBUG*/
8257                                                                                             /*^cppif.else*/
8258                                                                                             /*^block*/
8259                                                                                             /*anyblock*/
8260                                                                                             {
8261
8262
8263                                                                                                 {
8264                                                                                                     /*^locexp*/
8265                                                                                                     /*void*/(void)0;
8266                                                                                                 }
8267                                                                                                 ;
8268                                                                                                 /*epilog*/
8269                                                                                             }
8270
8271 #endif /*MELT_HAVE_DEBUG*/
8272                                                                                             ;
8273                                                                                             MELT_LOCATION("warmelt-normal.melt:1991:/ quasiblock");
8274
8275
8276                                                                                             /*epilog*/
8277                                                                                         }
8278                                                                                         ;
8279                                                                                     } /*noelse*/
8280                                                                                 ;
8281                                                                                 /*_._IFELSE___V123*/
8282                                                                                 meltfptr[121] = /*_.IFCPP___V128*/ meltfptr[114];;
8283
8284                                                                                 MELT_LOCATION("warmelt-normal.melt:1980:/ clear");
8285                                                                                 /*clear*/ /*_.HKCLOBINDLIST__V124*/
8286                                                                                 meltfptr[120] = 0 ;
8287                                                                                 /*^clear*/
8288                                                                                 /*clear*/ /*_.FOUNDBIND__V125*/
8289                                                                                 meltfptr[119] = 0 ;
8290                                                                                 /*^clear*/
8291                                                                                 /*clear*/ /*_.IFCPP___V128*/
8292                                                                                 meltfptr[114] = 0 ;
8293                                                                                 /*^clear*/
8294                                                                                 /*clear*/ /*_#NULL__L61*/
8295                                                                                 meltfnum[34] = 0 ;
8296                                                                                 /*epilog*/
8297                                                                             }
8298                                                                             ;
8299                                                                         }
8300                                                                     else
8301                                                                         {
8302                                                                             MELT_LOCATION("warmelt-normal.melt:1979:/ cond.else");
8303
8304                                                                             /*^block*/
8305                                                                             /*anyblock*/
8306                                                                             {
8307
8308
8309 #if MELT_HAVE_DEBUG
8310                                                                                 MELT_LOCATION("warmelt-normal.melt:1998:/ cppif.then");
8311                                                                                 /*^block*/
8312                                                                                 /*anyblock*/
8313                                                                                 {
8314
8315
8316                                                                                     {
8317                                                                                         /*^locexp*/
8318                                                                                         /*melt_increment_dbgcounter*/
8319 #if MELT_HAVE_DEBUG
8320                                                                                         melt_dbgcounter++;
8321 #endif
8322                                                                                         ;
8323                                                                                     }
8324                                                                                     ;
8325
8326                                                                                     MELT_CHECK_SIGNAL();
8327                                                                                     ;
8328                                                                                     /*_#MELT_NEED_DBG__L64*/
8329                                                                                     meltfnum[62] =
8330                                                                                         /*MELT_NEED_DBG*/
8331 #if MELT_HAVE_DEBUG
8332                                                                                         (/*melt_need_dbg*/ melt_need_debug ((int) 0))
8333 #else
8334                                                                                         0 /* no melt_need_dbg */
8335 #endif /*MELT_HAVE_DEBUG*/
8336                                                                                         ;;
8337                                                                                     MELT_LOCATION("warmelt-normal.melt:1998:/ cond");
8338                                                                                     /*cond*/
8339                                                                                     if (/*_#MELT_NEED_DBG__L64*/ meltfnum[62]) /*then*/
8340                                                                                         {
8341                                                                                             /*^cond.then*/
8342                                                                                             /*^block*/
8343                                                                                             /*anyblock*/
8344                                                                                             {
8345
8346                                                                                                 /*_#MELT_CALLCOUNT__L65*/ meltfnum[61] =
8347                                                                                                     /* for melt_callcount */
8348 #if MELT_HAVE_DEBUG && defined (meltcallcount)
8349                                                                                                     meltcallcount  /* melt_callcount debugging */
8350 #else
8351                                                                                                     0L  /* melt_callcount without debug */
8352 #endif /* MELT_HAVE_DEBUG melt_callcount */
8353                                                                                                     ;;
8354                                                                                                 /*^compute*/
8355                                                                                                 /*_.DISCRIM__V141*/
8356                                                                                                 meltfptr[133] =
8357                                                                                                     ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.PR__V106*/ meltfptr[87]))));;
8358
8359                                                                                                 MELT_CHECK_SIGNAL();
8360                                                                                                 ;
8361                                                                                                 MELT_LOCATION("warmelt-normal.melt:1998:/ apply");
8362                                                                                                 /*apply*/
8363                                                                                                 {
8364                                                                                                     union meltparam_un argtab[7];
8365                                                                                                     memset(&argtab, 0, sizeof(argtab));
8366                                                                                                     /*^apply.arg*/
8367                                                                                                     argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L65*/ meltfnum[61];
8368                                                                                                     /*^apply.arg*/
8369                                                                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
8370                                                                                                     /*^apply.arg*/
8371                                                                                                     argtab[2].meltbp_long = 1998;
8372                                                                                                     /*^apply.arg*/
8373                                                                                                     argtab[3].meltbp_cstring =  "normexp_symbol unexpected pr=";
8374                                                                                                     /*^apply.arg*/
8375                                                                                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PR__V106*/ meltfptr[87];
8376                                                                                                     /*^apply.arg*/
8377                                                                                                     argtab[5].meltbp_cstring =  "\n... of discrim: ";
8378                                                                                                     /*^apply.arg*/
8379                                                                                                     argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.DISCRIM__V141*/ meltfptr[133];
8380                                                                                                     /*_.MELT_DEBUG_FUN__V142*/
8381                                                                                                     meltfptr[120] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
8382                                                                                                 }
8383                                                                                                 ;
8384                                                                                                 /*_._IF___V140*/
8385                                                                                                 meltfptr[138] = /*_.MELT_DEBUG_FUN__V142*/ meltfptr[120];;
8386                                                                                                 /*epilog*/
8387
8388                                                                                                 MELT_LOCATION("warmelt-normal.melt:1998:/ clear");
8389                                                                                                 /*clear*/ /*_#MELT_CALLCOUNT__L65*/
8390                                                                                                 meltfnum[61] = 0 ;
8391                                                                                                 /*^clear*/
8392                                                                                                 /*clear*/ /*_.DISCRIM__V141*/
8393                                                                                                 meltfptr[133] = 0 ;
8394                                                                                                 /*^clear*/
8395                                                                                                 /*clear*/ /*_.MELT_DEBUG_FUN__V142*/
8396                                                                                                 meltfptr[120] = 0 ;
8397                                                                                             }
8398                                                                                             ;
8399                                                                                         }
8400                                                                                     else    /*^cond.else*/
8401                                                                                         {
8402
8403                                                                                             /*_._IF___V140*/ meltfptr[138] =  /*reallynil*/ NULL ;;
8404                                                                                         }
8405                                                                                     ;
8406
8407                                                                                     {
8408                                                                                         MELT_LOCATION("warmelt-normal.melt:1998:/ locexp");
8409                                                                                         /*void*/
8410                                                                                         (void)0;
8411                                                                                     }
8412                                                                                     ;
8413                                                                                     /*^quasiblock*/
8414
8415
8416                                                                                     /*epilog*/
8417
8418                                                                                     /*^clear*/
8419                                                                                     /*clear*/ /*_#MELT_NEED_DBG__L64*/
8420                                                                                     meltfnum[62] = 0 ;
8421                                                                                     /*^clear*/
8422                                                                                     /*clear*/ /*_._IF___V140*/
8423                                                                                     meltfptr[138] = 0 ;
8424                                                                                 }
8425
8426 #else /*MELT_HAVE_DEBUG*/
8427                                                                                 /*^cppif.else*/
8428                                                                                 /*^block*/
8429                                                                                 /*anyblock*/
8430                                                                                 {
8431
8432
8433                                                                                     {
8434                                                                                         /*^locexp*/
8435                                                                                         /*void*/(void)0;
8436                                                                                     }
8437                                                                                     ;
8438                                                                                     /*epilog*/
8439                                                                                 }
8440
8441 #endif /*MELT_HAVE_DEBUG*/
8442                                                                                 ;
8443
8444 #if MELT_HAVE_DEBUG
8445                                                                                 MELT_LOCATION("warmelt-normal.melt:1999:/ cppif.then");
8446                                                                                 /*^block*/
8447                                                                                 /*anyblock*/
8448                                                                                 {
8449
8450
8451                                                                                     MELT_CHECK_SIGNAL();
8452                                                                                     ;
8453                                                                                     /*^cond*/
8454                                                                                     /*cond*/
8455                                                                                     if ((/*nil*/NULL)) /*then*/
8456                                                                                         {
8457                                                                                             /*^cond.then*/
8458                                                                                             /*_._IFELSE___V144*/ meltfptr[114] = (/*nil*/NULL);;
8459                                                                                         }
8460                                                                                     else
8461                                                                                         {
8462                                                                                             MELT_LOCATION("warmelt-normal.melt:1999:/ cond.else");
8463
8464                                                                                             /*^block*/
8465                                                                                             /*anyblock*/
8466                                                                                             {
8467
8468
8469                                                                                                 MELT_CHECK_SIGNAL();
8470                                                                                                 ;
8471                                                                                                 /*^apply*/
8472                                                                                                 /*apply*/
8473                                                                                                 {
8474                                                                                                     union meltparam_un argtab[4];
8475                                                                                                     memset(&argtab, 0, sizeof(argtab));
8476                                                                                                     /*^apply.arg*/
8477                                                                                                     argtab[0].meltbp_cstring =  "normexp_symbol unexpected closing procedure";
8478                                                                                                     /*^apply.arg*/
8479                                                                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
8480                                                                                                     /*^apply.arg*/
8481                                                                                                     argtab[2].meltbp_long = 1999;
8482                                                                                                     /*^apply.arg*/
8483                                                                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PR__V106*/ meltfptr[87];
8484                                                                                                     /*_.MELT_ASSERT_FAILURE_FUN__V145*/
8485                                                                                                     meltfptr[133] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
8486                                                                                                 }
8487                                                                                                 ;
8488                                                                                                 /*_._IFELSE___V144*/
8489                                                                                                 meltfptr[114] = /*_.MELT_ASSERT_FAILURE_FUN__V145*/ meltfptr[133];;
8490                                                                                                 /*epilog*/
8491
8492                                                                                                 MELT_LOCATION("warmelt-normal.melt:1999:/ clear");
8493                                                                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V145*/
8494                                                                                                 meltfptr[133] = 0 ;
8495                                                                                             }
8496                                                                                             ;
8497                                                                                         }
8498                                                                                     ;
8499                                                                                     /*_.IFCPP___V143*/
8500                                                                                     meltfptr[119] = /*_._IFELSE___V144*/ meltfptr[114];;
8501                                                                                     /*epilog*/
8502
8503                                                                                     MELT_LOCATION("warmelt-normal.melt:1999:/ clear");
8504                                                                                     /*clear*/ /*_._IFELSE___V144*/
8505                                                                                     meltfptr[114] = 0 ;
8506                                                                                 }
8507
8508 #else /*MELT_HAVE_DEBUG*/
8509                                                                                 /*^cppif.else*/
8510                                                                                 /*_.IFCPP___V143*/ meltfptr[119] = (/*nil*/NULL);
8511 #endif /*MELT_HAVE_DEBUG*/
8512                                                                                 ;
8513                                                                                 MELT_LOCATION("warmelt-normal.melt:1997:/ quasiblock");
8514
8515
8516                                                                                 /*_.PROGN___V146*/
8517                                                                                 meltfptr[120] = /*_.IFCPP___V143*/ meltfptr[119];;
8518                                                                                 /*^compute*/
8519                                                                                 /*_._IFELSE___V123*/
8520                                                                                 meltfptr[121] = /*_.PROGN___V146*/ meltfptr[120];;
8521                                                                                 /*epilog*/
8522
8523                                                                                 MELT_LOCATION("warmelt-normal.melt:1979:/ clear");
8524                                                                                 /*clear*/ /*_.IFCPP___V143*/
8525                                                                                 meltfptr[119] = 0 ;
8526                                                                                 /*^clear*/
8527                                                                                 /*clear*/ /*_.PROGN___V146*/
8528                                                                                 meltfptr[120] = 0 ;
8529                                                                             }
8530                                                                             ;
8531                                                                         }
8532                                                                     ;
8533                                                                     /*_._IFELSE___V112*/
8534                                                                     meltfptr[110] = /*_._IFELSE___V123*/ meltfptr[121];;
8535                                                                     /*epilog*/
8536
8537                                                                     MELT_LOCATION("warmelt-normal.melt:1964:/ clear");
8538                                                                     /*clear*/ /*_#IS_A__L55*/
8539                                                                     meltfnum[53] = 0 ;
8540                                                                     /*^clear*/
8541                                                                     /*clear*/ /*_._IFELSE___V123*/
8542                                                                     meltfptr[121] = 0 ;
8543                                                                 }
8544                                                                 ;
8545                                                             }
8546                                                         ;
8547                                                     } /* end foreach_pair_component_in_list meltcit1__EACHLIST */
8548                                                 /*_.CURPAIRPRO__V105*/ meltfptr[103] = NULL;
8549                                                 /*_.PR__V106*/
8550                                                 meltfptr[87] = NULL;
8551
8552
8553                                                 /*citerepilog*/
8554
8555                                                 MELT_LOCATION("warmelt-normal.melt:1959:/ clear");
8556                                                 /*clear*/ /*_.CURPAIRPRO__V105*/
8557                                                 meltfptr[103] = 0 ;
8558                                                 /*^clear*/
8559                                                 /*clear*/ /*_.PR__V106*/
8560                                                 meltfptr[87] = 0 ;
8561                                                 /*^clear*/
8562                                                 /*clear*/ /*_.IFCPP___V109*/
8563                                                 meltfptr[107] = 0 ;
8564                                                 /*^clear*/
8565                                                 /*clear*/ /*_#IS_A__L49*/
8566                                                 meltfnum[44] = 0 ;
8567                                                 /*^clear*/
8568                                                 /*clear*/ /*_._IFELSE___V112*/
8569                                                 meltfptr[110] = 0 ;
8570                                             } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
8571                                             ;
8572
8573                                             MELT_CHECK_SIGNAL();
8574                                             ;
8575                                             MELT_LOCATION("warmelt-normal.melt:2003:/ quasiblock");
8576
8577
8578                                             /*_._RETVAL___V1*/
8579                                             meltfptr[0] = /*_.FXOCC__V101*/ meltfptr[86];;
8580                                             MELT_LOCATION("warmelt-normal.melt:2003:/ putxtraresult");
8581                                             if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
8582                                             if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
8583                                             if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*nil*/NULL));
8584                                             ;
8585                                             /*^finalreturn*/
8586                                             ;
8587                                             /*finalret*/
8588                                             goto meltlabend_rout ;
8589                                             /*_.LET___V100*/
8590                                             meltfptr[79] = /*_.RETURN___V147*/ meltfptr[138];;
8591
8592                                             MELT_LOCATION("warmelt-normal.melt:1945:/ clear");
8593                                             /*clear*/ /*_.FXOCC__V101*/
8594                                             meltfptr[86] = 0 ;
8595                                             /*^clear*/
8596                                             /*clear*/ /*_.RETURN___V147*/
8597                                             meltfptr[138] = 0 ;
8598                                             /*_._IFELSE___V99*/
8599                                             meltfptr[80] = /*_.LET___V100*/ meltfptr[79];;
8600                                             /*epilog*/
8601
8602                                             MELT_LOCATION("warmelt-normal.melt:1943:/ clear");
8603                                             /*clear*/ /*_.LET___V100*/
8604                                             meltfptr[79] = 0 ;
8605                                         }
8606                                         ;
8607                                     }
8608                                 else    /*^cond.else*/
8609                                     {
8610
8611                                         /*^block*/
8612                                         /*anyblock*/
8613                                         {
8614
8615
8616                                             {
8617                                                 MELT_LOCATION("warmelt-normal.melt:2008:/ locexp");
8618                                                 meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYCMAP__V67*/ meltfptr[59]),
8619                                                                        (meltobject_ptr_t) (/*_.RECV__V2*/ meltfptr[1]),
8620                                                                        (melt_ptr_t)(/*_.BVAR__V78*/ meltfptr[57]));
8621                                             }
8622                                             ;
8623
8624 #if MELT_HAVE_DEBUG
8625                                             MELT_LOCATION("warmelt-normal.melt:2009:/ cppif.then");
8626                                             /*^block*/
8627                                             /*anyblock*/
8628                                             {
8629
8630
8631                                                 {
8632                                                     /*^locexp*/
8633                                                     /*melt_increment_dbgcounter*/
8634 #if MELT_HAVE_DEBUG
8635                                                     melt_dbgcounter++;
8636 #endif
8637                                                     ;
8638                                                 }
8639                                                 ;
8640
8641                                                 MELT_CHECK_SIGNAL();
8642                                                 ;
8643                                                 /*_#MELT_NEED_DBG__L66*/
8644                                                 meltfnum[34] =
8645                                                     /*MELT_NEED_DBG*/
8646 #if MELT_HAVE_DEBUG
8647                                                     (/*melt_need_dbg*/ melt_need_debug ((int) 0))
8648 #else
8649                                                     0 /* no melt_need_dbg */
8650 #endif /*MELT_HAVE_DEBUG*/
8651                                                     ;;
8652                                                 MELT_LOCATION("warmelt-normal.melt:2009:/ cond");
8653                                                 /*cond*/
8654                                                 if (/*_#MELT_NEED_DBG__L66*/ meltfnum[34]) /*then*/
8655                                                     {
8656                                                         /*^cond.then*/
8657                                                         /*^block*/
8658                                                         /*anyblock*/
8659                                                         {
8660
8661                                                             /*_#MELT_CALLCOUNT__L67*/ meltfnum[61] =
8662                                                                 /* for melt_callcount */
8663 #if MELT_HAVE_DEBUG && defined (meltcallcount)
8664                                                                 meltcallcount  /* melt_callcount debugging */
8665 #else
8666                                                                 0L  /* melt_callcount without debug */
8667 #endif /* MELT_HAVE_DEBUG melt_callcount */
8668                                                                 ;;
8669
8670                                                             MELT_CHECK_SIGNAL();
8671                                                             ;
8672                                                             MELT_LOCATION("warmelt-normal.melt:2009:/ apply");
8673                                                             /*apply*/
8674                                                             {
8675                                                                 union meltparam_un argtab[9];
8676                                                                 memset(&argtab, 0, sizeof(argtab));
8677                                                                 /*^apply.arg*/
8678                                                                 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L67*/ meltfnum[61];
8679                                                                 /*^apply.arg*/
8680                                                                 argtab[1].meltbp_cstring =  "warmelt-normal.melt";
8681                                                                 /*^apply.arg*/
8682                                                                 argtab[2].meltbp_long = 2009;
8683                                                                 /*^apply.arg*/
8684                                                                 argtab[3].meltbp_cstring =  "normexp_symbol local value bvar=";
8685                                                                 /*^apply.arg*/
8686                                                                 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BVAR__V78*/ meltfptr[57];
8687                                                                 /*^apply.arg*/
8688                                                                 argtab[5].meltbp_cstring =  "\n.. updated sycmap=";
8689                                                                 /*^apply.arg*/
8690                                                                 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SYCMAP__V67*/ meltfptr[59];
8691                                                                 /*^apply.arg*/
8692                                                                 argtab[7].meltbp_cstring =  "\n.. symbname=";
8693                                                                 /*^apply.arg*/
8694                                                                 argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.SYMBNAME__V27*/ meltfptr[26];
8695                                                                 /*_.MELT_DEBUG_FUN__V149*/
8696                                                                 meltfptr[114] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
8697                                                             }
8698                                                             ;
8699                                                             /*_._IF___V148*/
8700                                                             meltfptr[133] = /*_.MELT_DEBUG_FUN__V149*/ meltfptr[114];;
8701                                                             /*epilog*/
8702
8703                                                             MELT_LOCATION("warmelt-normal.melt:2009:/ clear");
8704                                                             /*clear*/ /*_#MELT_CALLCOUNT__L67*/
8705                                                             meltfnum[61] = 0 ;
8706                                                             /*^clear*/
8707                                                             /*clear*/ /*_.MELT_DEBUG_FUN__V149*/
8708                                                             meltfptr[114] = 0 ;
8709                                                         }
8710                                                         ;
8711                                                     }
8712                                                 else    /*^cond.else*/
8713                                                     {
8714
8715                                                         /*_._IF___V148*/ meltfptr[133] =  /*reallynil*/ NULL ;;
8716                                                     }
8717                                                 ;
8718
8719                                                 {
8720                                                     MELT_LOCATION("warmelt-normal.melt:2009:/ locexp");
8721                                                     /*void*/
8722                                                     (void)0;
8723                                                 }
8724                                                 ;
8725                                                 /*^quasiblock*/
8726
8727
8728                                                 /*epilog*/
8729
8730                                                 /*^clear*/
8731                                                 /*clear*/ /*_#MELT_NEED_DBG__L66*/
8732                                                 meltfnum[34] = 0 ;
8733                                                 /*^clear*/
8734                                                 /*clear*/ /*_._IF___V148*/
8735                                                 meltfptr[133] = 0 ;
8736                                             }
8737
8738 #else /*MELT_HAVE_DEBUG*/
8739                                             /*^cppif.else*/
8740                                             /*^block*/
8741                                             /*anyblock*/
8742                                             {
8743
8744
8745                                                 {
8746                                                     /*^locexp*/
8747                                                     /*void*/(void)0;
8748                                                 }
8749                                                 ;
8750                                                 /*epilog*/
8751                                             }
8752
8753 #endif /*MELT_HAVE_DEBUG*/
8754                                             ;
8755
8756                                             MELT_CHECK_SIGNAL();
8757                                             ;
8758                                             MELT_LOCATION("warmelt-normal.melt:2010:/ quasiblock");
8759
8760
8761                                             /*_._RETVAL___V1*/
8762                                             meltfptr[0] = /*_.BVAR__V78*/ meltfptr[57];;
8763                                             MELT_LOCATION("warmelt-normal.melt:2010:/ putxtraresult");
8764                                             if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
8765                                             if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
8766                                             if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*nil*/NULL));
8767                                             ;
8768                                             /*^finalreturn*/
8769                                             ;
8770                                             /*finalret*/
8771                                             goto meltlabend_rout ;
8772                                             MELT_LOCATION("warmelt-normal.melt:2006:/ quasiblock");
8773
8774
8775                                             /*_.PROGN___V151*/
8776                                             meltfptr[120] = /*_.RETURN___V150*/ meltfptr[119];;
8777                                             /*^compute*/
8778                                             /*_._IFELSE___V99*/
8779                                             meltfptr[80] = /*_.PROGN___V151*/ meltfptr[120];;
8780                                             /*epilog*/
8781
8782                                             MELT_LOCATION("warmelt-normal.melt:1943:/ clear");
8783                                             /*clear*/ /*_.RETURN___V150*/
8784                                             meltfptr[119] = 0 ;
8785                                             /*^clear*/
8786                                             /*clear*/ /*_.PROGN___V151*/
8787                                             meltfptr[120] = 0 ;
8788                                         }
8789                                         ;
8790                                     }
8791                                 ;
8792                                 /*_.LET___V77*/
8793                                 meltfptr[42] = /*_._IFELSE___V99*/ meltfptr[80];;
8794
8795                                 MELT_LOCATION("warmelt-normal.melt:1911:/ clear");
8796                                 /*clear*/ /*_.BVAR__V78*/
8797                                 meltfptr[57] = 0 ;
8798                                 /*^clear*/
8799                                 /*clear*/ /*_.VAL__V79*/
8800                                 meltfptr[78] = 0 ;
8801                                 /*^clear*/
8802                                 /*clear*/ /*_#NULL__L33*/
8803                                 meltfnum[23] = 0 ;
8804                                 /*^clear*/
8805                                 /*clear*/ /*_#IS_LIST__L41*/
8806                                 meltfnum[20] = 0 ;
8807                                 /*^clear*/
8808                                 /*clear*/ /*_#_IF___L42*/
8809                                 meltfnum[35] = 0 ;
8810                                 /*^clear*/
8811                                 /*clear*/ /*_._IFELSE___V99*/
8812                                 meltfptr[80] = 0 ;
8813                                 /*_._IFELSE___V76*/
8814                                 meltfptr[37] = /*_.LET___V77*/ meltfptr[42];;
8815                                 /*epilog*/
8816
8817                                 MELT_LOCATION("warmelt-normal.melt:1910:/ clear");
8818                                 /*clear*/ /*_.LET___V77*/
8819                                 meltfptr[42] = 0 ;
8820                             }
8821                             ;
8822                         }
8823                     else    /*^cond.else*/
8824                         {
8825
8826                             /*^block*/
8827                             /*anyblock*/
8828                             {
8829
8830
8831                                 MELT_CHECK_SIGNAL();
8832                                 ;
8833                                 /*_#IS_A__L68*/
8834                                 meltfnum[62] =
8835                                     melt_is_instance_of((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NORMAL_MODULE_VARIABLE_BINDING*/ meltfrout->tabval[26])));;
8836                                 MELT_LOCATION("warmelt-normal.melt:2015:/ cond");
8837                                 /*cond*/
8838                                 if (/*_#IS_A__L68*/ meltfnum[62]) /*then*/
8839                                     {
8840                                         /*^cond.then*/
8841                                         /*^block*/
8842                                         /*anyblock*/
8843                                         {
8844
8845
8846 #if MELT_HAVE_DEBUG
8847                                             MELT_LOCATION("warmelt-normal.melt:2016:/ cppif.then");
8848                                             /*^block*/
8849                                             /*anyblock*/
8850                                             {
8851
8852
8853                                                 {
8854                                                     /*^locexp*/
8855                                                     /*melt_increment_dbgcounter*/
8856 #if MELT_HAVE_DEBUG
8857                                                     melt_dbgcounter++;
8858 #endif
8859                                                     ;
8860                                                 }
8861                                                 ;
8862
8863                                                 MELT_CHECK_SIGNAL();
8864                                                 ;
8865                                                 /*_#MELT_NEED_DBG__L69*/
8866                                                 meltfnum[53] =
8867                                                     /*MELT_NEED_DBG*/
8868 #if MELT_HAVE_DEBUG
8869                                                     (/*melt_need_dbg*/ melt_need_debug ((int) 0))
8870 #else
8871                                                     0 /* no melt_need_dbg */
8872 #endif /*MELT_HAVE_DEBUG*/
8873                                                     ;;
8874                                                 MELT_LOCATION("warmelt-normal.melt:2016:/ cond");
8875                                                 /*cond*/
8876                                                 if (/*_#MELT_NEED_DBG__L69*/ meltfnum[53]) /*then*/
8877                                                     {
8878                                                         /*^cond.then*/
8879                                                         /*^block*/
8880                                                         /*anyblock*/
8881                                                         {
8882
8883                                                             /*_#MELT_CALLCOUNT__L70*/ meltfnum[61] =
8884                                                                 /* for melt_callcount */
8885 #if MELT_HAVE_DEBUG && defined (meltcallcount)
8886                                                                 meltcallcount  /* melt_callcount debugging */
8887 #else
8888                                                                 0L  /* melt_callcount without debug */
8889 #endif /* MELT_HAVE_DEBUG melt_callcount */
8890                                                                 ;;
8891
8892                                                             MELT_CHECK_SIGNAL();
8893                                                             ;
8894                                                             MELT_LOCATION("warmelt-normal.melt:2016:/ apply");
8895                                                             /*apply*/
8896                                                             {
8897                                                                 union meltparam_un argtab[5];
8898                                                                 memset(&argtab, 0, sizeof(argtab));
8899                                                                 /*^apply.arg*/
8900                                                                 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L70*/ meltfnum[61];
8901                                                                 /*^apply.arg*/
8902                                                                 argtab[1].meltbp_cstring =  "warmelt-normal.melt";
8903                                                                 /*^apply.arg*/
8904                                                                 argtab[2].meltbp_long = 2016;
8905                                                                 /*^apply.arg*/
8906                                                                 argtab[3].meltbp_cstring =  "normexp_symbol variable binding bind=";
8907                                                                 /*^apply.arg*/
8908                                                                 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V15*/ meltfptr[5];
8909                                                                 /*_.MELT_DEBUG_FUN__V154*/
8910                                                                 meltfptr[138] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
8911                                                             }
8912                                                             ;
8913                                                             /*_._IF___V153*/
8914                                                             meltfptr[86] = /*_.MELT_DEBUG_FUN__V154*/ meltfptr[138];;
8915                                                             /*epilog*/
8916
8917                                                             MELT_LOCATION("warmelt-normal.melt:2016:/ clear");
8918                                                             /*clear*/ /*_#MELT_CALLCOUNT__L70*/
8919                                                             meltfnum[61] = 0 ;
8920                                                             /*^clear*/
8921                                                             /*clear*/ /*_.MELT_DEBUG_FUN__V154*/
8922                                                             meltfptr[138] = 0 ;
8923                                                         }
8924                                                         ;
8925                                                     }
8926                                                 else    /*^cond.else*/
8927                                                     {
8928
8929                                                         /*_._IF___V153*/ meltfptr[86] =  /*reallynil*/ NULL ;;
8930                                                     }
8931                                                 ;
8932
8933                                                 {
8934                                                     MELT_LOCATION("warmelt-normal.melt:2016:/ locexp");
8935                                                     /*void*/
8936                                                     (void)0;
8937                                                 }
8938                                                 ;
8939                                                 /*^quasiblock*/
8940
8941
8942                                                 /*epilog*/
8943
8944                                                 /*^clear*/
8945                                                 /*clear*/ /*_#MELT_NEED_DBG__L69*/
8946                                                 meltfnum[53] = 0 ;
8947                                                 /*^clear*/
8948                                                 /*clear*/ /*_._IF___V153*/
8949                                                 meltfptr[86] = 0 ;
8950                                             }
8951
8952 #else /*MELT_HAVE_DEBUG*/
8953                                             /*^cppif.else*/
8954                                             /*^block*/
8955                                             /*anyblock*/
8956                                             {
8957
8958
8959                                                 {
8960                                                     /*^locexp*/
8961                                                     /*void*/(void)0;
8962                                                 }
8963                                                 ;
8964                                                 /*epilog*/
8965                                             }
8966
8967 #endif /*MELT_HAVE_DEBUG*/
8968                                             ;
8969                                             MELT_LOCATION("warmelt-normal.melt:2017:/ quasiblock");
8970
8971
8972
8973                                             MELT_CHECK_SIGNAL();
8974                                             ;
8975                                             /*^quasiblock*/
8976
8977
8978                                             /*^rawallocobj*/
8979                                             /*rawallocobj*/
8980                                             {
8981                                                 melt_ptr_t newobj = 0;
8982                                                 melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MODULEVAROCC*/ meltfrout->tabval[27])), (2), "CLASS_NREP_MODULEVAROCC");
8983                                                 /*_.INST__V157*/
8984                                                 meltfptr[133] =
8985                                                     newobj;
8986                                             };
8987                                             ;
8988                                             /*^putslot*/
8989                                             /*putslot*/
8990                                             melt_assertmsg("checkobj putslot  _ @NMODVAR_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V157*/ meltfptr[133])) == MELTOBMAG_OBJECT);
8991                                             melt_putfield_object((/*_.INST__V157*/ meltfptr[133]), (1), (/*_.BIND__V15*/ meltfptr[5]), "NMODVAR_BIND");
8992                                             ;
8993                                             /*^touchobj*/
8994
8995                                             melt_dbgtrace_written_object (/*_.INST__V157*/ meltfptr[133], "newly made instance");
8996                                             ;
8997                                             /*_.NMODVAR__V156*/
8998                                             meltfptr[114] = /*_.INST__V157*/ meltfptr[133];;
8999
9000                                             {
9001                                                 MELT_LOCATION("warmelt-normal.melt:2021:/ locexp");
9002                                                 meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYCMAP__V67*/ meltfptr[59]),
9003                                                                        (meltobject_ptr_t) (/*_.RECV__V2*/ meltfptr[1]),
9004                                                                        (melt_ptr_t)(/*_.NMODVAR__V156*/ meltfptr[114]));
9005                                             }
9006                                             ;
9007
9008 #if MELT_HAVE_DEBUG
9009                                             MELT_LOCATION("warmelt-normal.melt:2022:/ cppif.then");
9010                                             /*^block*/
9011                                             /*anyblock*/
9012                                             {
9013
9014
9015                                                 {
9016                                                     /*^locexp*/
9017                                                     /*melt_increment_dbgcounter*/
9018 #if MELT_HAVE_DEBUG
9019                                                     melt_dbgcounter++;
9020 #endif
9021                                                     ;
9022                                                 }
9023                                                 ;
9024
9025                                                 MELT_CHECK_SIGNAL();
9026                                                 ;
9027                                                 /*_#MELT_NEED_DBG__L71*/
9028                                                 meltfnum[34] =
9029                                                     /*MELT_NEED_DBG*/
9030 #if MELT_HAVE_DEBUG
9031                                                     (/*melt_need_dbg*/ melt_need_debug ((int) 0))
9032 #else
9033                                                     0 /* no melt_need_dbg */
9034 #endif /*MELT_HAVE_DEBUG*/
9035                                                     ;;
9036                                                 MELT_LOCATION("warmelt-normal.melt:2022:/ cond");
9037                                                 /*cond*/
9038                                                 if (/*_#MELT_NEED_DBG__L71*/ meltfnum[34]) /*then*/
9039                                                     {
9040                                                         /*^cond.then*/
9041                                                         /*^block*/
9042                                                         /*anyblock*/
9043                                                         {
9044
9045                                                             /*_#MELT_CALLCOUNT__L72*/ meltfnum[23] =
9046                                                                 /* for melt_callcount */
9047 #if MELT_HAVE_DEBUG && defined (meltcallcount)
9048                                                                 meltcallcount  /* melt_callcount debugging */
9049 #else
9050                                                                 0L  /* melt_callcount without debug */
9051 #endif /* MELT_HAVE_DEBUG melt_callcount */
9052                                                                 ;;
9053
9054                                                             MELT_CHECK_SIGNAL();
9055                                                             ;
9056                                                             MELT_LOCATION("warmelt-normal.melt:2022:/ apply");
9057                                                             /*apply*/
9058                                                             {
9059                                                                 union meltparam_un argtab[7];
9060                                                                 memset(&argtab, 0, sizeof(argtab));
9061                                                                 /*^apply.arg*/
9062                                                                 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L72*/ meltfnum[23];
9063                                                                 /*^apply.arg*/
9064                                                                 argtab[1].meltbp_cstring =  "warmelt-normal.melt";
9065                                                                 /*^apply.arg*/
9066                                                                 argtab[2].meltbp_long = 2022;
9067                                                                 /*^apply.arg*/
9068                                                                 argtab[3].meltbp_cstring =  "normexp_symbol module variable occurrence nmodvar=";
9069                                                                 /*^apply.arg*/
9070                                                                 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NMODVAR__V156*/ meltfptr[114];
9071                                                                 /*^apply.arg*/
9072                                                                 argtab[5].meltbp_cstring =  "\n.. updated sycmap=";
9073                                                                 /*^apply.arg*/
9074                                                                 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SYCMAP__V67*/ meltfptr[59];
9075                                                                 /*_.MELT_DEBUG_FUN__V159*/
9076                                                                 meltfptr[120] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
9077                                                             }
9078                                                             ;
9079                                                             /*_._IF___V158*/
9080                                                             meltfptr[119] = /*_.MELT_DEBUG_FUN__V159*/ meltfptr[120];;
9081                                                             /*epilog*/
9082
9083                                                             MELT_LOCATION("warmelt-normal.melt:2022:/ clear");
9084                                                             /*clear*/ /*_#MELT_CALLCOUNT__L72*/
9085                                                             meltfnum[23] = 0 ;
9086                                                             /*^clear*/
9087                                                             /*clear*/ /*_.MELT_DEBUG_FUN__V159*/
9088                                                             meltfptr[120] = 0 ;
9089                                                         }
9090                                                         ;
9091                                                     }
9092                                                 else    /*^cond.else*/
9093                                                     {
9094
9095                                                         /*_._IF___V158*/ meltfptr[119] =  /*reallynil*/ NULL ;;
9096                                                     }
9097                                                 ;
9098
9099                                                 {
9100                                                     MELT_LOCATION("warmelt-normal.melt:2022:/ locexp");
9101                                                     /*void*/
9102                                                     (void)0;
9103                                                 }
9104                                                 ;
9105                                                 /*^quasiblock*/
9106
9107
9108                                                 /*epilog*/
9109
9110                                                 /*^clear*/
9111                                                 /*clear*/ /*_#MELT_NEED_DBG__L71*/
9112                                                 meltfnum[34] = 0 ;
9113                                                 /*^clear*/
9114                                                 /*clear*/ /*_._IF___V158*/
9115                                                 meltfptr[119] = 0 ;
9116                                             }
9117
9118 #else /*MELT_HAVE_DEBUG*/
9119                                             /*^cppif.else*/
9120                                             /*^block*/
9121                                             /*anyblock*/
9122                                             {
9123
9124
9125                                                 {
9126                                                     /*^locexp*/
9127                                                     /*void*/(void)0;
9128                                                 }
9129                                                 ;
9130                                                 /*epilog*/
9131                                             }
9132
9133 #endif /*MELT_HAVE_DEBUG*/
9134                                             ;
9135
9136                                             MELT_CHECK_SIGNAL();
9137                                             ;
9138                                             MELT_LOCATION("warmelt-normal.melt:2024:/ quasiblock");
9139
9140
9141                                             /*_._RETVAL___V1*/
9142                                             meltfptr[0] = /*_.NMODVAR__V156*/ meltfptr[114];;
9143                                             MELT_LOCATION("warmelt-normal.melt:2024:/ putxtraresult");
9144                                             if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
9145                                             if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
9146                                             if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*nil*/NULL));
9147                                             ;
9148                                             /*^finalreturn*/
9149                                             ;
9150                                             /*finalret*/
9151                                             goto meltlabend_rout ;
9152                                             /*_.LET___V155*/
9153                                             meltfptr[79] = /*_.RETURN___V160*/ meltfptr[57];;
9154
9155                                             MELT_LOCATION("warmelt-normal.melt:2017:/ clear");
9156                                             /*clear*/ /*_.NMODVAR__V156*/
9157                                             meltfptr[114] = 0 ;
9158                                             /*^clear*/
9159                                             /*clear*/ /*_.RETURN___V160*/
9160                                             meltfptr[57] = 0 ;
9161                                             MELT_LOCATION("warmelt-normal.melt:2015:/ quasiblock");
9162
9163
9164                                             /*_.PROGN___V161*/
9165                                             meltfptr[78] = /*_.LET___V155*/ meltfptr[79];;
9166                                             /*^compute*/
9167                                             /*_._IFELSE___V152*/
9168                                             meltfptr[121] = /*_.PROGN___V161*/ meltfptr[78];;
9169                                             /*epilog*/
9170
9171                                             MELT_LOCATION("warmelt-normal.melt:2015:/ clear");
9172                                             /*clear*/ /*_.LET___V155*/
9173                                             meltfptr[79] = 0 ;
9174                                             /*^clear*/
9175                                             /*clear*/ /*_.PROGN___V161*/
9176                                             meltfptr[78] = 0 ;
9177                                         }
9178                                         ;
9179                                     }
9180                                 else    /*^cond.else*/
9181                                     {
9182
9183                                         /*^block*/
9184                                         /*anyblock*/
9185                                         {
9186
9187
9188                                             MELT_CHECK_SIGNAL();
9189                                             ;
9190
9191                                             MELT_CHECK_SIGNAL();
9192                                             ;
9193                                             /*_#IS_LIST__L73*/
9194                                             meltfnum[20] =
9195                                                 (melt_magic_discr((melt_ptr_t)(/*_.PROCS__V16*/ meltfptr[15])) == MELTOBMAG_LIST);;
9196                                             MELT_LOCATION("warmelt-normal.melt:2028:/ cond");
9197                                             /*cond*/
9198                                             if (/*_#IS_LIST__L73*/ meltfnum[20]) /*then*/
9199                                                 {
9200                                                     /*^cond.then*/
9201                                                     /*^block*/
9202                                                     /*anyblock*/
9203                                                     {
9204
9205                                                         /*_.LIST_FIRST__V162*/ meltfptr[80] =
9206                                                             (melt_list_first((melt_ptr_t)(/*_.PROCS__V16*/ meltfptr[15])));;
9207                                                         /*^compute*/
9208                                                         /*_#IS_PAIR__L75*/
9209                                                         meltfnum[61] =
9210                                                             (melt_magic_discr((melt_ptr_t)(/*_.LIST_FIRST__V162*/ meltfptr[80])) == MELTOBMAG_PAIR);;
9211                                                         /*^compute*/
9212                                                         /*_#_IF___L74*/
9213                                                         meltfnum[35] = /*_#IS_PAIR__L75*/ meltfnum[61];;
9214                                                         /*epilog*/
9215
9216                                                         MELT_LOCATION("warmelt-normal.melt:2028:/ clear");
9217                                                         /*clear*/ /*_.LIST_FIRST__V162*/
9218                                                         meltfptr[80] = 0 ;
9219                                                         /*^clear*/
9220                                                         /*clear*/ /*_#IS_PAIR__L75*/
9221                                                         meltfnum[61] = 0 ;
9222                                                     }
9223                                                     ;
9224                                                 }
9225                                             else    /*^cond.else*/
9226                                                 {
9227
9228                                                     /*_#_IF___L74*/ meltfnum[35] = 0;;
9229                                                 }
9230                                             ;
9231                                             MELT_LOCATION("warmelt-normal.melt:2028:/ cond");
9232                                             /*cond*/
9233                                             if (/*_#_IF___L74*/ meltfnum[35]) /*then*/
9234                                                 {
9235                                                     /*^cond.then*/
9236                                                     /*^block*/
9237                                                     /*anyblock*/
9238                                                     {
9239
9240
9241 #if MELT_HAVE_DEBUG
9242                                                         MELT_LOCATION("warmelt-normal.melt:2030:/ cppif.then");
9243                                                         /*^block*/
9244                                                         /*anyblock*/
9245                                                         {
9246
9247
9248                                                             {
9249                                                                 /*^locexp*/
9250                                                                 /*melt_increment_dbgcounter*/
9251 #if MELT_HAVE_DEBUG
9252                                                                 melt_dbgcounter++;
9253 #endif
9254                                                                 ;
9255                                                             }
9256                                                             ;
9257
9258                                                             MELT_CHECK_SIGNAL();
9259                                                             ;
9260                                                             /*_#MELT_NEED_DBG__L76*/
9261                                                             meltfnum[53] =
9262                                                                 /*MELT_NEED_DBG*/
9263 #if MELT_HAVE_DEBUG
9264                                                                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
9265 #else
9266                                                                 0 /* no melt_need_dbg */
9267 #endif /*MELT_HAVE_DEBUG*/
9268                                                                 ;;
9269                                                             MELT_LOCATION("warmelt-normal.melt:2030:/ cond");
9270                                                             /*cond*/
9271                                                             if (/*_#MELT_NEED_DBG__L76*/ meltfnum[53]) /*then*/
9272                                                                 {
9273                                                                     /*^cond.then*/
9274                                                                     /*^block*/
9275                                                                     /*anyblock*/
9276                                                                     {
9277
9278                                                                         /*_#MELT_CALLCOUNT__L77*/ meltfnum[23] =
9279                                                                             /* for melt_callcount */
9280 #if MELT_HAVE_DEBUG && defined (meltcallcount)
9281                                                                             meltcallcount  /* melt_callcount debugging */
9282 #else
9283                                                                             0L  /* melt_callcount without debug */
9284 #endif /* MELT_HAVE_DEBUG melt_callcount */
9285                                                                             ;;
9286
9287                                                                         MELT_CHECK_SIGNAL();
9288                                                                         ;
9289                                                                         MELT_LOCATION("warmelt-normal.melt:2030:/ apply");
9290                                                                         /*apply*/
9291                                                                         {
9292                                                                             union meltparam_un argtab[7];
9293                                                                             memset(&argtab, 0, sizeof(argtab));
9294                                                                             /*^apply.arg*/
9295                                                                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L77*/ meltfnum[23];
9296                                                                             /*^apply.arg*/
9297                                                                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
9298                                                                             /*^apply.arg*/
9299                                                                             argtab[2].meltbp_long = 2030;
9300                                                                             /*^apply.arg*/
9301                                                                             argtab[3].meltbp_cstring =  "normexp_symbol closed procs=";
9302                                                                             /*^apply.arg*/
9303                                                                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PROCS__V16*/ meltfptr[15];
9304                                                                             /*^apply.arg*/
9305                                                                             argtab[5].meltbp_cstring =  "\n.. bind=";
9306                                                                             /*^apply.arg*/
9307                                                                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V15*/ meltfptr[5];
9308                                                                             /*_.MELT_DEBUG_FUN__V165*/
9309                                                                             meltfptr[86] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
9310                                                                         }
9311                                                                         ;
9312                                                                         /*_._IF___V164*/
9313                                                                         meltfptr[138] = /*_.MELT_DEBUG_FUN__V165*/ meltfptr[86];;
9314                                                                         /*epilog*/
9315
9316                                                                         MELT_LOCATION("warmelt-normal.melt:2030:/ clear");
9317                                                                         /*clear*/ /*_#MELT_CALLCOUNT__L77*/
9318                                                                         meltfnum[23] = 0 ;
9319                                                                         /*^clear*/
9320                                                                         /*clear*/ /*_.MELT_DEBUG_FUN__V165*/
9321                                                                         meltfptr[86] = 0 ;
9322                                                                     }
9323                                                                     ;
9324                                                                 }
9325                                                             else    /*^cond.else*/
9326                                                                 {
9327
9328                                                                     /*_._IF___V164*/ meltfptr[138] =  /*reallynil*/ NULL ;;
9329                                                                 }
9330                                                             ;
9331
9332                                                             {
9333                                                                 MELT_LOCATION("warmelt-normal.melt:2030:/ locexp");
9334                                                                 /*void*/
9335                                                                 (void)0;
9336                                                             }
9337                                                             ;
9338                                                             /*^quasiblock*/
9339
9340
9341                                                             /*epilog*/
9342
9343                                                             /*^clear*/
9344                                                             /*clear*/ /*_#MELT_NEED_DBG__L76*/
9345                                                             meltfnum[53] = 0 ;
9346                                                             /*^clear*/
9347                                                             /*clear*/ /*_._IF___V164*/
9348                                                             meltfptr[138] = 0 ;
9349                                                         }
9350
9351 #else /*MELT_HAVE_DEBUG*/
9352                                                         /*^cppif.else*/
9353                                                         /*^block*/
9354                                                         /*anyblock*/
9355                                                         {
9356
9357
9358                                                             {
9359                                                                 /*^locexp*/
9360                                                                 /*void*/(void)0;
9361                                                             }
9362                                                             ;
9363                                                             /*epilog*/
9364                                                         }
9365
9366 #endif /*MELT_HAVE_DEBUG*/
9367                                                         ;
9368                                                         MELT_LOCATION("warmelt-normal.melt:2032:/ quasiblock");
9369
9370
9371
9372                                                         MELT_CHECK_SIGNAL();
9373                                                         ;
9374                                                         /*_#IS_A__L78*/
9375                                                         meltfnum[34] =
9376                                                             melt_is_instance_of((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[28])));;
9377                                                         MELT_LOCATION("warmelt-normal.melt:2033:/ cond");
9378                                                         /*cond*/
9379                                                         if (/*_#IS_A__L78*/ meltfnum[34]) /*then*/
9380                                                             {
9381                                                                 /*^cond.then*/
9382                                                                 /*^block*/
9383                                                                 /*anyblock*/
9384                                                                 {
9385
9386                                                                     MELT_LOCATION("warmelt-normal.melt:2034:/ getslot");
9387                                                                     {
9388                                                                         melt_ptr_t slot=NULL, obj=NULL;
9389                                                                         obj = (melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]) /*=obj*/;
9390                                                                         melt_object_get_field(slot,obj, 1, "FBIND_TYPE");
9391                                                                         /*_.FBIND_TYPE__V168*/
9392                                                                         meltfptr[114] = slot;
9393                                                                     };
9394                                                                     ;
9395                                                                     /*_.BTY__V167*/
9396                                                                     meltfptr[119] = /*_.FBIND_TYPE__V168*/ meltfptr[114];;
9397                                                                     /*epilog*/
9398
9399                                                                     MELT_LOCATION("warmelt-normal.melt:2033:/ clear");
9400                                                                     /*clear*/ /*_.FBIND_TYPE__V168*/
9401                                                                     meltfptr[114] = 0 ;
9402                                                                 }
9403                                                                 ;
9404                                                             }
9405                                                         else    /*^cond.else*/
9406                                                             {
9407
9408                                                                 /*^block*/
9409                                                                 /*anyblock*/
9410                                                                 {
9411
9412
9413                                                                     MELT_CHECK_SIGNAL();
9414                                                                     ;
9415                                                                     /*_#IS_A__L79*/
9416                                                                     meltfnum[61] =
9417                                                                         melt_is_instance_of((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ meltfrout->tabval[29])));;
9418                                                                     MELT_LOCATION("warmelt-normal.melt:2035:/ cond");
9419                                                                     /*cond*/
9420                                                                     if (/*_#IS_A__L79*/ meltfnum[61]) /*then*/
9421                                                                         {
9422                                                                             /*^cond.then*/
9423                                                                             /*^block*/
9424                                                                             /*anyblock*/
9425                                                                             {
9426
9427                                                                                 MELT_LOCATION("warmelt-normal.melt:2036:/ getslot");
9428                                                                                 {
9429                                                                                     melt_ptr_t slot=NULL, obj=NULL;
9430                                                                                     obj = (melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]) /*=obj*/;
9431                                                                                     melt_object_get_field(slot,obj, 1, "LETBIND_TYPE");
9432                                                                                     /*_.LETBIND_TYPE__V170*/
9433                                                                                     meltfptr[79] = slot;
9434                                                                                 };
9435                                                                                 ;
9436                                                                                 /*_._IFELSE___V169*/
9437                                                                                 meltfptr[57] = /*_.LETBIND_TYPE__V170*/ meltfptr[79];;
9438                                                                                 /*epilog*/
9439
9440                                                                                 MELT_LOCATION("warmelt-normal.melt:2035:/ clear");
9441                                                                                 /*clear*/ /*_.LETBIND_TYPE__V170*/
9442                                                                                 meltfptr[79] = 0 ;
9443                                                                             }
9444                                                                             ;
9445                                                                         }
9446                                                                     else    /*^cond.else*/
9447                                                                         {
9448
9449                                                                             /*^block*/
9450                                                                             /*anyblock*/
9451                                                                             {
9452
9453                                                                                 MELT_LOCATION("warmelt-normal.melt:2037:/ quasiblock");
9454
9455
9456                                                                                 /*_.PROGN___V171*/
9457                                                                                 meltfptr[78] = (/*nil*/NULL);;
9458                                                                                 /*^compute*/
9459                                                                                 /*_._IFELSE___V169*/
9460                                                                                 meltfptr[57] = /*_.PROGN___V171*/ meltfptr[78];;
9461                                                                                 /*epilog*/
9462
9463                                                                                 MELT_LOCATION("warmelt-normal.melt:2035:/ clear");
9464                                                                                 /*clear*/ /*_.PROGN___V171*/
9465                                                                                 meltfptr[78] = 0 ;
9466                                                                             }
9467                                                                             ;
9468                                                                         }
9469                                                                     ;
9470                                                                     /*_.BTY__V167*/
9471                                                                     meltfptr[119] = /*_._IFELSE___V169*/ meltfptr[57];;
9472                                                                     /*epilog*/
9473
9474                                                                     MELT_LOCATION("warmelt-normal.melt:2033:/ clear");
9475                                                                     /*clear*/ /*_#IS_A__L79*/
9476                                                                     meltfnum[61] = 0 ;
9477                                                                     /*^clear*/
9478                                                                     /*clear*/ /*_._IFELSE___V169*/
9479                                                                     meltfptr[57] = 0 ;
9480                                                                 }
9481                                                                 ;
9482                                                             }
9483                                                         ;
9484
9485                                                         MELT_CHECK_SIGNAL();
9486                                                         ;
9487                                                         MELT_LOCATION("warmelt-normal.melt:2039:/ cond");
9488                                                         /*cond*/
9489                                                         if (/*_.BTY__V167*/ meltfptr[119]) /*then*/
9490                                                             {
9491                                                                 /*^cond.then*/
9492                                                                 /*^block*/
9493                                                                 /*anyblock*/
9494                                                                 {
9495
9496
9497                                                                     MELT_CHECK_SIGNAL();
9498                                                                     ;
9499                                                                     /*_#exeq__L80*/
9500                                                                     meltfnum[23] =
9501                                                                         ((/*_.BTY__V167*/ meltfptr[119]) != ((/*!CTYPE_VALUE*/ meltfrout->tabval[19])));;
9502                                                                     MELT_LOCATION("warmelt-normal.melt:2040:/ cond");
9503                                                                     /*cond*/
9504                                                                     if (/*_#exeq__L80*/ meltfnum[23]) /*then*/
9505                                                                         {
9506                                                                             /*^cond.then*/
9507                                                                             /*^block*/
9508                                                                             /*anyblock*/
9509                                                                             {
9510
9511                                                                                 MELT_LOCATION("warmelt-normal.melt:2043:/ getslot");
9512                                                                                 {
9513                                                                                     melt_ptr_t slot=NULL, obj=NULL;
9514                                                                                     obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
9515                                                                                     melt_object_get_field(slot,obj, 1, "NAMED_NAME");
9516                                                                                     /*_.NAMED_NAME__V174*/
9517                                                                                     meltfptr[138] = slot;
9518                                                                                 };
9519                                                                                 ;
9520                                                                                 MELT_LOCATION("warmelt-normal.melt:2044:/ cond");
9521                                                                                 /*cond*/
9522                                                                                 if (
9523                                                                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BTY__V167*/ meltfptr[119]),
9524                                                                                                                   (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[7])))
9525                                                                                 ) /*then*/
9526                                                                                     {
9527                                                                                         /*^cond.then*/
9528                                                                                         /*^getslot*/
9529                                                                                         {
9530                                                                                             melt_ptr_t slot=NULL, obj=NULL;
9531                                                                                             obj = (melt_ptr_t)(/*_.BTY__V167*/ meltfptr[119]) /*=obj*/;
9532                                                                                             melt_object_get_field(slot,obj, 1, "NAMED_NAME");
9533                                                                                             /*_.NAMED_NAME__V175*/
9534                                                                                             meltfptr[114] = slot;
9535                                                                                         };
9536                                                                                         ;
9537                                                                                     }
9538                                                                                 else    /*^cond.else*/
9539                                                                                     {
9540
9541                                                                                         /*_.NAMED_NAME__V175*/ meltfptr[114] =  /*reallynil*/ NULL ;;
9542                                                                                     }
9543                                                                                 ;
9544
9545                                                                                 MELT_CHECK_SIGNAL();
9546                                                                                 ;
9547                                                                                 MELT_LOCATION("warmelt-normal.melt:2041:/ apply");
9548                                                                                 /*apply*/
9549                                                                                 {
9550                                                                                     union meltparam_un argtab[3];
9551                                                                                     memset(&argtab, 0, sizeof(argtab));
9552                                                                                     /*^apply.arg*/
9553                                                                                     argtab[0].meltbp_cstring =  "closed variable $1 has non value ctype $2 (boxing required)";
9554                                                                                     /*^apply.arg*/
9555                                                                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V174*/ meltfptr[138];
9556                                                                                     /*^apply.arg*/
9557                                                                                     argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V175*/ meltfptr[114];
9558                                                                                     /*_.ERROR_AT__V176*/
9559                                                                                     meltfptr[79] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
9560                                                                                 }
9561                                                                                 ;
9562                                                                                 /*_._IF___V173*/
9563                                                                                 meltfptr[86] = /*_.ERROR_AT__V176*/ meltfptr[79];;
9564                                                                                 /*epilog*/
9565
9566                                                                                 MELT_LOCATION("warmelt-normal.melt:2040:/ clear");
9567                                                                                 /*clear*/ /*_.NAMED_NAME__V174*/
9568                                                                                 meltfptr[138] = 0 ;
9569                                                                                 /*^clear*/
9570                                                                                 /*clear*/ /*_.NAMED_NAME__V175*/
9571                                                                                 meltfptr[114] = 0 ;
9572                                                                                 /*^clear*/
9573                                                                                 /*clear*/ /*_.ERROR_AT__V176*/
9574                                                                                 meltfptr[79] = 0 ;
9575                                                                             }
9576                                                                             ;
9577                                                                         }
9578                                                                     else    /*^cond.else*/
9579                                                                         {
9580
9581                                                                             /*_._IF___V173*/ meltfptr[86] =  /*reallynil*/ NULL ;;
9582                                                                         }
9583                                                                     ;
9584                                                                     /*^compute*/
9585                                                                     /*_._IF___V172*/
9586                                                                     meltfptr[80] = /*_._IF___V173*/ meltfptr[86];;
9587                                                                     /*epilog*/
9588
9589                                                                     MELT_LOCATION("warmelt-normal.melt:2039:/ clear");
9590                                                                     /*clear*/ /*_#exeq__L80*/
9591                                                                     meltfnum[23] = 0 ;
9592                                                                     /*^clear*/
9593                                                                     /*clear*/ /*_._IF___V173*/
9594                                                                     meltfptr[86] = 0 ;
9595                                                                 }
9596                                                                 ;
9597                                                             }
9598                                                         else    /*^cond.else*/
9599                                                             {
9600
9601                                                                 /*_._IF___V172*/ meltfptr[80] =  /*reallynil*/ NULL ;;
9602                                                             }
9603                                                         ;
9604                                                         MELT_LOCATION("warmelt-normal.melt:2046:/ compute");
9605                                                         /*_.BTY__V167*/
9606                                                         meltfptr[119] = /*_.SETQ___V177*/ meltfptr[78] = (/*!CTYPE_VALUE*/ meltfrout->tabval[19]);;
9607
9608                                                         MELT_CHECK_SIGNAL();
9609                                                         ;
9610                                                         /*_#IS_A__L81*/
9611                                                         meltfnum[53] =
9612                                                             melt_is_instance_of((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ meltfrout->tabval[30])));;
9613                                                         MELT_LOCATION("warmelt-normal.melt:2047:/ cond");
9614                                                         /*cond*/
9615                                                         if (/*_#IS_A__L81*/ meltfnum[53]) /*then*/
9616                                                             {
9617                                                                 /*^cond.then*/
9618                                                                 /*^block*/
9619                                                                 /*anyblock*/
9620                                                                 {
9621
9622                                                                     MELT_LOCATION("warmelt-normal.melt:2048:/ quasiblock");
9623
9624
9625
9626                                                                     MELT_CHECK_SIGNAL();
9627                                                                     ;
9628                                                                     MELT_LOCATION("warmelt-normal.melt:2049:/ quasiblock");
9629
9630
9631                                                                     /*^rawallocobj*/
9632                                                                     /*rawallocobj*/
9633                                                                     {
9634                                                                         melt_ptr_t newobj = 0;
9635                                                                         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CONSTOCC*/ meltfrout->tabval[18])), (5), "CLASS_NREP_CONSTOCC");
9636                                                                         /*_.INST__V181*/
9637                                                                         meltfptr[79] =
9638                                                                             newobj;
9639                                                                     };
9640                                                                     ;
9641                                                                     /*^putslot*/
9642                                                                     /*putslot*/
9643                                                                     melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V181*/ meltfptr[79])) == MELTOBMAG_OBJECT);
9644                                                                     melt_putfield_object((/*_.INST__V181*/ meltfptr[79]), (0), (/*_.PSLOC__V5*/ meltfptr[4]), "NREP_LOC");
9645                                                                     ;
9646                                                                     /*^putslot*/
9647                                                                     /*putslot*/
9648                                                                     melt_assertmsg("checkobj putslot  _ @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V181*/ meltfptr[79])) == MELTOBMAG_OBJECT);
9649                                                                     melt_putfield_object((/*_.INST__V181*/ meltfptr[79]), (1), (/*_.RECV__V2*/ meltfptr[1]), "NOCC_SYMB");
9650                                                                     ;
9651                                                                     /*^putslot*/
9652                                                                     /*putslot*/
9653                                                                     melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V181*/ meltfptr[79])) == MELTOBMAG_OBJECT);
9654                                                                     melt_putfield_object((/*_.INST__V181*/ meltfptr[79]), (3), (/*_.BIND__V15*/ meltfptr[5]), "NOCC_BIND");
9655                                                                     ;
9656                                                                     /*^putslot*/
9657                                                                     /*putslot*/
9658                                                                     melt_assertmsg("checkobj putslot  _ @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V181*/ meltfptr[79])) == MELTOBMAG_OBJECT);
9659                                                                     melt_putfield_object((/*_.INST__V181*/ meltfptr[79]), (2), ((/*!CTYPE_VALUE*/ meltfrout->tabval[19])), "NOCC_CTYP");
9660                                                                     ;
9661                                                                     /*^putslot*/
9662                                                                     /*putslot*/
9663                                                                     melt_assertmsg("checkobj putslot  _ @NCLOC_PROCS", melt_magic_discr((melt_ptr_t)(/*_.INST__V181*/ meltfptr[79])) == MELTOBMAG_OBJECT);
9664                                                                     melt_putfield_object((/*_.INST__V181*/ meltfptr[79]), (4), (/*_.PROCS__V16*/ meltfptr[15]), "NCLOC_PROCS");
9665                                                                     ;
9666                                                                     /*^touchobj*/
9667
9668                                                                     melt_dbgtrace_written_object (/*_.INST__V181*/ meltfptr[79], "newly made instance");
9669                                                                     ;
9670                                                                     /*_.FXOCC__V180*/
9671                                                                     meltfptr[114] = /*_.INST__V181*/ meltfptr[79];;
9672
9673                                                                     {
9674                                                                         MELT_LOCATION("warmelt-normal.melt:2056:/ locexp");
9675                                                                         meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYCMAP__V67*/ meltfptr[59]),
9676                                                                                                (meltobject_ptr_t) (/*_.RECV__V2*/ meltfptr[1]),
9677                                                                                                (melt_ptr_t)(/*_.FXOCC__V180*/ meltfptr[114]));
9678                                                                     }
9679                                                                     ;
9680
9681 #if MELT_HAVE_DEBUG
9682                                                                     MELT_LOCATION("warmelt-normal.melt:2057:/ cppif.then");
9683                                                                     /*^block*/
9684                                                                     /*anyblock*/
9685                                                                     {
9686
9687
9688                                                                         {
9689                                                                             /*^locexp*/
9690                                                                             /*melt_increment_dbgcounter*/
9691 #if MELT_HAVE_DEBUG
9692                                                                             melt_dbgcounter++;
9693 #endif
9694                                                                             ;
9695                                                                         }
9696                                                                         ;
9697
9698                                                                         MELT_CHECK_SIGNAL();
9699                                                                         ;
9700                                                                         /*_#MELT_NEED_DBG__L82*/
9701                                                                         meltfnum[61] =
9702                                                                             /*MELT_NEED_DBG*/
9703 #if MELT_HAVE_DEBUG
9704                                                                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
9705 #else
9706                                                                             0 /* no melt_need_dbg */
9707 #endif /*MELT_HAVE_DEBUG*/
9708                                                                             ;;
9709                                                                         MELT_LOCATION("warmelt-normal.melt:2057:/ cond");
9710                                                                         /*cond*/
9711                                                                         if (/*_#MELT_NEED_DBG__L82*/ meltfnum[61]) /*then*/
9712                                                                             {
9713                                                                                 /*^cond.then*/
9714                                                                                 /*^block*/
9715                                                                                 /*anyblock*/
9716                                                                                 {
9717
9718                                                                                     /*_#MELT_CALLCOUNT__L83*/ meltfnum[23] =
9719                                                                                         /* for melt_callcount */
9720 #if MELT_HAVE_DEBUG && defined (meltcallcount)
9721                                                                                         meltcallcount  /* melt_callcount debugging */
9722 #else
9723                                                                                         0L  /* melt_callcount without debug */
9724 #endif /* MELT_HAVE_DEBUG melt_callcount */
9725                                                                                         ;;
9726
9727                                                                                     MELT_CHECK_SIGNAL();
9728                                                                                     ;
9729                                                                                     MELT_LOCATION("warmelt-normal.melt:2057:/ apply");
9730                                                                                     /*apply*/
9731                                                                                     {
9732                                                                                         union meltparam_un argtab[7];
9733                                                                                         memset(&argtab, 0, sizeof(argtab));
9734                                                                                         /*^apply.arg*/
9735                                                                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L83*/ meltfnum[23];
9736                                                                                         /*^apply.arg*/
9737                                                                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
9738                                                                                         /*^apply.arg*/
9739                                                                                         argtab[2].meltbp_long = 2057;
9740                                                                                         /*^apply.arg*/
9741                                                                                         argtab[3].meltbp_cstring =  "normexp_symbol fxocc=";
9742                                                                                         /*^apply.arg*/
9743                                                                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FXOCC__V180*/ meltfptr[114];
9744                                                                                         /*^apply.arg*/
9745                                                                                         argtab[5].meltbp_cstring =  " updated sycmap=";
9746                                                                                         /*^apply.arg*/
9747                                                                                         argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SYCMAP__V67*/ meltfptr[59];
9748                                                                                         /*_.MELT_DEBUG_FUN__V183*/
9749                                                                                         meltfptr[182] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
9750                                                                                     }
9751                                                                                     ;
9752                                                                                     /*_._IF___V182*/
9753                                                                                     meltfptr[86] = /*_.MELT_DEBUG_FUN__V183*/ meltfptr[182];;
9754                                                                                     /*epilog*/
9755
9756                                                                                     MELT_LOCATION("warmelt-normal.melt:2057:/ clear");
9757                                                                                     /*clear*/ /*_#MELT_CALLCOUNT__L83*/
9758                                                                                     meltfnum[23] = 0 ;
9759                                                                                     /*^clear*/
9760                                                                                     /*clear*/ /*_.MELT_DEBUG_FUN__V183*/
9761                                                                                     meltfptr[182] = 0 ;
9762                                                                                 }
9763                                                                                 ;
9764                                                                             }
9765                                                                         else    /*^cond.else*/
9766                                                                             {
9767
9768                                                                                 /*_._IF___V182*/ meltfptr[86] =  /*reallynil*/ NULL ;;
9769                                                                             }
9770                                                                         ;
9771
9772                                                                         {
9773                                                                             MELT_LOCATION("warmelt-normal.melt:2057:/ locexp");
9774                                                                             /*void*/
9775                                                                             (void)0;
9776                                                                         }
9777                                                                         ;
9778                                                                         /*^quasiblock*/
9779
9780
9781                                                                         /*epilog*/
9782
9783                                                                         /*^clear*/
9784                                                                         /*clear*/ /*_#MELT_NEED_DBG__L82*/
9785                                                                         meltfnum[61] = 0 ;
9786                                                                         /*^clear*/
9787                                                                         /*clear*/ /*_._IF___V182*/
9788                                                                         meltfptr[86] = 0 ;
9789                                                                     }
9790
9791 #else /*MELT_HAVE_DEBUG*/
9792                                                                     /*^cppif.else*/
9793                                                                     /*^block*/
9794                                                                     /*anyblock*/
9795                                                                     {
9796
9797
9798                                                                         {
9799                                                                             /*^locexp*/
9800                                                                             /*void*/(void)0;
9801                                                                         }
9802                                                                         ;
9803                                                                         /*epilog*/
9804                                                                     }
9805
9806 #endif /*MELT_HAVE_DEBUG*/
9807                                                                     ;
9808                                                                     /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
9809                                                                     {
9810                                                                         /* start foreach_pair_component_in_list meltcit4__EACHLIST */
9811                                                                         for (/*_.CURPAIRPROC__V184*/ meltfptr[182] = melt_list_first( (melt_ptr_t)/*_.PROCS__V16*/ meltfptr[15]);
9812                                                                                                      melt_magic_discr((melt_ptr_t) /*_.CURPAIRPROC__V184*/ meltfptr[182]) == MELTOBMAG_PAIR;
9813                                                                                                      /*_.CURPAIRPROC__V184*/ meltfptr[182] = melt_pair_tail((melt_ptr_t) /*_.CURPAIRPROC__V184*/ meltfptr[182]))
9814                                                                             {
9815                                                                                 /*_.CURPROC__V185*/ meltfptr[86] = melt_pair_head((melt_ptr_t) /*_.CURPAIRPROC__V184*/ meltfptr[182]);
9816
9817
9818
9819 #if MELT_HAVE_DEBUG
9820                                                                                 MELT_LOCATION("warmelt-normal.melt:2062:/ cppif.then");
9821                                                                                 /*^block*/
9822                                                                                 /*anyblock*/
9823                                                                                 {
9824
9825
9826                                                                                     {
9827                                                                                         /*^locexp*/
9828                                                                                         /*melt_increment_dbgcounter*/
9829 #if MELT_HAVE_DEBUG
9830                                                                                         melt_dbgcounter++;
9831 #endif
9832                                                                                         ;
9833                                                                                     }
9834                                                                                     ;
9835
9836                                                                                     MELT_CHECK_SIGNAL();
9837                                                                                     ;
9838                                                                                     /*_#MELT_NEED_DBG__L84*/
9839                                                                                     meltfnum[23] =
9840                                                                                         /*MELT_NEED_DBG*/
9841 #if MELT_HAVE_DEBUG
9842                                                                                         (/*melt_need_dbg*/ melt_need_debug ((int) 0))
9843 #else
9844                                                                                         0 /* no melt_need_dbg */
9845 #endif /*MELT_HAVE_DEBUG*/
9846                                                                                         ;;
9847                                                                                     MELT_LOCATION("warmelt-normal.melt:2062:/ cond");
9848                                                                                     /*cond*/
9849                                                                                     if (/*_#MELT_NEED_DBG__L84*/ meltfnum[23]) /*then*/
9850                                                                                         {
9851                                                                                             /*^cond.then*/
9852                                                                                             /*^block*/
9853                                                                                             /*anyblock*/
9854                                                                                             {
9855
9856                                                                                                 /*_#MELT_CALLCOUNT__L85*/ meltfnum[61] =
9857                                                                                                     /* for melt_callcount */
9858 #if MELT_HAVE_DEBUG && defined (meltcallcount)
9859                                                                                                     meltcallcount  /* melt_callcount debugging */
9860 #else
9861                                                                                                     0L  /* melt_callcount without debug */
9862 #endif /* MELT_HAVE_DEBUG melt_callcount */
9863                                                                                                     ;;
9864
9865                                                                                                 MELT_CHECK_SIGNAL();
9866                                                                                                 ;
9867                                                                                                 MELT_LOCATION("warmelt-normal.melt:2062:/ apply");
9868                                                                                                 /*apply*/
9869                                                                                                 {
9870                                                                                                     union meltparam_un argtab[5];
9871                                                                                                     memset(&argtab, 0, sizeof(argtab));
9872                                                                                                     /*^apply.arg*/
9873                                                                                                     argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L85*/ meltfnum[61];
9874                                                                                                     /*^apply.arg*/
9875                                                                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
9876                                                                                                     /*^apply.arg*/
9877                                                                                                     argtab[2].meltbp_long = 2062;
9878                                                                                                     /*^apply.arg*/
9879                                                                                                     argtab[3].meltbp_cstring =  "normexp_symbol curproc=";
9880                                                                                                     /*^apply.arg*/
9881                                                                                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURPROC__V185*/ meltfptr[86];
9882                                                                                                     /*_.MELT_DEBUG_FUN__V187*/
9883                                                                                                     meltfptr[186] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
9884                                                                                                 }
9885                                                                                                 ;
9886                                                                                                 /*_._IF___V186*/
9887                                                                                                 meltfptr[185] = /*_.MELT_DEBUG_FUN__V187*/ meltfptr[186];;
9888                                                                                                 /*epilog*/
9889
9890                                                                                                 MELT_LOCATION("warmelt-normal.melt:2062:/ clear");
9891                                                                                                 /*clear*/ /*_#MELT_CALLCOUNT__L85*/
9892                                                                                                 meltfnum[61] = 0 ;
9893                                                                                                 /*^clear*/
9894                                                                                                 /*clear*/ /*_.MELT_DEBUG_FUN__V187*/
9895                                                                                                 meltfptr[186] = 0 ;
9896                                                                                             }
9897                                                                                             ;
9898                                                                                         }
9899                                                                                     else    /*^cond.else*/
9900                                                                                         {
9901
9902                                                                                             /*_._IF___V186*/ meltfptr[185] =  /*reallynil*/ NULL ;;
9903                                                                                         }
9904                                                                                     ;
9905
9906                                                                                     {
9907                                                                                         MELT_LOCATION("warmelt-normal.melt:2062:/ locexp");
9908                                                                                         /*void*/
9909                                                                                         (void)0;
9910                                                                                     }
9911                                                                                     ;
9912                                                                                     /*^quasiblock*/
9913
9914
9915                                                                                     /*epilog*/
9916
9917                                                                                     /*^clear*/
9918                                                                                     /*clear*/ /*_#MELT_NEED_DBG__L84*/
9919                                                                                     meltfnum[23] = 0 ;
9920                                                                                     /*^clear*/
9921                                                                                     /*clear*/ /*_._IF___V186*/
9922                                                                                     meltfptr[185] = 0 ;
9923                                                                                 }
9924
9925 #else /*MELT_HAVE_DEBUG*/
9926                                                                                 /*^cppif.else*/
9927                                                                                 /*^block*/
9928                                                                                 /*anyblock*/
9929                                                                                 {
9930
9931
9932                                                                                     {
9933                                                                                         /*^locexp*/
9934                                                                                         /*void*/(void)0;
9935                                                                                     }
9936                                                                                     ;
9937                                                                                     /*epilog*/
9938                                                                                 }
9939
9940 #endif /*MELT_HAVE_DEBUG*/
9941                                                                                 ;
9942
9943 #if MELT_HAVE_DEBUG
9944                                                                                 MELT_LOCATION("warmelt-normal.melt:2063:/ cppif.then");
9945                                                                                 /*^block*/
9946                                                                                 /*anyblock*/
9947                                                                                 {
9948
9949
9950                                                                                     MELT_CHECK_SIGNAL();
9951                                                                                     ;
9952                                                                                     /*_#IS_A__L86*/
9953                                                                                     meltfnum[61] =
9954                                                                                         melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V185*/ meltfptr[86]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ meltfrout->tabval[20])));;
9955                                                                                     MELT_LOCATION("warmelt-normal.melt:2063:/ cond");
9956                                                                                     /*cond*/
9957                                                                                     if (/*_#IS_A__L86*/ meltfnum[61]) /*then*/
9958                                                                                         {
9959                                                                                             /*^cond.then*/
9960                                                                                             /*_._IFELSE___V189*/ meltfptr[185] = (/*nil*/NULL);;
9961                                                                                         }
9962                                                                                     else
9963                                                                                         {
9964                                                                                             MELT_LOCATION("warmelt-normal.melt:2063:/ cond.else");
9965
9966                                                                                             /*^block*/
9967                                                                                             /*anyblock*/
9968                                                                                             {
9969
9970
9971                                                                                                 MELT_CHECK_SIGNAL();
9972                                                                                                 ;
9973                                                                                                 /*^apply*/
9974                                                                                                 /*apply*/
9975                                                                                                 {
9976                                                                                                     union meltparam_un argtab[4];
9977                                                                                                     memset(&argtab, 0, sizeof(argtab));
9978                                                                                                     /*^apply.arg*/
9979                                                                                                     argtab[0].meltbp_cstring =  "check curproc";
9980                                                                                                     /*^apply.arg*/
9981                                                                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
9982                                                                                                     /*^apply.arg*/
9983                                                                                                     argtab[2].meltbp_long = 2063;
9984                                                                                                     /*^apply.arg*/
9985                                                                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURPROC__V185*/ meltfptr[86];
9986                                                                                                     /*_.MELT_ASSERT_FAILURE_FUN__V190*/
9987                                                                                                     meltfptr[189] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
9988                                                                                                 }
9989                                                                                                 ;
9990                                                                                                 /*_._IFELSE___V189*/
9991                                                                                                 meltfptr[185] = /*_.MELT_ASSERT_FAILURE_FUN__V190*/ meltfptr[189];;
9992                                                                                                 /*epilog*/
9993
9994                                                                                                 MELT_LOCATION("warmelt-normal.melt:2063:/ clear");
9995                                                                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V190*/
9996                                                                                                 meltfptr[189] = 0 ;
9997                                                                                             }
9998                                                                                             ;
9999                                                                                         }
10000                                                                                     ;
10001                                                                                     /*_.IFCPP___V188*/
10002                                                                                     meltfptr[186] = /*_._IFELSE___V189*/ meltfptr[185];;
10003                                                                                     /*epilog*/
10004
10005                                                                                     MELT_LOCATION("warmelt-normal.melt:2063:/ clear");
10006                                                                                     /*clear*/ /*_#IS_A__L86*/
10007                                                                                     meltfnum[61] = 0 ;
10008                                                                                     /*^clear*/
10009                                                                                     /*clear*/ /*_._IFELSE___V189*/
10010                                                                                     meltfptr[185] = 0 ;
10011                                                                                 }
10012
10013 #else /*MELT_HAVE_DEBUG*/
10014                                                                                 /*^cppif.else*/
10015                                                                                 /*_.IFCPP___V188*/ meltfptr[186] = (/*nil*/NULL);
10016 #endif /*MELT_HAVE_DEBUG*/
10017                                                                                 ;
10018
10019                                                                                 MELT_CHECK_SIGNAL();
10020                                                                                 ;
10021                                                                                 /*^compute*/
10022                                                                                 /*_#IS_A__L87*/
10023                                                                                 meltfnum[23] =
10024                                                                                     melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V185*/ meltfptr[86]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ meltfrout->tabval[21])));;
10025                                                                                 MELT_LOCATION("warmelt-normal.melt:2065:/ cond");
10026                                                                                 /*cond*/
10027                                                                                 if (/*_#IS_A__L87*/ meltfnum[23]) /*then*/
10028                                                                                     {
10029                                                                                         /*^cond.then*/
10030                                                                                         /*^block*/
10031                                                                                         /*anyblock*/
10032                                                                                         {
10033
10034                                                                                             MELT_LOCATION("warmelt-normal.melt:2066:/ quasiblock");
10035
10036
10037
10038                                                                                             MELT_CHECK_SIGNAL();
10039                                                                                             ;
10040                                                                                             MELT_LOCATION("warmelt-normal.melt:2067:/ quasiblock");
10041
10042
10043                                                                                             /*^rawallocobj*/
10044                                                                                             /*rawallocobj*/
10045                                                                                             {
10046                                                                                                 melt_ptr_t newobj = 0;
10047                                                                                                 melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[22])), (1), "CLASS_REFERENCE");
10048                                                                                                 /*_.INST__V193*/
10049                                                                                                 meltfptr[192] =
10050                                                                                                     newobj;
10051                                                                                             };
10052                                                                                             ;
10053                                                                                             /*^putslot*/
10054                                                                                             /*putslot*/
10055                                                                                             melt_assertmsg("checkobj putslot  _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V193*/ meltfptr[192])) == MELTOBMAG_OBJECT);
10056                                                                                             melt_putfield_object((/*_.INST__V193*/ meltfptr[192]), (0), (/*_.FXOCC__V180*/ meltfptr[114]), "REFERENCED_VALUE");
10057                                                                                             ;
10058                                                                                             /*^touchobj*/
10059
10060                                                                                             melt_dbgtrace_written_object (/*_.INST__V193*/ meltfptr[192], "newly made instance");
10061                                                                                             ;
10062                                                                                             /*_.CLCONT__V192*/
10063                                                                                             meltfptr[185] = /*_.INST__V193*/ meltfptr[192];;
10064                                                                                             MELT_LOCATION("warmelt-normal.melt:2068:/ cond");
10065                                                                                             /*cond*/
10066                                                                                             if (
10067                                                                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V185*/ meltfptr[86]),
10068                                                                                                                               (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[23])))
10069                                                                                             ) /*then*/
10070                                                                                                 {
10071                                                                                                     /*^cond.then*/
10072                                                                                                     /*^getslot*/
10073                                                                                                     {
10074                                                                                                         melt_ptr_t slot=NULL, obj=NULL;
10075                                                                                                         obj = (melt_ptr_t)(/*_.CURPROC__V185*/ meltfptr[86]) /*=obj*/;
10076                                                                                                         melt_object_get_field(slot,obj, 5, "NRCLOP_CONSTLIST");
10077                                                                                                         /*_.CNSTPROCL__V194*/
10078                                                                                                         meltfptr[193] = slot;
10079                                                                                                     };
10080                                                                                                     ;
10081                                                                                                 }
10082                                                                                             else    /*^cond.else*/
10083                                                                                                 {
10084
10085                                                                                                     /*_.CNSTPROCL__V194*/ meltfptr[193] =  /*reallynil*/ NULL ;;
10086                                                                                                 }
10087                                                                                             ;
10088                                                                                             /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
10089                                                                                             {
10090                                                                                                 /* start foreach_pair_component_in_list meltcit5__EACHLIST */
10091                                                                                                 for (/*_.CURPAIRPROCL__V195*/ meltfptr[194] = melt_list_first( (melt_ptr_t)/*_.CNSTPROCL__V194*/ meltfptr[193]);
10092                                                                                                                               melt_magic_discr((melt_ptr_t) /*_.CURPAIRPROCL__V195*/ meltfptr[194]) == MELTOBMAG_PAIR;
10093                                                                                                                               /*_.CURPAIRPROCL__V195*/ meltfptr[194] = melt_pair_tail((melt_ptr_t) /*_.CURPAIRPROCL__V195*/ meltfptr[194]))
10094                                                                                                     {
10095                                                                                                         /*_.CX__V196*/ meltfptr[195] = melt_pair_head((melt_ptr_t) /*_.CURPAIRPROCL__V195*/ meltfptr[194]);
10096
10097
10098
10099                                                                                                         MELT_CHECK_SIGNAL();
10100                                                                                                         ;
10101                                                                                                         /*_#eqeq__L88*/
10102                                                                                                         meltfnum[61] =
10103                                                                                                             ((/*_.CX__V196*/ meltfptr[195]) == (/*_.FXOCC__V180*/ meltfptr[114]));;
10104                                                                                                         MELT_LOCATION("warmelt-normal.melt:2072:/ cond");
10105                                                                                                         /*cond*/
10106                                                                                                         if (/*_#eqeq__L88*/ meltfnum[61]) /*then*/
10107                                                                                                             {
10108                                                                                                                 /*^cond.then*/
10109                                                                                                                 /*^block*/
10110                                                                                                                 /*anyblock*/
10111                                                                                                                 {
10112
10113
10114                                                                                                                     MELT_CHECK_SIGNAL();
10115                                                                                                                     ;
10116                                                                                                                     MELT_LOCATION("warmelt-normal.melt:2073:/ cond");
10117                                                                                                                     /*cond*/
10118                                                                                                                     if (
10119                                                                                                                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLCONT__V192*/ meltfptr[185]),
10120                                                                                                                                                       (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[22])))
10121                                                                                                                     ) /*then*/
10122                                                                                                                         {
10123                                                                                                                             /*^cond.then*/
10124                                                                                                                             /*^block*/
10125                                                                                                                             /*anyblock*/
10126                                                                                                                             {
10127
10128                                                                                                                                 /*^putslot*/
10129                                                                                                                                 /*putslot*/
10130                                                                                                                                 melt_assertmsg("checkobj putslot  _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)(/*_.CLCONT__V192*/ meltfptr[185])) == MELTOBMAG_OBJECT);
10131                                                                                                                                 melt_putfield_object((/*_.CLCONT__V192*/ meltfptr[185]), (0), ((/*nil*/NULL)), "REFERENCED_VALUE");
10132                                                                                                                                 ;
10133                                                                                                                                 /*^touch*/
10134                                                                                                                                 meltgc_touch(/*_.CLCONT__V192*/ meltfptr[185]);
10135                                                                                                                                 ;
10136                                                                                                                                 /*^touchobj*/
10137
10138                                                                                                                                 melt_dbgtrace_written_object (/*_.CLCONT__V192*/ meltfptr[185], "put-fields");
10139                                                                                                                                 ;
10140                                                                                                                                 /*epilog*/
10141                                                                                                                             }
10142                                                                                                                             ;
10143                                                                                                                         } /*noelse*/
10144                                                                                                                     ;
10145                                                                                                                     MELT_LOCATION("warmelt-normal.melt:2072:/ quasiblock");
10146
10147
10148                                                                                                                     /*_.PROGN___V198*/
10149                                                                                                                     meltfptr[197] = (/*nil*/NULL);;
10150                                                                                                                     /*^compute*/
10151                                                                                                                     /*_._IF___V197*/
10152                                                                                                                     meltfptr[196] = /*_.PROGN___V198*/ meltfptr[197];;
10153                                                                                                                     /*epilog*/
10154
10155                                                                                                                     MELT_LOCATION("warmelt-normal.melt:2072:/ clear");
10156                                                                                                                     /*clear*/ /*_.PROGN___V198*/
10157                                                                                                                     meltfptr[197] = 0 ;
10158                                                                                                                 }
10159                                                                                                                 ;
10160                                                                                                             }
10161                                                                                                         else    /*^cond.else*/
10162                                                                                                             {
10163
10164                                                                                                                 /*_._IF___V197*/ meltfptr[196] =  /*reallynil*/ NULL ;;
10165                                                                                                             }
10166                                                                                                         ;
10167                                                                                                     } /* end foreach_pair_component_in_list meltcit5__EACHLIST */
10168                                                                                                 /*_.CURPAIRPROCL__V195*/ meltfptr[194] = NULL;
10169                                                                                                 /*_.CX__V196*/
10170                                                                                                 meltfptr[195] = NULL;
10171
10172
10173                                                                                                 /*citerepilog*/
10174
10175                                                                                                 MELT_LOCATION("warmelt-normal.melt:2069:/ clear");
10176                                                                                                 /*clear*/ /*_.CURPAIRPROCL__V195*/
10177                                                                                                 meltfptr[194] = 0 ;
10178                                                                                                 /*^clear*/
10179                                                                                                 /*clear*/ /*_.CX__V196*/
10180                                                                                                 meltfptr[195] = 0 ;
10181                                                                                                 /*^clear*/
10182                                                                                                 /*clear*/ /*_#eqeq__L88*/
10183                                                                                                 meltfnum[61] = 0 ;
10184                                                                                                 /*^clear*/
10185                                                                                                 /*clear*/ /*_._IF___V197*/
10186                                                                                                 meltfptr[196] = 0 ;
10187                                                                                             } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
10188                                                                                             ;
10189                                                                                             MELT_LOCATION("warmelt-normal.melt:2074:/ quasiblock");
10190
10191
10192                                                                                             /*^cond*/
10193                                                                                             /*cond*/
10194                                                                                             if (
10195                                                                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLCONT__V192*/ meltfptr[185]),
10196                                                                                                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[22])))
10197                                                                                             ) /*then*/
10198                                                                                                 {
10199                                                                                                     /*^cond.then*/
10200                                                                                                     /*^getslot*/
10201                                                                                                     {
10202                                                                                                         melt_ptr_t slot=NULL, obj=NULL;
10203                                                                                                         obj = (melt_ptr_t)(/*_.CLCONT__V192*/ meltfptr[185]) /*=obj*/;
10204                                                                                                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
10205                                                                                                         /*_.NEWCL__V199*/
10206                                                                                                         meltfptr[197] = slot;
10207                                                                                                     };
10208                                                                                                     ;
10209                                                                                                 }
10210                                                                                             else    /*^cond.else*/
10211                                                                                                 {
10212
10213                                                                                                     /*_.NEWCL__V199*/ meltfptr[197] =  /*reallynil*/ NULL ;;
10214                                                                                                 }
10215                                                                                             ;
10216
10217                                                                                             MELT_CHECK_SIGNAL();
10218                                                                                             ;
10219                                                                                             MELT_LOCATION("warmelt-normal.melt:2075:/ cond");
10220                                                                                             /*cond*/
10221                                                                                             if (/*_.NEWCL__V199*/ meltfptr[197]) /*then*/
10222                                                                                                 {
10223                                                                                                     /*^cond.then*/
10224                                                                                                     /*^block*/
10225                                                                                                     /*anyblock*/
10226                                                                                                     {
10227
10228
10229 #if MELT_HAVE_DEBUG
10230                                                                                                         MELT_LOCATION("warmelt-normal.melt:2076:/ cppif.then");
10231                                                                                                         /*^block*/
10232                                                                                                         /*anyblock*/
10233                                                                                                         {
10234
10235
10236                                                                                                             {
10237                                                                                                                 /*^locexp*/
10238                                                                                                                 /*melt_increment_dbgcounter*/
10239 #if MELT_HAVE_DEBUG
10240                                                                                                                 melt_dbgcounter++;
10241 #endif
10242                                                                                                                 ;
10243                                                                                                             }
10244                                                                                                             ;
10245
10246                                                                                                             MELT_CHECK_SIGNAL();
10247                                                                                                             ;
10248                                                                                                             /*_#MELT_NEED_DBG__L89*/
10249                                                                                                             meltfnum[88] =
10250                                                                                                                 /*MELT_NEED_DBG*/
10251 #if MELT_HAVE_DEBUG
10252                                                                                                                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
10253 #else
10254                                                                                                                 0 /* no melt_need_dbg */
10255 #endif /*MELT_HAVE_DEBUG*/
10256                                                                                                                 ;;
10257                                                                                                             MELT_LOCATION("warmelt-normal.melt:2076:/ cond");
10258                                                                                                             /*cond*/
10259                                                                                                             if (/*_#MELT_NEED_DBG__L89*/ meltfnum[88]) /*then*/
10260                                                                                                                 {
10261                                                                                                                     /*^cond.then*/
10262                                                                                                                     /*^block*/
10263                                                                                                                     /*anyblock*/
10264                                                                                                                     {
10265
10266                                                                                                                         /*_#MELT_CALLCOUNT__L90*/ meltfnum[89] =
10267                                                                                                                             /* for melt_callcount */
10268 #if MELT_HAVE_DEBUG && defined (meltcallcount)
10269                                                                                                                             meltcallcount  /* melt_callcount debugging */
10270 #else
10271                                                                                                                             0L  /* melt_callcount without debug */
10272 #endif /* MELT_HAVE_DEBUG melt_callcount */
10273                                                                                                                             ;;
10274
10275                                                                                                                         MELT_CHECK_SIGNAL();
10276                                                                                                                         ;
10277                                                                                                                         MELT_LOCATION("warmelt-normal.melt:2076:/ apply");
10278                                                                                                                         /*apply*/
10279                                                                                                                         {
10280                                                                                                                             union meltparam_un argtab[5];
10281                                                                                                                             memset(&argtab, 0, sizeof(argtab));
10282                                                                                                                             /*^apply.arg*/
10283                                                                                                                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L90*/ meltfnum[89];
10284                                                                                                                             /*^apply.arg*/
10285                                                                                                                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
10286                                                                                                                             /*^apply.arg*/
10287                                                                                                                             argtab[2].meltbp_long = 2076;
10288                                                                                                                             /*^apply.arg*/
10289                                                                                                                             argtab[3].meltbp_cstring =  "normexp_symbol newcl=";
10290                                                                                                                             /*^apply.arg*/
10291                                                                                                                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWCL__V199*/ meltfptr[197];
10292                                                                                                                             /*_.MELT_DEBUG_FUN__V201*/
10293                                                                                                                             meltfptr[200] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
10294                                                                                                                         }
10295                                                                                                                         ;
10296                                                                                                                         /*_._IF___V200*/
10297                                                                                                                         meltfptr[199] = /*_.MELT_DEBUG_FUN__V201*/ meltfptr[200];;
10298                                                                                                                         /*epilog*/
10299
10300                                                                                                                         MELT_LOCATION("warmelt-normal.melt:2076:/ clear");
10301                                                                                                                         /*clear*/ /*_#MELT_CALLCOUNT__L90*/
10302                                                                                                                         meltfnum[89] = 0 ;
10303                                                                                                                         /*^clear*/
10304                                                                                                                         /*clear*/ /*_.MELT_DEBUG_FUN__V201*/
10305                                                                                                                         meltfptr[200] = 0 ;
10306                                                                                                                     }
10307                                                                                                                     ;
10308                                                                                                                 }
10309                                                                                                             else    /*^cond.else*/
10310                                                                                                                 {
10311
10312                                                                                                                     /*_._IF___V200*/ meltfptr[199] =  /*reallynil*/ NULL ;;
10313                                                                                                                 }
10314                                                                                                             ;
10315
10316                                                                                                             {
10317                                                                                                                 MELT_LOCATION("warmelt-normal.melt:2076:/ locexp");
10318                                                                                                                 /*void*/
10319                                                                                                                 (void)0;
10320                                                                                                             }
10321                                                                                                             ;
10322                                                                                                             /*^quasiblock*/
10323
10324
10325                                                                                                             /*epilog*/
10326
10327                                                                                                             /*^clear*/
10328                                                                                                             /*clear*/ /*_#MELT_NEED_DBG__L89*/
10329                                                                                                             meltfnum[88] = 0 ;
10330                                                                                                             /*^clear*/
10331                                                                                                             /*clear*/ /*_._IF___V200*/
10332                                                                                                             meltfptr[199] = 0 ;
10333                                                                                                         }
10334
10335 #else /*MELT_HAVE_DEBUG*/
10336                                                                                                         /*^cppif.else*/
10337                                                                                                         /*^block*/
10338                                                                                                         /*anyblock*/
10339                                                                                                         {
10340
10341
10342                                                                                                             {
10343                                                                                                                 /*^locexp*/
10344                                                                                                                 /*void*/(void)0;
10345                                                                                                             }
10346                                                                                                             ;
10347                                                                                                             /*epilog*/
10348                                                                                                         }
10349
10350 #endif /*MELT_HAVE_DEBUG*/
10351                                                                                                         ;
10352
10353                                                                                                         {
10354                                                                                                             MELT_LOCATION("warmelt-normal.melt:2077:/ locexp");
10355                                                                                                             meltgc_append_list((melt_ptr_t)(/*_.CNSTPROCL__V194*/ meltfptr[193]), (melt_ptr_t)(/*_.NEWCL__V199*/ meltfptr[197]));
10356                                                                                                         }
10357                                                                                                         ;
10358                                                                                                         MELT_LOCATION("warmelt-normal.melt:2075:/ quasiblock");
10359
10360
10361                                                                                                         /*epilog*/
10362                                                                                                     }
10363                                                                                                     ;
10364                                                                                                 }
10365                                                                                             else    /*^cond.else*/
10366                                                                                                 {
10367
10368                                                                                                     /*_._IFELSE___V191*/ meltfptr[189] =  /*reallynil*/ NULL ;;
10369                                                                                                 }
10370                                                                                             ;
10371
10372                                                                                             MELT_LOCATION("warmelt-normal.melt:2074:/ clear");
10373                                                                                             /*clear*/ /*_.NEWCL__V199*/
10374                                                                                             meltfptr[197] = 0 ;
10375
10376                                                                                             MELT_LOCATION("warmelt-normal.melt:2066:/ clear");
10377                                                                                             /*clear*/ /*_.CLCONT__V192*/
10378                                                                                             meltfptr[185] = 0 ;
10379                                                                                             /*^clear*/
10380                                                                                             /*clear*/ /*_.CNSTPROCL__V194*/
10381                                                                                             meltfptr[193] = 0 ;
10382                                                                                             /*epilog*/
10383                                                                                         }
10384                                                                                         ;
10385                                                                                     }
10386                                                                                 else
10387                                                                                     {
10388                                                                                         MELT_LOCATION("warmelt-normal.melt:2065:/ cond.else");
10389
10390                                                                                         /*^block*/
10391                                                                                         /*anyblock*/
10392                                                                                         {
10393
10394
10395                                                                                             MELT_CHECK_SIGNAL();
10396                                                                                             ;
10397                                                                                             /*_#IS_A__L91*/
10398                                                                                             meltfnum[89] =
10399                                                                                                 melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V185*/ meltfptr[86]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[24])));;
10400                                                                                             MELT_LOCATION("warmelt-normal.melt:2079:/ cond");
10401                                                                                             /*cond*/
10402                                                                                             if (/*_#IS_A__L91*/ meltfnum[89]) /*then*/
10403                                                                                                 {
10404                                                                                                     /*^cond.then*/
10405                                                                                                     /*^block*/
10406                                                                                                     /*anyblock*/
10407                                                                                                     {
10408
10409
10410 #if MELT_HAVE_DEBUG
10411                                                                                                         MELT_LOCATION("warmelt-normal.melt:2080:/ cppif.then");
10412                                                                                                         /*^block*/
10413                                                                                                         /*anyblock*/
10414                                                                                                         {
10415
10416
10417                                                                                                             {
10418                                                                                                                 /*^locexp*/
10419                                                                                                                 /*melt_increment_dbgcounter*/
10420 #if MELT_HAVE_DEBUG
10421                                                                                                                 melt_dbgcounter++;
10422 #endif
10423                                                                                                                 ;
10424                                                                                                             }
10425                                                                                                             ;
10426
10427                                                                                                             MELT_CHECK_SIGNAL();
10428                                                                                                             ;
10429                                                                                                             /*_#MELT_NEED_DBG__L92*/
10430                                                                                                             meltfnum[88] =
10431                                                                                                                 /*MELT_NEED_DBG*/
10432 #if MELT_HAVE_DEBUG
10433                                                                                                                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
10434 #else
10435                                                                                                                 0 /* no melt_need_dbg */
10436 #endif /*MELT_HAVE_DEBUG*/
10437                                                                                                                 ;;
10438                                                                                                             MELT_LOCATION("warmelt-normal.melt:2080:/ cond");
10439                                                                                                             /*cond*/
10440                                                                                                             if (/*_#MELT_NEED_DBG__L92*/ meltfnum[88]) /*then*/
10441                                                                                                                 {
10442                                                                                                                     /*^cond.then*/
10443                                                                                                                     /*^block*/
10444                                                                                                                     /*anyblock*/
10445                                                                                                                     {
10446
10447                                                                                                                         /*_#MELT_CALLCOUNT__L93*/ meltfnum[92] =
10448                                                                                                                             /* for melt_callcount */
10449 #if MELT_HAVE_DEBUG && defined (meltcallcount)
10450                                                                                                                             meltcallcount  /* melt_callcount debugging */
10451 #else
10452                                                                                                                             0L  /* melt_callcount without debug */
10453 #endif /* MELT_HAVE_DEBUG melt_callcount */
10454                                                                                                                             ;;
10455
10456                                                                                                                         MELT_CHECK_SIGNAL();
10457                                                                                                                         ;
10458                                                                                                                         MELT_LOCATION("warmelt-normal.melt:2080:/ apply");
10459                                                                                                                         /*apply*/
10460                                                                                                                         {
10461                                                                                                                             union meltparam_un argtab[11];
10462                                                                                                                             memset(&argtab, 0, sizeof(argtab));
10463                                                                                                                             /*^apply.arg*/
10464                                                                                                                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L93*/ meltfnum[92];
10465                                                                                                                             /*^apply.arg*/
10466                                                                                                                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
10467                                                                                                                             /*^apply.arg*/
10468                                                                                                                             argtab[2].meltbp_long = 2080;
10469                                                                                                                             /*^apply.arg*/
10470                                                                                                                             argtab[3].meltbp_cstring =  "normexp_symbol curproc=";
10471                                                                                                                             /*^apply.arg*/
10472                                                                                                                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURPROC__V185*/ meltfptr[86];
10473                                                                                                                             /*^apply.arg*/
10474                                                                                                                             argtab[5].meltbp_cstring =  "\n recv=";
10475                                                                                                                             /*^apply.arg*/
10476                                                                                                                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
10477                                                                                                                             /*^apply.arg*/
10478                                                                                                                             argtab[7].meltbp_cstring =  "\n bind=";
10479                                                                                                                             /*^apply.arg*/
10480                                                                                                                             argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V15*/ meltfptr[5];
10481                                                                                                                             /*^apply.arg*/
10482                                                                                                                             argtab[9].meltbp_cstring =  "\n fxocc=";
10483                                                                                                                             /*^apply.arg*/
10484                                                                                                                             argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.FXOCC__V180*/ meltfptr[114];
10485                                                                                                                             /*_.MELT_DEBUG_FUN__V204*/
10486                                                                                                                             meltfptr[197] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
10487                                                                                                                         }
10488                                                                                                                         ;
10489                                                                                                                         /*_._IF___V203*/
10490                                                                                                                         meltfptr[199] = /*_.MELT_DEBUG_FUN__V204*/ meltfptr[197];;
10491                                                                                                                         /*epilog*/
10492
10493                                                                                                                         MELT_LOCATION("warmelt-normal.melt:2080:/ clear");
10494                                                                                                                         /*clear*/ /*_#MELT_CALLCOUNT__L93*/
10495                                                                                                                         meltfnum[92] = 0 ;
10496                                                                                                                         /*^clear*/
10497                                                                                                                         /*clear*/ /*_.MELT_DEBUG_FUN__V204*/
10498                                                                                                                         meltfptr[197] = 0 ;
10499                                                                                                                     }
10500                                                                                                                     ;
10501                                                                                                                 }
10502                                                                                                             else    /*^cond.else*/
10503                                                                                                                 {
10504
10505                                                                                                                     /*_._IF___V203*/ meltfptr[199] =  /*reallynil*/ NULL ;;
10506                                                                                                                 }
10507                                                                                                             ;
10508
10509                                                                                                             {
10510                                                                                                                 MELT_LOCATION("warmelt-normal.melt:2080:/ locexp");
10511                                                                                                                 /*void*/
10512                                                                                                                 (void)0;
10513                                                                                                             }
10514                                                                                                             ;
10515                                                                                                             /*^quasiblock*/
10516
10517
10518                                                                                                             /*epilog*/
10519
10520                                                                                                             /*^clear*/
10521                                                                                                             /*clear*/ /*_#MELT_NEED_DBG__L92*/
10522                                                                                                             meltfnum[88] = 0 ;
10523                                                                                                             /*^clear*/
10524                                                                                                             /*clear*/ /*_._IF___V203*/
10525                                                                                                             meltfptr[199] = 0 ;
10526                                                                                                         }
10527
10528 #else /*MELT_HAVE_DEBUG*/
10529                                                                                                         /*^cppif.else*/
10530                                                                                                         /*^block*/
10531                                                                                                         /*anyblock*/
10532                                                                                                         {
10533
10534
10535                                                                                                             {
10536                                                                                                                 /*^locexp*/
10537                                                                                                                 /*void*/(void)0;
10538                                                                                                             }
10539                                                                                                             ;
10540                                                                                                             /*epilog*/
10541                                                                                                         }
10542
10543 #endif /*MELT_HAVE_DEBUG*/
10544                                                                                                         ;
10545                                                                                                         MELT_LOCATION("warmelt-normal.melt:2082:/ quasiblock");
10546
10547
10548                                                                                                         /*^cond*/
10549                                                                                                         /*cond*/
10550                                                                                                         if (
10551                                                                                                             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V185*/ meltfptr[86]),
10552                                                                                                                                           (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[23])))
10553                                                                                                         ) /*then*/
10554                                                                                                             {
10555                                                                                                                 /*^cond.then*/
10556                                                                                                                 /*^getslot*/
10557                                                                                                                 {
10558                                                                                                                     melt_ptr_t slot=NULL, obj=NULL;
10559                                                                                                                     obj = (melt_ptr_t)(/*_.CURPROC__V185*/ meltfptr[86]) /*=obj*/;
10560                                                                                                                     melt_object_get_field(slot,obj, 4, "NRCLOP_CLOBINDLIST");
10561                                                                                                                     /*_.HKCLOBINDLIST__V205*/
10562                                                                                                                     meltfptr[185] = slot;
10563                                                                                                                 };
10564                                                                                                                 ;
10565                                                                                                             }
10566                                                                                                         else    /*^cond.else*/
10567                                                                                                             {
10568
10569                                                                                                                 /*_.HKCLOBINDLIST__V205*/ meltfptr[185] =  /*reallynil*/ NULL ;;
10570                                                                                                             }
10571                                                                                                         ;
10572                                                                                                         /*^compute*/
10573                                                                                                         /*_.FOUNDBIND__V206*/
10574                                                                                                         meltfptr[193] = (/*nil*/NULL);;
10575
10576 #if MELT_HAVE_DEBUG
10577                                                                                                         MELT_LOCATION("warmelt-normal.melt:2085:/ cppif.then");
10578                                                                                                         /*^block*/
10579                                                                                                         /*anyblock*/
10580                                                                                                         {
10581
10582
10583                                                                                                             {
10584                                                                                                                 /*^locexp*/
10585                                                                                                                 /*melt_increment_dbgcounter*/
10586 #if MELT_HAVE_DEBUG
10587                                                                                                                 melt_dbgcounter++;
10588 #endif
10589                                                                                                                 ;
10590                                                                                                             }
10591                                                                                                             ;
10592
10593                                                                                                             MELT_CHECK_SIGNAL();
10594                                                                                                             ;
10595                                                                                                             /*_#MELT_NEED_DBG__L94*/
10596                                                                                                             meltfnum[92] =
10597                                                                                                                 /*MELT_NEED_DBG*/
10598 #if MELT_HAVE_DEBUG
10599                                                                                                                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
10600 #else
10601                                                                                                                 0 /* no melt_need_dbg */
10602 #endif /*MELT_HAVE_DEBUG*/
10603                                                                                                                 ;;
10604                                                                                                             MELT_LOCATION("warmelt-normal.melt:2085:/ cond");
10605                                                                                                             /*cond*/
10606                                                                                                             if (/*_#MELT_NEED_DBG__L94*/ meltfnum[92]) /*then*/
10607                                                                                                                 {
10608                                                                                                                     /*^cond.then*/
10609                                                                                                                     /*^block*/
10610                                                                                                                     /*anyblock*/
10611                                                                                                                     {
10612
10613                                                                                                                         /*_#MELT_CALLCOUNT__L95*/ meltfnum[88] =
10614                                                                                                                             /* for melt_callcount */
10615 #if MELT_HAVE_DEBUG && defined (meltcallcount)
10616                                                                                                                             meltcallcount  /* melt_callcount debugging */
10617 #else
10618                                                                                                                             0L  /* melt_callcount without debug */
10619 #endif /* MELT_HAVE_DEBUG melt_callcount */
10620                                                                                                                             ;;
10621
10622                                                                                                                         MELT_CHECK_SIGNAL();
10623                                                                                                                         ;
10624                                                                                                                         MELT_LOCATION("warmelt-normal.melt:2085:/ apply");
10625                                                                                                                         /*apply*/
10626                                                                                                                         {
10627                                                                                                                             union meltparam_un argtab[5];
10628                                                                                                                             memset(&argtab, 0, sizeof(argtab));
10629                                                                                                                             /*^apply.arg*/
10630                                                                                                                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L95*/ meltfnum[88];
10631                                                                                                                             /*^apply.arg*/
10632                                                                                                                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
10633                                                                                                                             /*^apply.arg*/
10634                                                                                                                             argtab[2].meltbp_long = 2085;
10635                                                                                                                             /*^apply.arg*/
10636                                                                                                                             argtab[3].meltbp_cstring =  "normexp_symbol hkclobindlist=";
10637                                                                                                                             /*^apply.arg*/
10638                                                                                                                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.HKCLOBINDLIST__V205*/ meltfptr[185];
10639                                                                                                                             /*_.MELT_DEBUG_FUN__V208*/
10640                                                                                                                             meltfptr[199] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
10641                                                                                                                         }
10642                                                                                                                         ;
10643                                                                                                                         /*_._IF___V207*/
10644                                                                                                                         meltfptr[197] = /*_.MELT_DEBUG_FUN__V208*/ meltfptr[199];;
10645                                                                                                                         /*epilog*/
10646
10647                                                                                                                         MELT_LOCATION("warmelt-normal.melt:2085:/ clear");
10648                                                                                                                         /*clear*/ /*_#MELT_CALLCOUNT__L95*/
10649                                                                                                                         meltfnum[88] = 0 ;
10650                                                                                                                         /*^clear*/
10651                                                                                                                         /*clear*/ /*_.MELT_DEBUG_FUN__V208*/
10652                                                                                                                         meltfptr[199] = 0 ;
10653                                                                                                                     }
10654                                                                                                                     ;
10655                                                                                                                 }
10656                                                                                                             else    /*^cond.else*/
10657                                                                                                                 {
10658
10659                                                                                                                     /*_._IF___V207*/ meltfptr[197] =  /*reallynil*/ NULL ;;
10660                                                                                                                 }
10661                                                                                                             ;
10662
10663                                                                                                             {
10664                                                                                                                 MELT_LOCATION("warmelt-normal.melt:2085:/ locexp");
10665                                                                                                                 /*void*/
10666                                                                                                                 (void)0;
10667                                                                                                             }
10668                                                                                                             ;
10669                                                                                                             /*^quasiblock*/
10670
10671
10672                                                                                                             /*epilog*/
10673
10674                                                                                                             /*^clear*/
10675                                                                                                             /*clear*/ /*_#MELT_NEED_DBG__L94*/
10676                                                                                                             meltfnum[92] = 0 ;
10677                                                                                                             /*^clear*/
10678                                                                                                             /*clear*/ /*_._IF___V207*/
10679                                                                                                             meltfptr[197] = 0 ;
10680                                                                                                         }
10681
10682 #else /*MELT_HAVE_DEBUG*/
10683                                                                                                         /*^cppif.else*/
10684                                                                                                         /*^block*/
10685                                                                                                         /*anyblock*/
10686                                                                                                         {
10687
10688
10689                                                                                                             {
10690                                                                                                                 /*^locexp*/
10691                                                                                                                 /*void*/(void)0;
10692                                                                                                             }
10693                                                                                                             ;
10694                                                                                                             /*epilog*/
10695                                                                                                         }
10696
10697 #endif /*MELT_HAVE_DEBUG*/
10698                                                                                                         ;
10699
10700 #if MELT_HAVE_DEBUG
10701                                                                                                         MELT_LOCATION("warmelt-normal.melt:2086:/ cppif.then");
10702                                                                                                         /*^block*/
10703                                                                                                         /*anyblock*/
10704                                                                                                         {
10705
10706
10707                                                                                                             MELT_CHECK_SIGNAL();
10708                                                                                                             ;
10709                                                                                                             /*_#IS_LIST__L96*/
10710                                                                                                             meltfnum[88] =
10711                                                                                                                 (melt_magic_discr((melt_ptr_t)(/*_.HKCLOBINDLIST__V205*/ meltfptr[185])) == MELTOBMAG_LIST);;
10712                                                                                                             MELT_LOCATION("warmelt-normal.melt:2086:/ cond");
10713                                                                                                             /*cond*/
10714                                                                                                             if (/*_#IS_LIST__L96*/ meltfnum[88]) /*then*/
10715                                                                                                                 {
10716                                                                                                                     /*^cond.then*/
10717                                                                                                                     /*_._IFELSE___V210*/ meltfptr[197] = (/*nil*/NULL);;
10718                                                                                                                 }
10719                                                                                                             else
10720                                                                                                                 {
10721                                                                                                                     MELT_LOCATION("warmelt-normal.melt:2086:/ cond.else");
10722
10723                                                                                                                     /*^block*/
10724                                                                                                                     /*anyblock*/
10725                                                                                                                     {
10726
10727
10728                                                                                                                         MELT_CHECK_SIGNAL();
10729                                                                                                                         ;
10730                                                                                                                         /*^apply*/
10731                                                                                                                         /*apply*/
10732                                                                                                                         {
10733                                                                                                                             union meltparam_un argtab[4];
10734                                                                                                                             memset(&argtab, 0, sizeof(argtab));
10735                                                                                                                             /*^apply.arg*/
10736                                                                                                                             argtab[0].meltbp_cstring =  "check hkclobindlist";
10737                                                                                                                             /*^apply.arg*/
10738                                                                                                                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
10739                                                                                                                             /*^apply.arg*/
10740                                                                                                                             argtab[2].meltbp_long = 2086;
10741                                                                                                                             /*^apply.arg*/
10742                                                                                                                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKCLOBINDLIST__V205*/ meltfptr[185];
10743                                                                                                                             /*_.MELT_ASSERT_FAILURE_FUN__V211*/
10744                                                                                                                             meltfptr[210] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
10745                                                                                                                         }
10746                                                                                                                         ;
10747                                                                                                                         /*_._IFELSE___V210*/
10748                                                                                                                         meltfptr[197] = /*_.MELT_ASSERT_FAILURE_FUN__V211*/ meltfptr[210];;
10749                                                                                                                         /*epilog*/
10750
10751                                                                                                                         MELT_LOCATION("warmelt-normal.melt:2086:/ clear");
10752                                                                                                                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V211*/
10753                                                                                                                         meltfptr[210] = 0 ;
10754                                                                                                                     }
10755                                                                                                                     ;
10756                                                                                                                 }
10757                                                                                                             ;
10758                                                                                                             /*_.IFCPP___V209*/
10759                                                                                                             meltfptr[199] = /*_._IFELSE___V210*/ meltfptr[197];;
10760                                                                                                             /*epilog*/
10761
10762                                                                                                             MELT_LOCATION("warmelt-normal.melt:2086:/ clear");
10763                                                                                                             /*clear*/ /*_#IS_LIST__L96*/
10764                                                                                                             meltfnum[88] = 0 ;
10765                                                                                                             /*^clear*/
10766                                                                                                             /*clear*/ /*_._IFELSE___V210*/
10767                                                                                                             meltfptr[197] = 0 ;
10768                                                                                                         }
10769
10770 #else /*MELT_HAVE_DEBUG*/
10771                                                                                                         /*^cppif.else*/
10772                                                                                                         /*_.IFCPP___V209*/ meltfptr[199] = (/*nil*/NULL);
10773 #endif /*MELT_HAVE_DEBUG*/
10774                                                                                                         ;
10775                                                                                                         /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
10776                                                                                                         {
10777                                                                                                             /* start foreach_pair_component_in_list meltcit6__EACHLIST */
10778                                                                                                             for (/*_.CURPAIRBNDHC__V212*/ meltfptr[210] = melt_list_first( (melt_ptr_t)/*_.HKCLOBINDLIST__V205*/ meltfptr[185]);
10779                                                                                                                                           melt_magic_discr((melt_ptr_t) /*_.CURPAIRBNDHC__V212*/ meltfptr[210]) == MELTOBMAG_PAIR;
10780                                                                                                                                           /*_.CURPAIRBNDHC__V212*/ meltfptr[210] = melt_pair_tail((melt_ptr_t) /*_.CURPAIRBNDHC__V212*/ meltfptr[210]))
10781                                                                                                                 {
10782                                                                                                                     /*_.CURBND__V213*/ meltfptr[197] = melt_pair_head((melt_ptr_t) /*_.CURPAIRBNDHC__V212*/ meltfptr[210]);
10783
10784
10785
10786 #if MELT_HAVE_DEBUG
10787                                                                                                                     MELT_LOCATION("warmelt-normal.melt:2090:/ cppif.then");
10788                                                                                                                     /*^block*/
10789                                                                                                                     /*anyblock*/
10790                                                                                                                     {
10791
10792
10793                                                                                                                         MELT_CHECK_SIGNAL();
10794                                                                                                                         ;
10795                                                                                                                         /*_#IS_A__L97*/
10796                                                                                                                         meltfnum[92] =
10797                                                                                                                             melt_is_instance_of((melt_ptr_t)(/*_.CURBND__V213*/ meltfptr[197]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[25])));;
10798                                                                                                                         MELT_LOCATION("warmelt-normal.melt:2090:/ cond");
10799                                                                                                                         /*cond*/
10800                                                                                                                         if (/*_#IS_A__L97*/ meltfnum[92]) /*then*/
10801                                                                                                                             {
10802                                                                                                                                 /*^cond.then*/
10803                                                                                                                                 /*_._IFELSE___V215*/ meltfptr[214] = (/*nil*/NULL);;
10804                                                                                                                             }
10805                                                                                                                         else
10806                                                                                                                             {
10807                                                                                                                                 MELT_LOCATION("warmelt-normal.melt:2090:/ cond.else");
10808
10809                                                                                                                                 /*^block*/
10810                                                                                                                                 /*anyblock*/
10811                                                                                                                                 {
10812
10813
10814                                                                                                                                     MELT_CHECK_SIGNAL();
10815                                                                                                                                     ;
10816                                                                                                                                     /*^apply*/
10817                                                                                                                                     /*apply*/
10818                                                                                                                                     {
10819                                                                                                                                         union meltparam_un argtab[4];
10820                                                                                                                                         memset(&argtab, 0, sizeof(argtab));
10821                                                                                                                                         /*^apply.arg*/
10822                                                                                                                                         argtab[0].meltbp_cstring =  "check curbnd";
10823                                                                                                                                         /*^apply.arg*/
10824                                                                                                                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
10825                                                                                                                                         /*^apply.arg*/
10826                                                                                                                                         argtab[2].meltbp_long = 2090;
10827                                                                                                                                         /*^apply.arg*/
10828                                                                                                                                         argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURBND__V213*/ meltfptr[197];
10829                                                                                                                                         /*_.MELT_ASSERT_FAILURE_FUN__V216*/
10830                                                                                                                                         meltfptr[215] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
10831                                                                                                                                     }
10832                                                                                                                                     ;
10833                                                                                                                                     /*_._IFELSE___V215*/
10834                                                                                                                                     meltfptr[214] = /*_.MELT_ASSERT_FAILURE_FUN__V216*/ meltfptr[215];;
10835                                                                                                                                     /*epilog*/
10836
10837                                                                                                                                     MELT_LOCATION("warmelt-normal.melt:2090:/ clear");
10838                                                                                                                                     /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V216*/
10839                                                                                                                                     meltfptr[215] = 0 ;
10840                                                                                                                                 }
10841                                                                                                                                 ;
10842                                                                                                                             }
10843                                                                                                                         ;
10844                                                                                                                         /*_.IFCPP___V214*/
10845                                                                                                                         meltfptr[213] = /*_._IFELSE___V215*/ meltfptr[214];;
10846                                                                                                                         /*epilog*/
10847
10848                                                                                                                         MELT_LOCATION("warmelt-normal.melt:2090:/ clear");
10849                                                                                                                         /*clear*/ /*_#IS_A__L97*/
10850                                                                                                                         meltfnum[92] = 0 ;
10851                                                                                                                         /*^clear*/
10852                                                                                                                         /*clear*/ /*_._IFELSE___V215*/
10853                                                                                                                         meltfptr[214] = 0 ;
10854                                                                                                                     }
10855
10856 #else /*MELT_HAVE_DEBUG*/
10857                                                                                                                     /*^cppif.else*/
10858                                                                                                                     /*_.IFCPP___V214*/ meltfptr[213] = (/*nil*/NULL);
10859 #endif /*MELT_HAVE_DEBUG*/
10860                                                                                                                     ;
10861
10862                                                                                                                     MELT_CHECK_SIGNAL();
10863                                                                                                                     ;
10864                                                                                                                     /*^compute*/
10865                                                                                                                     /*_#eqeq__L98*/
10866                                                                                                                     meltfnum[88] =
10867                                                                                                                         ((/*_.CURBND__V213*/ meltfptr[197]) == (/*_.BIND__V15*/ meltfptr[5]));;
10868                                                                                                                     MELT_LOCATION("warmelt-normal.melt:2091:/ cond");
10869                                                                                                                     /*cond*/
10870                                                                                                                     if (/*_#eqeq__L98*/ meltfnum[88]) /*then*/
10871                                                                                                                         {
10872                                                                                                                             /*^cond.then*/
10873                                                                                                                             /*^block*/
10874                                                                                                                             /*anyblock*/
10875                                                                                                                             {
10876
10877                                                                                                                                 /*^compute*/
10878                                                                                                                                 /*_.FOUNDBIND__V206*/ meltfptr[193] = /*_.SETQ___V218*/ meltfptr[214] = /*_.CURBND__V213*/ meltfptr[197];;
10879                                                                                                                                 /*_._IF___V217*/
10880                                                                                                                                 meltfptr[215] = /*_.SETQ___V218*/ meltfptr[214];;
10881                                                                                                                                 /*epilog*/
10882
10883                                                                                                                                 MELT_LOCATION("warmelt-normal.melt:2091:/ clear");
10884                                                                                                                                 /*clear*/ /*_.SETQ___V218*/
10885                                                                                                                                 meltfptr[214] = 0 ;
10886                                                                                                                             }
10887                                                                                                                             ;
10888                                                                                                                         }
10889                                                                                                                     else    /*^cond.else*/
10890                                                                                                                         {
10891
10892                                                                                                                             /*_._IF___V217*/ meltfptr[215] =  /*reallynil*/ NULL ;;
10893                                                                                                                         }
10894                                                                                                                     ;
10895                                                                                                                 } /* end foreach_pair_component_in_list meltcit6__EACHLIST */
10896                                                                                                             /*_.CURPAIRBNDHC__V212*/ meltfptr[210] = NULL;
10897                                                                                                             /*_.CURBND__V213*/
10898                                                                                                             meltfptr[197] = NULL;
10899
10900
10901                                                                                                             /*citerepilog*/
10902
10903                                                                                                             MELT_LOCATION("warmelt-normal.melt:2087:/ clear");
10904                                                                                                             /*clear*/ /*_.CURPAIRBNDHC__V212*/
10905                                                                                                             meltfptr[210] = 0 ;
10906                                                                                                             /*^clear*/
10907                                                                                                             /*clear*/ /*_.CURBND__V213*/
10908                                                                                                             meltfptr[197] = 0 ;
10909                                                                                                             /*^clear*/
10910                                                                                                             /*clear*/ /*_.IFCPP___V214*/
10911                                                                                                             meltfptr[213] = 0 ;
10912                                                                                                             /*^clear*/
10913                                                                                                             /*clear*/ /*_#eqeq__L98*/
10914                                                                                                             meltfnum[88] = 0 ;
10915                                                                                                             /*^clear*/
10916                                                                                                             /*clear*/ /*_._IF___V217*/
10917                                                                                                             meltfptr[215] = 0 ;
10918                                                                                                         } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
10919                                                                                                         ;
10920
10921                                                                                                         MELT_CHECK_SIGNAL();
10922                                                                                                         ;
10923                                                                                                         /*_#NULL__L99*/
10924                                                                                                         meltfnum[92] =
10925                                                                                                             (/*null*/(/*_.FOUNDBIND__V206*/ meltfptr[193]) == NULL);;
10926                                                                                                         MELT_LOCATION("warmelt-normal.melt:2092:/ cond");
10927                                                                                                         /*cond*/
10928                                                                                                         if (/*_#NULL__L99*/ meltfnum[92]) /*then*/
10929                                                                                                             {
10930                                                                                                                 /*^cond.then*/
10931                                                                                                                 /*^block*/
10932                                                                                                                 /*anyblock*/
10933                                                                                                                 {
10934
10935
10936                                                                                                                     {
10937                                                                                                                         MELT_LOCATION("warmelt-normal.melt:2093:/ locexp");
10938                                                                                                                         meltgc_append_list((melt_ptr_t)(/*_.HKCLOBINDLIST__V205*/ meltfptr[185]), (melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]));
10939                                                                                                                     }
10940                                                                                                                     ;
10941
10942 #if MELT_HAVE_DEBUG
10943                                                                                                                     MELT_LOCATION("warmelt-normal.melt:2094:/ cppif.then");
10944                                                                                                                     /*^block*/
10945                                                                                                                     /*anyblock*/
10946                                                                                                                     {
10947
10948
10949                                                                                                                         {
10950                                                                                                                             /*^locexp*/
10951                                                                                                                             /*melt_increment_dbgcounter*/
10952 #if MELT_HAVE_DEBUG
10953                                                                                                                             melt_dbgcounter++;
10954 #endif
10955                                                                                                                             ;
10956                                                                                                                         }
10957                                                                                                                         ;
10958
10959                                                                                                                         MELT_CHECK_SIGNAL();
10960                                                                                                                         ;
10961                                                                                                                         /*_#MELT_NEED_DBG__L100*/
10962                                                                                                                         meltfnum[99] =
10963                                                                                                                             /*MELT_NEED_DBG*/
10964 #if MELT_HAVE_DEBUG
10965                                                                                                                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
10966 #else
10967                                                                                                                             0 /* no melt_need_dbg */
10968 #endif /*MELT_HAVE_DEBUG*/
10969                                                                                                                             ;;
10970                                                                                                                         MELT_LOCATION("warmelt-normal.melt:2094:/ cond");
10971                                                                                                                         /*cond*/
10972                                                                                                                         if (/*_#MELT_NEED_DBG__L100*/ meltfnum[99]) /*then*/
10973                                                                                                                             {
10974                                                                                                                                 /*^cond.then*/
10975                                                                                                                                 /*^block*/
10976                                                                                                                                 /*anyblock*/
10977                                                                                                                                 {
10978
10979                                                                                                                                     /*_#MELT_CALLCOUNT__L101*/ meltfnum[100] =
10980                                                                                                                                         /* for melt_callcount */
10981 #if MELT_HAVE_DEBUG && defined (meltcallcount)
10982                                                                                                                                         meltcallcount  /* melt_callcount debugging */
10983 #else
10984                                                                                                                                         0L  /* melt_callcount without debug */
10985 #endif /* MELT_HAVE_DEBUG melt_callcount */
10986                                                                                                                                         ;;
10987
10988                                                                                                                                     MELT_CHECK_SIGNAL();
10989                                                                                                                                     ;
10990                                                                                                                                     MELT_LOCATION("warmelt-normal.melt:2094:/ apply");
10991                                                                                                                                     /*apply*/
10992                                                                                                                                     {
10993                                                                                                                                         union meltparam_un argtab[5];
10994                                                                                                                                         memset(&argtab, 0, sizeof(argtab));
10995                                                                                                                                         /*^apply.arg*/
10996                                                                                                                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L101*/ meltfnum[100];
10997                                                                                                                                         /*^apply.arg*/
10998                                                                                                                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
10999                                                                                                                                         /*^apply.arg*/
11000                                                                                                                                         argtab[2].meltbp_long = 2094;
11001                                                                                                                                         /*^apply.arg*/
11002                                                                                                                                         argtab[3].meltbp_cstring =  "normexp_symbol updated hkclobindlist=";
11003                                                                                                                                         /*^apply.arg*/
11004                                                                                                                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.HKCLOBINDLIST__V205*/ meltfptr[185];
11005                                                                                                                                         /*_.MELT_DEBUG_FUN__V220*/
11006                                                                                                                                         meltfptr[219] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
11007                                                                                                                                     }
11008                                                                                                                                     ;
11009                                                                                                                                     /*_._IF___V219*/
11010                                                                                                                                     meltfptr[214] = /*_.MELT_DEBUG_FUN__V220*/ meltfptr[219];;
11011                                                                                                                                     /*epilog*/
11012
11013                                                                                                                                     MELT_LOCATION("warmelt-normal.melt:2094:/ clear");
11014                                                                                                                                     /*clear*/ /*_#MELT_CALLCOUNT__L101*/
11015                                                                                                                                     meltfnum[100] = 0 ;
11016                                                                                                                                     /*^clear*/
11017                                                                                                                                     /*clear*/ /*_.MELT_DEBUG_FUN__V220*/
11018                                                                                                                                     meltfptr[219] = 0 ;
11019                                                                                                                                 }
11020                                                                                                                                 ;
11021                                                                                                                             }
11022                                                                                                                         else    /*^cond.else*/
11023                                                                                                                             {
11024
11025                                                                                                                                 /*_._IF___V219*/ meltfptr[214] =  /*reallynil*/ NULL ;;
11026                                                                                                                             }
11027                                                                                                                         ;
11028
11029                                                                                                                         {
11030                                                                                                                             MELT_LOCATION("warmelt-normal.melt:2094:/ locexp");
11031                                                                                                                             /*void*/
11032                                                                                                                             (void)0;
11033                                                                                                                         }
11034                                                                                                                         ;
11035                                                                                                                         /*^quasiblock*/
11036
11037
11038                                                                                                                         /*epilog*/
11039
11040                                                                                                                         /*^clear*/
11041                                                                                                                         /*clear*/ /*_#MELT_NEED_DBG__L100*/
11042                                                                                                                         meltfnum[99] = 0 ;
11043                                                                                                                         /*^clear*/
11044                                                                                                                         /*clear*/ /*_._IF___V219*/
11045                                                                                                                         meltfptr[214] = 0 ;
11046                                                                                                                     }
11047
11048 #else /*MELT_HAVE_DEBUG*/
11049                                                                                                                     /*^cppif.else*/
11050                                                                                                                     /*^block*/
11051                                                                                                                     /*anyblock*/
11052                                                                                                                     {
11053
11054
11055                                                                                                                         {
11056                                                                                                                             /*^locexp*/
11057                                                                                                                             /*void*/(void)0;
11058                                                                                                                         }
11059                                                                                                                         ;
11060                                                                                                                         /*epilog*/
11061                                                                                                                     }
11062
11063 #endif /*MELT_HAVE_DEBUG*/
11064                                                                                                                     ;
11065                                                                                                                     MELT_LOCATION("warmelt-normal.melt:2092:/ quasiblock");
11066
11067
11068                                                                                                                     /*epilog*/
11069                                                                                                                 }
11070                                                                                                                 ;
11071                                                                                                             } /*noelse*/
11072                                                                                                         ;
11073
11074                                                                                                         MELT_LOCATION("warmelt-normal.melt:2082:/ clear");
11075                                                                                                         /*clear*/ /*_.HKCLOBINDLIST__V205*/
11076                                                                                                         meltfptr[185] = 0 ;
11077                                                                                                         /*^clear*/
11078                                                                                                         /*clear*/ /*_.FOUNDBIND__V206*/
11079                                                                                                         meltfptr[193] = 0 ;
11080                                                                                                         /*^clear*/
11081                                                                                                         /*clear*/ /*_.IFCPP___V209*/
11082                                                                                                         meltfptr[199] = 0 ;
11083                                                                                                         /*^clear*/
11084                                                                                                         /*clear*/ /*_#NULL__L99*/
11085                                                                                                         meltfnum[92] = 0 ;
11086                                                                                                         MELT_LOCATION("warmelt-normal.melt:2079:/ quasiblock");
11087
11088
11089                                                                                                         /*epilog*/
11090                                                                                                     }
11091                                                                                                     ;
11092                                                                                                 }
11093                                                                                             else    /*^cond.else*/
11094                                                                                                 {
11095
11096                                                                                                     /*^block*/
11097                                                                                                     /*anyblock*/
11098                                                                                                     {
11099
11100
11101 #if MELT_HAVE_DEBUG
11102                                                                                                         MELT_LOCATION("warmelt-normal.melt:2098:/ cppif.then");
11103                                                                                                         /*^block*/
11104                                                                                                         /*anyblock*/
11105                                                                                                         {
11106
11107
11108                                                                                                             {
11109                                                                                                                 /*^locexp*/
11110                                                                                                                 /*melt_increment_dbgcounter*/
11111 #if MELT_HAVE_DEBUG
11112                                                                                                                 melt_dbgcounter++;
11113 #endif
11114                                                                                                                 ;
11115                                                                                                             }
11116                                                                                                             ;
11117
11118                                                                                                             MELT_CHECK_SIGNAL();
11119                                                                                                             ;
11120                                                                                                             /*_#MELT_NEED_DBG__L102*/
11121                                                                                                             meltfnum[100] =
11122                                                                                                                 /*MELT_NEED_DBG*/
11123 #if MELT_HAVE_DEBUG
11124                                                                                                                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
11125 #else
11126                                                                                                                 0 /* no melt_need_dbg */
11127 #endif /*MELT_HAVE_DEBUG*/
11128                                                                                                                 ;;
11129                                                                                                             MELT_LOCATION("warmelt-normal.melt:2098:/ cond");
11130                                                                                                             /*cond*/
11131                                                                                                             if (/*_#MELT_NEED_DBG__L102*/ meltfnum[100]) /*then*/
11132                                                                                                                 {
11133                                                                                                                     /*^cond.then*/
11134                                                                                                                     /*^block*/
11135                                                                                                                     /*anyblock*/
11136                                                                                                                     {
11137
11138                                                                                                                         /*_#MELT_CALLCOUNT__L103*/ meltfnum[99] =
11139                                                                                                                             /* for melt_callcount */
11140 #if MELT_HAVE_DEBUG && defined (meltcallcount)
11141                                                                                                                             meltcallcount  /* melt_callcount debugging */
11142 #else
11143                                                                                                                             0L  /* melt_callcount without debug */
11144 #endif /* MELT_HAVE_DEBUG melt_callcount */
11145                                                                                                                             ;;
11146
11147                                                                                                                         MELT_CHECK_SIGNAL();
11148                                                                                                                         ;
11149                                                                                                                         MELT_LOCATION("warmelt-normal.melt:2098:/ apply");
11150                                                                                                                         /*apply*/
11151                                                                                                                         {
11152                                                                                                                             union meltparam_un argtab[5];
11153                                                                                                                             memset(&argtab, 0, sizeof(argtab));
11154                                                                                                                             /*^apply.arg*/
11155                                                                                                                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L103*/ meltfnum[99];
11156                                                                                                                             /*^apply.arg*/
11157                                                                                                                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
11158                                                                                                                             /*^apply.arg*/
11159                                                                                                                             argtab[2].meltbp_long = 2098;
11160                                                                                                                             /*^apply.arg*/
11161                                                                                                                             argtab[3].meltbp_cstring =  "normexp_symbol bad curproc=";
11162                                                                                                                             /*^apply.arg*/
11163                                                                                                                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURPROC__V185*/ meltfptr[86];
11164                                                                                                                             /*_.MELT_DEBUG_FUN__V222*/
11165                                                                                                                             meltfptr[214] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
11166                                                                                                                         }
11167                                                                                                                         ;
11168                                                                                                                         /*_._IF___V221*/
11169                                                                                                                         meltfptr[219] = /*_.MELT_DEBUG_FUN__V222*/ meltfptr[214];;
11170                                                                                                                         /*epilog*/
11171
11172                                                                                                                         MELT_LOCATION("warmelt-normal.melt:2098:/ clear");
11173                                                                                                                         /*clear*/ /*_#MELT_CALLCOUNT__L103*/
11174                                                                                                                         meltfnum[99] = 0 ;
11175                                                                                                                         /*^clear*/
11176                                                                                                                         /*clear*/ /*_.MELT_DEBUG_FUN__V222*/
11177                                                                                                                         meltfptr[214] = 0 ;
11178                                                                                                                     }
11179                                                                                                                     ;
11180                                                                                                                 }
11181                                                                                                             else    /*^cond.else*/
11182                                                                                                                 {
11183
11184                                                                                                                     /*_._IF___V221*/ meltfptr[219] =  /*reallynil*/ NULL ;;
11185                                                                                                                 }
11186                                                                                                             ;
11187
11188                                                                                                             {
11189                                                                                                                 MELT_LOCATION("warmelt-normal.melt:2098:/ locexp");
11190                                                                                                                 /*void*/
11191                                                                                                                 (void)0;
11192                                                                                                             }
11193                                                                                                             ;
11194                                                                                                             /*^quasiblock*/
11195
11196
11197                                                                                                             /*epilog*/
11198
11199                                                                                                             /*^clear*/
11200                                                                                                             /*clear*/ /*_#MELT_NEED_DBG__L102*/
11201                                                                                                             meltfnum[100] = 0 ;
11202                                                                                                             /*^clear*/
11203                                                                                                             /*clear*/ /*_._IF___V221*/
11204                                                                                                             meltfptr[219] = 0 ;
11205                                                                                                         }
11206
11207 #else /*MELT_HAVE_DEBUG*/
11208                                                                                                         /*^cppif.else*/
11209                                                                                                         /*^block*/
11210                                                                                                         /*anyblock*/
11211                                                                                                         {
11212
11213
11214                                                                                                             {
11215                                                                                                                 /*^locexp*/
11216                                                                                                                 /*void*/(void)0;
11217                                                                                                             }
11218                                                                                                             ;
11219                                                                                                             /*epilog*/
11220                                                                                                         }
11221
11222 #endif /*MELT_HAVE_DEBUG*/
11223                                                                                                         ;
11224
11225 #if MELT_HAVE_DEBUG
11226                                                                                                         MELT_LOCATION("warmelt-normal.melt:2099:/ cppif.then");
11227                                                                                                         /*^block*/
11228                                                                                                         /*anyblock*/
11229                                                                                                         {
11230
11231
11232                                                                                                             MELT_CHECK_SIGNAL();
11233                                                                                                             ;
11234                                                                                                             /*^cond*/
11235                                                                                                             /*cond*/
11236                                                                                                             if ((/*nil*/NULL)) /*then*/
11237                                                                                                                 {
11238                                                                                                                     /*^cond.then*/
11239                                                                                                                     /*_._IFELSE___V224*/ meltfptr[193] = (/*nil*/NULL);;
11240                                                                                                                 }
11241                                                                                                             else
11242                                                                                                                 {
11243                                                                                                                     MELT_LOCATION("warmelt-normal.melt:2099:/ cond.else");
11244
11245                                                                                                                     /*^block*/
11246                                                                                                                     /*anyblock*/
11247                                                                                                                     {
11248
11249
11250                                                                                                                         MELT_CHECK_SIGNAL();
11251                                                                                                                         ;
11252                                                                                                                         /*^apply*/
11253                                                                                                                         /*apply*/
11254                                                                                                                         {
11255                                                                                                                             union meltparam_un argtab[4];
11256                                                                                                                             memset(&argtab, 0, sizeof(argtab));
11257                                                                                                                             /*^apply.arg*/
11258                                                                                                                             argtab[0].meltbp_cstring =  "normexp_symbol unexpected curproc";
11259                                                                                                                             /*^apply.arg*/
11260                                                                                                                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
11261                                                                                                                             /*^apply.arg*/
11262                                                                                                                             argtab[2].meltbp_long = 2099;
11263                                                                                                                             /*^apply.arg*/
11264                                                                                                                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURPROC__V185*/ meltfptr[86];
11265                                                                                                                             /*_.MELT_ASSERT_FAILURE_FUN__V225*/
11266                                                                                                                             meltfptr[199] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
11267                                                                                                                         }
11268                                                                                                                         ;
11269                                                                                                                         /*_._IFELSE___V224*/
11270                                                                                                                         meltfptr[193] = /*_.MELT_ASSERT_FAILURE_FUN__V225*/ meltfptr[199];;
11271                                                                                                                         /*epilog*/
11272
11273                                                                                                                         MELT_LOCATION("warmelt-normal.melt:2099:/ clear");
11274                                                                                                                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V225*/
11275                                                                                                                         meltfptr[199] = 0 ;
11276                                                                                                                     }
11277                                                                                                                     ;
11278                                                                                                                 }
11279                                                                                                             ;
11280                                                                                                             /*_.IFCPP___V223*/
11281                                                                                                             meltfptr[185] = /*_._IFELSE___V224*/ meltfptr[193];;
11282                                                                                                             /*epilog*/
11283
11284                                                                                                             MELT_LOCATION("warmelt-normal.melt:2099:/ clear");
11285                                                                                                             /*clear*/ /*_._IFELSE___V224*/
11286                                                                                                             meltfptr[193] = 0 ;
11287                                                                                                         }
11288
11289 #else /*MELT_HAVE_DEBUG*/
11290                                                                                                         /*^cppif.else*/
11291                                                                                                         /*_.IFCPP___V223*/ meltfptr[185] = (/*nil*/NULL);
11292 #endif /*MELT_HAVE_DEBUG*/
11293                                                                                                         ;
11294                                                                                                         MELT_LOCATION("warmelt-normal.melt:2097:/ quasiblock");
11295
11296
11297                                                                                                         /*_.PROGN___V226*/
11298                                                                                                         meltfptr[214] = /*_.IFCPP___V223*/ meltfptr[185];;
11299                                                                                                         /*^compute*/
11300                                                                                                         /*_._IFELSE___V202*/
11301                                                                                                         meltfptr[200] = /*_.PROGN___V226*/ meltfptr[214];;
11302                                                                                                         /*epilog*/
11303
11304                                                                                                         MELT_LOCATION("warmelt-normal.melt:2079:/ clear");
11305                                                                                                         /*clear*/ /*_.IFCPP___V223*/
11306                                                                                                         meltfptr[185] = 0 ;
11307                                                                                                         /*^clear*/
11308                                                                                                         /*clear*/ /*_.PROGN___V226*/
11309                                                                                                         meltfptr[214] = 0 ;
11310                                                                                                     }
11311                                                                                                     ;
11312                                                                                                 }
11313                                                                                             ;
11314                                                                                             /*_._IFELSE___V191*/
11315                                                                                             meltfptr[189] = /*_._IFELSE___V202*/ meltfptr[200];;
11316                                                                                             /*epilog*/
11317
11318                                                                                             MELT_LOCATION("warmelt-normal.melt:2065:/ clear");
11319                                                                                             /*clear*/ /*_#IS_A__L91*/
11320                                                                                             meltfnum[89] = 0 ;
11321                                                                                             /*^clear*/
11322                                                                                             /*clear*/ /*_._IFELSE___V202*/
11323                                                                                             meltfptr[200] = 0 ;
11324                                                                                         }
11325                                                                                         ;
11326                                                                                     }
11327                                                                                 ;
11328                                                                             } /* end foreach_pair_component_in_list meltcit4__EACHLIST */
11329                                                                         /*_.CURPAIRPROC__V184*/ meltfptr[182] = NULL;
11330                                                                         /*_.CURPROC__V185*/
11331                                                                         meltfptr[86] = NULL;
11332
11333
11334                                                                         /*citerepilog*/
11335
11336                                                                         MELT_LOCATION("warmelt-normal.melt:2059:/ clear");
11337                                                                         /*clear*/ /*_.CURPAIRPROC__V184*/
11338                                                                         meltfptr[182] = 0 ;
11339                                                                         /*^clear*/
11340                                                                         /*clear*/ /*_.CURPROC__V185*/
11341                                                                         meltfptr[86] = 0 ;
11342                                                                         /*^clear*/
11343                                                                         /*clear*/ /*_.IFCPP___V188*/
11344                                                                         meltfptr[186] = 0 ;
11345                                                                         /*^clear*/
11346                                                                         /*clear*/ /*_#IS_A__L87*/
11347                                                                         meltfnum[23] = 0 ;
11348                                                                         /*^clear*/
11349                                                                         /*clear*/ /*_._IFELSE___V191*/
11350                                                                         meltfptr[189] = 0 ;
11351                                                                     } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
11352                                                                     ;
11353
11354 #if MELT_HAVE_DEBUG
11355                                                                     MELT_LOCATION("warmelt-normal.melt:2102:/ cppif.then");
11356                                                                     /*^block*/
11357                                                                     /*anyblock*/
11358                                                                     {
11359
11360
11361                                                                         {
11362                                                                             /*^locexp*/
11363                                                                             /*melt_increment_dbgcounter*/
11364 #if MELT_HAVE_DEBUG
11365                                                                             melt_dbgcounter++;
11366 #endif
11367                                                                             ;
11368                                                                         }
11369                                                                         ;
11370
11371                                                                         MELT_CHECK_SIGNAL();
11372                                                                         ;
11373                                                                         /*_#MELT_NEED_DBG__L104*/
11374                                                                         meltfnum[92] =
11375                                                                             /*MELT_NEED_DBG*/
11376 #if MELT_HAVE_DEBUG
11377                                                                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
11378 #else
11379                                                                             0 /* no melt_need_dbg */
11380 #endif /*MELT_HAVE_DEBUG*/
11381                                                                             ;;
11382                                                                         MELT_LOCATION("warmelt-normal.melt:2102:/ cond");
11383                                                                         /*cond*/
11384                                                                         if (/*_#MELT_NEED_DBG__L104*/ meltfnum[92]) /*then*/
11385                                                                             {
11386                                                                                 /*^cond.then*/
11387                                                                                 /*^block*/
11388                                                                                 /*anyblock*/
11389                                                                                 {
11390
11391                                                                                     /*_#MELT_CALLCOUNT__L105*/ meltfnum[99] =
11392                                                                                         /* for melt_callcount */
11393 #if MELT_HAVE_DEBUG && defined (meltcallcount)
11394                                                                                         meltcallcount  /* melt_callcount debugging */
11395 #else
11396                                                                                         0L  /* melt_callcount without debug */
11397 #endif /* MELT_HAVE_DEBUG melt_callcount */
11398                                                                                         ;;
11399
11400                                                                                     MELT_CHECK_SIGNAL();
11401                                                                                     ;
11402                                                                                     MELT_LOCATION("warmelt-normal.melt:2102:/ apply");
11403                                                                                     /*apply*/
11404                                                                                     {
11405                                                                                         union meltparam_un argtab[5];
11406                                                                                         memset(&argtab, 0, sizeof(argtab));
11407                                                                                         /*^apply.arg*/
11408                                                                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L105*/ meltfnum[99];
11409                                                                                         /*^apply.arg*/
11410                                                                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
11411                                                                                         /*^apply.arg*/
11412                                                                                         argtab[2].meltbp_long = 2102;
11413                                                                                         /*^apply.arg*/
11414                                                                                         argtab[3].meltbp_cstring =  "normexp_symbol return fxocc=";
11415                                                                                         /*^apply.arg*/
11416                                                                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FXOCC__V180*/ meltfptr[114];
11417                                                                                         /*_.MELT_DEBUG_FUN__V228*/
11418                                                                                         meltfptr[199] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
11419                                                                                     }
11420                                                                                     ;
11421                                                                                     /*_._IF___V227*/
11422                                                                                     meltfptr[219] = /*_.MELT_DEBUG_FUN__V228*/ meltfptr[199];;
11423                                                                                     /*epilog*/
11424
11425                                                                                     MELT_LOCATION("warmelt-normal.melt:2102:/ clear");
11426                                                                                     /*clear*/ /*_#MELT_CALLCOUNT__L105*/
11427                                                                                     meltfnum[99] = 0 ;
11428                                                                                     /*^clear*/
11429                                                                                     /*clear*/ /*_.MELT_DEBUG_FUN__V228*/
11430                                                                                     meltfptr[199] = 0 ;
11431                                                                                 }
11432                                                                                 ;
11433                                                                             }
11434                                                                         else    /*^cond.else*/
11435                                                                             {
11436
11437                                                                                 /*_._IF___V227*/ meltfptr[219] =  /*reallynil*/ NULL ;;
11438                                                                             }
11439                                                                         ;
11440
11441                                                                         {
11442                                                                             MELT_LOCATION("warmelt-normal.melt:2102:/ locexp");
11443                                                                             /*void*/
11444                                                                             (void)0;
11445                                                                         }
11446                                                                         ;
11447                                                                         /*^quasiblock*/
11448
11449
11450                                                                         /*epilog*/
11451
11452                                                                         /*^clear*/
11453                                                                         /*clear*/ /*_#MELT_NEED_DBG__L104*/
11454                                                                         meltfnum[92] = 0 ;
11455                                                                         /*^clear*/
11456                                                                         /*clear*/ /*_._IF___V227*/
11457                                                                         meltfptr[219] = 0 ;
11458                                                                     }
11459
11460 #else /*MELT_HAVE_DEBUG*/
11461                                                                     /*^cppif.else*/
11462                                                                     /*^block*/
11463                                                                     /*anyblock*/
11464                                                                     {
11465
11466
11467                                                                         {
11468                                                                             /*^locexp*/
11469                                                                             /*void*/(void)0;
11470                                                                         }
11471                                                                         ;
11472                                                                         /*epilog*/
11473                                                                     }
11474
11475 #endif /*MELT_HAVE_DEBUG*/
11476                                                                     ;
11477
11478                                                                     MELT_CHECK_SIGNAL();
11479                                                                     ;
11480                                                                     MELT_LOCATION("warmelt-normal.melt:2103:/ quasiblock");
11481
11482
11483                                                                     /*_._RETVAL___V1*/
11484                                                                     meltfptr[0] = /*_.FXOCC__V180*/ meltfptr[114];;
11485                                                                     MELT_LOCATION("warmelt-normal.melt:2103:/ putxtraresult");
11486                                                                     if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
11487                                                                     if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
11488                                                                     if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*nil*/NULL));
11489                                                                     ;
11490                                                                     /*^finalreturn*/
11491                                                                     ;
11492                                                                     /*finalret*/
11493                                                                     goto meltlabend_rout ;
11494                                                                     /*_.LET___V179*/
11495                                                                     meltfptr[138] = /*_.RETURN___V229*/ meltfptr[193];;
11496
11497                                                                     MELT_LOCATION("warmelt-normal.melt:2048:/ clear");
11498                                                                     /*clear*/ /*_.FXOCC__V180*/
11499                                                                     meltfptr[114] = 0 ;
11500                                                                     /*^clear*/
11501                                                                     /*clear*/ /*_.RETURN___V229*/
11502                                                                     meltfptr[193] = 0 ;
11503                                                                     /*_._IFELSE___V178*/
11504                                                                     meltfptr[57] = /*_.LET___V179*/ meltfptr[138];;
11505                                                                     /*epilog*/
11506
11507                                                                     MELT_LOCATION("warmelt-normal.melt:2047:/ clear");
11508                                                                     /*clear*/ /*_.LET___V179*/
11509                                                                     meltfptr[138] = 0 ;
11510                                                                 }
11511                                                                 ;
11512                                                             }
11513                                                         else    /*^cond.else*/
11514                                                             {
11515
11516                                                                 /*^block*/
11517                                                                 /*anyblock*/
11518                                                                 {
11519
11520                                                                     MELT_LOCATION("warmelt-normal.melt:2106:/ quasiblock");
11521
11522
11523
11524                                                                     MELT_CHECK_SIGNAL();
11525                                                                     ;
11526                                                                     MELT_LOCATION("warmelt-normal.melt:2107:/ quasiblock");
11527
11528
11529                                                                     /*^rawallocobj*/
11530                                                                     /*rawallocobj*/
11531                                                                     {
11532                                                                         melt_ptr_t newobj = 0;
11533                                                                         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CLOSEDOCC*/ meltfrout->tabval[31])), (5), "CLASS_NREP_CLOSEDOCC");
11534                                                                         /*_.INST__V232*/
11535                                                                         meltfptr[200] =
11536                                                                             newobj;
11537                                                                     };
11538                                                                     ;
11539                                                                     /*^putslot*/
11540                                                                     /*putslot*/
11541                                                                     melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V232*/ meltfptr[200])) == MELTOBMAG_OBJECT);
11542                                                                     melt_putfield_object((/*_.INST__V232*/ meltfptr[200]), (0), (/*_.PSLOC__V5*/ meltfptr[4]), "NREP_LOC");
11543                                                                     ;
11544                                                                     /*^putslot*/
11545                                                                     /*putslot*/
11546                                                                     melt_assertmsg("checkobj putslot  _ @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V232*/ meltfptr[200])) == MELTOBMAG_OBJECT);
11547                                                                     melt_putfield_object((/*_.INST__V232*/ meltfptr[200]), (1), (/*_.RECV__V2*/ meltfptr[1]), "NOCC_SYMB");
11548                                                                     ;
11549                                                                     /*^putslot*/
11550                                                                     /*putslot*/
11551                                                                     melt_assertmsg("checkobj putslot  _ @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V232*/ meltfptr[200])) == MELTOBMAG_OBJECT);
11552                                                                     melt_putfield_object((/*_.INST__V232*/ meltfptr[200]), (2), ((/*!CTYPE_VALUE*/ meltfrout->tabval[19])), "NOCC_CTYP");
11553                                                                     ;
11554                                                                     /*^putslot*/
11555                                                                     /*putslot*/
11556                                                                     melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V232*/ meltfptr[200])) == MELTOBMAG_OBJECT);
11557                                                                     melt_putfield_object((/*_.INST__V232*/ meltfptr[200]), (3), (/*_.BIND__V15*/ meltfptr[5]), "NOCC_BIND");
11558                                                                     ;
11559                                                                     /*^putslot*/
11560                                                                     /*putslot*/
11561                                                                     melt_assertmsg("checkobj putslot  _ @NCLOC_PROCS", melt_magic_discr((melt_ptr_t)(/*_.INST__V232*/ meltfptr[200])) == MELTOBMAG_OBJECT);
11562                                                                     melt_putfield_object((/*_.INST__V232*/ meltfptr[200]), (4), (/*_.PROCS__V16*/ meltfptr[15]), "NCLOC_PROCS");
11563                                                                     ;
11564                                                                     /*^touchobj*/
11565
11566                                                                     melt_dbgtrace_written_object (/*_.INST__V232*/ meltfptr[200], "newly made instance");
11567                                                                     ;
11568                                                                     /*_.CLOCC__V231*/
11569                                                                     meltfptr[214] = /*_.INST__V232*/ meltfptr[200];;
11570
11571                                                                     {
11572                                                                         MELT_LOCATION("warmelt-normal.melt:2115:/ locexp");
11573                                                                         meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYCMAP__V67*/ meltfptr[59]),
11574                                                                                                (meltobject_ptr_t) (/*_.RECV__V2*/ meltfptr[1]),
11575                                                                                                (melt_ptr_t)(/*_.CLOCC__V231*/ meltfptr[214]));
11576                                                                     }
11577                                                                     ;
11578
11579 #if MELT_HAVE_DEBUG
11580                                                                     MELT_LOCATION("warmelt-normal.melt:2116:/ cppif.then");
11581                                                                     /*^block*/
11582                                                                     /*anyblock*/
11583                                                                     {
11584
11585
11586                                                                         {
11587                                                                             /*^locexp*/
11588                                                                             /*melt_increment_dbgcounter*/
11589 #if MELT_HAVE_DEBUG
11590                                                                             melt_dbgcounter++;
11591 #endif
11592                                                                             ;
11593                                                                         }
11594                                                                         ;
11595
11596                                                                         MELT_CHECK_SIGNAL();
11597                                                                         ;
11598                                                                         /*_#MELT_NEED_DBG__L106*/
11599                                                                         meltfnum[100] =
11600                                                                             /*MELT_NEED_DBG*/
11601 #if MELT_HAVE_DEBUG
11602                                                                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
11603 #else
11604                                                                             0 /* no melt_need_dbg */
11605 #endif /*MELT_HAVE_DEBUG*/
11606                                                                             ;;
11607                                                                         MELT_LOCATION("warmelt-normal.melt:2116:/ cond");
11608                                                                         /*cond*/
11609                                                                         if (/*_#MELT_NEED_DBG__L106*/ meltfnum[100]) /*then*/
11610                                                                             {
11611                                                                                 /*^cond.then*/
11612                                                                                 /*^block*/
11613                                                                                 /*anyblock*/
11614                                                                                 {
11615
11616                                                                                     /*_#MELT_CALLCOUNT__L107*/ meltfnum[89] =
11617                                                                                         /* for melt_callcount */
11618 #if MELT_HAVE_DEBUG && defined (meltcallcount)
11619                                                                                         meltcallcount  /* melt_callcount debugging */
11620 #else
11621                                                                                         0L  /* melt_callcount without debug */
11622 #endif /* MELT_HAVE_DEBUG melt_callcount */
11623                                                                                         ;;
11624
11625                                                                                     MELT_CHECK_SIGNAL();
11626                                                                                     ;
11627                                                                                     MELT_LOCATION("warmelt-normal.melt:2116:/ apply");
11628                                                                                     /*apply*/
11629                                                                                     {
11630                                                                                         union meltparam_un argtab[7];
11631                                                                                         memset(&argtab, 0, sizeof(argtab));
11632                                                                                         /*^apply.arg*/
11633                                                                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L107*/ meltfnum[89];
11634                                                                                         /*^apply.arg*/
11635                                                                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
11636                                                                                         /*^apply.arg*/
11637                                                                                         argtab[2].meltbp_long = 2116;
11638                                                                                         /*^apply.arg*/
11639                                                                                         argtab[3].meltbp_cstring =  "normexp_symbol updated sycmap=";
11640                                                                                         /*^apply.arg*/
11641                                                                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SYCMAP__V67*/ meltfptr[59];
11642                                                                                         /*^apply.arg*/
11643                                                                                         argtab[5].meltbp_cstring =  " clocc=";
11644                                                                                         /*^apply.arg*/
11645                                                                                         argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V231*/ meltfptr[214];
11646                                                                                         /*_.MELT_DEBUG_FUN__V234*/
11647                                                                                         meltfptr[219] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
11648                                                                                     }
11649                                                                                     ;
11650                                                                                     /*_._IF___V233*/
11651                                                                                     meltfptr[199] = /*_.MELT_DEBUG_FUN__V234*/ meltfptr[219];;
11652                                                                                     /*epilog*/
11653
11654                                                                                     MELT_LOCATION("warmelt-normal.melt:2116:/ clear");
11655                                                                                     /*clear*/ /*_#MELT_CALLCOUNT__L107*/
11656                                                                                     meltfnum[89] = 0 ;
11657                                                                                     /*^clear*/
11658                                                                                     /*clear*/ /*_.MELT_DEBUG_FUN__V234*/
11659                                                                                     meltfptr[219] = 0 ;
11660                                                                                 }
11661                                                                                 ;
11662                                                                             }
11663                                                                         else    /*^cond.else*/
11664                                                                             {
11665
11666                                                                                 /*_._IF___V233*/ meltfptr[199] =  /*reallynil*/ NULL ;;
11667                                                                             }
11668                                                                         ;
11669
11670                                                                         {
11671                                                                             MELT_LOCATION("warmelt-normal.melt:2116:/ locexp");
11672                                                                             /*void*/
11673                                                                             (void)0;
11674                                                                         }
11675                                                                         ;
11676                                                                         /*^quasiblock*/
11677
11678
11679                                                                         /*epilog*/
11680
11681                                                                         /*^clear*/
11682                                                                         /*clear*/ /*_#MELT_NEED_DBG__L106*/
11683                                                                         meltfnum[100] = 0 ;
11684                                                                         /*^clear*/
11685                                                                         /*clear*/ /*_._IF___V233*/
11686                                                                         meltfptr[199] = 0 ;
11687                                                                     }
11688
11689 #else /*MELT_HAVE_DEBUG*/
11690                                                                     /*^cppif.else*/
11691                                                                     /*^block*/
11692                                                                     /*anyblock*/
11693                                                                     {
11694
11695
11696                                                                         {
11697                                                                             /*^locexp*/
11698                                                                             /*void*/(void)0;
11699                                                                         }
11700                                                                         ;
11701                                                                         /*epilog*/
11702                                                                     }
11703
11704 #endif /*MELT_HAVE_DEBUG*/
11705                                                                     ;
11706                                                                     /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
11707                                                                     {
11708                                                                         /* start foreach_pair_component_in_list meltcit7__EACHLIST */
11709                                                                         for (/*_.CURPAIR__V235*/ meltfptr[114] = melt_list_first( (melt_ptr_t)/*_.PROCS__V16*/ meltfptr[15]);
11710                                                                                                  melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V235*/ meltfptr[114]) == MELTOBMAG_PAIR;
11711                                                                                                  /*_.CURPAIR__V235*/ meltfptr[114] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V235*/ meltfptr[114]))
11712                                                                             {
11713                                                                                 /*_.CURPROC__V236*/ meltfptr[193] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V235*/ meltfptr[114]);
11714
11715
11716
11717 #if MELT_HAVE_DEBUG
11718                                                                                 MELT_LOCATION("warmelt-normal.melt:2121:/ cppif.then");
11719                                                                                 /*^block*/
11720                                                                                 /*anyblock*/
11721                                                                                 {
11722
11723
11724                                                                                     MELT_CHECK_SIGNAL();
11725                                                                                     ;
11726                                                                                     /*_#IS_A__L108*/
11727                                                                                     meltfnum[99] =
11728                                                                                         melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V236*/ meltfptr[193]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ meltfrout->tabval[20])));;
11729                                                                                     MELT_LOCATION("warmelt-normal.melt:2121:/ cond");
11730                                                                                     /*cond*/
11731                                                                                     if (/*_#IS_A__L108*/ meltfnum[99]) /*then*/
11732                                                                                         {
11733                                                                                             /*^cond.then*/
11734                                                                                             /*_._IFELSE___V238*/ meltfptr[219] = (/*nil*/NULL);;
11735                                                                                         }
11736                                                                                     else
11737                                                                                         {
11738                                                                                             MELT_LOCATION("warmelt-normal.melt:2121:/ cond.else");
11739
11740                                                                                             /*^block*/
11741                                                                                             /*anyblock*/
11742                                                                                             {
11743
11744
11745                                                                                                 MELT_CHECK_SIGNAL();
11746                                                                                                 ;
11747                                                                                                 /*^apply*/
11748                                                                                                 /*apply*/
11749                                                                                                 {
11750                                                                                                     union meltparam_un argtab[4];
11751                                                                                                     memset(&argtab, 0, sizeof(argtab));
11752                                                                                                     /*^apply.arg*/
11753                                                                                                     argtab[0].meltbp_cstring =  "check curproc";
11754                                                                                                     /*^apply.arg*/
11755                                                                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
11756                                                                                                     /*^apply.arg*/
11757                                                                                                     argtab[2].meltbp_long = 2121;
11758                                                                                                     /*^apply.arg*/
11759                                                                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURPROC__V236*/ meltfptr[193];
11760                                                                                                     /*_.MELT_ASSERT_FAILURE_FUN__V239*/
11761                                                                                                     meltfptr[199] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
11762                                                                                                 }
11763                                                                                                 ;
11764                                                                                                 /*_._IFELSE___V238*/
11765                                                                                                 meltfptr[219] = /*_.MELT_ASSERT_FAILURE_FUN__V239*/ meltfptr[199];;
11766                                                                                                 /*epilog*/
11767
11768                                                                                                 MELT_LOCATION("warmelt-normal.melt:2121:/ clear");
11769                                                                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V239*/
11770                                                                                                 meltfptr[199] = 0 ;
11771                                                                                             }
11772                                                                                             ;
11773                                                                                         }
11774                                                                                     ;
11775                                                                                     /*_.IFCPP___V237*/
11776                                                                                     meltfptr[138] = /*_._IFELSE___V238*/ meltfptr[219];;
11777                                                                                     /*epilog*/
11778
11779                                                                                     MELT_LOCATION("warmelt-normal.melt:2121:/ clear");
11780                                                                                     /*clear*/ /*_#IS_A__L108*/
11781                                                                                     meltfnum[99] = 0 ;
11782                                                                                     /*^clear*/
11783                                                                                     /*clear*/ /*_._IFELSE___V238*/
11784                                                                                     meltfptr[219] = 0 ;
11785                                                                                 }
11786
11787 #else /*MELT_HAVE_DEBUG*/
11788                                                                                 /*^cppif.else*/
11789                                                                                 /*_.IFCPP___V237*/ meltfptr[138] = (/*nil*/NULL);
11790 #endif /*MELT_HAVE_DEBUG*/
11791                                                                                 ;
11792                                                                                 MELT_LOCATION("warmelt-normal.melt:2122:/ quasiblock");
11793
11794
11795
11796                                                                                 MELT_CHECK_SIGNAL();
11797                                                                                 ;
11798                                                                                 /*^quasiblock*/
11799
11800
11801                                                                                 /*^rawallocobj*/
11802                                                                                 /*rawallocobj*/
11803                                                                                 {
11804                                                                                     melt_ptr_t newobj = 0;
11805                                                                                     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[22])), (1), "CLASS_REFERENCE");
11806                                                                                     /*_.INST__V241*/
11807                                                                                     meltfptr[219] =
11808                                                                                         newobj;
11809                                                                                 };
11810                                                                                 ;
11811                                                                                 /*^putslot*/
11812                                                                                 /*putslot*/
11813                                                                                 melt_assertmsg("checkobj putslot  _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V241*/ meltfptr[219])) == MELTOBMAG_OBJECT);
11814                                                                                 melt_putfield_object((/*_.INST__V241*/ meltfptr[219]), (0), (/*_.CLOCC__V231*/ meltfptr[214]), "REFERENCED_VALUE");
11815                                                                                 ;
11816                                                                                 /*^touchobj*/
11817
11818                                                                                 melt_dbgtrace_written_object (/*_.INST__V241*/ meltfptr[219], "newly made instance");
11819                                                                                 ;
11820                                                                                 /*_.CLCONT__V240*/
11821                                                                                 meltfptr[199] = /*_.INST__V241*/ meltfptr[219];;
11822                                                                                 MELT_LOCATION("warmelt-normal.melt:2123:/ cond");
11823                                                                                 /*cond*/
11824                                                                                 if (
11825                                                                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V236*/ meltfptr[193]),
11826                                                                                                                   (melt_ptr_t)((/*!CLASS_NREP_CLOSPROC*/ meltfrout->tabval[23])))
11827                                                                                 ) /*then*/
11828                                                                                     {
11829                                                                                         /*^cond.then*/
11830                                                                                         /*^getslot*/
11831                                                                                         {
11832                                                                                             melt_ptr_t slot=NULL, obj=NULL;
11833                                                                                             obj = (melt_ptr_t)(/*_.CURPROC__V236*/ meltfptr[193]) /*=obj*/;
11834                                                                                             melt_object_get_field(slot,obj, 4, "NRCLOP_CLOBINDLIST");
11835                                                                                             /*_.CLOBINDL__V242*/
11836                                                                                             meltfptr[241] = slot;
11837                                                                                         };
11838                                                                                         ;
11839                                                                                     }
11840                                                                                 else    /*^cond.else*/
11841                                                                                     {
11842
11843                                                                                         /*_.CLOBINDL__V242*/ meltfptr[241] =  /*reallynil*/ NULL ;;
11844                                                                                     }
11845                                                                                 ;
11846                                                                                 /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
11847                                                                                 {
11848                                                                                     /* start foreach_pair_component_in_list meltcit8__EACHLIST */
11849                                                                                     for (/*_.CURBNDPAIR__V243*/ meltfptr[242] = melt_list_first( (melt_ptr_t)/*_.CLOBINDL__V242*/ meltfptr[241]);
11850                                                                                                                 melt_magic_discr((melt_ptr_t) /*_.CURBNDPAIR__V243*/ meltfptr[242]) == MELTOBMAG_PAIR;
11851                                                                                                                 /*_.CURBNDPAIR__V243*/ meltfptr[242] = melt_pair_tail((melt_ptr_t) /*_.CURBNDPAIR__V243*/ meltfptr[242]))
11852                                                                                         {
11853                                                                                             /*_.CLBND__V244*/ meltfptr[243] = melt_pair_head((melt_ptr_t) /*_.CURBNDPAIR__V243*/ meltfptr[242]);
11854
11855
11856
11857                                                                                             MELT_CHECK_SIGNAL();
11858                                                                                             ;
11859                                                                                             /*_#eqeq__L109*/
11860                                                                                             meltfnum[92] =
11861                                                                                                 ((/*_.CLBND__V244*/ meltfptr[243]) == (/*_.BIND__V15*/ meltfptr[5]));;
11862                                                                                             MELT_LOCATION("warmelt-normal.melt:2127:/ cond");
11863                                                                                             /*cond*/
11864                                                                                             if (/*_#eqeq__L109*/ meltfnum[92]) /*then*/
11865                                                                                                 {
11866                                                                                                     /*^cond.then*/
11867                                                                                                     /*^block*/
11868                                                                                                     /*anyblock*/
11869                                                                                                     {
11870
11871
11872                                                                                                         MELT_CHECK_SIGNAL();
11873                                                                                                         ;
11874                                                                                                         MELT_LOCATION("warmelt-normal.melt:2128:/ cond");
11875                                                                                                         /*cond*/
11876                                                                                                         if (
11877                                                                                                             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLCONT__V240*/ meltfptr[199]),
11878                                                                                                                                           (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[22])))
11879                                                                                                         ) /*then*/
11880                                                                                                             {
11881                                                                                                                 /*^cond.then*/
11882                                                                                                                 /*^block*/
11883                                                                                                                 /*anyblock*/
11884                                                                                                                 {
11885
11886                                                                                                                     /*^putslot*/
11887                                                                                                                     /*putslot*/
11888                                                                                                                     melt_assertmsg("checkobj putslot  _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)(/*_.CLCONT__V240*/ meltfptr[199])) == MELTOBMAG_OBJECT);
11889                                                                                                                     melt_putfield_object((/*_.CLCONT__V240*/ meltfptr[199]), (0), ((/*nil*/NULL)), "REFERENCED_VALUE");
11890                                                                                                                     ;
11891                                                                                                                     /*^touch*/
11892                                                                                                                     meltgc_touch(/*_.CLCONT__V240*/ meltfptr[199]);
11893                                                                                                                     ;
11894                                                                                                                     /*^touchobj*/
11895
11896                                                                                                                     melt_dbgtrace_written_object (/*_.CLCONT__V240*/ meltfptr[199], "put-fields");
11897                                                                                                                     ;
11898                                                                                                                     /*epilog*/
11899                                                                                                                 }
11900                                                                                                                 ;
11901                                                                                                             } /*noelse*/
11902                                                                                                         ;
11903                                                                                                         MELT_LOCATION("warmelt-normal.melt:2127:/ quasiblock");
11904
11905
11906                                                                                                         /*epilog*/
11907                                                                                                     }
11908                                                                                                     ;
11909                                                                                                 } /*noelse*/
11910                                                                                             ;
11911                                                                                         } /* end foreach_pair_component_in_list meltcit8__EACHLIST */
11912                                                                                     /*_.CURBNDPAIR__V243*/ meltfptr[242] = NULL;
11913                                                                                     /*_.CLBND__V244*/
11914                                                                                     meltfptr[243] = NULL;
11915
11916
11917                                                                                     /*citerepilog*/
11918
11919                                                                                     MELT_LOCATION("warmelt-normal.melt:2124:/ clear");
11920                                                                                     /*clear*/ /*_.CURBNDPAIR__V243*/
11921                                                                                     meltfptr[242] = 0 ;
11922                                                                                     /*^clear*/
11923                                                                                     /*clear*/ /*_.CLBND__V244*/
11924                                                                                     meltfptr[243] = 0 ;
11925                                                                                     /*^clear*/
11926                                                                                     /*clear*/ /*_#eqeq__L109*/
11927                                                                                     meltfnum[92] = 0 ;
11928                                                                                 } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
11929                                                                                 ;
11930                                                                                 MELT_LOCATION("warmelt-normal.melt:2129:/ quasiblock");
11931
11932
11933                                                                                 /*^cond*/
11934                                                                                 /*cond*/
11935                                                                                 if (
11936                                                                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLCONT__V240*/ meltfptr[199]),
11937                                                                                                                   (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[22])))
11938                                                                                 ) /*then*/
11939                                                                                     {
11940                                                                                         /*^cond.then*/
11941                                                                                         /*^getslot*/
11942                                                                                         {
11943                                                                                             melt_ptr_t slot=NULL, obj=NULL;
11944                                                                                             obj = (melt_ptr_t)(/*_.CLCONT__V240*/ meltfptr[199]) /*=obj*/;
11945                                                                                             melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
11946                                                                                             /*_.NEWCL__V245*/
11947                                                                                             meltfptr[244] = slot;
11948                                                                                         };
11949                                                                                         ;
11950                                                                                     }
11951                                                                                 else    /*^cond.else*/
11952                                                                                     {
11953
11954                                                                                         /*_.NEWCL__V245*/ meltfptr[244] =  /*reallynil*/ NULL ;;
11955                                                                                     }
11956                                                                                 ;
11957
11958                                                                                 MELT_CHECK_SIGNAL();
11959                                                                                 ;
11960                                                                                 MELT_LOCATION("warmelt-normal.melt:2130:/ cond");
11961                                                                                 /*cond*/
11962                                                                                 if (/*_.NEWCL__V245*/ meltfptr[244]) /*then*/
11963                                                                                     {
11964                                                                                         /*^cond.then*/
11965                                                                                         /*^block*/
11966                                                                                         /*anyblock*/
11967                                                                                         {
11968
11969
11970                                                                                             {
11971                                                                                                 /*^locexp*/
11972                                                                                                 meltgc_append_list((melt_ptr_t)(/*_.CLOBINDL__V242*/ meltfptr[241]), (melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]));
11973                                                                                             }
11974                                                                                             ;
11975                                                                                             /*epilog*/
11976                                                                                         }
11977                                                                                         ;
11978                                                                                     } /*noelse*/
11979                                                                                 ;
11980
11981                                                                                 MELT_LOCATION("warmelt-normal.melt:2129:/ clear");
11982                                                                                 /*clear*/ /*_.NEWCL__V245*/
11983                                                                                 meltfptr[244] = 0 ;
11984
11985                                                                                 MELT_LOCATION("warmelt-normal.melt:2122:/ clear");
11986                                                                                 /*clear*/ /*_.CLCONT__V240*/
11987                                                                                 meltfptr[199] = 0 ;
11988                                                                                 /*^clear*/
11989                                                                                 /*clear*/ /*_.CLOBINDL__V242*/
11990                                                                                 meltfptr[241] = 0 ;
11991                                                                             } /* end foreach_pair_component_in_list meltcit7__EACHLIST */
11992                                                                         /*_.CURPAIR__V235*/ meltfptr[114] = NULL;
11993                                                                         /*_.CURPROC__V236*/
11994                                                                         meltfptr[193] = NULL;
11995
11996
11997                                                                         /*citerepilog*/
11998
11999                                                                         MELT_LOCATION("warmelt-normal.melt:2118:/ clear");
12000                                                                         /*clear*/ /*_.CURPAIR__V235*/
12001                                                                         meltfptr[114] = 0 ;
12002                                                                         /*^clear*/
12003                                                                         /*clear*/ /*_.CURPROC__V236*/
12004                                                                         meltfptr[193] = 0 ;
12005                                                                         /*^clear*/
12006                                                                         /*clear*/ /*_.IFCPP___V237*/
12007                                                                         meltfptr[138] = 0 ;
12008                                                                     } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
12009                                                                     ;
12010
12011                                                                     MELT_CHECK_SIGNAL();
12012                                                                     ;
12013                                                                     MELT_LOCATION("warmelt-normal.melt:2132:/ quasiblock");
12014
12015
12016                                                                     /*_._RETVAL___V1*/
12017                                                                     meltfptr[0] = /*_.CLOCC__V231*/ meltfptr[214];;
12018                                                                     MELT_LOCATION("warmelt-normal.melt:2132:/ putxtraresult");
12019                                                                     if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
12020                                                                     if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
12021                                                                     if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*nil*/NULL));
12022                                                                     ;
12023                                                                     /*^finalreturn*/
12024                                                                     ;
12025                                                                     /*finalret*/
12026                                                                     goto meltlabend_rout ;
12027                                                                     /*_.LET___V230*/
12028                                                                     meltfptr[185] = /*_.RETURN___V246*/ meltfptr[244];;
12029
12030                                                                     MELT_LOCATION("warmelt-normal.melt:2106:/ clear");
12031                                                                     /*clear*/ /*_.CLOCC__V231*/
12032                                                                     meltfptr[214] = 0 ;
12033                                                                     /*^clear*/
12034                                                                     /*clear*/ /*_.RETURN___V246*/
12035                                                                     meltfptr[244] = 0 ;
12036                                                                     /*_._IFELSE___V178*/
12037                                                                     meltfptr[57] = /*_.LET___V230*/ meltfptr[185];;
12038                                                                     /*epilog*/
12039
12040                                                                     MELT_LOCATION("warmelt-normal.melt:2047:/ clear");
12041                                                                     /*clear*/ /*_.LET___V230*/
12042                                                                     meltfptr[185] = 0 ;
12043                                                                 }
12044                                                                 ;
12045                                                             }
12046                                                         ;
12047                                                         /*_.LET___V166*/
12048                                                         meltfptr[120] = /*_._IFELSE___V178*/ meltfptr[57];;
12049
12050                                                         MELT_LOCATION("warmelt-normal.melt:2032:/ clear");
12051                                                         /*clear*/ /*_#IS_A__L78*/
12052                                                         meltfnum[34] = 0 ;
12053                                                         /*^clear*/
12054                                                         /*clear*/ /*_.BTY__V167*/
12055                                                         meltfptr[119] = 0 ;
12056                                                         /*^clear*/
12057                                                         /*clear*/ /*_._IF___V172*/
12058                                                         meltfptr[80] = 0 ;
12059                                                         /*^clear*/
12060                                                         /*clear*/ /*_.SETQ___V177*/
12061                                                         meltfptr[78] = 0 ;
12062                                                         /*^clear*/
12063                                                         /*clear*/ /*_#IS_A__L81*/
12064                                                         meltfnum[53] = 0 ;
12065                                                         /*^clear*/
12066                                                         /*clear*/ /*_._IFELSE___V178*/
12067                                                         meltfptr[57] = 0 ;
12068                                                         MELT_LOCATION("warmelt-normal.melt:2028:/ quasiblock");
12069
12070
12071                                                         /*_.PROGN___V247*/
12072                                                         meltfptr[199] = /*_.LET___V166*/ meltfptr[120];;
12073                                                         /*^compute*/
12074                                                         /*_._IFELSE___V163*/
12075                                                         meltfptr[42] = /*_.PROGN___V247*/ meltfptr[199];;
12076                                                         /*epilog*/
12077
12078                                                         MELT_LOCATION("warmelt-normal.melt:2028:/ clear");
12079                                                         /*clear*/ /*_.LET___V166*/
12080                                                         meltfptr[120] = 0 ;
12081                                                         /*^clear*/
12082                                                         /*clear*/ /*_.PROGN___V247*/
12083                                                         meltfptr[199] = 0 ;
12084                                                     }
12085                                                     ;
12086                                                 }
12087                                             else    /*^cond.else*/
12088                                                 {
12089
12090                                                     /*^block*/
12091                                                     /*anyblock*/
12092                                                     {
12093
12094
12095 #if MELT_HAVE_DEBUG
12096                                                         MELT_LOCATION("warmelt-normal.melt:2137:/ cppif.then");
12097                                                         /*^block*/
12098                                                         /*anyblock*/
12099                                                         {
12100
12101
12102                                                             {
12103                                                                 /*^locexp*/
12104                                                                 /*melt_increment_dbgcounter*/
12105 #if MELT_HAVE_DEBUG
12106                                                                 melt_dbgcounter++;
12107 #endif
12108                                                                 ;
12109                                                             }
12110                                                             ;
12111
12112                                                             MELT_CHECK_SIGNAL();
12113                                                             ;
12114                                                             /*_#MELT_NEED_DBG__L110*/
12115                                                             meltfnum[89] =
12116                                                                 /*MELT_NEED_DBG*/
12117 #if MELT_HAVE_DEBUG
12118                                                                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
12119 #else
12120                                                                 0 /* no melt_need_dbg */
12121 #endif /*MELT_HAVE_DEBUG*/
12122                                                                 ;;
12123                                                             MELT_LOCATION("warmelt-normal.melt:2137:/ cond");
12124                                                             /*cond*/
12125                                                             if (/*_#MELT_NEED_DBG__L110*/ meltfnum[89]) /*then*/
12126                                                                 {
12127                                                                     /*^cond.then*/
12128                                                                     /*^block*/
12129                                                                     /*anyblock*/
12130                                                                     {
12131
12132                                                                         /*_#MELT_CALLCOUNT__L111*/ meltfnum[100] =
12133                                                                             /* for melt_callcount */
12134 #if MELT_HAVE_DEBUG && defined (meltcallcount)
12135                                                                             meltcallcount  /* melt_callcount debugging */
12136 #else
12137                                                                             0L  /* melt_callcount without debug */
12138 #endif /* MELT_HAVE_DEBUG melt_callcount */
12139                                                                             ;;
12140
12141                                                                         MELT_CHECK_SIGNAL();
12142                                                                         ;
12143                                                                         MELT_LOCATION("warmelt-normal.melt:2137:/ apply");
12144                                                                         /*apply*/
12145                                                                         {
12146                                                                             union meltparam_un argtab[9];
12147                                                                             memset(&argtab, 0, sizeof(argtab));
12148                                                                             /*^apply.arg*/
12149                                                                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L111*/ meltfnum[100];
12150                                                                             /*^apply.arg*/
12151                                                                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
12152                                                                             /*^apply.arg*/
12153                                                                             argtab[2].meltbp_long = 2137;
12154                                                                             /*^apply.arg*/
12155                                                                             argtab[3].meltbp_cstring =  "normexp_symbol before normalize_binding bind=";
12156                                                                             /*^apply.arg*/
12157                                                                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V15*/ meltfptr[5];
12158                                                                             /*^apply.arg*/
12159                                                                             argtab[5].meltbp_cstring =  " for recv=";
12160                                                                             /*^apply.arg*/
12161                                                                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
12162                                                                             /*^apply.arg*/
12163                                                                             argtab[7].meltbp_cstring =  " psloc=";
12164                                                                             /*^apply.arg*/
12165                                                                             argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4];
12166                                                                             /*_.MELT_DEBUG_FUN__V249*/
12167                                                                             meltfptr[214] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
12168                                                                         }
12169                                                                         ;
12170                                                                         /*_._IF___V248*/
12171                                                                         meltfptr[241] = /*_.MELT_DEBUG_FUN__V249*/ meltfptr[214];;
12172                                                                         /*epilog*/
12173
12174                                                                         MELT_LOCATION("warmelt-normal.melt:2137:/ clear");
12175                                                                         /*clear*/ /*_#MELT_CALLCOUNT__L111*/
12176                                                                         meltfnum[100] = 0 ;
12177                                                                         /*^clear*/
12178                                                                         /*clear*/ /*_.MELT_DEBUG_FUN__V249*/
12179                                                                         meltfptr[214] = 0 ;
12180                                                                     }
12181                                                                     ;
12182                                                                 }
12183                                                             else    /*^cond.else*/
12184                                                                 {
12185
12186                                                                     /*_._IF___V248*/ meltfptr[241] =  /*reallynil*/ NULL ;;
12187                                                                 }
12188                                                             ;
12189
12190                                                             {
12191                                                                 MELT_LOCATION("warmelt-normal.melt:2137:/ locexp");
12192                                                                 /*void*/
12193                                                                 (void)0;
12194                                                             }
12195                                                             ;
12196                                                             /*^quasiblock*/
12197
12198
12199                                                             /*epilog*/
12200
12201                                                             /*^clear*/
12202                                                             /*clear*/ /*_#MELT_NEED_DBG__L110*/
12203                                                             meltfnum[89] = 0 ;
12204                                                             /*^clear*/
12205                                                             /*clear*/ /*_._IF___V248*/
12206                                                             meltfptr[241] = 0 ;
12207                                                         }
12208
12209 #else /*MELT_HAVE_DEBUG*/
12210                                                         /*^cppif.else*/
12211                                                         /*^block*/
12212                                                         /*anyblock*/
12213                                                         {
12214
12215
12216                                                             {
12217                                                                 /*^locexp*/
12218                                                                 /*void*/(void)0;
12219                                                             }
12220                                                             ;
12221                                                             /*epilog*/
12222                                                         }
12223
12224 #endif /*MELT_HAVE_DEBUG*/
12225                                                         ;
12226                                                         MELT_LOCATION("warmelt-normal.melt:2138:/ quasiblock");
12227
12228
12229
12230                                                         MELT_CHECK_SIGNAL();
12231                                                         ;
12232                                                         MELT_LOCATION("warmelt-normal.melt:2139:/ msend");
12233                                                         /*msend*/
12234                                                         {
12235                                                             union meltparam_un argtab[4];
12236                                                             memset(&argtab, 0, sizeof(argtab));
12237                                                             /*^ojbmsend.arg*/
12238                                                             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
12239                                                             /*^ojbmsend.arg*/
12240                                                             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
12241                                                             /*^ojbmsend.arg*/
12242                                                             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.PROCS__V16*/ meltfptr[15];
12243                                                             /*^ojbmsend.arg*/
12244                                                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4];
12245                                                             /*_.RESNORMBIND__V251*/
12246                                                             meltfptr[185] = meltgc_send((melt_ptr_t)(/*_.BIND__V15*/ meltfptr[5]), (melt_ptr_t)((/*!NORMALIZE_BINDING*/ meltfrout->tabval[32])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
12247                                                         }
12248                                                         ;
12249
12250 #if MELT_HAVE_DEBUG
12251                                                         MELT_LOCATION("warmelt-normal.melt:2141:/ cppif.then");
12252                                                         /*^block*/
12253                                                         /*anyblock*/
12254                                                         {
12255
12256
12257                                                             {
12258                                                                 /*^locexp*/
12259                                                                 /*melt_increment_dbgcounter*/
12260 #if MELT_HAVE_DEBUG
12261                                                                 melt_dbgcounter++;
12262 #endif
12263                                                                 ;
12264                                                             }
12265                                                             ;
12266
12267                                                             MELT_CHECK_SIGNAL();
12268                                                             ;
12269                                                             /*_#MELT_NEED_DBG__L112*/
12270                                                             meltfnum[99] =
12271                                                                 /*MELT_NEED_DBG*/
12272 #if MELT_HAVE_DEBUG
12273                                                                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
12274 #else
12275                                                                 0 /* no melt_need_dbg */
12276 #endif /*MELT_HAVE_DEBUG*/
12277                                                                 ;;
12278                                                             MELT_LOCATION("warmelt-normal.melt:2141:/ cond");
12279                                                             /*cond*/
12280                                                             if (/*_#MELT_NEED_DBG__L112*/ meltfnum[99]) /*then*/
12281                                                                 {
12282                                                                     /*^cond.then*/
12283                                                                     /*^block*/
12284                                                                     /*anyblock*/
12285                                                                     {
12286
12287                                                                         /*_#MELT_CALLCOUNT__L113*/ meltfnum[34] =
12288                                                                             /* for melt_callcount */
12289 #if MELT_HAVE_DEBUG && defined (meltcallcount)
12290                                                                             meltcallcount  /* melt_callcount debugging */
12291 #else
12292                                                                             0L  /* melt_callcount without debug */
12293 #endif /* MELT_HAVE_DEBUG melt_callcount */
12294                                                                             ;;
12295
12296                                                                         MELT_CHECK_SIGNAL();
12297                                                                         ;
12298                                                                         MELT_LOCATION("warmelt-normal.melt:2141:/ apply");
12299                                                                         /*apply*/
12300                                                                         {
12301                                                                             union meltparam_un argtab[11];
12302                                                                             memset(&argtab, 0, sizeof(argtab));
12303                                                                             /*^apply.arg*/
12304                                                                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L113*/ meltfnum[34];
12305                                                                             /*^apply.arg*/
12306                                                                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
12307                                                                             /*^apply.arg*/
12308                                                                             argtab[2].meltbp_long = 2141;
12309                                                                             /*^apply.arg*/
12310                                                                             argtab[3].meltbp_cstring =  "normexp_symbol after normalize_binding resnormbind=";
12311                                                                             /*^apply.arg*/
12312                                                                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RESNORMBIND__V251*/ meltfptr[185];
12313                                                                             /*^apply.arg*/
12314                                                                             argtab[5].meltbp_cstring =  " for bind=";
12315                                                                             /*^apply.arg*/
12316                                                                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.BIND__V15*/ meltfptr[5];
12317                                                                             /*^apply.arg*/
12318                                                                             argtab[7].meltbp_cstring =  " recv=";
12319                                                                             /*^apply.arg*/
12320                                                                             argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
12321                                                                             /*^apply.arg*/
12322                                                                             argtab[9].meltbp_cstring =  " psloc=";
12323                                                                             /*^apply.arg*/
12324                                                                             argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4];
12325                                                                             /*_.MELT_DEBUG_FUN__V253*/
12326                                                                             meltfptr[80] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
12327                                                                         }
12328                                                                         ;
12329                                                                         /*_._IF___V252*/
12330                                                                         meltfptr[119] = /*_.MELT_DEBUG_FUN__V253*/ meltfptr[80];;
12331                                                                         /*epilog*/
12332
12333                                                                         MELT_LOCATION("warmelt-normal.melt:2141:/ clear");
12334                                                                         /*clear*/ /*_#MELT_CALLCOUNT__L113*/
12335                                                                         meltfnum[34] = 0 ;
12336                                                                         /*^clear*/
12337                                                                         /*clear*/ /*_.MELT_DEBUG_FUN__V253*/
12338                                                                         meltfptr[80] = 0 ;
12339                                                                     }
12340                                                                     ;
12341                                                                 }
12342                                                             else    /*^cond.else*/
12343                                                                 {
12344
12345                                                                     /*_._IF___V252*/ meltfptr[119] =  /*reallynil*/ NULL ;;
12346                                                                 }
12347                                                             ;
12348
12349                                                             {
12350                                                                 MELT_LOCATION("warmelt-normal.melt:2141:/ locexp");
12351                                                                 /*void*/
12352                                                                 (void)0;
12353                                                             }
12354                                                             ;
12355                                                             /*^quasiblock*/
12356
12357
12358                                                             /*epilog*/
12359
12360                                                             /*^clear*/
12361                                                             /*clear*/ /*_#MELT_NEED_DBG__L112*/
12362                                                             meltfnum[99] = 0 ;
12363                                                             /*^clear*/
12364                                                             /*clear*/ /*_._IF___V252*/
12365                                                             meltfptr[119] = 0 ;
12366                                                         }
12367
12368 #else /*MELT_HAVE_DEBUG*/
12369                                                         /*^cppif.else*/
12370                                                         /*^block*/
12371                                                         /*anyblock*/
12372                                                         {
12373
12374
12375                                                             {
12376                                                                 /*^locexp*/
12377                                                                 /*void*/(void)0;
12378                                                             }
12379                                                             ;
12380                                                             /*epilog*/
12381                                                         }
12382
12383 #endif /*MELT_HAVE_DEBUG*/
12384                                                         ;
12385
12386                                                         MELT_CHECK_SIGNAL();
12387                                                         ;
12388                                                         MELT_LOCATION("warmelt-normal.melt:2143:/ quasiblock");
12389
12390
12391                                                         /*_._RETVAL___V1*/
12392                                                         meltfptr[0] = /*_.RESNORMBIND__V251*/ meltfptr[185];;
12393                                                         MELT_LOCATION("warmelt-normal.melt:2143:/ putxtraresult");
12394                                                         if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
12395                                                         if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
12396                                                         if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*nil*/NULL));
12397                                                         ;
12398                                                         /*^finalreturn*/
12399                                                         ;
12400                                                         /*finalret*/
12401                                                         goto meltlabend_rout ;
12402                                                         /*_.LET___V250*/
12403                                                         meltfptr[244] = /*_.RETURN___V254*/ meltfptr[78];;
12404
12405                                                         MELT_LOCATION("warmelt-normal.melt:2138:/ clear");
12406                                                         /*clear*/ /*_.RESNORMBIND__V251*/
12407                                                         meltfptr[185] = 0 ;
12408                                                         /*^clear*/
12409                                                         /*clear*/ /*_.RETURN___V254*/
12410                                                         meltfptr[78] = 0 ;
12411                                                         MELT_LOCATION("warmelt-normal.melt:2136:/ quasiblock");
12412
12413
12414                                                         /*_.PROGN___V255*/
12415                                                         meltfptr[57] = /*_.LET___V250*/ meltfptr[244];;
12416                                                         /*^compute*/
12417                                                         /*_._IFELSE___V163*/
12418                                                         meltfptr[42] = /*_.PROGN___V255*/ meltfptr[57];;
12419                                                         /*epilog*/
12420
12421                                                         MELT_LOCATION("warmelt-normal.melt:2028:/ clear");
12422                                                         /*clear*/ /*_.LET___V250*/
12423                                                         meltfptr[244] = 0 ;
12424                                                         /*^clear*/
12425                                                         /*clear*/ /*_.PROGN___V255*/
12426                                                         meltfptr[57] = 0 ;
12427                                                     }
12428                                                     ;
12429                                                 }
12430                                             ;
12431                                             /*_._IFELSE___V152*/
12432                                             meltfptr[121] = /*_._IFELSE___V163*/ meltfptr[42];;
12433                                             /*epilog*/
12434
12435                                             MELT_LOCATION("warmelt-normal.melt:2015:/ clear");
12436                                             /*clear*/ /*_#IS_LIST__L73*/
12437                                             meltfnum[20] = 0 ;
12438                                             /*^clear*/
12439                                             /*clear*/ /*_#_IF___L74*/
12440                                             meltfnum[35] = 0 ;
12441                                             /*^clear*/
12442                                             /*clear*/ /*_._IFELSE___V163*/
12443                                             meltfptr[42] = 0 ;
12444                                         }
12445                                         ;
12446                                     }
12447                                 ;
12448                                 /*_._IFELSE___V76*/
12449                                 meltfptr[37] = /*_._IFELSE___V152*/ meltfptr[121];;
12450                                 /*epilog*/
12451
12452                                 MELT_LOCATION("warmelt-normal.melt:1910:/ clear");
12453                                 /*clear*/ /*_#IS_A__L68*/
12454                                 meltfnum[62] = 0 ;
12455                                 /*^clear*/
12456                                 /*clear*/ /*_._IFELSE___V152*/
12457                                 meltfptr[121] = 0 ;
12458                             }
12459                             ;
12460                         }
12461                     ;
12462                     /*_._IFELSE___V74*/
12463                     meltfptr[28] = /*_._IFELSE___V76*/ meltfptr[37];;
12464                     /*epilog*/
12465
12466                     MELT_LOCATION("warmelt-normal.melt:1906:/ clear");
12467                     /*clear*/ /*_#IS_A__L30*/
12468                     meltfnum[9] = 0 ;
12469                     /*^clear*/
12470                     /*clear*/ /*_._IFELSE___V76*/
12471                     meltfptr[37] = 0 ;
12472                 }
12473                 ;
12474             }
12475         ;
12476         /*_.LET___V66*/
12477         meltfptr[33] = /*_._IFELSE___V74*/ meltfptr[28];;
12478
12479         MELT_LOCATION("warmelt-normal.melt:1900:/ clear");
12480         /*clear*/ /*_.SYCMAP__V67*/
12481         meltfptr[59] = 0 ;
12482         /*^clear*/
12483         /*clear*/ /*_.SYCA__V68*/
12484         meltfptr[58] = 0 ;
12485         /*^clear*/
12486         /*clear*/ /*_.IFCPP___V69*/
12487         meltfptr[30] = 0 ;
12488         /*^clear*/
12489         /*clear*/ /*_._IFELSE___V74*/
12490         meltfptr[28] = 0 ;
12491         /*_.LET___V23*/
12492         meltfptr[21] = /*_.LET___V66*/ meltfptr[33];;
12493
12494         MELT_LOCATION("warmelt-normal.melt:1864:/ clear");
12495         /*clear*/ /*_.MODCTX__V24*/
12496         meltfptr[17] = 0 ;
12497         /*^clear*/
12498         /*clear*/ /*_.VALBINDMAP__V25*/
12499         meltfptr[24] = 0 ;
12500         /*^clear*/
12501         /*clear*/ /*_.VALUELIST__V26*/
12502         meltfptr[25] = 0 ;
12503         /*^clear*/
12504         /*clear*/ /*_.SYMBNAME__V27*/
12505         meltfptr[26] = 0 ;
12506         /*^clear*/
12507         /*clear*/ /*_#NULL__L8*/
12508         meltfnum[1] = 0 ;
12509         /*^clear*/
12510         /*clear*/ /*_#NULL__L9*/
12511         meltfnum[0] = 0 ;
12512         /*^clear*/
12513         /*clear*/ /*_._IF___V28*/
12514         meltfptr[27] = 0 ;
12515         /*^clear*/
12516         /*clear*/ /*_#IS_A__L19*/
12517         meltfnum[10] = 0 ;
12518         /*^clear*/
12519         /*clear*/ /*_._IF___V50*/
12520         meltfptr[29] = 0 ;
12521         /*^clear*/
12522         /*clear*/ /*_.LET___V66*/
12523         meltfptr[33] = 0 ;
12524
12525         MELT_CHECK_SIGNAL();
12526         ;
12527         /*_.MULTI___V14*/
12528         meltfptr[12] = /*_.LET___V23*/ meltfptr[21];;
12529
12530         MELT_LOCATION("warmelt-normal.melt:1857:/ clear");
12531         /*clear*/ /*_.IFCPP___V20*/
12532         meltfptr[18] = 0 ;
12533         /*^clear*/
12534         /*clear*/ /*_.LET___V23*/
12535         meltfptr[21] = 0 ;
12536
12537         /*^clear*/
12538         /*clear*/ /*_.PROCS__V16*/
12539         meltfptr[15] = 0 ;
12540         /*^clear*/
12541         /*clear*/ /*_.GOTENV__V17*/
12542         meltfptr[16] = 0 ;
12543
12544         MELT_CHECK_SIGNAL();
12545         ;
12546         MELT_LOCATION("warmelt-normal.melt:1848:/ quasiblock");
12547
12548
12549         /*_._RETVAL___V1*/
12550         meltfptr[0] = /*_.MULTI___V14*/ meltfptr[12];;
12551
12552         {
12553             MELT_LOCATION("warmelt-normal.melt:1848:/ locexp");
12554             /*ochecknores compilobj_nrep_return*/
12555 #if MELT_HAVE_DEBUG
12556             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
12557                 melt_warn_for_no_expected_secondary_results();
12558             /* we warned when secondary results are expected but not returned. */
12559 #endif /*MELT_HAVE_DEBUG*/
12560             ;
12561         }
12562         ;
12563         /*^finalreturn*/
12564         ;
12565         /*finalret*/
12566         goto meltlabend_rout ;
12567         /*epilog*/
12568
12569         /*^clear*/
12570         /*clear*/ /*_.IFCPP___V8*/
12571         meltfptr[6] = 0 ;
12572         /*^clear*/
12573         /*clear*/ /*_.IFCPP___V11*/
12574         meltfptr[9] = 0 ;
12575         /*^clear*/
12576         /*clear*/ /*_.MULTI___V14*/
12577         meltfptr[12] = 0 ;
12578     }
12579
12580     ;
12581     goto meltlabend_rout;
12582 meltlabend_rout:
12583     melt_trace_end("NORMEXP_SYMBOL", meltcallcount);
12584     melt_blocklevel_signals = current_blocklevel_signals_meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL_melt;
12585     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
12586 #undef meltcallcount
12587 #undef meltfram__
12588 #undef MELTFRAM_NBVARNUM
12589 #undef MELTFRAM_NBVARPTR
12590 } /*end meltrout_32_WARMELTmiNORMAL_NORMEXP_SYMBOL*/
12591
12592
12593
12594
12595
12596
12597 melt_ptr_t MELT_MODULE_VISIBILITY
12598 meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
12599         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
12600 {
12601     long current_blocklevel_signals_meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC_melt =  melt_blocklevel_signals;
12602
12603 #if MELT_HAVE_DEBUG
12604     static long melt_call_counter__;
12605     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
12606 #undef meltcallcount
12607 #define meltcallcount melt_thiscallcounter__
12608 #else
12609 #undef meltcallcount
12610 #define meltcallcount 0L
12611 #endif
12612 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
12613
12614     /* start of frame for routine meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC fromline 1752 */
12615
12616     /** start of frame for meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC of CLASS_PROCROUTINEOBJ from 1555**/
12617
12618     /*curframdeclclassy*/ class MeltFrame_meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC// fromline 1568
12619         : public Melt_CallFrameWithValues<7>
12620     {
12621     public: /* fromline 1572*/
12622         long mcfr_varnum[1];
12623         /*classy others*/
12624         long _meltsparel;
12625         void melt_mark_stuff (void)
12626         {
12627         } /*end melt_mark_stuff*/
12628         virtual void melt_mark_ggc_data (void)
12629         {
12630             melt_mark_values ();
12631             melt_mark_stuff ();
12632         }; /*end melt_mark_ggc_data*/
12633         MeltFrame_meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC(meltclosure_ptr_t clos) //the closure constructor fromline 1630
12634             : Melt_CallFrameWithValues<7> (
12635 #if ENABLE_CHECKING /*fromline 1634*/
12636                 __FILE__, __LINE__,
12637 #endif /* ENABLE_CHECKING fromline 1638*/
12638                 sizeof(MeltFrame_meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC), clos) {};
12639         MeltFrame_meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC() //the constructor fromline 1642
12640             : Melt_CallFrameWithValues<7> (
12641 #if ENABLE_CHECKING /*fromline 1646*/
12642                 __FILE__, __LINE__,
12643 #endif /* ENABLE_CHECKING fromline 1650*/
12644                 sizeof(MeltFrame_meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC)) {};
12645 #if ENABLE_CHECKING /*fromline 1654*/
12646         MeltFrame_meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC(const char*fil, int lin) //the constructor fromline 1656
12647             : Melt_CallFrameWithValues<7> (fil,lin, sizeof(MeltFrame_meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC)) {};
12648         MeltFrame_meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
12649             : Melt_CallFrameWithValues<7> (fil,lin, sizeof(MeltFrame_meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC), clos) {};
12650 #endif /* ENABLE_CHECKING fromline 1666*/
12651
12652     }; // end  class MeltFrame_meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC
12653
12654
12655     /** end of frame for meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC fromline 1697**/
12656
12657     /* end of frame for routine meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC fromline 1756 */
12658
12659     /* classy proc frame meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC */
12660     MeltFrame_meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC
12661     meltfram__ /*declfrastruct fromline 1780*/
12662     /*classyprocarg meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC fromline 1785*/
12663 #if ENABLE_CHECKING
12664     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
12665 #else /*ENABLE_CHECKING */
12666     (meltclosp_) /* fromline 1793*/
12667 #endif /*ENABLE_CHECKING */
12668
12669     ;
12670 #define meltframe meltfram__
12671
12672     melt_trace_start("GECTYP_SYMOCC", meltcallcount);
12673     /*use arguments*/
12674     (void) meltclosp_;
12675     (void)meltfirstargp_;
12676     (void)meltxargdescr_;
12677     (void)meltxargtab_;
12678     (void)meltxresdescr_;
12679     (void)meltxrestab_;
12680     /*getargs*/
12681
12682     /*getarg#0*/
12683     MELT_LOCATION("warmelt-normal.melt:2150:/ getarg");
12684     /*_.RECV__V2*/
12685     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
12686
12687     /*getarg#1*/
12688     /*^getarg*/
12689     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
12690     /*_.ENV__V3*/
12691     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
12692     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
12693
12694     ;
12695     goto meltlab_endgetargs;
12696 meltlab_endgetargs:
12697     ;
12698     /*body*/
12699     /*^block*/
12700     /*anyblock*/
12701     {
12702
12703
12704 #if MELT_HAVE_DEBUG
12705         MELT_LOCATION("warmelt-normal.melt:2151:/ cppif.then");
12706         /*^block*/
12707         /*anyblock*/
12708         {
12709
12710
12711             MELT_CHECK_SIGNAL();
12712             ;
12713             /*_#IS_A__L1*/
12714             meltfnum[0] =
12715                 melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ meltfrout->tabval[0])));;
12716             MELT_LOCATION("warmelt-normal.melt:2151:/ cond");
12717             /*cond*/
12718             if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/
12719                 {
12720                     /*^cond.then*/
12721                     /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
12722                 }
12723             else
12724                 {
12725                     MELT_LOCATION("warmelt-normal.melt:2151:/ cond.else");
12726
12727                     /*^block*/
12728                     /*anyblock*/
12729                     {
12730
12731
12732                         MELT_CHECK_SIGNAL();
12733                         ;
12734                         /*^apply*/
12735                         /*apply*/
12736                         {
12737                             union meltparam_un argtab[4];
12738                             memset(&argtab, 0, sizeof(argtab));
12739                             /*^apply.arg*/
12740                             argtab[0].meltbp_cstring =  "check recv";
12741                             /*^apply.arg*/
12742                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
12743                             /*^apply.arg*/
12744                             argtab[2].meltbp_long = 2151;
12745                             /*^apply.arg*/
12746                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
12747                             /*_.MELT_ASSERT_FAILURE_FUN__V6*/
12748                             meltfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
12749                         }
12750                         ;
12751                         /*_._IFELSE___V5*/
12752                         meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
12753                         /*epilog*/
12754
12755                         MELT_LOCATION("warmelt-normal.melt:2151:/ clear");
12756                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
12757                         meltfptr[5] = 0 ;
12758                     }
12759                     ;
12760                 }
12761             ;
12762             /*_.IFCPP___V4*/
12763             meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
12764             /*epilog*/
12765
12766             MELT_LOCATION("warmelt-normal.melt:2151:/ clear");
12767             /*clear*/ /*_#IS_A__L1*/
12768             meltfnum[0] = 0 ;
12769             /*^clear*/
12770             /*clear*/ /*_._IFELSE___V5*/
12771             meltfptr[4] = 0 ;
12772         }
12773
12774 #else /*MELT_HAVE_DEBUG*/
12775         /*^cppif.else*/
12776         /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL);
12777 #endif /*MELT_HAVE_DEBUG*/
12778         ;
12779         MELT_LOCATION("warmelt-normal.melt:2152:/ getslot");
12780         {
12781             melt_ptr_t slot=NULL, obj=NULL;
12782             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
12783             melt_object_get_field(slot,obj, 2, "NOCC_CTYP");
12784             /*_.NOCC_CTYP__V7*/
12785             meltfptr[5] = slot;
12786         };
12787         ;
12788
12789         MELT_CHECK_SIGNAL();
12790         ;
12791         MELT_LOCATION("warmelt-normal.melt:2150:/ quasiblock");
12792
12793
12794         /*_._RETVAL___V1*/
12795         meltfptr[0] = /*_.NOCC_CTYP__V7*/ meltfptr[5];;
12796
12797         {
12798             MELT_LOCATION("warmelt-normal.melt:2150:/ locexp");
12799             /*ochecknores compilobj_nrep_return*/
12800 #if MELT_HAVE_DEBUG
12801             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
12802                 melt_warn_for_no_expected_secondary_results();
12803             /* we warned when secondary results are expected but not returned. */
12804 #endif /*MELT_HAVE_DEBUG*/
12805             ;
12806         }
12807         ;
12808         /*^finalreturn*/
12809         ;
12810         /*finalret*/
12811         goto meltlabend_rout ;
12812         /*epilog*/
12813
12814         /*^clear*/
12815         /*clear*/ /*_.IFCPP___V4*/
12816         meltfptr[3] = 0 ;
12817         /*^clear*/
12818         /*clear*/ /*_.NOCC_CTYP__V7*/
12819         meltfptr[5] = 0 ;
12820     }
12821
12822     ;
12823     goto meltlabend_rout;
12824 meltlabend_rout:
12825     melt_trace_end("GECTYP_SYMOCC", meltcallcount);
12826     melt_blocklevel_signals = current_blocklevel_signals_meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC_melt;
12827     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
12828 #undef meltcallcount
12829 #undef meltfram__
12830 #undef MELTFRAM_NBVARNUM
12831 #undef MELTFRAM_NBVARPTR
12832 } /*end meltrout_33_WARMELTmiNORMAL_GECTYP_SYMOCC*/
12833
12834
12835
12836
12837
12838
12839 melt_ptr_t MELT_MODULE_VISIBILITY
12840 meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
12841         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
12842 {
12843     long current_blocklevel_signals_meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC_melt =  melt_blocklevel_signals;
12844
12845 #if MELT_HAVE_DEBUG
12846     static long melt_call_counter__;
12847     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
12848 #undef meltcallcount
12849 #define meltcallcount melt_thiscallcounter__
12850 #else
12851 #undef meltcallcount
12852 #define meltcallcount 0L
12853 #endif
12854 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
12855
12856     /* start of frame for routine meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC fromline 1752 */
12857
12858     /** start of frame for meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC of CLASS_PROCROUTINEOBJ from 1555**/
12859
12860     /*curframdeclclassy*/ class MeltFrame_meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC// fromline 1568
12861         : public Melt_CallFrameWithValues<7>
12862     {
12863     public: /* fromline 1572*/
12864         long mcfr_varnum[1];
12865         /*classy others*/
12866         long _meltsparel;
12867         void melt_mark_stuff (void)
12868         {
12869         } /*end melt_mark_stuff*/
12870         virtual void melt_mark_ggc_data (void)
12871         {
12872             melt_mark_values ();
12873             melt_mark_stuff ();
12874         }; /*end melt_mark_ggc_data*/
12875         MeltFrame_meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC(meltclosure_ptr_t clos) //the closure constructor fromline 1630
12876             : Melt_CallFrameWithValues<7> (
12877 #if ENABLE_CHECKING /*fromline 1634*/
12878                 __FILE__, __LINE__,
12879 #endif /* ENABLE_CHECKING fromline 1638*/
12880                 sizeof(MeltFrame_meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC), clos) {};
12881         MeltFrame_meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC() //the constructor fromline 1642
12882             : Melt_CallFrameWithValues<7> (
12883 #if ENABLE_CHECKING /*fromline 1646*/
12884                 __FILE__, __LINE__,
12885 #endif /* ENABLE_CHECKING fromline 1650*/
12886                 sizeof(MeltFrame_meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC)) {};
12887 #if ENABLE_CHECKING /*fromline 1654*/
12888         MeltFrame_meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC(const char*fil, int lin) //the constructor fromline 1656
12889             : Melt_CallFrameWithValues<7> (fil,lin, sizeof(MeltFrame_meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC)) {};
12890         MeltFrame_meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
12891             : Melt_CallFrameWithValues<7> (fil,lin, sizeof(MeltFrame_meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC), clos) {};
12892 #endif /* ENABLE_CHECKING fromline 1666*/
12893
12894     }; // end  class MeltFrame_meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC
12895
12896
12897     /** end of frame for meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC fromline 1697**/
12898
12899     /* end of frame for routine meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC fromline 1756 */
12900
12901     /* classy proc frame meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC */
12902     MeltFrame_meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC
12903     meltfram__ /*declfrastruct fromline 1780*/
12904     /*classyprocarg meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC fromline 1785*/
12905 #if ENABLE_CHECKING
12906     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
12907 #else /*ENABLE_CHECKING */
12908     (meltclosp_) /* fromline 1793*/
12909 #endif /*ENABLE_CHECKING */
12910
12911     ;
12912 #define meltframe meltfram__
12913
12914     melt_trace_start("GECTYP_MODVAROCC", meltcallcount);
12915     /*use arguments*/
12916     (void) meltclosp_;
12917     (void)meltfirstargp_;
12918     (void)meltxargdescr_;
12919     (void)meltxargtab_;
12920     (void)meltxresdescr_;
12921     (void)meltxrestab_;
12922     /*getargs*/
12923
12924     /*getarg#0*/
12925     MELT_LOCATION("warmelt-normal.melt:2158:/ getarg");
12926     /*_.RECV__V2*/
12927     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
12928
12929     /*getarg#1*/
12930     /*^getarg*/
12931     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
12932     /*_.ENV__V3*/
12933     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
12934     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
12935
12936     ;
12937     goto meltlab_endgetargs;
12938 meltlab_endgetargs:
12939     ;
12940     /*body*/
12941     /*^block*/
12942     /*anyblock*/
12943     {
12944
12945
12946 #if MELT_HAVE_DEBUG
12947         MELT_LOCATION("warmelt-normal.melt:2159:/ cppif.then");
12948         /*^block*/
12949         /*anyblock*/
12950         {
12951
12952
12953             MELT_CHECK_SIGNAL();
12954             ;
12955             /*_#IS_A__L1*/
12956             meltfnum[0] =
12957                 melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MODULEVAROCC*/ meltfrout->tabval[0])));;
12958             MELT_LOCATION("warmelt-normal.melt:2159:/ cond");
12959             /*cond*/
12960             if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/
12961                 {
12962                     /*^cond.then*/
12963                     /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
12964                 }
12965             else
12966                 {
12967                     MELT_LOCATION("warmelt-normal.melt:2159:/ cond.else");
12968
12969                     /*^block*/
12970                     /*anyblock*/
12971                     {
12972
12973
12974                         MELT_CHECK_SIGNAL();
12975                         ;
12976                         /*^apply*/
12977                         /*apply*/
12978                         {
12979                             union meltparam_un argtab[4];
12980                             memset(&argtab, 0, sizeof(argtab));
12981                             /*^apply.arg*/
12982                             argtab[0].meltbp_cstring =  "check recv";
12983                             /*^apply.arg*/
12984                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
12985                             /*^apply.arg*/
12986                             argtab[2].meltbp_long = 2159;
12987                             /*^apply.arg*/
12988                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
12989                             /*_.MELT_ASSERT_FAILURE_FUN__V6*/
12990                             meltfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
12991                         }
12992                         ;
12993                         /*_._IFELSE___V5*/
12994                         meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
12995                         /*epilog*/
12996
12997                         MELT_LOCATION("warmelt-normal.melt:2159:/ clear");
12998                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
12999                         meltfptr[5] = 0 ;
13000                     }
13001                     ;
13002                 }
13003             ;
13004             /*_.IFCPP___V4*/
13005             meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
13006             /*epilog*/
13007
13008             MELT_LOCATION("warmelt-normal.melt:2159:/ clear");
13009             /*clear*/ /*_#IS_A__L1*/
13010             meltfnum[0] = 0 ;
13011             /*^clear*/
13012             /*clear*/ /*_._IFELSE___V5*/
13013             meltfptr[4] = 0 ;
13014         }
13015
13016 #else /*MELT_HAVE_DEBUG*/
13017         /*^cppif.else*/
13018         /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL);
13019 #endif /*MELT_HAVE_DEBUG*/
13020         ;
13021
13022         MELT_CHECK_SIGNAL();
13023         ;
13024         MELT_LOCATION("warmelt-normal.melt:2160:/ quasiblock");
13025
13026
13027         /*_._RETVAL___V1*/
13028         meltfptr[0] = (/*!CTYPE_VALUE*/ meltfrout->tabval[2]);;
13029
13030         {
13031             MELT_LOCATION("warmelt-normal.melt:2160:/ locexp");
13032             /*ochecknores compilobj_nrep_return*/
13033 #if MELT_HAVE_DEBUG
13034             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
13035                 melt_warn_for_no_expected_secondary_results();
13036             /* we warned when secondary results are expected but not returned. */
13037 #endif /*MELT_HAVE_DEBUG*/
13038             ;
13039         }
13040         ;
13041         /*^finalreturn*/
13042         ;
13043         /*finalret*/
13044         goto meltlabend_rout ;
13045
13046         MELT_CHECK_SIGNAL();
13047         ;
13048         MELT_LOCATION("warmelt-normal.melt:2158:/ quasiblock");
13049
13050
13051         /*_._RETVAL___V1*/
13052         meltfptr[0] = /*_.RETURN___V7*/ meltfptr[5];;
13053
13054         {
13055             MELT_LOCATION("warmelt-normal.melt:2158:/ locexp");
13056             /*ochecknores compilobj_nrep_return*/
13057 #if MELT_HAVE_DEBUG
13058             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
13059                 melt_warn_for_no_expected_secondary_results();
13060             /* we warned when secondary results are expected but not returned. */
13061 #endif /*MELT_HAVE_DEBUG*/
13062             ;
13063         }
13064         ;
13065         /*^finalreturn*/
13066         ;
13067         /*finalret*/
13068         goto meltlabend_rout ;
13069         /*epilog*/
13070
13071         /*^clear*/
13072         /*clear*/ /*_.IFCPP___V4*/
13073         meltfptr[3] = 0 ;
13074         /*^clear*/
13075         /*clear*/ /*_.RETURN___V7*/
13076         meltfptr[5] = 0 ;
13077     }
13078
13079     ;
13080     goto meltlabend_rout;
13081 meltlabend_rout:
13082     melt_trace_end("GECTYP_MODVAROCC", meltcallcount);
13083     melt_blocklevel_signals = current_blocklevel_signals_meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC_melt;
13084     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
13085 #undef meltcallcount
13086 #undef meltfram__
13087 #undef MELTFRAM_NBVARNUM
13088 #undef MELTFRAM_NBVARPTR
13089 } /*end meltrout_34_WARMELTmiNORMAL_GECTYP_MODVAROCC*/
13090
13091
13092
13093
13094
13095
13096 melt_ptr_t MELT_MODULE_VISIBILITY
13097 meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
13098         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
13099 {
13100     long current_blocklevel_signals_meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS_melt =  melt_blocklevel_signals;
13101
13102 #if MELT_HAVE_DEBUG
13103     static long melt_call_counter__;
13104     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
13105 #undef meltcallcount
13106 #define meltcallcount melt_thiscallcounter__
13107 #else
13108 #undef meltcallcount
13109 #define meltcallcount 0L
13110 #endif
13111 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
13112
13113     /* start of frame for routine meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS fromline 1752 */
13114
13115     /** start of frame for meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS of CLASS_PROCROUTINEOBJ from 1555**/
13116
13117     /*curframdeclclassy*/ class MeltFrame_meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS// fromline 1568
13118         : public Melt_CallFrameWithValues<51>
13119     {
13120     public: /* fromline 1572*/
13121         long mcfr_varnum[20];
13122         /*classy others*/
13123         long _meltsparel;
13124         void melt_mark_stuff (void)
13125         {
13126         } /*end melt_mark_stuff*/
13127         virtual void melt_mark_ggc_data (void)
13128         {
13129             melt_mark_values ();
13130             melt_mark_stuff ();
13131         }; /*end melt_mark_ggc_data*/
13132         MeltFrame_meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS(meltclosure_ptr_t clos) //the closure constructor fromline 1630
13133             : Melt_CallFrameWithValues<51> (
13134 #if ENABLE_CHECKING /*fromline 1634*/
13135                 __FILE__, __LINE__,
13136 #endif /* ENABLE_CHECKING fromline 1638*/
13137                 sizeof(MeltFrame_meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS), clos) {};
13138         MeltFrame_meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS() //the constructor fromline 1642
13139             : Melt_CallFrameWithValues<51> (
13140 #if ENABLE_CHECKING /*fromline 1646*/
13141                 __FILE__, __LINE__,
13142 #endif /* ENABLE_CHECKING fromline 1650*/
13143                 sizeof(MeltFrame_meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS)) {};
13144 #if ENABLE_CHECKING /*fromline 1654*/
13145         MeltFrame_meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS(const char*fil, int lin) //the constructor fromline 1656
13146             : Melt_CallFrameWithValues<51> (fil,lin, sizeof(MeltFrame_meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS)) {};
13147         MeltFrame_meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
13148             : Melt_CallFrameWithValues<51> (fil,lin, sizeof(MeltFrame_meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS), clos) {};
13149 #endif /* ENABLE_CHECKING fromline 1666*/
13150
13151     }; // end  class MeltFrame_meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS
13152
13153
13154     /** end of frame for meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS fromline 1697**/
13155
13156     /* end of frame for routine meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS fromline 1756 */
13157
13158     /* classy proc frame meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS */
13159     MeltFrame_meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS
13160     meltfram__ /*declfrastruct fromline 1780*/
13161     /*classyprocarg meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS fromline 1785*/
13162 #if ENABLE_CHECKING
13163     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
13164 #else /*ENABLE_CHECKING */
13165     (meltclosp_) /* fromline 1793*/
13166 #endif /*ENABLE_CHECKING */
13167
13168     ;
13169 #define meltframe meltfram__
13170
13171     melt_trace_start("NORMEXP_CLASS", meltcallcount);
13172     /*use arguments*/
13173     (void) meltclosp_;
13174     (void)meltfirstargp_;
13175     (void)meltxargdescr_;
13176     (void)meltxargtab_;
13177     (void)meltxresdescr_;
13178     (void)meltxrestab_;
13179     /*getargs*/
13180
13181     /*getarg#0*/
13182     MELT_LOCATION("warmelt-normal.melt:2168:/ getarg");
13183     /*_.RECV__V2*/
13184     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
13185
13186     /*getarg#1*/
13187     /*^getarg*/
13188     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
13189     /*_.ENV__V3*/
13190     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
13191     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
13192
13193
13194     /*getarg#2*/
13195     /*^getarg*/
13196     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
13197     /*_.NCX__V4*/
13198     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
13199     gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL);
13200
13201
13202     /*getarg#3*/
13203     /*^getarg*/
13204     if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
13205     /*_.PSLOC__V5*/
13206     meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
13207     gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL);
13208
13209     ;
13210     goto meltlab_endgetargs;
13211 meltlab_endgetargs:
13212     ;
13213     /*body*/
13214     /*^block*/
13215     /*anyblock*/
13216     {
13217
13218
13219 #if MELT_HAVE_DEBUG
13220         MELT_LOCATION("warmelt-normal.melt:2169:/ cppif.then");
13221         /*^block*/
13222         /*anyblock*/
13223         {
13224
13225
13226             {
13227                 /*^locexp*/
13228                 /*melt_increment_dbgcounter*/
13229 #if MELT_HAVE_DEBUG
13230                 melt_dbgcounter++;
13231 #endif
13232                 ;
13233             }
13234             ;
13235
13236             MELT_CHECK_SIGNAL();
13237             ;
13238             /*_#MELT_NEED_DBG__L1*/
13239             meltfnum[0] =
13240                 /*MELT_NEED_DBG*/
13241 #if MELT_HAVE_DEBUG
13242                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
13243 #else
13244                 0 /* no melt_need_dbg */
13245 #endif /*MELT_HAVE_DEBUG*/
13246                 ;;
13247             MELT_LOCATION("warmelt-normal.melt:2169:/ cond");
13248             /*cond*/
13249             if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
13250                 {
13251                     /*^cond.then*/
13252                     /*^block*/
13253                     /*anyblock*/
13254                     {
13255
13256                         /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
13257                             /* for melt_callcount */
13258 #if MELT_HAVE_DEBUG && defined (meltcallcount)
13259                             meltcallcount  /* melt_callcount debugging */
13260 #else
13261                             0L  /* melt_callcount without debug */
13262 #endif /* MELT_HAVE_DEBUG melt_callcount */
13263                             ;;
13264
13265                         MELT_CHECK_SIGNAL();
13266                         ;
13267                         MELT_LOCATION("warmelt-normal.melt:2169:/ apply");
13268                         /*apply*/
13269                         {
13270                             union meltparam_un argtab[5];
13271                             memset(&argtab, 0, sizeof(argtab));
13272                             /*^apply.arg*/
13273                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
13274                             /*^apply.arg*/
13275                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
13276                             /*^apply.arg*/
13277                             argtab[2].meltbp_long = 2169;
13278                             /*^apply.arg*/
13279                             argtab[3].meltbp_cstring =  "normexp_class recv";
13280                             /*^apply.arg*/
13281                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
13282                             /*_.MELT_DEBUG_FUN__V7*/
13283                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
13284                         }
13285                         ;
13286                         /*_._IF___V6*/
13287                         meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];;
13288                         /*epilog*/
13289
13290                         MELT_LOCATION("warmelt-normal.melt:2169:/ clear");
13291                         /*clear*/ /*_#MELT_CALLCOUNT__L2*/
13292                         meltfnum[1] = 0 ;
13293                         /*^clear*/
13294                         /*clear*/ /*_.MELT_DEBUG_FUN__V7*/
13295                         meltfptr[6] = 0 ;
13296                     }
13297                     ;
13298                 }
13299             else    /*^cond.else*/
13300                 {
13301
13302                     /*_._IF___V6*/ meltfptr[5] =  /*reallynil*/ NULL ;;
13303                 }
13304             ;
13305
13306             {
13307                 MELT_LOCATION("warmelt-normal.melt:2169:/ locexp");
13308                 /*void*/
13309                 (void)0;
13310             }
13311             ;
13312             /*^quasiblock*/
13313
13314
13315             /*epilog*/
13316
13317             /*^clear*/
13318             /*clear*/ /*_#MELT_NEED_DBG__L1*/
13319             meltfnum[0] = 0 ;
13320             /*^clear*/
13321             /*clear*/ /*_._IF___V6*/
13322             meltfptr[5] = 0 ;
13323         }
13324
13325 #else /*MELT_HAVE_DEBUG*/
13326         /*^cppif.else*/
13327         /*^block*/
13328         /*anyblock*/
13329         {
13330
13331
13332             {
13333                 /*^locexp*/
13334                 /*void*/(void)0;
13335             }
13336             ;
13337             /*epilog*/
13338         }
13339
13340 #endif /*MELT_HAVE_DEBUG*/
13341         ;
13342
13343 #if MELT_HAVE_DEBUG
13344         MELT_LOCATION("warmelt-normal.melt:2170:/ cppif.then");
13345         /*^block*/
13346         /*anyblock*/
13347         {
13348
13349
13350             MELT_CHECK_SIGNAL();
13351             ;
13352             /*_#IS_A__L3*/
13353             meltfnum[1] =
13354                 melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[1])));;
13355             MELT_LOCATION("warmelt-normal.melt:2170:/ cond");
13356             /*cond*/
13357             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
13358                 {
13359                     /*^cond.then*/
13360                     /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);;
13361                 }
13362             else
13363                 {
13364                     MELT_LOCATION("warmelt-normal.melt:2170:/ cond.else");
13365
13366                     /*^block*/
13367                     /*anyblock*/
13368                     {
13369
13370
13371                         MELT_CHECK_SIGNAL();
13372                         ;
13373                         /*^apply*/
13374                         /*apply*/
13375                         {
13376                             union meltparam_un argtab[4];
13377                             memset(&argtab, 0, sizeof(argtab));
13378                             /*^apply.arg*/
13379                             argtab[0].meltbp_cstring =  "check recv";
13380                             /*^apply.arg*/
13381                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
13382                             /*^apply.arg*/
13383                             argtab[2].meltbp_long = 2170;
13384                             /*^apply.arg*/
13385                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
13386                             /*_.MELT_ASSERT_FAILURE_FUN__V10*/
13387                             meltfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
13388                         }
13389                         ;
13390                         /*_._IFELSE___V9*/
13391                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];;
13392                         /*epilog*/
13393
13394                         MELT_LOCATION("warmelt-normal.melt:2170:/ clear");
13395                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/
13396                         meltfptr[9] = 0 ;
13397                     }
13398                     ;
13399                 }
13400             ;
13401             /*_.IFCPP___V8*/
13402             meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];;
13403             /*epilog*/
13404
13405             MELT_LOCATION("warmelt-normal.melt:2170:/ clear");
13406             /*clear*/ /*_#IS_A__L3*/
13407             meltfnum[1] = 0 ;
13408             /*^clear*/
13409             /*clear*/ /*_._IFELSE___V9*/
13410             meltfptr[5] = 0 ;
13411         }
13412
13413 #else /*MELT_HAVE_DEBUG*/
13414         /*^cppif.else*/
13415         /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL);
13416 #endif /*MELT_HAVE_DEBUG*/
13417         ;
13418
13419 #if MELT_HAVE_DEBUG
13420         MELT_LOCATION("warmelt-normal.melt:2171:/ cppif.then");
13421         /*^block*/
13422         /*anyblock*/
13423         {
13424
13425
13426             MELT_CHECK_SIGNAL();
13427             ;
13428             /*_#IS_A__L4*/
13429             meltfnum[0] =
13430                 melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));;
13431             MELT_LOCATION("warmelt-normal.melt:2171:/ cond");
13432             /*cond*/
13433             if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/
13434                 {
13435                     /*^cond.then*/
13436                     /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);;
13437                 }
13438             else
13439                 {
13440                     MELT_LOCATION("warmelt-normal.melt:2171:/ cond.else");
13441
13442                     /*^block*/
13443                     /*anyblock*/
13444                     {
13445
13446
13447                         MELT_CHECK_SIGNAL();
13448                         ;
13449                         /*^apply*/
13450                         /*apply*/
13451                         {
13452                             union meltparam_un argtab[4];
13453                             memset(&argtab, 0, sizeof(argtab));
13454                             /*^apply.arg*/
13455                             argtab[0].meltbp_cstring =  "check env";
13456                             /*^apply.arg*/
13457                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
13458                             /*^apply.arg*/
13459                             argtab[2].meltbp_long = 2171;
13460                             /*^apply.arg*/
13461                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
13462                             /*_.MELT_ASSERT_FAILURE_FUN__V13*/
13463                             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
13464                         }
13465                         ;
13466                         /*_._IFELSE___V12*/
13467                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];;
13468                         /*epilog*/
13469
13470                         MELT_LOCATION("warmelt-normal.melt:2171:/ clear");
13471                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/
13472                         meltfptr[12] = 0 ;
13473                     }
13474                     ;
13475                 }
13476             ;
13477             /*_.IFCPP___V11*/
13478             meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];;
13479             /*epilog*/
13480
13481             MELT_LOCATION("warmelt-normal.melt:2171:/ clear");
13482             /*clear*/ /*_#IS_A__L4*/
13483             meltfnum[0] = 0 ;
13484             /*^clear*/
13485             /*clear*/ /*_._IFELSE___V12*/
13486             meltfptr[5] = 0 ;
13487         }
13488
13489 #else /*MELT_HAVE_DEBUG*/
13490         /*^cppif.else*/
13491         /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL);
13492 #endif /*MELT_HAVE_DEBUG*/
13493         ;
13494
13495 #if MELT_HAVE_DEBUG
13496         MELT_LOCATION("warmelt-normal.melt:2172:/ cppif.then");
13497         /*^block*/
13498         /*anyblock*/
13499         {
13500
13501
13502             MELT_CHECK_SIGNAL();
13503             ;
13504             /*_#IS_A__L5*/
13505             meltfnum[1] =
13506                 melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));;
13507             MELT_LOCATION("warmelt-normal.melt:2172:/ cond");
13508             /*cond*/
13509             if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/
13510                 {
13511                     /*^cond.then*/
13512                     /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);;
13513                 }
13514             else
13515                 {
13516                     MELT_LOCATION("warmelt-normal.melt:2172:/ cond.else");
13517
13518                     /*^block*/
13519                     /*anyblock*/
13520                     {
13521
13522
13523                         MELT_CHECK_SIGNAL();
13524                         ;
13525                         /*^apply*/
13526                         /*apply*/
13527                         {
13528                             union meltparam_un argtab[4];
13529                             memset(&argtab, 0, sizeof(argtab));
13530                             /*^apply.arg*/
13531                             argtab[0].meltbp_cstring =  "check nctxt";
13532                             /*^apply.arg*/
13533                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
13534                             /*^apply.arg*/
13535                             argtab[2].meltbp_long = 2172;
13536                             /*^apply.arg*/
13537                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
13538                             /*_.MELT_ASSERT_FAILURE_FUN__V16*/
13539                             meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
13540                         }
13541                         ;
13542                         /*_._IFELSE___V15*/
13543                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];;
13544                         /*epilog*/
13545
13546                         MELT_LOCATION("warmelt-normal.melt:2172:/ clear");
13547                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/
13548                         meltfptr[15] = 0 ;
13549                     }
13550                     ;
13551                 }
13552             ;
13553             /*_.IFCPP___V14*/
13554             meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];;
13555             /*epilog*/
13556
13557             MELT_LOCATION("warmelt-normal.melt:2172:/ clear");
13558             /*clear*/ /*_#IS_A__L5*/
13559             meltfnum[1] = 0 ;
13560             /*^clear*/
13561             /*clear*/ /*_._IFELSE___V15*/
13562             meltfptr[5] = 0 ;
13563         }
13564
13565 #else /*MELT_HAVE_DEBUG*/
13566         /*^cppif.else*/
13567         /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL);
13568 #endif /*MELT_HAVE_DEBUG*/
13569         ;
13570         MELT_LOCATION("warmelt-normal.melt:2173:/ quasiblock");
13571
13572
13573         /*^getslot*/
13574         {
13575             melt_ptr_t slot=NULL, obj=NULL;
13576             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
13577             melt_object_get_field(slot,obj, 1, "NAMED_NAME");
13578             /*_.NAMED_NAME__V18*/
13579             meltfptr[5] = slot;
13580         };
13581         ;
13582         /*_.CLASYMB__V19*/
13583         meltfptr[18] =
13584             melthookproc_HOOK_NAMED_SYMBOL (melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V18*/ meltfptr[5])), (long)MELT_GET);;
13585
13586         MELT_CHECK_SIGNAL();
13587         ;
13588         MELT_LOCATION("warmelt-normal.melt:2174:/ apply");
13589         /*apply*/
13590         {
13591             union meltparam_un argtab[1];
13592             memset(&argtab, 0, sizeof(argtab));
13593             /*^apply.arg*/
13594             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CLASYMB__V19*/ meltfptr[18];
13595             /*_.CLABIND__V20*/
13596             meltfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
13597         }
13598         ;
13599
13600 #if MELT_HAVE_DEBUG
13601         MELT_LOCATION("warmelt-normal.melt:2176:/ cppif.then");
13602         /*^block*/
13603         /*anyblock*/
13604         {
13605
13606
13607             {
13608                 /*^locexp*/
13609                 /*melt_increment_dbgcounter*/
13610 #if MELT_HAVE_DEBUG
13611                 melt_dbgcounter++;
13612 #endif
13613                 ;
13614             }
13615             ;
13616
13617             MELT_CHECK_SIGNAL();
13618             ;
13619             /*_#MELT_NEED_DBG__L6*/
13620             meltfnum[0] =
13621                 /*MELT_NEED_DBG*/
13622 #if MELT_HAVE_DEBUG
13623                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
13624 #else
13625                 0 /* no melt_need_dbg */
13626 #endif /*MELT_HAVE_DEBUG*/
13627                 ;;
13628             MELT_LOCATION("warmelt-normal.melt:2176:/ cond");
13629             /*cond*/
13630             if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/
13631                 {
13632                     /*^cond.then*/
13633                     /*^block*/
13634                     /*anyblock*/
13635                     {
13636
13637                         /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] =
13638                             /* for melt_callcount */
13639 #if MELT_HAVE_DEBUG && defined (meltcallcount)
13640                             meltcallcount  /* melt_callcount debugging */
13641 #else
13642                             0L  /* melt_callcount without debug */
13643 #endif /* MELT_HAVE_DEBUG melt_callcount */
13644                             ;;
13645
13646                         MELT_CHECK_SIGNAL();
13647                         ;
13648                         MELT_LOCATION("warmelt-normal.melt:2176:/ apply");
13649                         /*apply*/
13650                         {
13651                             union meltparam_un argtab[5];
13652                             memset(&argtab, 0, sizeof(argtab));
13653                             /*^apply.arg*/
13654                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L7*/ meltfnum[1];
13655                             /*^apply.arg*/
13656                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
13657                             /*^apply.arg*/
13658                             argtab[2].meltbp_long = 2176;
13659                             /*^apply.arg*/
13660                             argtab[3].meltbp_cstring =  "normexp_class clabind";
13661                             /*^apply.arg*/
13662                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLABIND__V20*/ meltfptr[19];
13663                             /*_.MELT_DEBUG_FUN__V22*/
13664                             meltfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
13665                         }
13666                         ;
13667                         /*_._IF___V21*/
13668                         meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];;
13669                         /*epilog*/
13670
13671                         MELT_LOCATION("warmelt-normal.melt:2176:/ clear");
13672                         /*clear*/ /*_#MELT_CALLCOUNT__L7*/
13673                         meltfnum[1] = 0 ;
13674                         /*^clear*/
13675                         /*clear*/ /*_.MELT_DEBUG_FUN__V22*/
13676                         meltfptr[21] = 0 ;
13677                     }
13678                     ;
13679                 }
13680             else    /*^cond.else*/
13681                 {
13682
13683                     /*_._IF___V21*/ meltfptr[20] =  /*reallynil*/ NULL ;;
13684                 }
13685             ;
13686
13687             {
13688                 MELT_LOCATION("warmelt-normal.melt:2176:/ locexp");
13689                 /*void*/
13690                 (void)0;
13691             }
13692             ;
13693             /*^quasiblock*/
13694
13695
13696             /*epilog*/
13697
13698             /*^clear*/
13699             /*clear*/ /*_#MELT_NEED_DBG__L6*/
13700             meltfnum[0] = 0 ;
13701             /*^clear*/
13702             /*clear*/ /*_._IF___V21*/
13703             meltfptr[20] = 0 ;
13704         }
13705
13706 #else /*MELT_HAVE_DEBUG*/
13707         /*^cppif.else*/
13708         /*^block*/
13709         /*anyblock*/
13710         {
13711
13712
13713             {
13714                 /*^locexp*/
13715                 /*void*/(void)0;
13716             }
13717             ;
13718             /*epilog*/
13719         }
13720
13721 #endif /*MELT_HAVE_DEBUG*/
13722         ;
13723
13724         MELT_CHECK_SIGNAL();
13725         ;
13726         /*_#IS_A__L8*/
13727         meltfnum[1] =
13728             melt_is_instance_of((melt_ptr_t)(/*_.CLABIND__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ meltfrout->tabval[6])));;
13729         MELT_LOCATION("warmelt-normal.melt:2177:/ cond");
13730         /*cond*/
13731         if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/
13732             {
13733                 /*^cond.then*/
13734                 /*^block*/
13735                 /*anyblock*/
13736                 {
13737
13738                     MELT_LOCATION("warmelt-normal.melt:2178:/ quasiblock");
13739
13740
13741
13742                     MELT_CHECK_SIGNAL();
13743                     ;
13744                     /*^apply*/
13745                     /*apply*/
13746                     {
13747                         union meltparam_un argtab[3];
13748                         memset(&argtab, 0, sizeof(argtab));
13749                         /*^apply.arg*/
13750                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
13751                         /*^apply.arg*/
13752                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
13753                         /*^apply.arg*/
13754                         argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4];
13755                         /*_.NORMCLA__V25*/
13756                         meltfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.CLASYMB__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
13757                     }
13758                     ;
13759
13760 #if MELT_HAVE_DEBUG
13761                     MELT_LOCATION("warmelt-normal.melt:2179:/ cppif.then");
13762                     /*^block*/
13763                     /*anyblock*/
13764                     {
13765
13766
13767                         {
13768                             /*^locexp*/
13769                             /*melt_increment_dbgcounter*/
13770 #if MELT_HAVE_DEBUG
13771                             melt_dbgcounter++;
13772 #endif
13773                             ;
13774                         }
13775                         ;
13776
13777                         MELT_CHECK_SIGNAL();
13778                         ;
13779                         /*_#MELT_NEED_DBG__L9*/
13780                         meltfnum[0] =
13781                             /*MELT_NEED_DBG*/
13782 #if MELT_HAVE_DEBUG
13783                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
13784 #else
13785                             0 /* no melt_need_dbg */
13786 #endif /*MELT_HAVE_DEBUG*/
13787                             ;;
13788                         MELT_LOCATION("warmelt-normal.melt:2179:/ cond");
13789                         /*cond*/
13790                         if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/
13791                             {
13792                                 /*^cond.then*/
13793                                 /*^block*/
13794                                 /*anyblock*/
13795                                 {
13796
13797                                     /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] =
13798                                         /* for melt_callcount */
13799 #if MELT_HAVE_DEBUG && defined (meltcallcount)
13800                                         meltcallcount  /* melt_callcount debugging */
13801 #else
13802                                         0L  /* melt_callcount without debug */
13803 #endif /* MELT_HAVE_DEBUG melt_callcount */
13804                                         ;;
13805
13806                                     MELT_CHECK_SIGNAL();
13807                                     ;
13808                                     MELT_LOCATION("warmelt-normal.melt:2179:/ apply");
13809                                     /*apply*/
13810                                     {
13811                                         union meltparam_un argtab[5];
13812                                         memset(&argtab, 0, sizeof(argtab));
13813                                         /*^apply.arg*/
13814                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L10*/ meltfnum[9];
13815                                         /*^apply.arg*/
13816                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
13817                                         /*^apply.arg*/
13818                                         argtab[2].meltbp_long = 2179;
13819                                         /*^apply.arg*/
13820                                         argtab[3].meltbp_cstring =  "normexp_class normcla class data inst";
13821                                         /*^apply.arg*/
13822                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NORMCLA__V25*/ meltfptr[24];
13823                                         /*_.MELT_DEBUG_FUN__V27*/
13824                                         meltfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
13825                                     }
13826                                     ;
13827                                     /*_._IF___V26*/
13828                                     meltfptr[25] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];;
13829                                     /*epilog*/
13830
13831                                     MELT_LOCATION("warmelt-normal.melt:2179:/ clear");
13832                                     /*clear*/ /*_#MELT_CALLCOUNT__L10*/
13833                                     meltfnum[9] = 0 ;
13834                                     /*^clear*/
13835                                     /*clear*/ /*_.MELT_DEBUG_FUN__V27*/
13836                                     meltfptr[26] = 0 ;
13837                                 }
13838                                 ;
13839                             }
13840                         else    /*^cond.else*/
13841                             {
13842
13843                                 /*_._IF___V26*/ meltfptr[25] =  /*reallynil*/ NULL ;;
13844                             }
13845                         ;
13846
13847                         {
13848                             MELT_LOCATION("warmelt-normal.melt:2179:/ locexp");
13849                             /*void*/
13850                             (void)0;
13851                         }
13852                         ;
13853                         /*^quasiblock*/
13854
13855
13856                         /*epilog*/
13857
13858                         /*^clear*/
13859                         /*clear*/ /*_#MELT_NEED_DBG__L9*/
13860                         meltfnum[0] = 0 ;
13861                         /*^clear*/
13862                         /*clear*/ /*_._IF___V26*/
13863                         meltfptr[25] = 0 ;
13864                     }
13865
13866 #else /*MELT_HAVE_DEBUG*/
13867                     /*^cppif.else*/
13868                     /*^block*/
13869                     /*anyblock*/
13870                     {
13871
13872
13873                         {
13874                             /*^locexp*/
13875                             /*void*/(void)0;
13876                         }
13877                         ;
13878                         /*epilog*/
13879                     }
13880
13881 #endif /*MELT_HAVE_DEBUG*/
13882                     ;
13883
13884 #if MELT_HAVE_DEBUG
13885                     MELT_LOCATION("warmelt-normal.melt:2180:/ cppif.then");
13886                     /*^block*/
13887                     /*anyblock*/
13888                     {
13889
13890
13891                         MELT_CHECK_SIGNAL();
13892                         ;
13893                         /*_#IS_A__L11*/
13894                         meltfnum[9] =
13895                             melt_is_instance_of((melt_ptr_t)(/*_.NORMCLA__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ meltfrout->tabval[9])));;
13896                         MELT_LOCATION("warmelt-normal.melt:2181:/ cond");
13897                         /*cond*/
13898                         if (/*_#IS_A__L11*/ meltfnum[9]) /*then*/
13899                             {
13900                                 /*^cond.then*/
13901                                 /*_#OR___L12*/ meltfnum[0] = /*_#IS_A__L11*/ meltfnum[9];;
13902                             }
13903                         else
13904                             {
13905                                 MELT_LOCATION("warmelt-normal.melt:2181:/ cond.else");
13906
13907                                 /*^block*/
13908                                 /*anyblock*/
13909                                 {
13910
13911                                     /*_#IS_A__L13*/ meltfnum[12] =
13912                                         melt_is_instance_of((melt_ptr_t)(/*_.NORMCLA__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_NREP_CONSTOCC*/ meltfrout->tabval[8])));;
13913                                     /*^compute*/
13914                                     /*_#OR___L12*/
13915                                     meltfnum[0] = /*_#IS_A__L13*/ meltfnum[12];;
13916                                     /*epilog*/
13917
13918                                     MELT_LOCATION("warmelt-normal.melt:2181:/ clear");
13919                                     /*clear*/ /*_#IS_A__L13*/
13920                                     meltfnum[12] = 0 ;
13921                                 }
13922                                 ;
13923                             }
13924                         ;
13925                         MELT_LOCATION("warmelt-normal.melt:2180:/ cond");
13926                         /*cond*/
13927                         if (/*_#OR___L12*/ meltfnum[0]) /*then*/
13928                             {
13929                                 /*^cond.then*/
13930                                 /*_._IFELSE___V29*/ meltfptr[25] = (/*nil*/NULL);;
13931                             }
13932                         else
13933                             {
13934                                 MELT_LOCATION("warmelt-normal.melt:2180:/ cond.else");
13935
13936                                 /*^block*/
13937                                 /*anyblock*/
13938                                 {
13939
13940
13941                                     MELT_CHECK_SIGNAL();
13942                                     ;
13943                                     /*^apply*/
13944                                     /*apply*/
13945                                     {
13946                                         union meltparam_un argtab[4];
13947                                         memset(&argtab, 0, sizeof(argtab));
13948                                         /*^apply.arg*/
13949                                         argtab[0].meltbp_cstring =  "check normcla";
13950                                         /*^apply.arg*/
13951                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
13952                                         /*^apply.arg*/
13953                                         argtab[2].meltbp_long = 2180;
13954                                         /*^apply.arg*/
13955                                         argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NORMCLA__V25*/ meltfptr[24];
13956                                         /*_.MELT_ASSERT_FAILURE_FUN__V30*/
13957                                         meltfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
13958                                     }
13959                                     ;
13960                                     /*_._IFELSE___V29*/
13961                                     meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29];;
13962                                     /*epilog*/
13963
13964                                     MELT_LOCATION("warmelt-normal.melt:2180:/ clear");
13965                                     /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V30*/
13966                                     meltfptr[29] = 0 ;
13967                                 }
13968                                 ;
13969                             }
13970                         ;
13971                         /*_.IFCPP___V28*/
13972                         meltfptr[26] = /*_._IFELSE___V29*/ meltfptr[25];;
13973                         /*epilog*/
13974
13975                         MELT_LOCATION("warmelt-normal.melt:2180:/ clear");
13976                         /*clear*/ /*_#IS_A__L11*/
13977                         meltfnum[9] = 0 ;
13978                         /*^clear*/
13979                         /*clear*/ /*_#OR___L12*/
13980                         meltfnum[0] = 0 ;
13981                         /*^clear*/
13982                         /*clear*/ /*_._IFELSE___V29*/
13983                         meltfptr[25] = 0 ;
13984                     }
13985
13986 #else /*MELT_HAVE_DEBUG*/
13987                     /*^cppif.else*/
13988                     /*_.IFCPP___V28*/ meltfptr[26] = (/*nil*/NULL);
13989 #endif /*MELT_HAVE_DEBUG*/
13990                     ;
13991
13992                     MELT_CHECK_SIGNAL();
13993                     ;
13994                     MELT_LOCATION("warmelt-normal.melt:2187:/ quasiblock");
13995
13996
13997                     /*_._RETVAL___V1*/
13998                     meltfptr[0] = /*_.NORMCLA__V25*/ meltfptr[24];;
13999
14000                     {
14001                         MELT_LOCATION("warmelt-normal.melt:2187:/ locexp");
14002                         /*ochecknores compilobj_nrep_return*/
14003 #if MELT_HAVE_DEBUG
14004                         if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
14005                             melt_warn_for_no_expected_secondary_results();
14006                         /* we warned when secondary results are expected but not returned. */
14007 #endif /*MELT_HAVE_DEBUG*/
14008                         ;
14009                     }
14010                     ;
14011                     /*^finalreturn*/
14012                     ;
14013                     /*finalret*/
14014                     goto meltlabend_rout ;
14015                     /*_.LET___V24*/
14016                     meltfptr[20] = /*_.RETURN___V31*/ meltfptr[29];;
14017
14018                     MELT_LOCATION("warmelt-normal.melt:2178:/ clear");
14019                     /*clear*/ /*_.NORMCLA__V25*/
14020                     meltfptr[24] = 0 ;
14021                     /*^clear*/
14022                     /*clear*/ /*_.IFCPP___V28*/
14023                     meltfptr[26] = 0 ;
14024                     /*^clear*/
14025                     /*clear*/ /*_.RETURN___V31*/
14026                     meltfptr[29] = 0 ;
14027                     /*_._IFELSE___V23*/
14028                     meltfptr[21] = /*_.LET___V24*/ meltfptr[20];;
14029                     /*epilog*/
14030
14031                     MELT_LOCATION("warmelt-normal.melt:2177:/ clear");
14032                     /*clear*/ /*_.LET___V24*/
14033                     meltfptr[20] = 0 ;
14034                 }
14035                 ;
14036             }
14037         else    /*^cond.else*/
14038             {
14039
14040                 /*^block*/
14041                 /*anyblock*/
14042                 {
14043
14044
14045                     MELT_CHECK_SIGNAL();
14046                     ;
14047                     /*_#IS_A__L14*/
14048                     meltfnum[12] =
14049                         melt_is_instance_of((melt_ptr_t)(/*_.CLABIND__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[10])));;
14050                     MELT_LOCATION("warmelt-normal.melt:2189:/ cond");
14051                     /*cond*/
14052                     if (/*_#IS_A__L14*/ meltfnum[12]) /*then*/
14053                         {
14054                             /*^cond.then*/
14055                             /*^block*/
14056                             /*anyblock*/
14057                             {
14058
14059
14060 #if MELT_HAVE_DEBUG
14061                                 MELT_LOCATION("warmelt-normal.melt:2190:/ cppif.then");
14062                                 /*^block*/
14063                                 /*anyblock*/
14064                                 {
14065
14066
14067                                     MELT_CHECK_SIGNAL();
14068                                     ;
14069                                     /*^getslot*/
14070                                     {
14071                                         melt_ptr_t slot=NULL, obj=NULL;
14072                                         obj = (melt_ptr_t)(/*_.CLABIND__V20*/ meltfptr[19]) /*=obj*/;
14073                                         melt_object_get_field(slot,obj, 1, "VBIND_VALUE");
14074                                         /*_.VBIND_VALUE__V34*/
14075                                         meltfptr[26] = slot;
14076                                     };
14077                                     ;
14078                                     /*_#eqeq__L15*/
14079                                     meltfnum[9] =
14080                                         ((/*_.RECV__V2*/ meltfptr[1]) == (/*_.VBIND_VALUE__V34*/ meltfptr[26]));;
14081                                     MELT_LOCATION("warmelt-normal.melt:2190:/ cond");
14082                                     /*cond*/
14083                                     if (/*_#eqeq__L15*/ meltfnum[9]) /*then*/
14084                                         {
14085                                             /*^cond.then*/
14086                                             /*_._IFELSE___V35*/ meltfptr[29] = (/*nil*/NULL);;
14087                                         }
14088                                     else
14089                                         {
14090                                             MELT_LOCATION("warmelt-normal.melt:2190:/ cond.else");
14091
14092                                             /*^block*/
14093                                             /*anyblock*/
14094                                             {
14095
14096
14097                                                 MELT_CHECK_SIGNAL();
14098                                                 ;
14099                                                 /*^apply*/
14100                                                 /*apply*/
14101                                                 {
14102                                                     union meltparam_un argtab[5];
14103                                                     memset(&argtab, 0, sizeof(argtab));
14104                                                     /*^apply.arg*/
14105                                                     argtab[0].meltbp_cstring =  "check clabind value";
14106                                                     /*^apply.arg*/
14107                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
14108                                                     /*^apply.arg*/
14109                                                     argtab[2].meltbp_long = 2190;
14110                                                     /*^apply.arg*/
14111                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CLABIND__V20*/ meltfptr[19];
14112                                                     /*^apply.arg*/
14113                                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
14114                                                     /*_.MELT_ASSERT_FAILURE_FUN__V36*/
14115                                                     meltfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
14116                                                 }
14117                                                 ;
14118                                                 /*_._IFELSE___V35*/
14119                                                 meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[20];;
14120                                                 /*epilog*/
14121
14122                                                 MELT_LOCATION("warmelt-normal.melt:2190:/ clear");
14123                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V36*/
14124                                                 meltfptr[20] = 0 ;
14125                                             }
14126                                             ;
14127                                         }
14128                                     ;
14129                                     /*_.IFCPP___V33*/
14130                                     meltfptr[24] = /*_._IFELSE___V35*/ meltfptr[29];;
14131                                     /*epilog*/
14132
14133                                     MELT_LOCATION("warmelt-normal.melt:2190:/ clear");
14134                                     /*clear*/ /*_.VBIND_VALUE__V34*/
14135                                     meltfptr[26] = 0 ;
14136                                     /*^clear*/
14137                                     /*clear*/ /*_#eqeq__L15*/
14138                                     meltfnum[9] = 0 ;
14139                                     /*^clear*/
14140                                     /*clear*/ /*_._IFELSE___V35*/
14141                                     meltfptr[29] = 0 ;
14142                                 }
14143
14144 #else /*MELT_HAVE_DEBUG*/
14145                                 /*^cppif.else*/
14146                                 /*_.IFCPP___V33*/ meltfptr[24] = (/*nil*/NULL);
14147 #endif /*MELT_HAVE_DEBUG*/
14148                                 ;
14149                                 MELT_LOCATION("warmelt-normal.melt:2191:/ quasiblock");
14150
14151
14152
14153                                 MELT_CHECK_SIGNAL();
14154                                 ;
14155                                 /*^apply*/
14156                                 /*apply*/
14157                                 {
14158                                     union meltparam_un argtab[3];
14159                                     memset(&argtab, 0, sizeof(argtab));
14160                                     /*^apply.arg*/
14161                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
14162                                     /*^apply.arg*/
14163                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
14164                                     /*^apply.arg*/
14165                                     argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4];
14166                                     /*_.NORMCLA__V38*/
14167                                     meltfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.CLASYMB__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
14168                                 }
14169                                 ;
14170
14171 #if MELT_HAVE_DEBUG
14172                                 MELT_LOCATION("warmelt-normal.melt:2192:/ cppif.then");
14173                                 /*^block*/
14174                                 /*anyblock*/
14175                                 {
14176
14177
14178                                     {
14179                                         /*^locexp*/
14180                                         /*melt_increment_dbgcounter*/
14181 #if MELT_HAVE_DEBUG
14182                                         melt_dbgcounter++;
14183 #endif
14184                                         ;
14185                                     }
14186                                     ;
14187
14188                                     MELT_CHECK_SIGNAL();
14189                                     ;
14190                                     /*_#MELT_NEED_DBG__L16*/
14191                                     meltfnum[0] =
14192                                         /*MELT_NEED_DBG*/
14193 #if MELT_HAVE_DEBUG
14194                                         (/*melt_need_dbg*/ melt_need_debug ((int) 0))
14195 #else
14196                                         0 /* no melt_need_dbg */
14197 #endif /*MELT_HAVE_DEBUG*/
14198                                         ;;
14199                                     MELT_LOCATION("warmelt-normal.melt:2192:/ cond");
14200                                     /*cond*/
14201                                     if (/*_#MELT_NEED_DBG__L16*/ meltfnum[0]) /*then*/
14202                                         {
14203                                             /*^cond.then*/
14204                                             /*^block*/
14205                                             /*anyblock*/
14206                                             {
14207
14208                                                 /*_#MELT_CALLCOUNT__L17*/ meltfnum[9] =
14209                                                     /* for melt_callcount */
14210 #if MELT_HAVE_DEBUG && defined (meltcallcount)
14211                                                     meltcallcount  /* melt_callcount debugging */
14212 #else
14213                                                     0L  /* melt_callcount without debug */
14214 #endif /* MELT_HAVE_DEBUG melt_callcount */
14215                                                     ;;
14216
14217                                                 MELT_CHECK_SIGNAL();
14218                                                 ;
14219                                                 MELT_LOCATION("warmelt-normal.melt:2192:/ apply");
14220                                                 /*apply*/
14221                                                 {
14222                                                     union meltparam_un argtab[5];
14223                                                     memset(&argtab, 0, sizeof(argtab));
14224                                                     /*^apply.arg*/
14225                                                     argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L17*/ meltfnum[9];
14226                                                     /*^apply.arg*/
14227                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
14228                                                     /*^apply.arg*/
14229                                                     argtab[2].meltbp_long = 2192;
14230                                                     /*^apply.arg*/
14231                                                     argtab[3].meltbp_cstring =  "normexp_class normcla class value";
14232                                                     /*^apply.arg*/
14233                                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NORMCLA__V38*/ meltfptr[26];
14234                                                     /*_.MELT_DEBUG_FUN__V40*/
14235                                                     meltfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
14236                                                 }
14237                                                 ;
14238                                                 /*_._IF___V39*/
14239                                                 meltfptr[29] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];;
14240                                                 /*epilog*/
14241
14242                                                 MELT_LOCATION("warmelt-normal.melt:2192:/ clear");
14243                                                 /*clear*/ /*_#MELT_CALLCOUNT__L17*/
14244                                                 meltfnum[9] = 0 ;
14245                                                 /*^clear*/
14246                                                 /*clear*/ /*_.MELT_DEBUG_FUN__V40*/
14247                                                 meltfptr[39] = 0 ;
14248                                             }
14249                                             ;
14250                                         }
14251                                     else    /*^cond.else*/
14252                                         {
14253
14254                                             /*_._IF___V39*/ meltfptr[29] =  /*reallynil*/ NULL ;;
14255                                         }
14256                                     ;
14257
14258                                     {
14259                                         MELT_LOCATION("warmelt-normal.melt:2192:/ locexp");
14260                                         /*void*/
14261                                         (void)0;
14262                                     }
14263                                     ;
14264                                     /*^quasiblock*/
14265
14266
14267                                     /*epilog*/
14268
14269                                     /*^clear*/
14270                                     /*clear*/ /*_#MELT_NEED_DBG__L16*/
14271                                     meltfnum[0] = 0 ;
14272                                     /*^clear*/
14273                                     /*clear*/ /*_._IF___V39*/
14274                                     meltfptr[29] = 0 ;
14275                                 }
14276
14277 #else /*MELT_HAVE_DEBUG*/
14278                                 /*^cppif.else*/
14279                                 /*^block*/
14280                                 /*anyblock*/
14281                                 {
14282
14283
14284                                     {
14285                                         /*^locexp*/
14286                                         /*void*/(void)0;
14287                                     }
14288                                     ;
14289                                     /*epilog*/
14290                                 }
14291
14292 #endif /*MELT_HAVE_DEBUG*/
14293                                 ;
14294
14295 #if MELT_HAVE_DEBUG
14296                                 MELT_LOCATION("warmelt-normal.melt:2194:/ cppif.then");
14297                                 /*^block*/
14298                                 /*anyblock*/
14299                                 {
14300
14301
14302                                     MELT_CHECK_SIGNAL();
14303                                     ;
14304                                     /*_#IS_A__L18*/
14305                                     meltfnum[9] =
14306                                         melt_is_instance_of((melt_ptr_t)(/*_.NORMCLA__V38*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[11])));;
14307                                     MELT_LOCATION("warmelt-normal.melt:2194:/ cond");
14308                                     /*cond*/
14309                                     if (/*_#IS_A__L18*/ meltfnum[9]) /*then*/
14310                                         {
14311                                             /*^cond.then*/
14312                                             /*_._IFELSE___V42*/ meltfptr[29] = (/*nil*/NULL);;
14313                                         }
14314                                     else
14315                                         {
14316                                             MELT_LOCATION("warmelt-normal.melt:2194:/ cond.else");
14317
14318                                             /*^block*/
14319                                             /*anyblock*/
14320                                             {
14321
14322
14323                                                 MELT_CHECK_SIGNAL();
14324                                                 ;
14325                                                 /*^apply*/
14326                                                 /*apply*/
14327                                                 {
14328                                                     union meltparam_un argtab[4];
14329                                                     memset(&argtab, 0, sizeof(argtab));
14330                                                     /*^apply.arg*/
14331                                                     argtab[0].meltbp_cstring =  "check normcla";
14332                                                     /*^apply.arg*/
14333                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
14334                                                     /*^apply.arg*/
14335                                                     argtab[2].meltbp_long = 2194;
14336                                                     /*^apply.arg*/
14337                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NORMCLA__V38*/ meltfptr[26];
14338                                                     /*_.MELT_ASSERT_FAILURE_FUN__V43*/
14339                                                     meltfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
14340                                                 }
14341                                                 ;
14342                                                 /*_._IFELSE___V42*/
14343                                                 meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[42];;
14344                                                 /*epilog*/
14345
14346                                                 MELT_LOCATION("warmelt-normal.melt:2194:/ clear");
14347                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V43*/
14348                                                 meltfptr[42] = 0 ;
14349                                             }
14350                                             ;
14351                                         }
14352                                     ;
14353                                     /*_.IFCPP___V41*/
14354                                     meltfptr[39] = /*_._IFELSE___V42*/ meltfptr[29];;
14355                                     /*epilog*/
14356
14357                                     MELT_LOCATION("warmelt-normal.melt:2194:/ clear");
14358                                     /*clear*/ /*_#IS_A__L18*/
14359                                     meltfnum[9] = 0 ;
14360                                     /*^clear*/
14361                                     /*clear*/ /*_._IFELSE___V42*/
14362                                     meltfptr[29] = 0 ;
14363                                 }
14364
14365 #else /*MELT_HAVE_DEBUG*/
14366                                 /*^cppif.else*/
14367                                 /*_.IFCPP___V41*/ meltfptr[39] = (/*nil*/NULL);
14368 #endif /*MELT_HAVE_DEBUG*/
14369                                 ;
14370
14371                                 MELT_CHECK_SIGNAL();
14372                                 ;
14373                                 MELT_LOCATION("warmelt-normal.melt:2195:/ quasiblock");
14374
14375
14376                                 /*_._RETVAL___V1*/
14377                                 meltfptr[0] = /*_.NORMCLA__V38*/ meltfptr[26];;
14378
14379                                 {
14380                                     MELT_LOCATION("warmelt-normal.melt:2195:/ locexp");
14381                                     /*ochecknores compilobj_nrep_return*/
14382 #if MELT_HAVE_DEBUG
14383                                     if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
14384                                         melt_warn_for_no_expected_secondary_results();
14385                                     /* we warned when secondary results are expected but not returned. */
14386 #endif /*MELT_HAVE_DEBUG*/
14387                                     ;
14388                                 }
14389                                 ;
14390                                 /*^finalreturn*/
14391                                 ;
14392                                 /*finalret*/
14393                                 goto meltlabend_rout ;
14394                                 /*_.LET___V37*/
14395                                 meltfptr[20] = /*_.RETURN___V44*/ meltfptr[42];;
14396
14397                                 MELT_LOCATION("warmelt-normal.melt:2191:/ clear");
14398                                 /*clear*/ /*_.NORMCLA__V38*/
14399                                 meltfptr[26] = 0 ;
14400                                 /*^clear*/
14401                                 /*clear*/ /*_.IFCPP___V41*/
14402                                 meltfptr[39] = 0 ;
14403                                 /*^clear*/
14404                                 /*clear*/ /*_.RETURN___V44*/
14405                                 meltfptr[42] = 0 ;
14406                                 MELT_LOCATION("warmelt-normal.melt:2189:/ quasiblock");
14407
14408
14409                                 /*_.PROGN___V45*/
14410                                 meltfptr[29] = /*_.LET___V37*/ meltfptr[20];;
14411                                 /*^compute*/
14412                                 /*_._IFELSE___V32*/
14413                                 meltfptr[25] = /*_.PROGN___V45*/ meltfptr[29];;
14414                                 /*epilog*/
14415
14416                                 MELT_LOCATION("warmelt-normal.melt:2189:/ clear");
14417                                 /*clear*/ /*_.IFCPP___V33*/
14418                                 meltfptr[24] = 0 ;
14419                                 /*^clear*/
14420                                 /*clear*/ /*_.LET___V37*/
14421                                 meltfptr[20] = 0 ;
14422                                 /*^clear*/
14423                                 /*clear*/ /*_.PROGN___V45*/
14424                                 meltfptr[29] = 0 ;
14425                             }
14426                             ;
14427                         }
14428                     else    /*^cond.else*/
14429                         {
14430
14431                             /*^block*/
14432                             /*anyblock*/
14433                             {
14434
14435                                 MELT_LOCATION("warmelt-normal.melt:2203:/ getslot");
14436                                 {
14437                                     melt_ptr_t slot=NULL, obj=NULL;
14438                                     obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
14439                                     melt_object_get_field(slot,obj, 1, "NAMED_NAME");
14440                                     /*_.NAMED_NAME__V46*/
14441                                     meltfptr[26] = slot;
14442                                 };
14443                                 ;
14444
14445                                 MELT_CHECK_SIGNAL();
14446                                 ;
14447                                 MELT_LOCATION("warmelt-normal.melt:2202:/ apply");
14448                                 /*apply*/
14449                                 {
14450                                     union meltparam_un argtab[2];
14451                                     memset(&argtab, 0, sizeof(argtab));
14452                                     /*^apply.arg*/
14453                                     argtab[0].meltbp_cstring =  "class $1 incorrectly bound, perhaps locally rebound";
14454                                     /*^apply.arg*/
14455                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V46*/ meltfptr[26];
14456                                     /*_.ERROR_AT__V47*/
14457                                     meltfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
14458                                 }
14459                                 ;
14460
14461 #if MELT_HAVE_DEBUG
14462                                 MELT_LOCATION("warmelt-normal.melt:2204:/ cppif.then");
14463                                 /*^block*/
14464                                 /*anyblock*/
14465                                 {
14466
14467
14468                                     {
14469                                         /*^locexp*/
14470                                         /*melt_increment_dbgcounter*/
14471 #if MELT_HAVE_DEBUG
14472                                         melt_dbgcounter++;
14473 #endif
14474                                         ;
14475                                     }
14476                                     ;
14477
14478                                     MELT_CHECK_SIGNAL();
14479                                     ;
14480                                     /*_#MELT_NEED_DBG__L19*/
14481                                     meltfnum[0] =
14482                                         /*MELT_NEED_DBG*/
14483 #if MELT_HAVE_DEBUG
14484                                         (/*melt_need_dbg*/ melt_need_debug ((int) 0))
14485 #else
14486                                         0 /* no melt_need_dbg */
14487 #endif /*MELT_HAVE_DEBUG*/
14488                                         ;;
14489                                     MELT_LOCATION("warmelt-normal.melt:2204:/ cond");
14490                                     /*cond*/
14491                                     if (/*_#MELT_NEED_DBG__L19*/ meltfnum[0]) /*then*/
14492                                         {
14493                                             /*^cond.then*/
14494                                             /*^block*/
14495                                             /*anyblock*/
14496                                             {
14497
14498                                                 /*_#MELT_CALLCOUNT__L20*/ meltfnum[9] =
14499                                                     /* for melt_callcount */
14500 #if MELT_HAVE_DEBUG && defined (meltcallcount)
14501                                                     meltcallcount  /* melt_callcount debugging */
14502 #else
14503                                                     0L  /* melt_callcount without debug */
14504 #endif /* MELT_HAVE_DEBUG melt_callcount */
14505                                                     ;;
14506
14507                                                 MELT_CHECK_SIGNAL();
14508                                                 ;
14509                                                 MELT_LOCATION("warmelt-normal.melt:2204:/ apply");
14510                                                 /*apply*/
14511                                                 {
14512                                                     union meltparam_un argtab[4];
14513                                                     memset(&argtab, 0, sizeof(argtab));
14514                                                     /*^apply.arg*/
14515                                                     argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L20*/ meltfnum[9];
14516                                                     /*^apply.arg*/
14517                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
14518                                                     /*^apply.arg*/
14519                                                     argtab[2].meltbp_long = 2204;
14520                                                     /*^apply.arg*/
14521                                                     argtab[3].meltbp_cstring =  "normexp_class failed";
14522                                                     /*_.MELT_DEBUG_FUN__V49*/
14523                                                     meltfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
14524                                                 }
14525                                                 ;
14526                                                 /*_._IF___V48*/
14527                                                 meltfptr[42] = /*_.MELT_DEBUG_FUN__V49*/ meltfptr[24];;
14528                                                 /*epilog*/
14529
14530                                                 MELT_LOCATION("warmelt-normal.melt:2204:/ clear");
14531                                                 /*clear*/ /*_#MELT_CALLCOUNT__L20*/
14532                                                 meltfnum[9] = 0 ;
14533                                                 /*^clear*/
14534                                                 /*clear*/ /*_.MELT_DEBUG_FUN__V49*/
14535                                                 meltfptr[24] = 0 ;
14536                                             }
14537                                             ;
14538                                         }
14539                                     else    /*^cond.else*/
14540                                         {
14541
14542                                             /*_._IF___V48*/ meltfptr[42] =  /*reallynil*/ NULL ;;
14543                                         }
14544                                     ;
14545
14546                                     {
14547                                         MELT_LOCATION("warmelt-normal.melt:2204:/ locexp");
14548                                         /*void*/
14549                                         (void)0;
14550                                     }
14551                                     ;
14552                                     /*^quasiblock*/
14553
14554
14555                                     /*epilog*/
14556
14557                                     /*^clear*/
14558                                     /*clear*/ /*_#MELT_NEED_DBG__L19*/
14559                                     meltfnum[0] = 0 ;
14560                                     /*^clear*/
14561                                     /*clear*/ /*_._IF___V48*/
14562                                     meltfptr[42] = 0 ;
14563                                 }
14564
14565 #else /*MELT_HAVE_DEBUG*/
14566                                 /*^cppif.else*/
14567                                 /*^block*/
14568                                 /*anyblock*/
14569                                 {
14570
14571
14572                                     {
14573                                         /*^locexp*/
14574                                         /*void*/(void)0;
14575                                     }
14576                                     ;
14577                                     /*epilog*/
14578                                 }
14579
14580 #endif /*MELT_HAVE_DEBUG*/
14581                                 ;
14582                                 MELT_LOCATION("warmelt-normal.melt:2205:/ quasiblock");
14583
14584
14585                                 /*_._RETVAL___V1*/
14586                                 meltfptr[0] =  /*reallynil*/ NULL ;;
14587
14588                                 {
14589                                     MELT_LOCATION("warmelt-normal.melt:2205:/ locexp");
14590                                     /*ochecknores compilobj_nrep_return*/
14591 #if MELT_HAVE_DEBUG
14592                                     if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
14593                                         melt_warn_for_no_expected_secondary_results();
14594                                     /* we warned when secondary results are expected but not returned. */
14595 #endif /*MELT_HAVE_DEBUG*/
14596                                     ;
14597                                 }
14598                                 ;
14599                                 /*^finalreturn*/
14600                                 ;
14601                                 /*finalret*/
14602                                 goto meltlabend_rout ;
14603                                 MELT_LOCATION("warmelt-normal.melt:2197:/ quasiblock");
14604
14605
14606                                 /*_.PROGN___V51*/
14607                                 meltfptr[29] = /*_.RETURN___V50*/ meltfptr[20];;
14608                                 /*^compute*/
14609                                 /*_._IFELSE___V32*/
14610                                 meltfptr[25] = /*_.PROGN___V51*/ meltfptr[29];;
14611                                 /*epilog*/
14612
14613                                 MELT_LOCATION("warmelt-normal.melt:2189:/ clear");
14614                                 /*clear*/ /*_.NAMED_NAME__V46*/
14615                                 meltfptr[26] = 0 ;
14616                                 /*^clear*/
14617                                 /*clear*/ /*_.ERROR_AT__V47*/
14618                                 meltfptr[39] = 0 ;
14619                                 /*^clear*/
14620                                 /*clear*/ /*_.RETURN___V50*/
14621                                 meltfptr[20] = 0 ;
14622                                 /*^clear*/
14623                                 /*clear*/ /*_.PROGN___V51*/
14624                                 meltfptr[29] = 0 ;
14625                             }
14626                             ;
14627                         }
14628                     ;
14629                     /*_._IFELSE___V23*/
14630                     meltfptr[21] = /*_._IFELSE___V32*/ meltfptr[25];;
14631                     /*epilog*/
14632
14633                     MELT_LOCATION("warmelt-normal.melt:2177:/ clear");
14634                     /*clear*/ /*_#IS_A__L14*/
14635                     meltfnum[12] = 0 ;
14636                     /*^clear*/
14637                     /*clear*/ /*_._IFELSE___V32*/
14638                     meltfptr[25] = 0 ;
14639                 }
14640                 ;
14641             }
14642         ;
14643         /*_.LET___V17*/
14644         meltfptr[15] = /*_._IFELSE___V23*/ meltfptr[21];;
14645
14646         MELT_LOCATION("warmelt-normal.melt:2173:/ clear");
14647         /*clear*/ /*_.NAMED_NAME__V18*/
14648         meltfptr[5] = 0 ;
14649         /*^clear*/
14650         /*clear*/ /*_.CLASYMB__V19*/
14651         meltfptr[18] = 0 ;
14652         /*^clear*/
14653         /*clear*/ /*_.CLABIND__V20*/
14654         meltfptr[19] = 0 ;
14655         /*^clear*/
14656         /*clear*/ /*_#IS_A__L8*/
14657         meltfnum[1] = 0 ;
14658         /*^clear*/
14659         /*clear*/ /*_._IFELSE___V23*/
14660         meltfptr[21] = 0 ;
14661
14662         MELT_CHECK_SIGNAL();
14663         ;
14664         MELT_LOCATION("warmelt-normal.melt:2168:/ quasiblock");
14665
14666
14667         /*_._RETVAL___V1*/
14668         meltfptr[0] = /*_.LET___V17*/ meltfptr[15];;
14669
14670         {
14671             MELT_LOCATION("warmelt-normal.melt:2168:/ locexp");
14672             /*ochecknores compilobj_nrep_return*/
14673 #if MELT_HAVE_DEBUG
14674             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
14675                 melt_warn_for_no_expected_secondary_results();
14676             /* we warned when secondary results are expected but not returned. */
14677 #endif /*MELT_HAVE_DEBUG*/
14678             ;
14679         }
14680         ;
14681         /*^finalreturn*/
14682         ;
14683         /*finalret*/
14684         goto meltlabend_rout ;
14685         /*epilog*/
14686
14687         /*^clear*/
14688         /*clear*/ /*_.IFCPP___V8*/
14689         meltfptr[6] = 0 ;
14690         /*^clear*/
14691         /*clear*/ /*_.IFCPP___V11*/
14692         meltfptr[9] = 0 ;
14693         /*^clear*/
14694         /*clear*/ /*_.IFCPP___V14*/
14695         meltfptr[12] = 0 ;
14696         /*^clear*/
14697         /*clear*/ /*_.LET___V17*/
14698         meltfptr[15] = 0 ;
14699     }
14700
14701     ;
14702     goto meltlabend_rout;
14703 meltlabend_rout:
14704     melt_trace_end("NORMEXP_CLASS", meltcallcount);
14705     melt_blocklevel_signals = current_blocklevel_signals_meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS_melt;
14706     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
14707 #undef meltcallcount
14708 #undef meltfram__
14709 #undef MELTFRAM_NBVARNUM
14710 #undef MELTFRAM_NBVARPTR
14711 } /*end meltrout_35_WARMELTmiNORMAL_NORMEXP_CLASS*/
14712
14713
14714
14715
14716
14717
14718 melt_ptr_t MELT_MODULE_VISIBILITY
14719 meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
14720         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
14721 {
14722     long current_blocklevel_signals_meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE_melt =  melt_blocklevel_signals;
14723
14724 #if MELT_HAVE_DEBUG
14725     static long melt_call_counter__;
14726     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
14727 #undef meltcallcount
14728 #define meltcallcount melt_thiscallcounter__
14729 #else
14730 #undef meltcallcount
14731 #define meltcallcount 0L
14732 #endif
14733 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
14734
14735     /* start of frame for routine meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE fromline 1752 */
14736
14737     /** start of frame for meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE of CLASS_PROCROUTINEOBJ from 1555**/
14738
14739     /*curframdeclclassy*/ class MeltFrame_meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE// fromline 1568
14740         : public Melt_CallFrameWithValues<91>
14741     {
14742     public: /* fromline 1572*/
14743         long mcfr_varnum[43];
14744         /*classy others*/
14745         long _meltsparel;
14746         void melt_mark_stuff (void)
14747         {
14748         } /*end melt_mark_stuff*/
14749         virtual void melt_mark_ggc_data (void)
14750         {
14751             melt_mark_values ();
14752             melt_mark_stuff ();
14753         }; /*end melt_mark_ggc_data*/
14754         MeltFrame_meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE(meltclosure_ptr_t clos) //the closure constructor fromline 1630
14755             : Melt_CallFrameWithValues<91> (
14756 #if ENABLE_CHECKING /*fromline 1634*/
14757                 __FILE__, __LINE__,
14758 #endif /* ENABLE_CHECKING fromline 1638*/
14759                 sizeof(MeltFrame_meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE), clos) {};
14760         MeltFrame_meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE() //the constructor fromline 1642
14761             : Melt_CallFrameWithValues<91> (
14762 #if ENABLE_CHECKING /*fromline 1646*/
14763                 __FILE__, __LINE__,
14764 #endif /* ENABLE_CHECKING fromline 1650*/
14765                 sizeof(MeltFrame_meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE)) {};
14766 #if ENABLE_CHECKING /*fromline 1654*/
14767         MeltFrame_meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE(const char*fil, int lin) //the constructor fromline 1656
14768             : Melt_CallFrameWithValues<91> (fil,lin, sizeof(MeltFrame_meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE)) {};
14769         MeltFrame_meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
14770             : Melt_CallFrameWithValues<91> (fil,lin, sizeof(MeltFrame_meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE), clos) {};
14771 #endif /* ENABLE_CHECKING fromline 1666*/
14772
14773     }; // end  class MeltFrame_meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE
14774
14775
14776     /** end of frame for meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE fromline 1697**/
14777
14778     /* end of frame for routine meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE fromline 1756 */
14779
14780     /* classy proc frame meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE */
14781     MeltFrame_meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE
14782     meltfram__ /*declfrastruct fromline 1780*/
14783     /*classyprocarg meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE fromline 1785*/
14784 #if ENABLE_CHECKING
14785     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
14786 #else /*ENABLE_CHECKING */
14787     (meltclosp_) /* fromline 1793*/
14788 #endif /*ENABLE_CHECKING */
14789
14790     ;
14791 #define meltframe meltfram__
14792
14793     melt_trace_start("NORMEXP_PRIMITIVE", meltcallcount);
14794     /*use arguments*/
14795     (void) meltclosp_;
14796     (void)meltfirstargp_;
14797     (void)meltxargdescr_;
14798     (void)meltxargtab_;
14799     (void)meltxresdescr_;
14800     (void)meltxrestab_;
14801     /*getargs*/
14802
14803     /*getarg#0*/
14804     MELT_LOCATION("warmelt-normal.melt:2214:/ getarg");
14805     /*_.RECV__V2*/
14806     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
14807
14808     /*getarg#1*/
14809     /*^getarg*/
14810     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
14811     /*_.ENV__V3*/
14812     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
14813     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
14814
14815
14816     /*getarg#2*/
14817     /*^getarg*/
14818     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
14819     /*_.NCX__V4*/
14820     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
14821     gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL);
14822
14823
14824     /*getarg#3*/
14825     /*^getarg*/
14826     if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
14827     /*_.PSLOC__V5*/
14828     meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
14829     gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL);
14830
14831     ;
14832     goto meltlab_endgetargs;
14833 meltlab_endgetargs:
14834     ;
14835     /*body*/
14836     /*^block*/
14837     /*anyblock*/
14838     {
14839
14840
14841 #if MELT_HAVE_DEBUG
14842         MELT_LOCATION("warmelt-normal.melt:2215:/ cppif.then");
14843         /*^block*/
14844         /*anyblock*/
14845         {
14846
14847
14848             {
14849                 /*^locexp*/
14850                 /*melt_increment_dbgcounter*/
14851 #if MELT_HAVE_DEBUG
14852                 melt_dbgcounter++;
14853 #endif
14854                 ;
14855             }
14856             ;
14857
14858             MELT_CHECK_SIGNAL();
14859             ;
14860             /*_#MELT_NEED_DBG__L1*/
14861             meltfnum[0] =
14862                 /*MELT_NEED_DBG*/
14863 #if MELT_HAVE_DEBUG
14864                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
14865 #else
14866                 0 /* no melt_need_dbg */
14867 #endif /*MELT_HAVE_DEBUG*/
14868                 ;;
14869             MELT_LOCATION("warmelt-normal.melt:2215:/ cond");
14870             /*cond*/
14871             if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
14872                 {
14873                     /*^cond.then*/
14874                     /*^block*/
14875                     /*anyblock*/
14876                     {
14877
14878                         /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
14879                             /* for melt_callcount */
14880 #if MELT_HAVE_DEBUG && defined (meltcallcount)
14881                             meltcallcount  /* melt_callcount debugging */
14882 #else
14883                             0L  /* melt_callcount without debug */
14884 #endif /* MELT_HAVE_DEBUG melt_callcount */
14885                             ;;
14886
14887                         MELT_CHECK_SIGNAL();
14888                         ;
14889                         MELT_LOCATION("warmelt-normal.melt:2215:/ apply");
14890                         /*apply*/
14891                         {
14892                             union meltparam_un argtab[5];
14893                             memset(&argtab, 0, sizeof(argtab));
14894                             /*^apply.arg*/
14895                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
14896                             /*^apply.arg*/
14897                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
14898                             /*^apply.arg*/
14899                             argtab[2].meltbp_long = 2215;
14900                             /*^apply.arg*/
14901                             argtab[3].meltbp_cstring =  "normexp_primitive recv";
14902                             /*^apply.arg*/
14903                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
14904                             /*_.MELT_DEBUG_FUN__V7*/
14905                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
14906                         }
14907                         ;
14908                         /*_._IF___V6*/
14909                         meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];;
14910                         /*epilog*/
14911
14912                         MELT_LOCATION("warmelt-normal.melt:2215:/ clear");
14913                         /*clear*/ /*_#MELT_CALLCOUNT__L2*/
14914                         meltfnum[1] = 0 ;
14915                         /*^clear*/
14916                         /*clear*/ /*_.MELT_DEBUG_FUN__V7*/
14917                         meltfptr[6] = 0 ;
14918                     }
14919                     ;
14920                 }
14921             else    /*^cond.else*/
14922                 {
14923
14924                     /*_._IF___V6*/ meltfptr[5] =  /*reallynil*/ NULL ;;
14925                 }
14926             ;
14927
14928             {
14929                 MELT_LOCATION("warmelt-normal.melt:2215:/ locexp");
14930                 /*void*/
14931                 (void)0;
14932             }
14933             ;
14934             /*^quasiblock*/
14935
14936
14937             /*epilog*/
14938
14939             /*^clear*/
14940             /*clear*/ /*_#MELT_NEED_DBG__L1*/
14941             meltfnum[0] = 0 ;
14942             /*^clear*/
14943             /*clear*/ /*_._IF___V6*/
14944             meltfptr[5] = 0 ;
14945         }
14946
14947 #else /*MELT_HAVE_DEBUG*/
14948         /*^cppif.else*/
14949         /*^block*/
14950         /*anyblock*/
14951         {
14952
14953
14954             {
14955                 /*^locexp*/
14956                 /*void*/(void)0;
14957             }
14958             ;
14959             /*epilog*/
14960         }
14961
14962 #endif /*MELT_HAVE_DEBUG*/
14963         ;
14964
14965 #if MELT_HAVE_DEBUG
14966         MELT_LOCATION("warmelt-normal.melt:2216:/ cppif.then");
14967         /*^block*/
14968         /*anyblock*/
14969         {
14970
14971
14972             MELT_CHECK_SIGNAL();
14973             ;
14974             /*_#IS_A__L3*/
14975             meltfnum[1] =
14976                 melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PRIMITIVE*/ meltfrout->tabval[1])));;
14977             MELT_LOCATION("warmelt-normal.melt:2216:/ cond");
14978             /*cond*/
14979             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
14980                 {
14981                     /*^cond.then*/
14982                     /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);;
14983                 }
14984             else
14985                 {
14986                     MELT_LOCATION("warmelt-normal.melt:2216:/ cond.else");
14987
14988                     /*^block*/
14989                     /*anyblock*/
14990                     {
14991
14992
14993                         MELT_CHECK_SIGNAL();
14994                         ;
14995                         /*^apply*/
14996                         /*apply*/
14997                         {
14998                             union meltparam_un argtab[4];
14999                             memset(&argtab, 0, sizeof(argtab));
15000                             /*^apply.arg*/
15001                             argtab[0].meltbp_cstring =  "check prim recv";
15002                             /*^apply.arg*/
15003                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
15004                             /*^apply.arg*/
15005                             argtab[2].meltbp_long = 2216;
15006                             /*^apply.arg*/
15007                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
15008                             /*_.MELT_ASSERT_FAILURE_FUN__V10*/
15009                             meltfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15010                         }
15011                         ;
15012                         /*_._IFELSE___V9*/
15013                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];;
15014                         /*epilog*/
15015
15016                         MELT_LOCATION("warmelt-normal.melt:2216:/ clear");
15017                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/
15018                         meltfptr[9] = 0 ;
15019                     }
15020                     ;
15021                 }
15022             ;
15023             /*_.IFCPP___V8*/
15024             meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];;
15025             /*epilog*/
15026
15027             MELT_LOCATION("warmelt-normal.melt:2216:/ clear");
15028             /*clear*/ /*_#IS_A__L3*/
15029             meltfnum[1] = 0 ;
15030             /*^clear*/
15031             /*clear*/ /*_._IFELSE___V9*/
15032             meltfptr[5] = 0 ;
15033         }
15034
15035 #else /*MELT_HAVE_DEBUG*/
15036         /*^cppif.else*/
15037         /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL);
15038 #endif /*MELT_HAVE_DEBUG*/
15039         ;
15040
15041 #if MELT_HAVE_DEBUG
15042         MELT_LOCATION("warmelt-normal.melt:2217:/ cppif.then");
15043         /*^block*/
15044         /*anyblock*/
15045         {
15046
15047
15048             MELT_CHECK_SIGNAL();
15049             ;
15050             /*_#IS_A__L4*/
15051             meltfnum[0] =
15052                 melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));;
15053             MELT_LOCATION("warmelt-normal.melt:2217:/ cond");
15054             /*cond*/
15055             if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/
15056                 {
15057                     /*^cond.then*/
15058                     /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);;
15059                 }
15060             else
15061                 {
15062                     MELT_LOCATION("warmelt-normal.melt:2217:/ cond.else");
15063
15064                     /*^block*/
15065                     /*anyblock*/
15066                     {
15067
15068
15069                         MELT_CHECK_SIGNAL();
15070                         ;
15071                         /*^apply*/
15072                         /*apply*/
15073                         {
15074                             union meltparam_un argtab[4];
15075                             memset(&argtab, 0, sizeof(argtab));
15076                             /*^apply.arg*/
15077                             argtab[0].meltbp_cstring =  "check env";
15078                             /*^apply.arg*/
15079                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
15080                             /*^apply.arg*/
15081                             argtab[2].meltbp_long = 2217;
15082                             /*^apply.arg*/
15083                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
15084                             /*_.MELT_ASSERT_FAILURE_FUN__V13*/
15085                             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15086                         }
15087                         ;
15088                         /*_._IFELSE___V12*/
15089                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];;
15090                         /*epilog*/
15091
15092                         MELT_LOCATION("warmelt-normal.melt:2217:/ clear");
15093                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/
15094                         meltfptr[12] = 0 ;
15095                     }
15096                     ;
15097                 }
15098             ;
15099             /*_.IFCPP___V11*/
15100             meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];;
15101             /*epilog*/
15102
15103             MELT_LOCATION("warmelt-normal.melt:2217:/ clear");
15104             /*clear*/ /*_#IS_A__L4*/
15105             meltfnum[0] = 0 ;
15106             /*^clear*/
15107             /*clear*/ /*_._IFELSE___V12*/
15108             meltfptr[5] = 0 ;
15109         }
15110
15111 #else /*MELT_HAVE_DEBUG*/
15112         /*^cppif.else*/
15113         /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL);
15114 #endif /*MELT_HAVE_DEBUG*/
15115         ;
15116
15117 #if MELT_HAVE_DEBUG
15118         MELT_LOCATION("warmelt-normal.melt:2218:/ cppif.then");
15119         /*^block*/
15120         /*anyblock*/
15121         {
15122
15123
15124             MELT_CHECK_SIGNAL();
15125             ;
15126             /*_#IS_A__L5*/
15127             meltfnum[1] =
15128                 melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));;
15129             MELT_LOCATION("warmelt-normal.melt:2218:/ cond");
15130             /*cond*/
15131             if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/
15132                 {
15133                     /*^cond.then*/
15134                     /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);;
15135                 }
15136             else
15137                 {
15138                     MELT_LOCATION("warmelt-normal.melt:2218:/ cond.else");
15139
15140                     /*^block*/
15141                     /*anyblock*/
15142                     {
15143
15144
15145                         MELT_CHECK_SIGNAL();
15146                         ;
15147                         /*^apply*/
15148                         /*apply*/
15149                         {
15150                             union meltparam_un argtab[4];
15151                             memset(&argtab, 0, sizeof(argtab));
15152                             /*^apply.arg*/
15153                             argtab[0].meltbp_cstring =  "check nctxt";
15154                             /*^apply.arg*/
15155                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
15156                             /*^apply.arg*/
15157                             argtab[2].meltbp_long = 2218;
15158                             /*^apply.arg*/
15159                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
15160                             /*_.MELT_ASSERT_FAILURE_FUN__V16*/
15161                             meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15162                         }
15163                         ;
15164                         /*_._IFELSE___V15*/
15165                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];;
15166                         /*epilog*/
15167
15168                         MELT_LOCATION("warmelt-normal.melt:2218:/ clear");
15169                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/
15170                         meltfptr[15] = 0 ;
15171                     }
15172                     ;
15173                 }
15174             ;
15175             /*_.IFCPP___V14*/
15176             meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];;
15177             /*epilog*/
15178
15179             MELT_LOCATION("warmelt-normal.melt:2218:/ clear");
15180             /*clear*/ /*_#IS_A__L5*/
15181             meltfnum[1] = 0 ;
15182             /*^clear*/
15183             /*clear*/ /*_._IFELSE___V15*/
15184             meltfptr[5] = 0 ;
15185         }
15186
15187 #else /*MELT_HAVE_DEBUG*/
15188         /*^cppif.else*/
15189         /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL);
15190 #endif /*MELT_HAVE_DEBUG*/
15191         ;
15192         MELT_LOCATION("warmelt-normal.melt:2219:/ quasiblock");
15193
15194
15195         /*^getslot*/
15196         {
15197             melt_ptr_t slot=NULL, obj=NULL;
15198             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
15199             melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
15200             /*_.SLOC__V18*/
15201             meltfptr[5] = slot;
15202         };
15203         ;
15204         MELT_LOCATION("warmelt-normal.melt:2220:/ getslot");
15205         {
15206             melt_ptr_t slot=NULL, obj=NULL;
15207             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
15208             melt_object_get_field(slot,obj, 3, "SPRIM_OPER");
15209             /*_.SOPER__V19*/
15210             meltfptr[18] = slot;
15211         };
15212         ;
15213         MELT_LOCATION("warmelt-normal.melt:2221:/ getslot");
15214         {
15215             melt_ptr_t slot=NULL, obj=NULL;
15216             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
15217             melt_object_get_field(slot,obj, 2, "SARGOP_ARGS");
15218             /*_.SARGS__V20*/
15219             meltfptr[19] = slot;
15220         };
15221         ;
15222
15223 #if MELT_HAVE_DEBUG
15224         MELT_LOCATION("warmelt-normal.melt:2223:/ cppif.then");
15225         /*^block*/
15226         /*anyblock*/
15227         {
15228
15229
15230             MELT_CHECK_SIGNAL();
15231             ;
15232             /*_#IS_A__L6*/
15233             meltfnum[0] =
15234                 melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ meltfrout->tabval[5])));;
15235             MELT_LOCATION("warmelt-normal.melt:2223:/ cond");
15236             /*cond*/
15237             if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/
15238                 {
15239                     /*^cond.then*/
15240                     /*_._IFELSE___V22*/ meltfptr[21] = (/*nil*/NULL);;
15241                 }
15242             else
15243                 {
15244                     MELT_LOCATION("warmelt-normal.melt:2223:/ cond.else");
15245
15246                     /*^block*/
15247                     /*anyblock*/
15248                     {
15249
15250
15251                         MELT_CHECK_SIGNAL();
15252                         ;
15253                         /*^apply*/
15254                         /*apply*/
15255                         {
15256                             union meltparam_un argtab[4];
15257                             memset(&argtab, 0, sizeof(argtab));
15258                             /*^apply.arg*/
15259                             argtab[0].meltbp_cstring =  "check soper";
15260                             /*^apply.arg*/
15261                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
15262                             /*^apply.arg*/
15263                             argtab[2].meltbp_long = 2223;
15264                             /*^apply.arg*/
15265                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SOPER__V19*/ meltfptr[18];
15266                             /*_.MELT_ASSERT_FAILURE_FUN__V23*/
15267                             meltfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15268                         }
15269                         ;
15270                         /*_._IFELSE___V22*/
15271                         meltfptr[21] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];;
15272                         /*epilog*/
15273
15274                         MELT_LOCATION("warmelt-normal.melt:2223:/ clear");
15275                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/
15276                         meltfptr[22] = 0 ;
15277                     }
15278                     ;
15279                 }
15280             ;
15281             /*_.IFCPP___V21*/
15282             meltfptr[20] = /*_._IFELSE___V22*/ meltfptr[21];;
15283             /*epilog*/
15284
15285             MELT_LOCATION("warmelt-normal.melt:2223:/ clear");
15286             /*clear*/ /*_#IS_A__L6*/
15287             meltfnum[0] = 0 ;
15288             /*^clear*/
15289             /*clear*/ /*_._IFELSE___V22*/
15290             meltfptr[21] = 0 ;
15291         }
15292
15293 #else /*MELT_HAVE_DEBUG*/
15294         /*^cppif.else*/
15295         /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL);
15296 #endif /*MELT_HAVE_DEBUG*/
15297         ;
15298
15299         MELT_CHECK_SIGNAL();
15300         ;
15301         MELT_LOCATION("warmelt-normal.melt:2224:/ quasiblock");
15302
15303
15304         /*^multiapply*/
15305         /*multiapply 4args, 1x.res*/
15306         {
15307             union meltparam_un argtab[3];
15308
15309             union meltparam_un restab[1];
15310             memset(&restab, 0, sizeof(restab));
15311             memset(&argtab, 0, sizeof(argtab));
15312             /*^multiapply.arg*/
15313             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multiapply.arg*/
15314             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multiapply.arg*/
15315             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
15316             /*^multiapply.xres*/
15317             restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V26*/ meltfptr[25];
15318             /*^multiapply.appl*/
15319             /*_.NARGS__V25*/
15320             meltfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
15321         }
15322         ;
15323         /*^quasiblock*/
15324
15325
15326         MELT_LOCATION("warmelt-normal.melt:2227:/ quasiblock");
15327
15328
15329         /*^getslot*/
15330         {
15331             melt_ptr_t slot=NULL, obj=NULL;
15332             obj = (melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]) /*=obj*/;
15333             melt_object_get_field(slot,obj, 1, "NAMED_NAME");
15334             /*_.SOPNAMSTR__V28*/
15335             meltfptr[27] = slot;
15336         };
15337         ;
15338         MELT_LOCATION("warmelt-normal.melt:2228:/ getslot");
15339         {
15340             melt_ptr_t slot=NULL, obj=NULL;
15341             obj = (melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]) /*=obj*/;
15342             melt_object_get_field(slot,obj, 2, "PRIM_FORMALS");
15343             /*_.SOPFORMALS__V29*/
15344             meltfptr[28] = slot;
15345         };
15346         ;
15347         MELT_LOCATION("warmelt-normal.melt:2229:/ getslot");
15348         {
15349             melt_ptr_t slot=NULL, obj=NULL;
15350             obj = (melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]) /*=obj*/;
15351             melt_object_get_field(slot,obj, 3, "PRIM_TYPE");
15352             /*_.SOPTYPE__V30*/
15353             meltfptr[29] = slot;
15354         };
15355         ;
15356         MELT_LOCATION("warmelt-normal.melt:2230:/ getslot");
15357         {
15358             melt_ptr_t slot=NULL, obj=NULL;
15359             obj = (melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]) /*=obj*/;
15360             melt_object_get_field(slot,obj, 4, "PRIM_EXPANSION");
15361             /*_.SOPEXP__V31*/
15362             meltfptr[30] = slot;
15363         };
15364         ;
15365         /*_#NBARG__L7*/
15366         meltfnum[1] =
15367             (melt_multiple_length((melt_ptr_t)(/*_.NARGS__V25*/ meltfptr[21])));;
15368         /*^compute*/
15369         /*_#NBEXP__L8*/
15370         meltfnum[0] =
15371             (melt_multiple_length((melt_ptr_t)(/*_.SOPEXP__V31*/ meltfptr[30])));;
15372
15373 #if MELT_HAVE_DEBUG
15374         MELT_LOCATION("warmelt-normal.melt:2234:/ cppif.then");
15375         /*^block*/
15376         /*anyblock*/
15377         {
15378
15379
15380             MELT_CHECK_SIGNAL();
15381             ;
15382             /*_#IS_A__L9*/
15383             meltfnum[8] =
15384                 melt_is_instance_of((melt_ptr_t)(/*_.SOPTYPE__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[7])));;
15385             MELT_LOCATION("warmelt-normal.melt:2234:/ cond");
15386             /*cond*/
15387             if (/*_#IS_A__L9*/ meltfnum[8]) /*then*/
15388                 {
15389                     /*^cond.then*/
15390                     /*_._IFELSE___V33*/ meltfptr[32] = (/*nil*/NULL);;
15391                 }
15392             else
15393                 {
15394                     MELT_LOCATION("warmelt-normal.melt:2234:/ cond.else");
15395
15396                     /*^block*/
15397                     /*anyblock*/
15398                     {
15399
15400
15401                         MELT_CHECK_SIGNAL();
15402                         ;
15403                         /*^apply*/
15404                         /*apply*/
15405                         {
15406                             union meltparam_un argtab[4];
15407                             memset(&argtab, 0, sizeof(argtab));
15408                             /*^apply.arg*/
15409                             argtab[0].meltbp_cstring =  "check soptype";
15410                             /*^apply.arg*/
15411                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
15412                             /*^apply.arg*/
15413                             argtab[2].meltbp_long = 2234;
15414                             /*^apply.arg*/
15415                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SOPTYPE__V30*/ meltfptr[29];
15416                             /*_.MELT_ASSERT_FAILURE_FUN__V34*/
15417                             meltfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15418                         }
15419                         ;
15420                         /*_._IFELSE___V33*/
15421                         meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];;
15422                         /*epilog*/
15423
15424                         MELT_LOCATION("warmelt-normal.melt:2234:/ clear");
15425                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/
15426                         meltfptr[33] = 0 ;
15427                     }
15428                     ;
15429                 }
15430             ;
15431             /*_.IFCPP___V32*/
15432             meltfptr[31] = /*_._IFELSE___V33*/ meltfptr[32];;
15433             /*epilog*/
15434
15435             MELT_LOCATION("warmelt-normal.melt:2234:/ clear");
15436             /*clear*/ /*_#IS_A__L9*/
15437             meltfnum[8] = 0 ;
15438             /*^clear*/
15439             /*clear*/ /*_._IFELSE___V33*/
15440             meltfptr[32] = 0 ;
15441         }
15442
15443 #else /*MELT_HAVE_DEBUG*/
15444         /*^cppif.else*/
15445         /*_.IFCPP___V32*/ meltfptr[31] = (/*nil*/NULL);
15446 #endif /*MELT_HAVE_DEBUG*/
15447         ;
15448
15449         MELT_CHECK_SIGNAL();
15450         ;
15451         /*^compute*/
15452         /*_#MULTIPLE_LENGTH__L10*/
15453         meltfnum[8] =
15454             (melt_multiple_length((melt_ptr_t)(/*_.SOPFORMALS__V29*/ meltfptr[28])));;
15455         /*^compute*/
15456         /*_#exeqI__L11*/
15457         meltfnum[10] =
15458             ((/*_#NBARG__L7*/ meltfnum[1]) != (/*_#MULTIPLE_LENGTH__L10*/ meltfnum[8]));;
15459         MELT_LOCATION("warmelt-normal.melt:2235:/ cond");
15460         /*cond*/
15461         if (/*_#exeqI__L11*/ meltfnum[10]) /*then*/
15462             {
15463                 /*^cond.then*/
15464                 /*^block*/
15465                 /*anyblock*/
15466                 {
15467
15468                     /*_#MULTIPLE_LENGTH__L12*/ meltfnum[11] =
15469                         (melt_multiple_length((melt_ptr_t)(/*_.SOPFORMALS__V29*/ meltfptr[28])));;
15470
15471                     MELT_CHECK_SIGNAL();
15472                     ;
15473                     MELT_LOCATION("warmelt-normal.melt:2236:/ apply");
15474                     /*apply*/
15475                     {
15476                         union meltparam_un argtab[4];
15477                         memset(&argtab, 0, sizeof(argtab));
15478                         /*^apply.arg*/
15479                         argtab[0].meltbp_cstring =  "length mismatch between formals & actuals in primitive $1, got $2 arguments\
15480  for $3 formals";
15481                         /*^apply.arg*/
15482                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SOPNAMSTR__V28*/ meltfptr[27];
15483                         /*^apply.arg*/
15484                         argtab[2].meltbp_long = /*_#NBARG__L7*/ meltfnum[1];
15485                         /*^apply.arg*/
15486                         argtab[3].meltbp_long = /*_#MULTIPLE_LENGTH__L12*/ meltfnum[11];
15487                         /*_.ERROR_AT__V36*/
15488                         meltfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
15489                     }
15490                     ;
15491
15492                     MELT_CHECK_SIGNAL();
15493                     ;
15494                     MELT_LOCATION("warmelt-normal.melt:2238:/ quasiblock");
15495
15496
15497                     /*_._RETVAL___V1*/
15498                     meltfptr[0] = (/*nil*/NULL);;
15499
15500                     {
15501                         MELT_LOCATION("warmelt-normal.melt:2238:/ locexp");
15502                         /*ochecknores compilobj_nrep_return*/
15503 #if MELT_HAVE_DEBUG
15504                         if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
15505                             melt_warn_for_no_expected_secondary_results();
15506                         /* we warned when secondary results are expected but not returned. */
15507 #endif /*MELT_HAVE_DEBUG*/
15508                         ;
15509                     }
15510                     ;
15511                     /*^finalreturn*/
15512                     ;
15513                     /*finalret*/
15514                     goto meltlabend_rout ;
15515                     MELT_LOCATION("warmelt-normal.melt:2235:/ quasiblock");
15516
15517
15518                     /*_.PROGN___V38*/
15519                     meltfptr[37] = /*_.RETURN___V37*/ meltfptr[36];;
15520                     /*^compute*/
15521                     /*_._IF___V35*/
15522                     meltfptr[33] = /*_.PROGN___V38*/ meltfptr[37];;
15523                     /*epilog*/
15524
15525                     MELT_LOCATION("warmelt-normal.melt:2235:/ clear");
15526                     /*clear*/ /*_#MULTIPLE_LENGTH__L12*/
15527                     meltfnum[11] = 0 ;
15528                     /*^clear*/
15529                     /*clear*/ /*_.ERROR_AT__V36*/
15530                     meltfptr[32] = 0 ;
15531                     /*^clear*/
15532                     /*clear*/ /*_.RETURN___V37*/
15533                     meltfptr[36] = 0 ;
15534                     /*^clear*/
15535                     /*clear*/ /*_.PROGN___V38*/
15536                     meltfptr[37] = 0 ;
15537                 }
15538                 ;
15539             }
15540         else    /*^cond.else*/
15541             {
15542
15543                 /*_._IF___V35*/ meltfptr[33] =  /*reallynil*/ NULL ;;
15544             }
15545         ;
15546         MELT_LOCATION("warmelt-normal.melt:2239:/ quasiblock");
15547
15548
15549         /*_#stI__L13*/
15550         meltfnum[11] =
15551             ((3) * (/*_#NBARG__L7*/ meltfnum[1]));;
15552         /*^compute*/
15553         /*_#diIRAW__L14*/
15554         meltfnum[13] =
15555             ((/*_#stI__L13*/ meltfnum[11]) / (2));;
15556         /*^compute*/
15557         /*_#plI__L15*/
15558         meltfnum[14] =
15559             ((5) + (/*_#diIRAW__L14*/ meltfnum[13]));;
15560         /*^compute*/
15561         /*_.BMAP__V40*/
15562         meltfptr[36] =
15563             (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[9])), (/*_#plI__L15*/ meltfnum[14])));;
15564         /*^compute*/
15565         /*_.EXPARGS__V41*/
15566         meltfptr[37] =
15567             (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[10])), (/*_#NBEXP__L8*/ meltfnum[0])));;
15568         /*citerblock FOREACH_IN_MULTIPLE*/
15569         {
15570             /* start foreach_in_multiple meltcit1__EACHTUP */
15571             long  meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SOPFORMALS__V29*/ meltfptr[28]);
15572             for (/*_#IX__L16*/ meltfnum[15] = 0;
15573                                (/*_#IX__L16*/ meltfnum[15] >= 0) && (/*_#IX__L16*/ meltfnum[15] <  meltcit1__EACHTUP_ln);
15574                                /*_#IX__L16*/ meltfnum[15]++)
15575                 {
15576                     /*_.FORB__V42*/ meltfptr[41] = melt_multiple_nth((melt_ptr_t)(/*_.SOPFORMALS__V29*/ meltfptr[28]),  /*_#IX__L16*/ meltfnum[15]);
15577
15578
15579
15580
15581 #if MELT_HAVE_DEBUG
15582                     MELT_LOCATION("warmelt-normal.melt:2245:/ cppif.then");
15583                     /*^block*/
15584                     /*anyblock*/
15585                     {
15586
15587
15588                         MELT_CHECK_SIGNAL();
15589                         ;
15590                         /*_#IS_A__L17*/
15591                         meltfnum[16] =
15592                             melt_is_instance_of((melt_ptr_t)(/*_.FORB__V42*/ meltfptr[41]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[11])));;
15593                         MELT_LOCATION("warmelt-normal.melt:2245:/ cond");
15594                         /*cond*/
15595                         if (/*_#IS_A__L17*/ meltfnum[16]) /*then*/
15596                             {
15597                                 /*^cond.then*/
15598                                 /*_._IFELSE___V44*/ meltfptr[43] = (/*nil*/NULL);;
15599                             }
15600                         else
15601                             {
15602                                 MELT_LOCATION("warmelt-normal.melt:2245:/ cond.else");
15603
15604                                 /*^block*/
15605                                 /*anyblock*/
15606                                 {
15607
15608
15609                                     MELT_CHECK_SIGNAL();
15610                                     ;
15611                                     /*^apply*/
15612                                     /*apply*/
15613                                     {
15614                                         union meltparam_un argtab[4];
15615                                         memset(&argtab, 0, sizeof(argtab));
15616                                         /*^apply.arg*/
15617                                         argtab[0].meltbp_cstring =  "check forb";
15618                                         /*^apply.arg*/
15619                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
15620                                         /*^apply.arg*/
15621                                         argtab[2].meltbp_long = 2245;
15622                                         /*^apply.arg*/
15623                                         argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FORB__V42*/ meltfptr[41];
15624                                         /*_.MELT_ASSERT_FAILURE_FUN__V45*/
15625                                         meltfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15626                                     }
15627                                     ;
15628                                     /*_._IFELSE___V44*/
15629                                     meltfptr[43] = /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[44];;
15630                                     /*epilog*/
15631
15632                                     MELT_LOCATION("warmelt-normal.melt:2245:/ clear");
15633                                     /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V45*/
15634                                     meltfptr[44] = 0 ;
15635                                 }
15636                                 ;
15637                             }
15638                         ;
15639                         /*_.IFCPP___V43*/
15640                         meltfptr[42] = /*_._IFELSE___V44*/ meltfptr[43];;
15641                         /*epilog*/
15642
15643                         MELT_LOCATION("warmelt-normal.melt:2245:/ clear");
15644                         /*clear*/ /*_#IS_A__L17*/
15645                         meltfnum[16] = 0 ;
15646                         /*^clear*/
15647                         /*clear*/ /*_._IFELSE___V44*/
15648                         meltfptr[43] = 0 ;
15649                     }
15650
15651 #else /*MELT_HAVE_DEBUG*/
15652                     /*^cppif.else*/
15653                     /*_.IFCPP___V43*/ meltfptr[42] = (/*nil*/NULL);
15654 #endif /*MELT_HAVE_DEBUG*/
15655                     ;
15656
15657 #if MELT_HAVE_DEBUG
15658                     MELT_LOCATION("warmelt-normal.melt:2246:/ cppif.then");
15659                     /*^block*/
15660                     /*anyblock*/
15661                     {
15662
15663
15664                         {
15665                             /*^locexp*/
15666                             /*melt_increment_dbgcounter*/
15667 #if MELT_HAVE_DEBUG
15668                             melt_dbgcounter++;
15669 #endif
15670                             ;
15671                         }
15672                         ;
15673
15674                         MELT_CHECK_SIGNAL();
15675                         ;
15676                         /*_#MELT_NEED_DBG__L18*/
15677                         meltfnum[16] =
15678                             /*MELT_NEED_DBG*/
15679 #if MELT_HAVE_DEBUG
15680                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
15681 #else
15682                             0 /* no melt_need_dbg */
15683 #endif /*MELT_HAVE_DEBUG*/
15684                             ;;
15685                         MELT_LOCATION("warmelt-normal.melt:2246:/ cond");
15686                         /*cond*/
15687                         if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/
15688                             {
15689                                 /*^cond.then*/
15690                                 /*^block*/
15691                                 /*anyblock*/
15692                                 {
15693
15694                                     /*_#MELT_CALLCOUNT__L19*/ meltfnum[18] =
15695                                         /* for melt_callcount */
15696 #if MELT_HAVE_DEBUG && defined (meltcallcount)
15697                                         meltcallcount  /* melt_callcount debugging */
15698 #else
15699                                         0L  /* melt_callcount without debug */
15700 #endif /* MELT_HAVE_DEBUG melt_callcount */
15701                                         ;;
15702
15703                                     MELT_CHECK_SIGNAL();
15704                                     ;
15705                                     MELT_LOCATION("warmelt-normal.melt:2246:/ apply");
15706                                     /*apply*/
15707                                     {
15708                                         union meltparam_un argtab[5];
15709                                         memset(&argtab, 0, sizeof(argtab));
15710                                         /*^apply.arg*/
15711                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L19*/ meltfnum[18];
15712                                         /*^apply.arg*/
15713                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
15714                                         /*^apply.arg*/
15715                                         argtab[2].meltbp_long = 2246;
15716                                         /*^apply.arg*/
15717                                         argtab[3].meltbp_cstring =  "normexp_primitive forb";
15718                                         /*^apply.arg*/
15719                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FORB__V42*/ meltfptr[41];
15720                                         /*_.MELT_DEBUG_FUN__V47*/
15721                                         meltfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15722                                     }
15723                                     ;
15724                                     /*_._IF___V46*/
15725                                     meltfptr[44] = /*_.MELT_DEBUG_FUN__V47*/ meltfptr[43];;
15726                                     /*epilog*/
15727
15728                                     MELT_LOCATION("warmelt-normal.melt:2246:/ clear");
15729                                     /*clear*/ /*_#MELT_CALLCOUNT__L19*/
15730                                     meltfnum[18] = 0 ;
15731                                     /*^clear*/
15732                                     /*clear*/ /*_.MELT_DEBUG_FUN__V47*/
15733                                     meltfptr[43] = 0 ;
15734                                 }
15735                                 ;
15736                             }
15737                         else    /*^cond.else*/
15738                             {
15739
15740                                 /*_._IF___V46*/ meltfptr[44] =  /*reallynil*/ NULL ;;
15741                             }
15742                         ;
15743
15744                         {
15745                             MELT_LOCATION("warmelt-normal.melt:2246:/ locexp");
15746                             /*void*/
15747                             (void)0;
15748                         }
15749                         ;
15750                         /*^quasiblock*/
15751
15752
15753                         /*epilog*/
15754
15755                         /*^clear*/
15756                         /*clear*/ /*_#MELT_NEED_DBG__L18*/
15757                         meltfnum[16] = 0 ;
15758                         /*^clear*/
15759                         /*clear*/ /*_._IF___V46*/
15760                         meltfptr[44] = 0 ;
15761                     }
15762
15763 #else /*MELT_HAVE_DEBUG*/
15764                     /*^cppif.else*/
15765                     /*^block*/
15766                     /*anyblock*/
15767                     {
15768
15769
15770                         {
15771                             /*^locexp*/
15772                             /*void*/(void)0;
15773                         }
15774                         ;
15775                         /*epilog*/
15776                     }
15777
15778 #endif /*MELT_HAVE_DEBUG*/
15779                     ;
15780                     MELT_LOCATION("warmelt-normal.melt:2247:/ quasiblock");
15781
15782
15783                     /*^getslot*/
15784                     {
15785                         melt_ptr_t slot=NULL, obj=NULL;
15786                         obj = (melt_ptr_t)(/*_.FORB__V42*/ meltfptr[41]) /*=obj*/;
15787                         melt_object_get_field(slot,obj, 0, "BINDER");
15788                         /*_.FORARG__V48*/
15789                         meltfptr[43] = slot;
15790                     };
15791                     ;
15792                     /*_.ACTARG__V49*/
15793                     meltfptr[44] =
15794                         (melt_multiple_nth((melt_ptr_t)(/*_.NARGS__V25*/ meltfptr[21]), (/*_#IX__L16*/ meltfnum[15])));;
15795                     MELT_LOCATION("warmelt-normal.melt:2249:/ getslot");
15796                     {
15797                         melt_ptr_t slot=NULL, obj=NULL;
15798                         obj = (melt_ptr_t)(/*_.FORB__V42*/ meltfptr[41]) /*=obj*/;
15799                         melt_object_get_field(slot,obj, 1, "FBIND_TYPE");
15800                         /*_.FORTYPE__V50*/
15801                         meltfptr[49] = slot;
15802                     };
15803                     ;
15804
15805                     MELT_CHECK_SIGNAL();
15806                     ;
15807                     MELT_LOCATION("warmelt-normal.melt:2250:/ msend");
15808                     /*msend*/
15809                     {
15810                         union meltparam_un argtab[1];
15811                         memset(&argtab, 0, sizeof(argtab));
15812                         /*^ojbmsend.arg*/
15813                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
15814                         /*_.ACTYPE__V51*/
15815                         meltfptr[50] = meltgc_send((melt_ptr_t)(/*_.ACTARG__V49*/ meltfptr[44]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15816                     }
15817                     ;
15818
15819 #if MELT_HAVE_DEBUG
15820                     MELT_LOCATION("warmelt-normal.melt:2252:/ cppif.then");
15821                     /*^block*/
15822                     /*anyblock*/
15823                     {
15824
15825
15826                         {
15827                             /*^locexp*/
15828                             /*melt_increment_dbgcounter*/
15829 #if MELT_HAVE_DEBUG
15830                             melt_dbgcounter++;
15831 #endif
15832                             ;
15833                         }
15834                         ;
15835
15836                         MELT_CHECK_SIGNAL();
15837                         ;
15838                         /*_#MELT_NEED_DBG__L20*/
15839                         meltfnum[18] =
15840                             /*MELT_NEED_DBG*/
15841 #if MELT_HAVE_DEBUG
15842                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
15843 #else
15844                             0 /* no melt_need_dbg */
15845 #endif /*MELT_HAVE_DEBUG*/
15846                             ;;
15847                         MELT_LOCATION("warmelt-normal.melt:2252:/ cond");
15848                         /*cond*/
15849                         if (/*_#MELT_NEED_DBG__L20*/ meltfnum[18]) /*then*/
15850                             {
15851                                 /*^cond.then*/
15852                                 /*^block*/
15853                                 /*anyblock*/
15854                                 {
15855
15856                                     /*_#MELT_CALLCOUNT__L21*/ meltfnum[16] =
15857                                         /* for melt_callcount */
15858 #if MELT_HAVE_DEBUG && defined (meltcallcount)
15859                                         meltcallcount  /* melt_callcount debugging */
15860 #else
15861                                         0L  /* melt_callcount without debug */
15862 #endif /* MELT_HAVE_DEBUG melt_callcount */
15863                                         ;;
15864
15865                                     MELT_CHECK_SIGNAL();
15866                                     ;
15867                                     MELT_LOCATION("warmelt-normal.melt:2252:/ apply");
15868                                     /*apply*/
15869                                     {
15870                                         union meltparam_un argtab[7];
15871                                         memset(&argtab, 0, sizeof(argtab));
15872                                         /*^apply.arg*/
15873                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L21*/ meltfnum[16];
15874                                         /*^apply.arg*/
15875                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
15876                                         /*^apply.arg*/
15877                                         argtab[2].meltbp_long = 2252;
15878                                         /*^apply.arg*/
15879                                         argtab[3].meltbp_cstring =  "normexp_primitive actarg=";
15880                                         /*^apply.arg*/
15881                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ACTARG__V49*/ meltfptr[44];
15882                                         /*^apply.arg*/
15883                                         argtab[5].meltbp_cstring =  " actype=";
15884                                         /*^apply.arg*/
15885                                         argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.ACTYPE__V51*/ meltfptr[50];
15886                                         /*_.MELT_DEBUG_FUN__V53*/
15887                                         meltfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15888                                     }
15889                                     ;
15890                                     /*_._IF___V52*/
15891                                     meltfptr[51] = /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52];;
15892                                     /*epilog*/
15893
15894                                     MELT_LOCATION("warmelt-normal.melt:2252:/ clear");
15895                                     /*clear*/ /*_#MELT_CALLCOUNT__L21*/
15896                                     meltfnum[16] = 0 ;
15897                                     /*^clear*/
15898                                     /*clear*/ /*_.MELT_DEBUG_FUN__V53*/
15899                                     meltfptr[52] = 0 ;
15900                                 }
15901                                 ;
15902                             }
15903                         else    /*^cond.else*/
15904                             {
15905
15906                                 /*_._IF___V52*/ meltfptr[51] =  /*reallynil*/ NULL ;;
15907                             }
15908                         ;
15909
15910                         {
15911                             MELT_LOCATION("warmelt-normal.melt:2252:/ locexp");
15912                             /*void*/
15913                             (void)0;
15914                         }
15915                         ;
15916                         /*^quasiblock*/
15917
15918
15919                         /*epilog*/
15920
15921                         /*^clear*/
15922                         /*clear*/ /*_#MELT_NEED_DBG__L20*/
15923                         meltfnum[18] = 0 ;
15924                         /*^clear*/
15925                         /*clear*/ /*_._IF___V52*/
15926                         meltfptr[51] = 0 ;
15927                     }
15928
15929 #else /*MELT_HAVE_DEBUG*/
15930                     /*^cppif.else*/
15931                     /*^block*/
15932                     /*anyblock*/
15933                     {
15934
15935
15936                         {
15937                             /*^locexp*/
15938                             /*void*/(void)0;
15939                         }
15940                         ;
15941                         /*epilog*/
15942                     }
15943
15944 #endif /*MELT_HAVE_DEBUG*/
15945                     ;
15946
15947                     MELT_CHECK_SIGNAL();
15948                     ;
15949
15950                     MELT_CHECK_SIGNAL();
15951                     ;
15952                     /*_#IS_A__L22*/
15953                     meltfnum[16] =
15954                         melt_is_instance_of((melt_ptr_t)(/*_.FORTYPE__V50*/ meltfptr[49]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[7])));;
15955                     MELT_LOCATION("warmelt-normal.melt:2253:/ cond");
15956                     /*cond*/
15957                     if (/*_#IS_A__L22*/ meltfnum[16]) /*then*/
15958                         {
15959                             /*^cond.then*/
15960                             /*^block*/
15961                             /*anyblock*/
15962                             {
15963
15964
15965                                 MELT_CHECK_SIGNAL();
15966                                 ;
15967                                 /*_#IS_A__L24*/
15968                                 meltfnum[23] =
15969                                     melt_is_instance_of((melt_ptr_t)(/*_.ACTYPE__V51*/ meltfptr[50]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[7])));;
15970                                 MELT_LOCATION("warmelt-normal.melt:2253:/ cond");
15971                                 /*cond*/
15972                                 if (/*_#IS_A__L24*/ meltfnum[23]) /*then*/
15973                                     {
15974                                         /*^cond.then*/
15975                                         /*^block*/
15976                                         /*anyblock*/
15977                                         {
15978
15979                                             /*_#exeq__L26*/ meltfnum[25] =
15980                                                 ((/*_.FORTYPE__V50*/ meltfptr[49]) != (/*_.ACTYPE__V51*/ meltfptr[50]));;
15981                                             /*^compute*/
15982                                             /*_#_IF___L25*/
15983                                             meltfnum[24] = /*_#exeq__L26*/ meltfnum[25];;
15984                                             /*epilog*/
15985
15986                                             MELT_LOCATION("warmelt-normal.melt:2253:/ clear");
15987                                             /*clear*/ /*_#exeq__L26*/
15988                                             meltfnum[25] = 0 ;
15989                                         }
15990                                         ;
15991                                     }
15992                                 else    /*^cond.else*/
15993                                     {
15994
15995                                         /*_#_IF___L25*/ meltfnum[24] = 0;;
15996                                     }
15997                                 ;
15998                                 /*^compute*/
15999                                 /*_#_IF___L23*/
16000                                 meltfnum[18] = /*_#_IF___L25*/ meltfnum[24];;
16001                                 /*epilog*/
16002
16003                                 MELT_LOCATION("warmelt-normal.melt:2253:/ clear");
16004                                 /*clear*/ /*_#IS_A__L24*/
16005                                 meltfnum[23] = 0 ;
16006                                 /*^clear*/
16007                                 /*clear*/ /*_#_IF___L25*/
16008                                 meltfnum[24] = 0 ;
16009                             }
16010                             ;
16011                         }
16012                     else    /*^cond.else*/
16013                         {
16014
16015                             /*_#_IF___L23*/ meltfnum[18] = 0;;
16016                         }
16017                     ;
16018                     MELT_LOCATION("warmelt-normal.melt:2253:/ cond");
16019                     /*cond*/
16020                     if (/*_#_IF___L23*/ meltfnum[18]) /*then*/
16021                         {
16022                             /*^cond.then*/
16023                             /*^block*/
16024                             /*anyblock*/
16025                             {
16026
16027                                 MELT_LOCATION("warmelt-normal.melt:2257:/ cond");
16028                                 /*cond*/
16029                                 if (
16030                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FORTYPE__V50*/ meltfptr[49]),
16031                                                                   (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[13])))
16032                                 ) /*then*/
16033                                     {
16034                                         /*^cond.then*/
16035                                         /*^getslot*/
16036                                         {
16037                                             melt_ptr_t slot=NULL, obj=NULL;
16038                                             obj = (melt_ptr_t)(/*_.FORTYPE__V50*/ meltfptr[49]) /*=obj*/;
16039                                             melt_object_get_field(slot,obj, 1, "NAMED_NAME");
16040                                             /*_.NAMED_NAME__V55*/
16041                                             meltfptr[51] = slot;
16042                                         };
16043                                         ;
16044                                     }
16045                                 else    /*^cond.else*/
16046                                     {
16047
16048                                         /*_.NAMED_NAME__V55*/ meltfptr[51] =  /*reallynil*/ NULL ;;
16049                                     }
16050                                 ;
16051                                 MELT_LOCATION("warmelt-normal.melt:2257:/ cond");
16052                                 /*cond*/
16053                                 if (
16054                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ACTYPE__V51*/ meltfptr[50]),
16055                                                                   (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[13])))
16056                                 ) /*then*/
16057                                     {
16058                                         /*^cond.then*/
16059                                         /*^getslot*/
16060                                         {
16061                                             melt_ptr_t slot=NULL, obj=NULL;
16062                                             obj = (melt_ptr_t)(/*_.ACTYPE__V51*/ meltfptr[50]) /*=obj*/;
16063                                             melt_object_get_field(slot,obj, 1, "NAMED_NAME");
16064                                             /*_.NAMED_NAME__V56*/
16065                                             meltfptr[55] = slot;
16066                                         };
16067                                         ;
16068                                     }
16069                                 else    /*^cond.else*/
16070                                     {
16071
16072                                         /*_.NAMED_NAME__V56*/ meltfptr[55] =  /*reallynil*/ NULL ;;
16073                                     }
16074                                 ;
16075
16076                                 MELT_CHECK_SIGNAL();
16077                                 ;
16078                                 MELT_LOCATION("warmelt-normal.melt:2256:/ apply");
16079                                 /*apply*/
16080                                 {
16081                                     union meltparam_un argtab[6];
16082                                     memset(&argtab, 0, sizeof(argtab));
16083                                     /*^apply.arg*/
16084                                     argtab[0].meltbp_cstring =  "type mismatch between formal $1 of ctype $2 and argument #$3 of ctype\
16085  $4 in primitive $5";
16086                                     /*^apply.arg*/
16087                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.FORARG__V48*/ meltfptr[43];
16088                                     /*^apply.arg*/
16089                                     argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V55*/ meltfptr[51];
16090                                     /*^apply.arg*/
16091                                     argtab[3].meltbp_long = /*_#IX__L16*/ meltfnum[15];
16092                                     /*^apply.arg*/
16093                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V56*/ meltfptr[55];
16094                                     /*^apply.arg*/
16095                                     argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.SOPNAMSTR__V28*/ meltfptr[27];
16096                                     /*_.ERROR_AT__V57*/
16097                                     meltfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
16098                                 }
16099                                 ;
16100                                 MELT_LOCATION("warmelt-normal.melt:2253:/ quasiblock");
16101
16102
16103                                 /*_.PROGN___V58*/
16104                                 meltfptr[57] = /*_.ERROR_AT__V57*/ meltfptr[56];;
16105                                 /*^compute*/
16106                                 /*_._IF___V54*/
16107                                 meltfptr[52] = /*_.PROGN___V58*/ meltfptr[57];;
16108                                 /*epilog*/
16109
16110                                 MELT_LOCATION("warmelt-normal.melt:2253:/ clear");
16111                                 /*clear*/ /*_.NAMED_NAME__V55*/
16112                                 meltfptr[51] = 0 ;
16113                                 /*^clear*/
16114                                 /*clear*/ /*_.NAMED_NAME__V56*/
16115                                 meltfptr[55] = 0 ;
16116                                 /*^clear*/
16117                                 /*clear*/ /*_.ERROR_AT__V57*/
16118                                 meltfptr[56] = 0 ;
16119                                 /*^clear*/
16120                                 /*clear*/ /*_.PROGN___V58*/
16121                                 meltfptr[57] = 0 ;
16122                             }
16123                             ;
16124                         }
16125                     else    /*^cond.else*/
16126                         {
16127
16128                             /*_._IF___V54*/ meltfptr[52] =  /*reallynil*/ NULL ;;
16129                         }
16130                     ;
16131
16132                     {
16133                         MELT_LOCATION("warmelt-normal.melt:2259:/ locexp");
16134                         meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.BMAP__V40*/ meltfptr[36]),
16135                                                (meltobject_ptr_t) (/*_.FORARG__V48*/ meltfptr[43]),
16136                                                (melt_ptr_t)(/*_.ACTARG__V49*/ meltfptr[44]));
16137                     }
16138                     ;
16139
16140                     MELT_LOCATION("warmelt-normal.melt:2247:/ clear");
16141                     /*clear*/ /*_.FORARG__V48*/
16142                     meltfptr[43] = 0 ;
16143                     /*^clear*/
16144                     /*clear*/ /*_.ACTARG__V49*/
16145                     meltfptr[44] = 0 ;
16146                     /*^clear*/
16147                     /*clear*/ /*_.FORTYPE__V50*/
16148                     meltfptr[49] = 0 ;
16149                     /*^clear*/
16150                     /*clear*/ /*_.ACTYPE__V51*/
16151                     meltfptr[50] = 0 ;
16152                     /*^clear*/
16153                     /*clear*/ /*_#IS_A__L22*/
16154                     meltfnum[16] = 0 ;
16155                     /*^clear*/
16156                     /*clear*/ /*_#_IF___L23*/
16157                     meltfnum[18] = 0 ;
16158                     /*^clear*/
16159                     /*clear*/ /*_._IF___V54*/
16160                     meltfptr[52] = 0 ;
16161                     if (/*_#IX__L16*/ meltfnum[15]<0) break;
16162                 } /* end  foreach_in_multiple meltcit1__EACHTUP */
16163
16164             /*citerepilog*/
16165
16166             MELT_LOCATION("warmelt-normal.melt:2242:/ clear");
16167             /*clear*/ /*_.FORB__V42*/
16168             meltfptr[41] = 0 ;
16169             /*^clear*/
16170             /*clear*/ /*_#IX__L16*/
16171             meltfnum[15] = 0 ;
16172             /*^clear*/
16173             /*clear*/ /*_.IFCPP___V43*/
16174             meltfptr[42] = 0 ;
16175         } /*endciterblock FOREACH_IN_MULTIPLE*/
16176         ;
16177
16178 #if MELT_HAVE_DEBUG
16179         MELT_LOCATION("warmelt-normal.melt:2261:/ cppif.then");
16180         /*^block*/
16181         /*anyblock*/
16182         {
16183
16184
16185             {
16186                 /*^locexp*/
16187                 /*melt_increment_dbgcounter*/
16188 #if MELT_HAVE_DEBUG
16189                 melt_dbgcounter++;
16190 #endif
16191                 ;
16192             }
16193             ;
16194
16195             MELT_CHECK_SIGNAL();
16196             ;
16197             /*_#MELT_NEED_DBG__L27*/
16198             meltfnum[25] =
16199                 /*MELT_NEED_DBG*/
16200 #if MELT_HAVE_DEBUG
16201                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
16202 #else
16203                 0 /* no melt_need_dbg */
16204 #endif /*MELT_HAVE_DEBUG*/
16205                 ;;
16206             MELT_LOCATION("warmelt-normal.melt:2261:/ cond");
16207             /*cond*/
16208             if (/*_#MELT_NEED_DBG__L27*/ meltfnum[25]) /*then*/
16209                 {
16210                     /*^cond.then*/
16211                     /*^block*/
16212                     /*anyblock*/
16213                     {
16214
16215                         /*_#MELT_CALLCOUNT__L28*/ meltfnum[23] =
16216                             /* for melt_callcount */
16217 #if MELT_HAVE_DEBUG && defined (meltcallcount)
16218                             meltcallcount  /* melt_callcount debugging */
16219 #else
16220                             0L  /* melt_callcount without debug */
16221 #endif /* MELT_HAVE_DEBUG melt_callcount */
16222                             ;;
16223
16224                         MELT_CHECK_SIGNAL();
16225                         ;
16226                         MELT_LOCATION("warmelt-normal.melt:2261:/ apply");
16227                         /*apply*/
16228                         {
16229                             union meltparam_un argtab[5];
16230                             memset(&argtab, 0, sizeof(argtab));
16231                             /*^apply.arg*/
16232                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L28*/ meltfnum[23];
16233                             /*^apply.arg*/
16234                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
16235                             /*^apply.arg*/
16236                             argtab[2].meltbp_long = 2261;
16237                             /*^apply.arg*/
16238                             argtab[3].meltbp_cstring =  "normexp_primitive bmap in sopexp";
16239                             /*^apply.arg*/
16240                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BMAP__V40*/ meltfptr[36];
16241                             /*_.MELT_DEBUG_FUN__V60*/
16242                             meltfptr[55] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
16243                         }
16244                         ;
16245                         /*_._IF___V59*/
16246                         meltfptr[51] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[55];;
16247                         /*epilog*/
16248
16249                         MELT_LOCATION("warmelt-normal.melt:2261:/ clear");
16250                         /*clear*/ /*_#MELT_CALLCOUNT__L28*/
16251                         meltfnum[23] = 0 ;
16252                         /*^clear*/
16253                         /*clear*/ /*_.MELT_DEBUG_FUN__V60*/
16254                         meltfptr[55] = 0 ;
16255                     }
16256                     ;
16257                 }
16258             else    /*^cond.else*/
16259                 {
16260
16261                     /*_._IF___V59*/ meltfptr[51] =  /*reallynil*/ NULL ;;
16262                 }
16263             ;
16264
16265             {
16266                 MELT_LOCATION("warmelt-normal.melt:2261:/ locexp");
16267                 /*void*/
16268                 (void)0;
16269             }
16270             ;
16271             /*^quasiblock*/
16272
16273
16274             /*epilog*/
16275
16276             /*^clear*/
16277             /*clear*/ /*_#MELT_NEED_DBG__L27*/
16278             meltfnum[25] = 0 ;
16279             /*^clear*/
16280             /*clear*/ /*_._IF___V59*/
16281             meltfptr[51] = 0 ;
16282         }
16283
16284 #else /*MELT_HAVE_DEBUG*/
16285         /*^cppif.else*/
16286         /*^block*/
16287         /*anyblock*/
16288         {
16289
16290
16291             {
16292                 /*^locexp*/
16293                 /*void*/(void)0;
16294             }
16295             ;
16296             /*epilog*/
16297         }
16298
16299 #endif /*MELT_HAVE_DEBUG*/
16300         ;
16301         /*citerblock FOREACH_IN_MULTIPLE*/
16302         {
16303             /* start foreach_in_multiple meltcit2__EACHTUP */
16304             long  meltcit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SOPEXP__V31*/ meltfptr[30]);
16305             for (/*_#JX__L29*/ meltfnum[24] = 0;
16306                                (/*_#JX__L29*/ meltfnum[24] >= 0) && (/*_#JX__L29*/ meltfnum[24] <  meltcit2__EACHTUP_ln);
16307                                /*_#JX__L29*/ meltfnum[24]++)
16308                 {
16309                     /*_.EXCU__V61*/ meltfptr[56] = melt_multiple_nth((melt_ptr_t)(/*_.SOPEXP__V31*/ meltfptr[30]),  /*_#JX__L29*/ meltfnum[24]);
16310
16311
16312
16313                     MELT_LOCATION("warmelt-normal.melt:2265:/ quasiblock");
16314
16315
16316
16317                     MELT_CHECK_SIGNAL();
16318                     ;
16319                     /*_#IS_A__L30*/
16320                     meltfnum[16] =
16321                         melt_is_instance_of((melt_ptr_t)(/*_.EXCU__V61*/ meltfptr[56]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[14])));;
16322                     MELT_LOCATION("warmelt-normal.melt:2266:/ cond");
16323                     /*cond*/
16324                     if (/*_#IS_A__L30*/ meltfnum[16]) /*then*/
16325                         {
16326                             /*^cond.then*/
16327                             /*^block*/
16328                             /*anyblock*/
16329                             {
16330
16331                                 MELT_LOCATION("warmelt-normal.melt:2267:/ quasiblock");
16332
16333
16334                                 /*_.BVAL__V64*/
16335                                 meltfptr[44] =
16336                                     /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.BMAP__V40*/ meltfptr[36]),
16337                                             (meltobject_ptr_t)(/*_.EXCU__V61*/ meltfptr[56]));;
16338
16339                                 MELT_CHECK_SIGNAL();
16340                                 ;
16341                                 /*^compute*/
16342                                 /*_#NULL__L31*/
16343                                 meltfnum[18] =
16344                                     (/*null*/(/*_.BVAL__V64*/ meltfptr[44]) == NULL);;
16345                                 MELT_LOCATION("warmelt-normal.melt:2268:/ cond");
16346                                 /*cond*/
16347                                 if (/*_#NULL__L31*/ meltfnum[18]) /*then*/
16348                                     {
16349                                         /*^cond.then*/
16350                                         /*^block*/
16351                                         /*anyblock*/
16352                                         {
16353
16354
16355 #if MELT_HAVE_DEBUG
16356                                             MELT_LOCATION("warmelt-normal.melt:2275:/ cppif.then");
16357                                             /*^block*/
16358                                             /*anyblock*/
16359                                             {
16360
16361
16362                                                 {
16363                                                     /*^locexp*/
16364                                                     /*melt_increment_dbgcounter*/
16365 #if MELT_HAVE_DEBUG
16366                                                     melt_dbgcounter++;
16367 #endif
16368                                                     ;
16369                                                 }
16370                                                 ;
16371
16372                                                 MELT_CHECK_SIGNAL();
16373                                                 ;
16374                                                 /*_#MELT_NEED_DBG__L32*/
16375                                                 meltfnum[23] =
16376                                                     /*MELT_NEED_DBG*/
16377 #if MELT_HAVE_DEBUG
16378                                                     (/*melt_need_dbg*/ melt_need_debug ((int) 0))
16379 #else
16380                                                     0 /* no melt_need_dbg */
16381 #endif /*MELT_HAVE_DEBUG*/
16382                                                     ;;
16383                                                 MELT_LOCATION("warmelt-normal.melt:2275:/ cond");
16384                                                 /*cond*/
16385                                                 if (/*_#MELT_NEED_DBG__L32*/ meltfnum[23]) /*then*/
16386                                                     {
16387                                                         /*^cond.then*/
16388                                                         /*^block*/
16389                                                         /*anyblock*/
16390                                                         {
16391
16392                                                             /*_#MELT_CALLCOUNT__L33*/ meltfnum[25] =
16393                                                                 /* for melt_callcount */
16394 #if MELT_HAVE_DEBUG && defined (meltcallcount)
16395                                                                 meltcallcount  /* melt_callcount debugging */
16396 #else
16397                                                                 0L  /* melt_callcount without debug */
16398 #endif /* MELT_HAVE_DEBUG melt_callcount */
16399                                                                 ;;
16400
16401                                                             MELT_CHECK_SIGNAL();
16402                                                             ;
16403                                                             MELT_LOCATION("warmelt-normal.melt:2275:/ apply");
16404                                                             /*apply*/
16405                                                             {
16406                                                                 union meltparam_un argtab[7];
16407                                                                 memset(&argtab, 0, sizeof(argtab));
16408                                                                 /*^apply.arg*/
16409                                                                 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L33*/ meltfnum[25];
16410                                                                 /*^apply.arg*/
16411                                                                 argtab[1].meltbp_cstring =  "warmelt-normal.melt";
16412                                                                 /*^apply.arg*/
16413                                                                 argtab[2].meltbp_long = 2275;
16414                                                                 /*^apply.arg*/
16415                                                                 argtab[3].meltbp_cstring =  "normexp_primitive recv unexpected symbol in expansion recv=";
16416                                                                 /*^apply.arg*/
16417                                                                 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
16418                                                                 /*^apply.arg*/
16419                                                                 argtab[5].meltbp_cstring =  "excu=";
16420                                                                 /*^apply.arg*/
16421                                                                 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.EXCU__V61*/ meltfptr[56];
16422                                                                 /*_.MELT_DEBUG_FUN__V67*/
16423                                                                 meltfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
16424                                                             }
16425                                                             ;
16426                                                             /*_._IF___V66*/
16427                                                             meltfptr[50] = /*_.MELT_DEBUG_FUN__V67*/ meltfptr[52];;
16428                                                             /*epilog*/
16429
16430                                                             MELT_LOCATION("warmelt-normal.melt:2275:/ clear");
16431                                                             /*clear*/ /*_#MELT_CALLCOUNT__L33*/
16432                                                             meltfnum[25] = 0 ;
16433                                                             /*^clear*/
16434                                                             /*clear*/ /*_.MELT_DEBUG_FUN__V67*/
16435                                                             meltfptr[52] = 0 ;
16436                                                         }
16437                                                         ;
16438                                                     }
16439                                                 else    /*^cond.else*/
16440                                                     {
16441
16442                                                         /*_._IF___V66*/ meltfptr[50] =  /*reallynil*/ NULL ;;
16443                                                     }
16444                                                 ;
16445
16446                                                 {
16447                                                     MELT_LOCATION("warmelt-normal.melt:2275:/ locexp");
16448                                                     /*void*/
16449                                                     (void)0;
16450                                                 }
16451                                                 ;
16452                                                 /*^quasiblock*/
16453
16454
16455                                                 /*epilog*/
16456
16457                                                 /*^clear*/
16458                                                 /*clear*/ /*_#MELT_NEED_DBG__L32*/
16459                                                 meltfnum[23] = 0 ;
16460                                                 /*^clear*/
16461                                                 /*clear*/ /*_._IF___V66*/
16462                                                 meltfptr[50] = 0 ;
16463                                             }
16464
16465 #else /*MELT_HAVE_DEBUG*/
16466                                             /*^cppif.else*/
16467                                             /*^block*/
16468                                             /*anyblock*/
16469                                             {
16470
16471
16472                                                 {
16473                                                     /*^locexp*/
16474                                                     /*void*/(void)0;
16475                                                 }
16476                                                 ;
16477                                                 /*epilog*/
16478                                             }
16479
16480 #endif /*MELT_HAVE_DEBUG*/
16481                                             ;
16482                                             MELT_LOCATION("warmelt-normal.melt:2277:/ getslot");
16483                                             {
16484                                                 melt_ptr_t slot=NULL, obj=NULL;
16485                                                 obj = (melt_ptr_t)(/*_.EXCU__V61*/ meltfptr[56]) /*=obj*/;
16486                                                 melt_object_get_field(slot,obj, 1, "NAMED_NAME");
16487                                                 /*_.NAMED_NAME__V68*/
16488                                                 meltfptr[55] = slot;
16489                                             };
16490                                             ;
16491
16492                                             MELT_CHECK_SIGNAL();
16493                                             ;
16494                                             MELT_LOCATION("warmelt-normal.melt:2276:/ apply");
16495                                             /*apply*/
16496                                             {
16497                                                 union meltparam_un argtab[3];
16498                                                 memset(&argtab, 0, sizeof(argtab));
16499                                                 /*^apply.arg*/
16500                                                 argtab[0].meltbp_cstring =  "unexpected symbol $1 in primitive $2 expansion";
16501                                                 /*^apply.arg*/
16502                                                 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V68*/ meltfptr[55];
16503                                                 /*^apply.arg*/
16504                                                 argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SOPNAMSTR__V28*/ meltfptr[27];
16505                                                 /*_.ERROR_AT__V69*/
16506                                                 meltfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
16507                                             }
16508                                             ;
16509                                             MELT_LOCATION("warmelt-normal.melt:2269:/ quasiblock");
16510
16511
16512                                             /*_.PROGN___V70*/
16513                                             meltfptr[52] = /*_.ERROR_AT__V69*/ meltfptr[51];;
16514                                             /*^compute*/
16515                                             /*_._IF___V65*/
16516                                             meltfptr[49] = /*_.PROGN___V70*/ meltfptr[52];;
16517                                             /*epilog*/
16518
16519                                             MELT_LOCATION("warmelt-normal.melt:2268:/ clear");
16520                                             /*clear*/ /*_.NAMED_NAME__V68*/
16521                                             meltfptr[55] = 0 ;
16522                                             /*^clear*/
16523                                             /*clear*/ /*_.ERROR_AT__V69*/
16524                                             meltfptr[51] = 0 ;
16525                                             /*^clear*/
16526                                             /*clear*/ /*_.PROGN___V70*/
16527                                             meltfptr[52] = 0 ;
16528                                         }
16529                                         ;
16530                                     }
16531                                 else    /*^cond.else*/
16532                                     {
16533
16534                                         /*_._IF___V65*/ meltfptr[49] =  /*reallynil*/ NULL ;;
16535                                     }
16536                                 ;
16537                                 /*^compute*/
16538                                 /*_.LET___V63*/
16539                                 meltfptr[43] = /*_.BVAL__V64*/ meltfptr[44];;
16540
16541                                 MELT_LOCATION("warmelt-normal.melt:2267:/ clear");
16542                                 /*clear*/ /*_.BVAL__V64*/
16543                                 meltfptr[44] = 0 ;
16544                                 /*^clear*/
16545                                 /*clear*/ /*_#NULL__L31*/
16546                                 meltfnum[18] = 0 ;
16547                                 /*^clear*/
16548                                 /*clear*/ /*_._IF___V65*/
16549                                 meltfptr[49] = 0 ;
16550                                 /*_.EXVAL__V62*/
16551                                 meltfptr[57] = /*_.LET___V63*/ meltfptr[43];;
16552                                 /*epilog*/
16553
16554                                 MELT_LOCATION("warmelt-normal.melt:2266:/ clear");
16555                                 /*clear*/ /*_.LET___V63*/
16556                                 meltfptr[43] = 0 ;
16557                             }
16558                             ;
16559                         }
16560                     else    /*^cond.else*/
16561                         {
16562
16563                             /*_.EXVAL__V62*/ meltfptr[57] = /*_.EXCU__V61*/ meltfptr[56];;
16564                         }
16565                     ;
16566
16567                     MELT_CHECK_SIGNAL();
16568                     ;
16569                     /*^compute*/
16570                     /*_#NULL__L34*/
16571                     meltfnum[25] =
16572                         (/*null*/(/*_.EXVAL__V62*/ meltfptr[57]) == NULL);;
16573                     MELT_LOCATION("warmelt-normal.melt:2281:/ cond");
16574                     /*cond*/
16575                     if (/*_#NULL__L34*/ meltfnum[25]) /*then*/
16576                         {
16577                             /*^cond.then*/
16578                             /*^block*/
16579                             /*anyblock*/
16580                             {
16581
16582
16583                                 {
16584                                     MELT_LOCATION("warmelt-normal.melt:2283:/ locexp");
16585                                     melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), ( "null expansion of primitive argument for"), (melt_ptr_t)(/*_.SOPNAMSTR__V28*/ meltfptr[27]));
16586                                 }
16587                                 ;
16588
16589                                 MELT_CHECK_SIGNAL();
16590                                 ;
16591                                 /*_#IS_A__L35*/
16592                                 meltfnum[23] =
16593                                     melt_is_instance_of((melt_ptr_t)(/*_.EXCU__V61*/ meltfptr[56]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[13])));;
16594                                 MELT_LOCATION("warmelt-normal.melt:2285:/ cond");
16595                                 /*cond*/
16596                                 if (/*_#IS_A__L35*/ meltfnum[23]) /*then*/
16597                                     {
16598                                         /*^cond.then*/
16599                                         /*^block*/
16600                                         /*anyblock*/
16601                                         {
16602
16603                                             MELT_LOCATION("warmelt-normal.melt:2287:/ getslot");
16604                                             {
16605                                                 melt_ptr_t slot=NULL, obj=NULL;
16606                                                 obj = (melt_ptr_t)(/*_.EXCU__V61*/ meltfptr[56]) /*=obj*/;
16607                                                 melt_object_get_field(slot,obj, 1, "NAMED_NAME");
16608                                                 /*_.NAMED_NAME__V71*/
16609                                                 meltfptr[50] = slot;
16610                                             };
16611                                             ;
16612
16613                                             {
16614                                                 MELT_LOCATION("warmelt-normal.melt:2286:/ locexp");
16615                                                 melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), ( "null primitive original piece is"), (melt_ptr_t)(/*_.NAMED_NAME__V71*/ meltfptr[50]));
16616                                             }
16617                                             ;
16618                                             /*epilog*/
16619
16620                                             MELT_LOCATION("warmelt-normal.melt:2285:/ clear");
16621                                             /*clear*/ /*_.NAMED_NAME__V71*/
16622                                             meltfptr[50] = 0 ;
16623                                         }
16624                                         ;
16625                                     } /*noelse*/
16626                                 ;
16627                                 MELT_LOCATION("warmelt-normal.melt:2282:/ quasiblock");
16628
16629
16630                                 /*epilog*/
16631
16632                                 MELT_LOCATION("warmelt-normal.melt:2281:/ clear");
16633                                 /*clear*/ /*_#IS_A__L35*/
16634                                 meltfnum[23] = 0 ;
16635                             }
16636                             ;
16637                         } /*noelse*/
16638                     ;
16639
16640                     {
16641                         MELT_LOCATION("warmelt-normal.melt:2289:/ locexp");
16642                         meltgc_multiple_put_nth((melt_ptr_t)(/*_.EXPARGS__V41*/ meltfptr[37]), (/*_#JX__L29*/ meltfnum[24]), (melt_ptr_t)(/*_.EXVAL__V62*/ meltfptr[57]));
16643                     }
16644                     ;
16645
16646                     MELT_LOCATION("warmelt-normal.melt:2265:/ clear");
16647                     /*clear*/ /*_#IS_A__L30*/
16648                     meltfnum[16] = 0 ;
16649                     /*^clear*/
16650                     /*clear*/ /*_.EXVAL__V62*/
16651                     meltfptr[57] = 0 ;
16652                     /*^clear*/
16653                     /*clear*/ /*_#NULL__L34*/
16654                     meltfnum[25] = 0 ;
16655                     if (/*_#JX__L29*/ meltfnum[24]<0) break;
16656                 } /* end  foreach_in_multiple meltcit2__EACHTUP */
16657
16658             /*citerepilog*/
16659
16660             MELT_LOCATION("warmelt-normal.melt:2262:/ clear");
16661             /*clear*/ /*_.EXCU__V61*/
16662             meltfptr[56] = 0 ;
16663             /*^clear*/
16664             /*clear*/ /*_#JX__L29*/
16665             meltfnum[24] = 0 ;
16666         } /*endciterblock FOREACH_IN_MULTIPLE*/
16667         ;
16668
16669 #if MELT_HAVE_DEBUG
16670         MELT_LOCATION("warmelt-normal.melt:2292:/ cppif.then");
16671         /*^block*/
16672         /*anyblock*/
16673         {
16674
16675
16676             {
16677                 /*^locexp*/
16678                 /*melt_increment_dbgcounter*/
16679 #if MELT_HAVE_DEBUG
16680                 melt_dbgcounter++;
16681 #endif
16682                 ;
16683             }
16684             ;
16685
16686             MELT_CHECK_SIGNAL();
16687             ;
16688             /*_#MELT_NEED_DBG__L36*/
16689             meltfnum[18] =
16690                 /*MELT_NEED_DBG*/
16691 #if MELT_HAVE_DEBUG
16692                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
16693 #else
16694                 0 /* no melt_need_dbg */
16695 #endif /*MELT_HAVE_DEBUG*/
16696                 ;;
16697             MELT_LOCATION("warmelt-normal.melt:2292:/ cond");
16698             /*cond*/
16699             if (/*_#MELT_NEED_DBG__L36*/ meltfnum[18]) /*then*/
16700                 {
16701                     /*^cond.then*/
16702                     /*^block*/
16703                     /*anyblock*/
16704                     {
16705
16706                         /*_#MELT_CALLCOUNT__L37*/ meltfnum[23] =
16707                             /* for melt_callcount */
16708 #if MELT_HAVE_DEBUG && defined (meltcallcount)
16709                             meltcallcount  /* melt_callcount debugging */
16710 #else
16711                             0L  /* melt_callcount without debug */
16712 #endif /* MELT_HAVE_DEBUG melt_callcount */
16713                             ;;
16714
16715                         MELT_CHECK_SIGNAL();
16716                         ;
16717                         MELT_LOCATION("warmelt-normal.melt:2292:/ apply");
16718                         /*apply*/
16719                         {
16720                             union meltparam_un argtab[5];
16721                             memset(&argtab, 0, sizeof(argtab));
16722                             /*^apply.arg*/
16723                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L37*/ meltfnum[23];
16724                             /*^apply.arg*/
16725                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
16726                             /*^apply.arg*/
16727                             argtab[2].meltbp_long = 2292;
16728                             /*^apply.arg*/
16729                             argtab[3].meltbp_cstring =  "normexp_primitive soper";
16730                             /*^apply.arg*/
16731                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SOPER__V19*/ meltfptr[18];
16732                             /*_.MELT_DEBUG_FUN__V73*/
16733                             meltfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
16734                         }
16735                         ;
16736                         /*_._IF___V72*/
16737                         meltfptr[55] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[51];;
16738                         /*epilog*/
16739
16740                         MELT_LOCATION("warmelt-normal.melt:2292:/ clear");
16741                         /*clear*/ /*_#MELT_CALLCOUNT__L37*/
16742                         meltfnum[23] = 0 ;
16743                         /*^clear*/
16744                         /*clear*/ /*_.MELT_DEBUG_FUN__V73*/
16745                         meltfptr[51] = 0 ;
16746                     }
16747                     ;
16748                 }
16749             else    /*^cond.else*/
16750                 {
16751
16752                     /*_._IF___V72*/ meltfptr[55] =  /*reallynil*/ NULL ;;
16753                 }
16754             ;
16755
16756             {
16757                 MELT_LOCATION("warmelt-normal.melt:2292:/ locexp");
16758                 /*void*/
16759                 (void)0;
16760             }
16761             ;
16762             /*^quasiblock*/
16763
16764
16765             /*epilog*/
16766
16767             /*^clear*/
16768             /*clear*/ /*_#MELT_NEED_DBG__L36*/
16769             meltfnum[18] = 0 ;
16770             /*^clear*/
16771             /*clear*/ /*_._IF___V72*/
16772             meltfptr[55] = 0 ;
16773         }
16774
16775 #else /*MELT_HAVE_DEBUG*/
16776         /*^cppif.else*/
16777         /*^block*/
16778         /*anyblock*/
16779         {
16780
16781
16782             {
16783                 /*^locexp*/
16784                 /*void*/(void)0;
16785             }
16786             ;
16787             /*epilog*/
16788         }
16789
16790 #endif /*MELT_HAVE_DEBUG*/
16791         ;
16792
16793 #if MELT_HAVE_DEBUG
16794         MELT_LOCATION("warmelt-normal.melt:2293:/ cppif.then");
16795         /*^block*/
16796         /*anyblock*/
16797         {
16798
16799
16800             MELT_CHECK_SIGNAL();
16801             ;
16802             /*_#IS_A__L38*/
16803             meltfnum[16] =
16804                 melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[13])));;
16805             MELT_LOCATION("warmelt-normal.melt:2293:/ cond");
16806             /*cond*/
16807             if (/*_#IS_A__L38*/ meltfnum[16]) /*then*/
16808                 {
16809                     /*^cond.then*/
16810                     /*_._IFELSE___V75*/ meltfptr[44] = (/*nil*/NULL);;
16811                 }
16812             else
16813                 {
16814                     MELT_LOCATION("warmelt-normal.melt:2293:/ cond.else");
16815
16816                     /*^block*/
16817                     /*anyblock*/
16818                     {
16819
16820
16821                         MELT_CHECK_SIGNAL();
16822                         ;
16823                         /*^apply*/
16824                         /*apply*/
16825                         {
16826                             union meltparam_un argtab[4];
16827                             memset(&argtab, 0, sizeof(argtab));
16828                             /*^apply.arg*/
16829                             argtab[0].meltbp_cstring =  "check soper is named";
16830                             /*^apply.arg*/
16831                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
16832                             /*^apply.arg*/
16833                             argtab[2].meltbp_long = 2293;
16834                             /*^apply.arg*/
16835                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SOPER__V19*/ meltfptr[18];
16836                             /*_.MELT_ASSERT_FAILURE_FUN__V76*/
16837                             meltfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
16838                         }
16839                         ;
16840                         /*_._IFELSE___V75*/
16841                         meltfptr[44] = /*_.MELT_ASSERT_FAILURE_FUN__V76*/ meltfptr[49];;
16842                         /*epilog*/
16843
16844                         MELT_LOCATION("warmelt-normal.melt:2293:/ clear");
16845                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V76*/
16846                         meltfptr[49] = 0 ;
16847                     }
16848                     ;
16849                 }
16850             ;
16851             /*_.IFCPP___V74*/
16852             meltfptr[52] = /*_._IFELSE___V75*/ meltfptr[44];;
16853             /*epilog*/
16854
16855             MELT_LOCATION("warmelt-normal.melt:2293:/ clear");
16856             /*clear*/ /*_#IS_A__L38*/
16857             meltfnum[16] = 0 ;
16858             /*^clear*/
16859             /*clear*/ /*_._IFELSE___V75*/
16860             meltfptr[44] = 0 ;
16861         }
16862
16863 #else /*MELT_HAVE_DEBUG*/
16864         /*^cppif.else*/
16865         /*_.IFCPP___V74*/ meltfptr[52] = (/*nil*/NULL);
16866 #endif /*MELT_HAVE_DEBUG*/
16867         ;
16868         MELT_LOCATION("warmelt-normal.melt:2294:/ quasiblock");
16869
16870
16871
16872         MELT_CHECK_SIGNAL();
16873         ;
16874         /*^apply*/
16875         /*apply*/
16876         {
16877             /*_.CSYM__V78*/ meltfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.SOPER__V19*/ meltfptr[18]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
16878         }
16879         ;
16880
16881         MELT_CHECK_SIGNAL();
16882         ;
16883         MELT_LOCATION("warmelt-normal.melt:2295:/ quasiblock");
16884
16885
16886         /*^rawallocobj*/
16887         /*rawallocobj*/
16888         {
16889             melt_ptr_t newobj = 0;
16890             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ meltfrout->tabval[16])), (4), "CLASS_NREP_CHUNK");
16891             /*_.INST__V80*/
16892             meltfptr[51] =
16893                 newobj;
16894         };
16895         ;
16896         /*^putslot*/
16897         /*putslot*/
16898         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V80*/ meltfptr[51])) == MELTOBMAG_OBJECT);
16899         melt_putfield_object((/*_.INST__V80*/ meltfptr[51]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
16900         ;
16901         /*^putslot*/
16902         /*putslot*/
16903         melt_assertmsg("checkobj putslot  _ @NCHUNK_EXPANSION", melt_magic_discr((melt_ptr_t)(/*_.INST__V80*/ meltfptr[51])) == MELTOBMAG_OBJECT);
16904         melt_putfield_object((/*_.INST__V80*/ meltfptr[51]), (2), (/*_.EXPARGS__V41*/ meltfptr[37]), "NCHUNK_EXPANSION");
16905         ;
16906         /*^putslot*/
16907         /*putslot*/
16908         melt_assertmsg("checkobj putslot  _ @NCHUNK_OPER", melt_magic_discr((melt_ptr_t)(/*_.INST__V80*/ meltfptr[51])) == MELTOBMAG_OBJECT);
16909         melt_putfield_object((/*_.INST__V80*/ meltfptr[51]), (3), (/*_.SOPER__V19*/ meltfptr[18]), "NCHUNK_OPER");
16910         ;
16911         /*^putslot*/
16912         /*putslot*/
16913         melt_assertmsg("checkobj putslot  _ @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V80*/ meltfptr[51])) == MELTOBMAG_OBJECT);
16914         melt_putfield_object((/*_.INST__V80*/ meltfptr[51]), (1), (/*_.SOPTYPE__V30*/ meltfptr[29]), "NEXPR_CTYP");
16915         ;
16916         /*^touchobj*/
16917
16918         melt_dbgtrace_written_object (/*_.INST__V80*/ meltfptr[51], "newly made instance");
16919         ;
16920         /*_.NCHUNK__V79*/
16921         meltfptr[57] = /*_.INST__V80*/ meltfptr[51];;
16922
16923         MELT_CHECK_SIGNAL();
16924         ;
16925         MELT_LOCATION("warmelt-normal.melt:2301:/ quasiblock");
16926
16927
16928         /*^rawallocobj*/
16929         /*rawallocobj*/
16930         {
16931             melt_ptr_t newobj = 0;
16932             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[17])), (4), "CLASS_NORMAL_LET_BINDING");
16933             /*_.INST__V82*/
16934             meltfptr[49] =
16935                 newobj;
16936         };
16937         ;
16938         /*^putslot*/
16939         /*putslot*/
16940         melt_assertmsg("checkobj putslot  _ @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[49])) == MELTOBMAG_OBJECT);
16941         melt_putfield_object((/*_.INST__V82*/ meltfptr[49]), (3), (/*_.SLOC__V18*/ meltfptr[5]), "LETBIND_LOC");
16942         ;
16943         /*^putslot*/
16944         /*putslot*/
16945         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[49])) == MELTOBMAG_OBJECT);
16946         melt_putfield_object((/*_.INST__V82*/ meltfptr[49]), (0), (/*_.CSYM__V78*/ meltfptr[50]), "BINDER");
16947         ;
16948         /*^putslot*/
16949         /*putslot*/
16950         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[49])) == MELTOBMAG_OBJECT);
16951         melt_putfield_object((/*_.INST__V82*/ meltfptr[49]), (1), (/*_.SOPTYPE__V30*/ meltfptr[29]), "LETBIND_TYPE");
16952         ;
16953         /*^putslot*/
16954         /*putslot*/
16955         melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[49])) == MELTOBMAG_OBJECT);
16956         melt_putfield_object((/*_.INST__V82*/ meltfptr[49]), (2), (/*_.NCHUNK__V79*/ meltfptr[57]), "LETBIND_EXPR");
16957         ;
16958         /*^touchobj*/
16959
16960         melt_dbgtrace_written_object (/*_.INST__V82*/ meltfptr[49], "newly made instance");
16961         ;
16962         /*_.CBIND__V81*/
16963         meltfptr[55] = /*_.INST__V82*/ meltfptr[49];;
16964
16965         MELT_CHECK_SIGNAL();
16966         ;
16967         MELT_LOCATION("warmelt-normal.melt:2307:/ quasiblock");
16968
16969
16970         /*^rawallocobj*/
16971         /*rawallocobj*/
16972         {
16973             melt_ptr_t newobj = 0;
16974             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[18])), (4), "CLASS_NREP_LOCSYMOCC");
16975             /*_.INST__V84*/
16976             meltfptr[83] =
16977                 newobj;
16978         };
16979         ;
16980         /*^putslot*/
16981         /*putslot*/
16982         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V84*/ meltfptr[83])) == MELTOBMAG_OBJECT);
16983         melt_putfield_object((/*_.INST__V84*/ meltfptr[83]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
16984         ;
16985         /*^putslot*/
16986         /*putslot*/
16987         melt_assertmsg("checkobj putslot  _ @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V84*/ meltfptr[83])) == MELTOBMAG_OBJECT);
16988         melt_putfield_object((/*_.INST__V84*/ meltfptr[83]), (2), (/*_.SOPTYPE__V30*/ meltfptr[29]), "NOCC_CTYP");
16989         ;
16990         /*^putslot*/
16991         /*putslot*/
16992         melt_assertmsg("checkobj putslot  _ @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V84*/ meltfptr[83])) == MELTOBMAG_OBJECT);
16993         melt_putfield_object((/*_.INST__V84*/ meltfptr[83]), (1), (/*_.CSYM__V78*/ meltfptr[50]), "NOCC_SYMB");
16994         ;
16995         /*^putslot*/
16996         /*putslot*/
16997         melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V84*/ meltfptr[83])) == MELTOBMAG_OBJECT);
16998         melt_putfield_object((/*_.INST__V84*/ meltfptr[83]), (3), (/*_.CBIND__V81*/ meltfptr[55]), "NOCC_BIND");
16999         ;
17000         /*^touchobj*/
17001
17002         melt_dbgtrace_written_object (/*_.INST__V84*/ meltfptr[83], "newly made instance");
17003         ;
17004         /*_.CLOCC__V83*/
17005         meltfptr[44] = /*_.INST__V84*/ meltfptr[83];;
17006
17007 #if MELT_HAVE_DEBUG
17008         MELT_LOCATION("warmelt-normal.melt:2313:/ cppif.then");
17009         /*^block*/
17010         /*anyblock*/
17011         {
17012
17013
17014             {
17015                 /*^locexp*/
17016                 /*melt_increment_dbgcounter*/
17017 #if MELT_HAVE_DEBUG
17018                 melt_dbgcounter++;
17019 #endif
17020                 ;
17021             }
17022             ;
17023
17024             MELT_CHECK_SIGNAL();
17025             ;
17026             /*_#MELT_NEED_DBG__L39*/
17027             meltfnum[25] =
17028                 /*MELT_NEED_DBG*/
17029 #if MELT_HAVE_DEBUG
17030                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
17031 #else
17032                 0 /* no melt_need_dbg */
17033 #endif /*MELT_HAVE_DEBUG*/
17034                 ;;
17035             MELT_LOCATION("warmelt-normal.melt:2313:/ cond");
17036             /*cond*/
17037             if (/*_#MELT_NEED_DBG__L39*/ meltfnum[25]) /*then*/
17038                 {
17039                     /*^cond.then*/
17040                     /*^block*/
17041                     /*anyblock*/
17042                     {
17043
17044                         /*_#MELT_CALLCOUNT__L40*/ meltfnum[23] =
17045                             /* for melt_callcount */
17046 #if MELT_HAVE_DEBUG && defined (meltcallcount)
17047                             meltcallcount  /* melt_callcount debugging */
17048 #else
17049                             0L  /* melt_callcount without debug */
17050 #endif /* MELT_HAVE_DEBUG melt_callcount */
17051                             ;;
17052
17053                         MELT_CHECK_SIGNAL();
17054                         ;
17055                         MELT_LOCATION("warmelt-normal.melt:2313:/ apply");
17056                         /*apply*/
17057                         {
17058                             union meltparam_un argtab[5];
17059                             memset(&argtab, 0, sizeof(argtab));
17060                             /*^apply.arg*/
17061                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L40*/ meltfnum[23];
17062                             /*^apply.arg*/
17063                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
17064                             /*^apply.arg*/
17065                             argtab[2].meltbp_long = 2313;
17066                             /*^apply.arg*/
17067                             argtab[3].meltbp_cstring =  "normexp_primitive nchunk=";
17068                             /*^apply.arg*/
17069                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCHUNK__V79*/ meltfptr[57];
17070                             /*_.MELT_DEBUG_FUN__V86*/
17071                             meltfptr[85] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
17072                         }
17073                         ;
17074                         /*_._IF___V85*/
17075                         meltfptr[84] = /*_.MELT_DEBUG_FUN__V86*/ meltfptr[85];;
17076                         /*epilog*/
17077
17078                         MELT_LOCATION("warmelt-normal.melt:2313:/ clear");
17079                         /*clear*/ /*_#MELT_CALLCOUNT__L40*/
17080                         meltfnum[23] = 0 ;
17081                         /*^clear*/
17082                         /*clear*/ /*_.MELT_DEBUG_FUN__V86*/
17083                         meltfptr[85] = 0 ;
17084                     }
17085                     ;
17086                 }
17087             else    /*^cond.else*/
17088                 {
17089
17090                     /*_._IF___V85*/ meltfptr[84] =  /*reallynil*/ NULL ;;
17091                 }
17092             ;
17093
17094             {
17095                 MELT_LOCATION("warmelt-normal.melt:2313:/ locexp");
17096                 /*void*/
17097                 (void)0;
17098             }
17099             ;
17100             /*^quasiblock*/
17101
17102
17103             /*epilog*/
17104
17105             /*^clear*/
17106             /*clear*/ /*_#MELT_NEED_DBG__L39*/
17107             meltfnum[25] = 0 ;
17108             /*^clear*/
17109             /*clear*/ /*_._IF___V85*/
17110             meltfptr[84] = 0 ;
17111         }
17112
17113 #else /*MELT_HAVE_DEBUG*/
17114         /*^cppif.else*/
17115         /*^block*/
17116         /*anyblock*/
17117         {
17118
17119
17120             {
17121                 /*^locexp*/
17122                 /*void*/(void)0;
17123             }
17124             ;
17125             /*epilog*/
17126         }
17127
17128 #endif /*MELT_HAVE_DEBUG*/
17129         ;
17130
17131         MELT_CHECK_SIGNAL();
17132         ;
17133         /*_#IS_LIST__L41*/
17134         meltfnum[18] =
17135             (melt_magic_discr((melt_ptr_t)(/*_.NBIND__V26*/ meltfptr[25])) == MELTOBMAG_LIST);;
17136         MELT_LOCATION("warmelt-normal.melt:2314:/ cond");
17137         /*cond*/
17138         if (/*_#IS_LIST__L41*/ meltfnum[18]) /*then*/
17139             {
17140                 /*^cond.then*/
17141                 /*^block*/
17142                 /*anyblock*/
17143                 {
17144
17145
17146                     {
17147                         MELT_LOCATION("warmelt-normal.melt:2315:/ locexp");
17148                         meltgc_append_list((melt_ptr_t)(/*_.NBIND__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CBIND__V81*/ meltfptr[55]));
17149                     }
17150                     ;
17151                     /*epilog*/
17152                 }
17153                 ;
17154             }
17155         else
17156             {
17157                 MELT_LOCATION("warmelt-normal.melt:2314:/ cond.else");
17158
17159                 /*^block*/
17160                 /*anyblock*/
17161                 {
17162
17163                     /*_.MAKE_LIST__V87*/ meltfptr[85] =
17164                         (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[19]))));;
17165                     MELT_LOCATION("warmelt-normal.melt:2317:/ compute");
17166                     /*_.NBIND__V26*/
17167                     meltfptr[25] = /*_.SETQ___V88*/ meltfptr[84] = /*_.MAKE_LIST__V87*/ meltfptr[85];;
17168
17169                     {
17170                         MELT_LOCATION("warmelt-normal.melt:2318:/ locexp");
17171                         meltgc_append_list((melt_ptr_t)(/*_.NBIND__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CBIND__V81*/ meltfptr[55]));
17172                     }
17173                     ;
17174                     MELT_LOCATION("warmelt-normal.melt:2316:/ quasiblock");
17175
17176
17177                     /*epilog*/
17178
17179                     MELT_LOCATION("warmelt-normal.melt:2314:/ clear");
17180                     /*clear*/ /*_.MAKE_LIST__V87*/
17181                     meltfptr[85] = 0 ;
17182                     /*^clear*/
17183                     /*clear*/ /*_.SETQ___V88*/
17184                     meltfptr[84] = 0 ;
17185                 }
17186                 ;
17187             }
17188         ;
17189
17190 #if MELT_HAVE_DEBUG
17191         MELT_LOCATION("warmelt-normal.melt:2320:/ cppif.then");
17192         /*^block*/
17193         /*anyblock*/
17194         {
17195
17196
17197             {
17198                 /*^locexp*/
17199                 /*melt_increment_dbgcounter*/
17200 #if MELT_HAVE_DEBUG
17201                 melt_dbgcounter++;
17202 #endif
17203                 ;
17204             }
17205             ;
17206
17207             MELT_CHECK_SIGNAL();
17208             ;
17209             /*_#MELT_NEED_DBG__L42*/
17210             meltfnum[16] =
17211                 /*MELT_NEED_DBG*/
17212 #if MELT_HAVE_DEBUG
17213                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
17214 #else
17215                 0 /* no melt_need_dbg */
17216 #endif /*MELT_HAVE_DEBUG*/
17217                 ;;
17218             MELT_LOCATION("warmelt-normal.melt:2320:/ cond");
17219             /*cond*/
17220             if (/*_#MELT_NEED_DBG__L42*/ meltfnum[16]) /*then*/
17221                 {
17222                     /*^cond.then*/
17223                     /*^block*/
17224                     /*anyblock*/
17225                     {
17226
17227                         /*_#MELT_CALLCOUNT__L43*/ meltfnum[23] =
17228                             /* for melt_callcount */
17229 #if MELT_HAVE_DEBUG && defined (meltcallcount)
17230                             meltcallcount  /* melt_callcount debugging */
17231 #else
17232                             0L  /* melt_callcount without debug */
17233 #endif /* MELT_HAVE_DEBUG melt_callcount */
17234                             ;;
17235
17236                         MELT_CHECK_SIGNAL();
17237                         ;
17238                         MELT_LOCATION("warmelt-normal.melt:2320:/ apply");
17239                         /*apply*/
17240                         {
17241                             union meltparam_un argtab[5];
17242                             memset(&argtab, 0, sizeof(argtab));
17243                             /*^apply.arg*/
17244                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L43*/ meltfnum[23];
17245                             /*^apply.arg*/
17246                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
17247                             /*^apply.arg*/
17248                             argtab[2].meltbp_long = 2320;
17249                             /*^apply.arg*/
17250                             argtab[3].meltbp_cstring =  "normexp_primitive result clocc";
17251                             /*^apply.arg*/
17252                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V83*/ meltfptr[44];
17253                             /*_.MELT_DEBUG_FUN__V90*/
17254                             meltfptr[84] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
17255                         }
17256                         ;
17257                         /*_._IF___V89*/
17258                         meltfptr[85] = /*_.MELT_DEBUG_FUN__V90*/ meltfptr[84];;
17259                         /*epilog*/
17260
17261                         MELT_LOCATION("warmelt-normal.melt:2320:/ clear");
17262                         /*clear*/ /*_#MELT_CALLCOUNT__L43*/
17263                         meltfnum[23] = 0 ;
17264                         /*^clear*/
17265                         /*clear*/ /*_.MELT_DEBUG_FUN__V90*/
17266                         meltfptr[84] = 0 ;
17267                     }
17268                     ;
17269                 }
17270             else    /*^cond.else*/
17271                 {
17272
17273                     /*_._IF___V89*/ meltfptr[85] =  /*reallynil*/ NULL ;;
17274                 }
17275             ;
17276
17277             {
17278                 MELT_LOCATION("warmelt-normal.melt:2320:/ locexp");
17279                 /*void*/
17280                 (void)0;
17281             }
17282             ;
17283             /*^quasiblock*/
17284
17285
17286             /*epilog*/
17287
17288             /*^clear*/
17289             /*clear*/ /*_#MELT_NEED_DBG__L42*/
17290             meltfnum[16] = 0 ;
17291             /*^clear*/
17292             /*clear*/ /*_._IF___V89*/
17293             meltfptr[85] = 0 ;
17294         }
17295
17296 #else /*MELT_HAVE_DEBUG*/
17297         /*^cppif.else*/
17298         /*^block*/
17299         /*anyblock*/
17300         {
17301
17302
17303             {
17304                 /*^locexp*/
17305                 /*void*/(void)0;
17306             }
17307             ;
17308             /*epilog*/
17309         }
17310
17311 #endif /*MELT_HAVE_DEBUG*/
17312         ;
17313
17314         MELT_CHECK_SIGNAL();
17315         ;
17316         MELT_LOCATION("warmelt-normal.melt:2321:/ quasiblock");
17317
17318
17319         /*_._RETVAL___V1*/
17320         meltfptr[0] = /*_.CLOCC__V83*/ meltfptr[44];;
17321         MELT_LOCATION("warmelt-normal.melt:2321:/ putxtraresult");
17322         if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
17323         if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
17324         if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.NBIND__V26*/ meltfptr[25]);
17325         ;
17326         /*^finalreturn*/
17327         ;
17328         /*finalret*/
17329         goto meltlabend_rout ;
17330         /*_.LET___V77*/
17331         meltfptr[43] = /*_.RETURN___V91*/ meltfptr[84];;
17332
17333         MELT_LOCATION("warmelt-normal.melt:2294:/ clear");
17334         /*clear*/ /*_.CSYM__V78*/
17335         meltfptr[50] = 0 ;
17336         /*^clear*/
17337         /*clear*/ /*_.NCHUNK__V79*/
17338         meltfptr[57] = 0 ;
17339         /*^clear*/
17340         /*clear*/ /*_.CBIND__V81*/
17341         meltfptr[55] = 0 ;
17342         /*^clear*/
17343         /*clear*/ /*_.CLOCC__V83*/
17344         meltfptr[44] = 0 ;
17345         /*^clear*/
17346         /*clear*/ /*_#IS_LIST__L41*/
17347         meltfnum[18] = 0 ;
17348         /*^clear*/
17349         /*clear*/ /*_.RETURN___V91*/
17350         meltfptr[84] = 0 ;
17351         /*_.LET___V39*/
17352         meltfptr[32] = /*_.LET___V77*/ meltfptr[43];;
17353
17354         MELT_LOCATION("warmelt-normal.melt:2239:/ clear");
17355         /*clear*/ /*_#stI__L13*/
17356         meltfnum[11] = 0 ;
17357         /*^clear*/
17358         /*clear*/ /*_#diIRAW__L14*/
17359         meltfnum[13] = 0 ;
17360         /*^clear*/
17361         /*clear*/ /*_#plI__L15*/
17362         meltfnum[14] = 0 ;
17363         /*^clear*/
17364         /*clear*/ /*_.BMAP__V40*/
17365         meltfptr[36] = 0 ;
17366         /*^clear*/
17367         /*clear*/ /*_.EXPARGS__V41*/
17368         meltfptr[37] = 0 ;
17369         /*^clear*/
17370         /*clear*/ /*_.IFCPP___V74*/
17371         meltfptr[52] = 0 ;
17372         /*^clear*/
17373         /*clear*/ /*_.LET___V77*/
17374         meltfptr[43] = 0 ;
17375         /*_.LET___V27*/
17376         meltfptr[26] = /*_.LET___V39*/ meltfptr[32];;
17377
17378         MELT_LOCATION("warmelt-normal.melt:2227:/ clear");
17379         /*clear*/ /*_.SOPNAMSTR__V28*/
17380         meltfptr[27] = 0 ;
17381         /*^clear*/
17382         /*clear*/ /*_.SOPFORMALS__V29*/
17383         meltfptr[28] = 0 ;
17384         /*^clear*/
17385         /*clear*/ /*_.SOPTYPE__V30*/
17386         meltfptr[29] = 0 ;
17387         /*^clear*/
17388         /*clear*/ /*_.SOPEXP__V31*/
17389         meltfptr[30] = 0 ;
17390         /*^clear*/
17391         /*clear*/ /*_#NBARG__L7*/
17392         meltfnum[1] = 0 ;
17393         /*^clear*/
17394         /*clear*/ /*_#NBEXP__L8*/
17395         meltfnum[0] = 0 ;
17396         /*^clear*/
17397         /*clear*/ /*_.IFCPP___V32*/
17398         meltfptr[31] = 0 ;
17399         /*^clear*/
17400         /*clear*/ /*_#MULTIPLE_LENGTH__L10*/
17401         meltfnum[8] = 0 ;
17402         /*^clear*/
17403         /*clear*/ /*_#exeqI__L11*/
17404         meltfnum[10] = 0 ;
17405         /*^clear*/
17406         /*clear*/ /*_._IF___V35*/
17407         meltfptr[33] = 0 ;
17408         /*^clear*/
17409         /*clear*/ /*_.LET___V39*/
17410         meltfptr[32] = 0 ;
17411         /*_.MULTI___V24*/
17412         meltfptr[22] = /*_.LET___V27*/ meltfptr[26];;
17413
17414         MELT_LOCATION("warmelt-normal.melt:2224:/ clear");
17415         /*clear*/ /*_.LET___V27*/
17416         meltfptr[26] = 0 ;
17417
17418         /*^clear*/
17419         /*clear*/ /*_.NBIND__V26*/
17420         meltfptr[25] = 0 ;
17421         /*_.LET___V17*/
17422         meltfptr[15] = /*_.MULTI___V24*/ meltfptr[22];;
17423
17424         MELT_LOCATION("warmelt-normal.melt:2219:/ clear");
17425         /*clear*/ /*_.SLOC__V18*/
17426         meltfptr[5] = 0 ;
17427         /*^clear*/
17428         /*clear*/ /*_.SOPER__V19*/
17429         meltfptr[18] = 0 ;
17430         /*^clear*/
17431         /*clear*/ /*_.SARGS__V20*/
17432         meltfptr[19] = 0 ;
17433         /*^clear*/
17434         /*clear*/ /*_.IFCPP___V21*/
17435         meltfptr[20] = 0 ;
17436         /*^clear*/
17437         /*clear*/ /*_.MULTI___V24*/
17438         meltfptr[22] = 0 ;
17439
17440         MELT_CHECK_SIGNAL();
17441         ;
17442         MELT_LOCATION("warmelt-normal.melt:2214:/ quasiblock");
17443
17444
17445         /*_._RETVAL___V1*/
17446         meltfptr[0] = /*_.LET___V17*/ meltfptr[15];;
17447
17448         {
17449             MELT_LOCATION("warmelt-normal.melt:2214:/ locexp");
17450             /*ochecknores compilobj_nrep_return*/
17451 #if MELT_HAVE_DEBUG
17452             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
17453                 melt_warn_for_no_expected_secondary_results();
17454             /* we warned when secondary results are expected but not returned. */
17455 #endif /*MELT_HAVE_DEBUG*/
17456             ;
17457         }
17458         ;
17459         /*^finalreturn*/
17460         ;
17461         /*finalret*/
17462         goto meltlabend_rout ;
17463         /*epilog*/
17464
17465         /*^clear*/
17466         /*clear*/ /*_.IFCPP___V8*/
17467         meltfptr[6] = 0 ;
17468         /*^clear*/
17469         /*clear*/ /*_.IFCPP___V11*/
17470         meltfptr[9] = 0 ;
17471         /*^clear*/
17472         /*clear*/ /*_.IFCPP___V14*/
17473         meltfptr[12] = 0 ;
17474         /*^clear*/
17475         /*clear*/ /*_.LET___V17*/
17476         meltfptr[15] = 0 ;
17477     }
17478
17479     ;
17480     goto meltlabend_rout;
17481 meltlabend_rout:
17482     melt_trace_end("NORMEXP_PRIMITIVE", meltcallcount);
17483     melt_blocklevel_signals = current_blocklevel_signals_meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE_melt;
17484     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
17485 #undef meltcallcount
17486 #undef meltfram__
17487 #undef MELTFRAM_NBVARNUM
17488 #undef MELTFRAM_NBVARPTR
17489 } /*end meltrout_36_WARMELTmiNORMAL_NORMEXP_PRIMITIVE*/
17490
17491
17492
17493
17494
17495
17496 melt_ptr_t MELT_MODULE_VISIBILITY
17497 meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
17498         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
17499 {
17500     long current_blocklevel_signals_meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL_melt =  melt_blocklevel_signals;
17501
17502 #if MELT_HAVE_DEBUG
17503     static long melt_call_counter__;
17504     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
17505 #undef meltcallcount
17506 #define meltcallcount melt_thiscallcounter__
17507 #else
17508 #undef meltcallcount
17509 #define meltcallcount 0L
17510 #endif
17511 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
17512
17513     /* start of frame for routine meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL fromline 1752 */
17514
17515     /** start of frame for meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL of CLASS_PROCROUTINEOBJ from 1555**/
17516
17517     /*curframdeclclassy*/ class MeltFrame_meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL// fromline 1568
17518         : public Melt_CallFrameWithValues<183>
17519     {
17520     public: /* fromline 1572*/
17521         long mcfr_varnum[81];
17522         /*classy others*/
17523         long _meltsparel;
17524         void melt_mark_stuff (void)
17525         {
17526         } /*end melt_mark_stuff*/
17527         virtual void melt_mark_ggc_data (void)
17528         {
17529             melt_mark_values ();
17530             melt_mark_stuff ();
17531         }; /*end melt_mark_ggc_data*/
17532         MeltFrame_meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL(meltclosure_ptr_t clos) //the closure constructor fromline 1630
17533             : Melt_CallFrameWithValues<183> (
17534 #if ENABLE_CHECKING /*fromline 1634*/
17535                 __FILE__, __LINE__,
17536 #endif /* ENABLE_CHECKING fromline 1638*/
17537                 sizeof(MeltFrame_meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL), clos) {};
17538         MeltFrame_meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL() //the constructor fromline 1642
17539             : Melt_CallFrameWithValues<183> (
17540 #if ENABLE_CHECKING /*fromline 1646*/
17541                 __FILE__, __LINE__,
17542 #endif /* ENABLE_CHECKING fromline 1650*/
17543                 sizeof(MeltFrame_meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL)) {};
17544 #if ENABLE_CHECKING /*fromline 1654*/
17545         MeltFrame_meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL(const char*fil, int lin) //the constructor fromline 1656
17546             : Melt_CallFrameWithValues<183> (fil,lin, sizeof(MeltFrame_meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL)) {};
17547         MeltFrame_meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
17548             : Melt_CallFrameWithValues<183> (fil,lin, sizeof(MeltFrame_meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL), clos) {};
17549 #endif /* ENABLE_CHECKING fromline 1666*/
17550
17551     }; // end  class MeltFrame_meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL
17552
17553
17554     /** end of frame for meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL fromline 1697**/
17555
17556     /* end of frame for routine meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL fromline 1756 */
17557
17558     /* classy proc frame meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL */
17559     MeltFrame_meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL
17560     meltfram__ /*declfrastruct fromline 1780*/
17561     /*classyprocarg meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL fromline 1785*/
17562 #if ENABLE_CHECKING
17563     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
17564 #else /*ENABLE_CHECKING */
17565     (meltclosp_) /* fromline 1793*/
17566 #endif /*ENABLE_CHECKING */
17567
17568     ;
17569 #define meltframe meltfram__
17570
17571     melt_trace_start("NORMEXP_HOOK_CALL", meltcallcount);
17572     /*use arguments*/
17573     (void) meltclosp_;
17574     (void)meltfirstargp_;
17575     (void)meltxargdescr_;
17576     (void)meltxargtab_;
17577     (void)meltxresdescr_;
17578     (void)meltxrestab_;
17579     /*getargs*/
17580
17581     /*getarg#0*/
17582     MELT_LOCATION("warmelt-normal.melt:2330:/ getarg");
17583     /*_.RECV__V2*/
17584     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
17585
17586     /*getarg#1*/
17587     /*^getarg*/
17588     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
17589     /*_.ENV__V3*/
17590     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
17591     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
17592
17593
17594     /*getarg#2*/
17595     /*^getarg*/
17596     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
17597     /*_.NCX__V4*/
17598     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
17599     gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL);
17600
17601
17602     /*getarg#3*/
17603     /*^getarg*/
17604     if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
17605     /*_.PSLOC__V5*/
17606     meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
17607     gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL);
17608
17609     ;
17610     goto meltlab_endgetargs;
17611 meltlab_endgetargs:
17612     ;
17613     /*body*/
17614     /*^block*/
17615     /*anyblock*/
17616     {
17617
17618
17619 #if MELT_HAVE_DEBUG
17620         MELT_LOCATION("warmelt-normal.melt:2331:/ cppif.then");
17621         /*^block*/
17622         /*anyblock*/
17623         {
17624
17625
17626             {
17627                 /*^locexp*/
17628                 /*melt_increment_dbgcounter*/
17629 #if MELT_HAVE_DEBUG
17630                 melt_dbgcounter++;
17631 #endif
17632                 ;
17633             }
17634             ;
17635
17636             MELT_CHECK_SIGNAL();
17637             ;
17638             /*_#MELT_NEED_DBG__L1*/
17639             meltfnum[0] =
17640                 /*MELT_NEED_DBG*/
17641 #if MELT_HAVE_DEBUG
17642                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
17643 #else
17644                 0 /* no melt_need_dbg */
17645 #endif /*MELT_HAVE_DEBUG*/
17646                 ;;
17647             MELT_LOCATION("warmelt-normal.melt:2331:/ cond");
17648             /*cond*/
17649             if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
17650                 {
17651                     /*^cond.then*/
17652                     /*^block*/
17653                     /*anyblock*/
17654                     {
17655
17656                         /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
17657                             /* for melt_callcount */
17658 #if MELT_HAVE_DEBUG && defined (meltcallcount)
17659                             meltcallcount  /* melt_callcount debugging */
17660 #else
17661                             0L  /* melt_callcount without debug */
17662 #endif /* MELT_HAVE_DEBUG melt_callcount */
17663                             ;;
17664
17665                         MELT_CHECK_SIGNAL();
17666                         ;
17667                         MELT_LOCATION("warmelt-normal.melt:2331:/ apply");
17668                         /*apply*/
17669                         {
17670                             union meltparam_un argtab[5];
17671                             memset(&argtab, 0, sizeof(argtab));
17672                             /*^apply.arg*/
17673                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
17674                             /*^apply.arg*/
17675                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
17676                             /*^apply.arg*/
17677                             argtab[2].meltbp_long = 2331;
17678                             /*^apply.arg*/
17679                             argtab[3].meltbp_cstring =  "normexp_hook_call recv=";
17680                             /*^apply.arg*/
17681                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
17682                             /*_.MELT_DEBUG_FUN__V7*/
17683                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
17684                         }
17685                         ;
17686                         /*_._IF___V6*/
17687                         meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];;
17688                         /*epilog*/
17689
17690                         MELT_LOCATION("warmelt-normal.melt:2331:/ clear");
17691                         /*clear*/ /*_#MELT_CALLCOUNT__L2*/
17692                         meltfnum[1] = 0 ;
17693                         /*^clear*/
17694                         /*clear*/ /*_.MELT_DEBUG_FUN__V7*/
17695                         meltfptr[6] = 0 ;
17696                     }
17697                     ;
17698                 }
17699             else    /*^cond.else*/
17700                 {
17701
17702                     /*_._IF___V6*/ meltfptr[5] =  /*reallynil*/ NULL ;;
17703                 }
17704             ;
17705
17706             {
17707                 MELT_LOCATION("warmelt-normal.melt:2331:/ locexp");
17708                 /*void*/
17709                 (void)0;
17710             }
17711             ;
17712             /*^quasiblock*/
17713
17714
17715             /*epilog*/
17716
17717             /*^clear*/
17718             /*clear*/ /*_#MELT_NEED_DBG__L1*/
17719             meltfnum[0] = 0 ;
17720             /*^clear*/
17721             /*clear*/ /*_._IF___V6*/
17722             meltfptr[5] = 0 ;
17723         }
17724
17725 #else /*MELT_HAVE_DEBUG*/
17726         /*^cppif.else*/
17727         /*^block*/
17728         /*anyblock*/
17729         {
17730
17731
17732             {
17733                 /*^locexp*/
17734                 /*void*/(void)0;
17735             }
17736             ;
17737             /*epilog*/
17738         }
17739
17740 #endif /*MELT_HAVE_DEBUG*/
17741         ;
17742
17743         {
17744             MELT_LOCATION("warmelt-normal.melt:2332:/ locexp");
17745
17746 #if MELT_HAVE_DEBUG
17747             if (melt_need_debug (0))
17748                 melt_dbgshortbacktrace(( "normexp_hook_call"), (15));
17749 #endif
17750             ;
17751         }
17752         ;
17753
17754 #if MELT_HAVE_DEBUG
17755         MELT_LOCATION("warmelt-normal.melt:2333:/ cppif.then");
17756         /*^block*/
17757         /*anyblock*/
17758         {
17759
17760
17761             MELT_CHECK_SIGNAL();
17762             ;
17763             /*_#IS_A__L3*/
17764             meltfnum[1] =
17765                 melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_HOOK_CALL*/ meltfrout->tabval[1])));;
17766             MELT_LOCATION("warmelt-normal.melt:2333:/ cond");
17767             /*cond*/
17768             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
17769                 {
17770                     /*^cond.then*/
17771                     /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);;
17772                 }
17773             else
17774                 {
17775                     MELT_LOCATION("warmelt-normal.melt:2333:/ cond.else");
17776
17777                     /*^block*/
17778                     /*anyblock*/
17779                     {
17780
17781
17782                         MELT_CHECK_SIGNAL();
17783                         ;
17784                         /*^apply*/
17785                         /*apply*/
17786                         {
17787                             union meltparam_un argtab[4];
17788                             memset(&argtab, 0, sizeof(argtab));
17789                             /*^apply.arg*/
17790                             argtab[0].meltbp_cstring =  "check recv";
17791                             /*^apply.arg*/
17792                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
17793                             /*^apply.arg*/
17794                             argtab[2].meltbp_long = 2333;
17795                             /*^apply.arg*/
17796                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
17797                             /*_.MELT_ASSERT_FAILURE_FUN__V10*/
17798                             meltfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
17799                         }
17800                         ;
17801                         /*_._IFELSE___V9*/
17802                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];;
17803                         /*epilog*/
17804
17805                         MELT_LOCATION("warmelt-normal.melt:2333:/ clear");
17806                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/
17807                         meltfptr[9] = 0 ;
17808                     }
17809                     ;
17810                 }
17811             ;
17812             /*_.IFCPP___V8*/
17813             meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];;
17814             /*epilog*/
17815
17816             MELT_LOCATION("warmelt-normal.melt:2333:/ clear");
17817             /*clear*/ /*_#IS_A__L3*/
17818             meltfnum[1] = 0 ;
17819             /*^clear*/
17820             /*clear*/ /*_._IFELSE___V9*/
17821             meltfptr[5] = 0 ;
17822         }
17823
17824 #else /*MELT_HAVE_DEBUG*/
17825         /*^cppif.else*/
17826         /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL);
17827 #endif /*MELT_HAVE_DEBUG*/
17828         ;
17829
17830 #if MELT_HAVE_DEBUG
17831         MELT_LOCATION("warmelt-normal.melt:2334:/ cppif.then");
17832         /*^block*/
17833         /*anyblock*/
17834         {
17835
17836
17837             MELT_CHECK_SIGNAL();
17838             ;
17839             /*_#IS_A__L4*/
17840             meltfnum[0] =
17841                 melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));;
17842             MELT_LOCATION("warmelt-normal.melt:2334:/ cond");
17843             /*cond*/
17844             if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/
17845                 {
17846                     /*^cond.then*/
17847                     /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);;
17848                 }
17849             else
17850                 {
17851                     MELT_LOCATION("warmelt-normal.melt:2334:/ cond.else");
17852
17853                     /*^block*/
17854                     /*anyblock*/
17855                     {
17856
17857
17858                         MELT_CHECK_SIGNAL();
17859                         ;
17860                         /*^apply*/
17861                         /*apply*/
17862                         {
17863                             union meltparam_un argtab[4];
17864                             memset(&argtab, 0, sizeof(argtab));
17865                             /*^apply.arg*/
17866                             argtab[0].meltbp_cstring =  "check env";
17867                             /*^apply.arg*/
17868                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
17869                             /*^apply.arg*/
17870                             argtab[2].meltbp_long = 2334;
17871                             /*^apply.arg*/
17872                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
17873                             /*_.MELT_ASSERT_FAILURE_FUN__V13*/
17874                             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
17875                         }
17876                         ;
17877                         /*_._IFELSE___V12*/
17878                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];;
17879                         /*epilog*/
17880
17881                         MELT_LOCATION("warmelt-normal.melt:2334:/ clear");
17882                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/
17883                         meltfptr[12] = 0 ;
17884                     }
17885                     ;
17886                 }
17887             ;
17888             /*_.IFCPP___V11*/
17889             meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];;
17890             /*epilog*/
17891
17892             MELT_LOCATION("warmelt-normal.melt:2334:/ clear");
17893             /*clear*/ /*_#IS_A__L4*/
17894             meltfnum[0] = 0 ;
17895             /*^clear*/
17896             /*clear*/ /*_._IFELSE___V12*/
17897             meltfptr[5] = 0 ;
17898         }
17899
17900 #else /*MELT_HAVE_DEBUG*/
17901         /*^cppif.else*/
17902         /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL);
17903 #endif /*MELT_HAVE_DEBUG*/
17904         ;
17905
17906 #if MELT_HAVE_DEBUG
17907         MELT_LOCATION("warmelt-normal.melt:2335:/ cppif.then");
17908         /*^block*/
17909         /*anyblock*/
17910         {
17911
17912
17913             MELT_CHECK_SIGNAL();
17914             ;
17915             /*_#IS_A__L5*/
17916             meltfnum[1] =
17917                 melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));;
17918             MELT_LOCATION("warmelt-normal.melt:2335:/ cond");
17919             /*cond*/
17920             if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/
17921                 {
17922                     /*^cond.then*/
17923                     /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);;
17924                 }
17925             else
17926                 {
17927                     MELT_LOCATION("warmelt-normal.melt:2335:/ cond.else");
17928
17929                     /*^block*/
17930                     /*anyblock*/
17931                     {
17932
17933
17934                         MELT_CHECK_SIGNAL();
17935                         ;
17936                         /*^apply*/
17937                         /*apply*/
17938                         {
17939                             union meltparam_un argtab[4];
17940                             memset(&argtab, 0, sizeof(argtab));
17941                             /*^apply.arg*/
17942                             argtab[0].meltbp_cstring =  "check nctxt";
17943                             /*^apply.arg*/
17944                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
17945                             /*^apply.arg*/
17946                             argtab[2].meltbp_long = 2335;
17947                             /*^apply.arg*/
17948                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
17949                             /*_.MELT_ASSERT_FAILURE_FUN__V16*/
17950                             meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
17951                         }
17952                         ;
17953                         /*_._IFELSE___V15*/
17954                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];;
17955                         /*epilog*/
17956
17957                         MELT_LOCATION("warmelt-normal.melt:2335:/ clear");
17958                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/
17959                         meltfptr[15] = 0 ;
17960                     }
17961                     ;
17962                 }
17963             ;
17964             /*_.IFCPP___V14*/
17965             meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];;
17966             /*epilog*/
17967
17968             MELT_LOCATION("warmelt-normal.melt:2335:/ clear");
17969             /*clear*/ /*_#IS_A__L5*/
17970             meltfnum[1] = 0 ;
17971             /*^clear*/
17972             /*clear*/ /*_._IFELSE___V15*/
17973             meltfptr[5] = 0 ;
17974         }
17975
17976 #else /*MELT_HAVE_DEBUG*/
17977         /*^cppif.else*/
17978         /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL);
17979 #endif /*MELT_HAVE_DEBUG*/
17980         ;
17981         MELT_LOCATION("warmelt-normal.melt:2336:/ quasiblock");
17982
17983
17984         /*^getslot*/
17985         {
17986             melt_ptr_t slot=NULL, obj=NULL;
17987             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
17988             melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
17989             /*_.SLOC__V18*/
17990             meltfptr[5] = slot;
17991         };
17992         ;
17993         MELT_LOCATION("warmelt-normal.melt:2337:/ getslot");
17994         {
17995             melt_ptr_t slot=NULL, obj=NULL;
17996             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
17997             melt_object_get_field(slot,obj, 3, "SHOOK_CALLED");
17998             /*_.SHOOK__V19*/
17999             meltfptr[18] = slot;
18000         };
18001         ;
18002         MELT_LOCATION("warmelt-normal.melt:2338:/ getslot");
18003         {
18004             melt_ptr_t slot=NULL, obj=NULL;
18005             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
18006             melt_object_get_field(slot,obj, 2, "SARGOP_ARGS");
18007             /*_.SARGS__V20*/
18008             meltfptr[19] = slot;
18009         };
18010         ;
18011         /*_.HKNAME__V21*/
18012         meltfptr[20] = (/*nil*/NULL);;
18013         /*^compute*/
18014         /*_.HKSYMB__V22*/
18015         meltfptr[21] = (/*nil*/NULL);;
18016         /*^compute*/
18017         /*_.HKINS__V23*/
18018         meltfptr[22] = (/*nil*/NULL);;
18019         /*^compute*/
18020         /*_.HKOUTS__V24*/
18021         meltfptr[23] = (/*nil*/NULL);;
18022         /*^compute*/
18023         /*_.HKCTYPE__V25*/
18024         meltfptr[24] = (/*nil*/NULL);;
18025         /*^compute*/
18026         /*_.HKDESCR__V26*/
18027         meltfptr[25] = (/*nil*/NULL);;
18028         /*^compute*/
18029         /*_#ERRORFLAG__L6*/
18030         meltfnum[0] = 0;;
18031
18032         MELT_CHECK_SIGNAL();
18033         ;
18034         MELT_LOCATION("warmelt-normal.melt:2346:/ apply");
18035         /*apply*/
18036         {
18037             /*_.NEWENV__V27*/ meltfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
18038         }
18039         ;
18040
18041 #if MELT_HAVE_DEBUG
18042         MELT_LOCATION("warmelt-normal.melt:2348:/ cppif.then");
18043         /*^block*/
18044         /*anyblock*/
18045         {
18046
18047
18048             {
18049                 /*^locexp*/
18050                 /*melt_increment_dbgcounter*/
18051 #if MELT_HAVE_DEBUG
18052                 melt_dbgcounter++;
18053 #endif
18054                 ;
18055             }
18056             ;
18057
18058             MELT_CHECK_SIGNAL();
18059             ;
18060             /*_#MELT_NEED_DBG__L7*/
18061             meltfnum[1] =
18062                 /*MELT_NEED_DBG*/
18063 #if MELT_HAVE_DEBUG
18064                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
18065 #else
18066                 0 /* no melt_need_dbg */
18067 #endif /*MELT_HAVE_DEBUG*/
18068                 ;;
18069             MELT_LOCATION("warmelt-normal.melt:2348:/ cond");
18070             /*cond*/
18071             if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/
18072                 {
18073                     /*^cond.then*/
18074                     /*^block*/
18075                     /*anyblock*/
18076                     {
18077
18078                         /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] =
18079                             /* for melt_callcount */
18080 #if MELT_HAVE_DEBUG && defined (meltcallcount)
18081                             meltcallcount  /* melt_callcount debugging */
18082 #else
18083                             0L  /* melt_callcount without debug */
18084 #endif /* MELT_HAVE_DEBUG melt_callcount */
18085                             ;;
18086
18087                         MELT_CHECK_SIGNAL();
18088                         ;
18089                         MELT_LOCATION("warmelt-normal.melt:2348:/ apply");
18090                         /*apply*/
18091                         {
18092                             union meltparam_un argtab[7];
18093                             memset(&argtab, 0, sizeof(argtab));
18094                             /*^apply.arg*/
18095                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[7];
18096                             /*^apply.arg*/
18097                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
18098                             /*^apply.arg*/
18099                             argtab[2].meltbp_long = 2348;
18100                             /*^apply.arg*/
18101                             argtab[3].meltbp_cstring =  "normexp_hook_call shook=";
18102                             /*^apply.arg*/
18103                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SHOOK__V19*/ meltfptr[18];
18104                             /*^apply.arg*/
18105                             argtab[5].meltbp_cstring =  " sargs=";
18106                             /*^apply.arg*/
18107                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SARGS__V20*/ meltfptr[19];
18108                             /*_.MELT_DEBUG_FUN__V29*/
18109                             meltfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
18110                         }
18111                         ;
18112                         /*_._IF___V28*/
18113                         meltfptr[27] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];;
18114                         /*epilog*/
18115
18116                         MELT_LOCATION("warmelt-normal.melt:2348:/ clear");
18117                         /*clear*/ /*_#MELT_CALLCOUNT__L8*/
18118                         meltfnum[7] = 0 ;
18119                         /*^clear*/
18120                         /*clear*/ /*_.MELT_DEBUG_FUN__V29*/
18121                         meltfptr[28] = 0 ;
18122                     }
18123                     ;
18124                 }
18125             else    /*^cond.else*/
18126                 {
18127
18128                     /*_._IF___V28*/ meltfptr[27] =  /*reallynil*/ NULL ;;
18129                 }
18130             ;
18131
18132             {
18133                 MELT_LOCATION("warmelt-normal.melt:2348:/ locexp");
18134                 /*void*/
18135                 (void)0;
18136             }
18137             ;
18138             /*^quasiblock*/
18139
18140
18141             /*epilog*/
18142
18143             /*^clear*/
18144             /*clear*/ /*_#MELT_NEED_DBG__L7*/
18145             meltfnum[1] = 0 ;
18146             /*^clear*/
18147             /*clear*/ /*_._IF___V28*/
18148             meltfptr[27] = 0 ;
18149         }
18150
18151 #else /*MELT_HAVE_DEBUG*/
18152         /*^cppif.else*/
18153         /*^block*/
18154         /*anyblock*/
18155         {
18156
18157
18158             {
18159                 /*^locexp*/
18160                 /*void*/(void)0;
18161             }
18162             ;
18163             /*epilog*/
18164         }
18165
18166 #endif /*MELT_HAVE_DEBUG*/
18167         ;
18168
18169         MELT_CHECK_SIGNAL();
18170         ;
18171         MELT_LOCATION("warmelt-normal.melt:2349:/ block");
18172         /*anyblock*/
18173         {
18174
18175             /*^objgoto*/
18176             /*objgoto*/ goto mtch1_0;
18177             ;
18178
18179             /*objlabel*/
18180 mtch1_0:
18181             ;
18182             MELT_LOCATION("warmelt-normal.melt:2350:/ objlabel");
18183             /* objlabel */
18184 #if MELTDEBUG_MATCHING
18185             static long meltlab_count_1;
18186             meltlab_count_1++;
18187             debugeprintf("objlabel_1 mtch1_*CLASS_NORMTESTER_INSTANCE/37b2e044. *CLASS_OBJLABELINSTR/37176b0. %ld", meltlab_count_1);
18188 #endif
18189
18190             ;
18191             /*^clear*/
18192             /*clear*/ /*_.SDEF_NAME__V30*/
18193             meltfptr[28] = 0 ;
18194             /*^clear*/
18195             /*clear*/ /*_.SFORMAL_ARGS__V31*/
18196             meltfptr[27] = 0 ;
18197             /*^clear*/
18198             /*clear*/ /*_.SHOOK_CTYPE__V32*/
18199             meltfptr[31] = 0 ;
18200             /*^clear*/
18201             /*clear*/ /*_.SHOOK_OUT_FORMALS__V33*/
18202             meltfptr[32] = 0 ;
18203             /*^cond*/
18204             /*cond*/
18205             if (
18206                 /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.SHOOK__V19*/ meltfptr[18]),
18207                                     (melt_ptr_t)((/*!CLASS_SOURCE_DEFHOOK*/ meltfrout->tabval[6]))))) /*then*/
18208                 {
18209                     /*^cond.then*/
18210                     /*^block*/
18211                     /*anyblock*/
18212                     {
18213
18214                         /*^getslot*/
18215                         {
18216                             melt_ptr_t slot=NULL, obj=NULL;
18217                             obj = (melt_ptr_t)(/*_.SHOOK__V19*/ meltfptr[18]) /*=obj*/;
18218                             melt_object_get_field(slot,obj, 2, "SDEF_NAME");
18219                             /*_.SDEF_NAME__V30*/
18220                             meltfptr[28] = slot;
18221                         };
18222                         ;
18223                         /*^getslot*/
18224                         {
18225                             melt_ptr_t slot=NULL, obj=NULL;
18226                             obj = (melt_ptr_t)(/*_.SHOOK__V19*/ meltfptr[18]) /*=obj*/;
18227                             melt_object_get_field(slot,obj, 4, "SFORMAL_ARGS");
18228                             /*_.SFORMAL_ARGS__V31*/
18229                             meltfptr[27] = slot;
18230                         };
18231                         ;
18232                         /*^getslot*/
18233                         {
18234                             melt_ptr_t slot=NULL, obj=NULL;
18235                             obj = (melt_ptr_t)(/*_.SHOOK__V19*/ meltfptr[18]) /*=obj*/;
18236                             melt_object_get_field(slot,obj, 5, "SHOOK_OUT_FORMALS");
18237                             /*_.SHOOK_OUT_FORMALS__V33*/
18238                             meltfptr[32] = slot;
18239                         };
18240                         ;
18241                         /*^getslot*/
18242                         {
18243                             melt_ptr_t slot=NULL, obj=NULL;
18244                             obj = (melt_ptr_t)(/*_.SHOOK__V19*/ meltfptr[18]) /*=obj*/;
18245                             melt_object_get_field(slot,obj, 6, "SHOOK_CTYPE");
18246                             /*_.SHOOK_CTYPE__V32*/
18247                             meltfptr[31] = slot;
18248                         };
18249                         ;
18250                         /*^objgoto*/
18251                         /*objgoto*/
18252                         goto mtch1_1;
18253                         ;
18254                     }
18255                     ;
18256                 }
18257             else    /*^cond.else*/
18258                 {
18259
18260                     /*^block*/
18261                     /*anyblock*/
18262                     {
18263
18264                         MELT_LOCATION("warmelt-normal.melt:2364:/ objgoto");
18265                         /*objgoto*/
18266                         goto mtch1_2;
18267                         ;
18268                     }
18269                     ;
18270                 }
18271             ;
18272
18273             /*objlabel*/
18274 mtch1_1:
18275             ;
18276             MELT_LOCATION("warmelt-normal.melt:2350:/ objlabel");
18277             /* objlabel */
18278 #if MELTDEBUG_MATCHING
18279             static long meltlab_count_2;
18280             meltlab_count_2++;
18281             debugeprintf("objlabel_2 mtch1_*CLASS_NORMTESTER_SUCCESS/26fab9ba. *CLASS_OBJLABELINSTR/3d794613. %ld", meltlab_count_2);
18282 #endif
18283
18284             ;
18285             /*^quasiblock*/
18286
18287
18288             /*_.SHCTYPE__V34*/
18289             meltfptr[33] = /*_.SHOOK_CTYPE__V32*/ meltfptr[31];;
18290             /*^compute*/
18291             /*_.SHKINS__V35*/
18292             meltfptr[34] = /*_.SFORMAL_ARGS__V31*/ meltfptr[27];;
18293             /*^compute*/
18294             /*_.SHKOUTS__V36*/
18295             meltfptr[35] = /*_.SHOOK_OUT_FORMALS__V33*/ meltfptr[32];;
18296             /*^compute*/
18297             /*_.SHKSYMB__V37*/
18298             meltfptr[36] = /*_.SDEF_NAME__V30*/ meltfptr[28];;
18299             MELT_LOCATION("warmelt-normal.melt:2355:/ compute");
18300             /*_.HKSYMB__V22*/
18301             meltfptr[21] = /*_.SETQ___V38*/ meltfptr[37] = /*_.SHKSYMB__V37*/ meltfptr[36];;
18302
18303 #if MELT_HAVE_DEBUG
18304             MELT_LOCATION("warmelt-normal.melt:2356:/ cppif.then");
18305             /*^block*/
18306             /*anyblock*/
18307             {
18308
18309
18310                 MELT_CHECK_SIGNAL();
18311                 ;
18312                 /*_#IS_A__L9*/
18313                 meltfnum[7] =
18314                     melt_is_instance_of((melt_ptr_t)(/*_.HKSYMB__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[7])));;
18315                 MELT_LOCATION("warmelt-normal.melt:2356:/ cond");
18316                 /*cond*/
18317                 if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/
18318                     {
18319                         /*^cond.then*/
18320                         /*_._IFELSE___V40*/ meltfptr[39] = (/*nil*/NULL);;
18321                     }
18322                 else
18323                     {
18324                         MELT_LOCATION("warmelt-normal.melt:2356:/ cond.else");
18325
18326                         /*^block*/
18327                         /*anyblock*/
18328                         {
18329
18330
18331                             MELT_CHECK_SIGNAL();
18332                             ;
18333                             /*^apply*/
18334                             /*apply*/
18335                             {
18336                                 union meltparam_un argtab[4];
18337                                 memset(&argtab, 0, sizeof(argtab));
18338                                 /*^apply.arg*/
18339                                 argtab[0].meltbp_cstring =  "check hksymb";
18340                                 /*^apply.arg*/
18341                                 argtab[1].meltbp_cstring =  "warmelt-normal.melt";
18342                                 /*^apply.arg*/
18343                                 argtab[2].meltbp_long = 2356;
18344                                 /*^apply.arg*/
18345                                 argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKSYMB__V22*/ meltfptr[21];
18346                                 /*_.MELT_ASSERT_FAILURE_FUN__V41*/
18347                                 meltfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
18348                             }
18349                             ;
18350                             /*_._IFELSE___V40*/
18351                             meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[40];;
18352                             /*epilog*/
18353
18354                             MELT_LOCATION("warmelt-normal.melt:2356:/ clear");
18355                             /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V41*/
18356                             meltfptr[40] = 0 ;
18357                         }
18358                         ;
18359                     }
18360                 ;
18361                 /*_.IFCPP___V39*/
18362                 meltfptr[38] = /*_._IFELSE___V40*/ meltfptr[39];;
18363                 /*epilog*/
18364
18365                 MELT_LOCATION("warmelt-normal.melt:2356:/ clear");
18366                 /*clear*/ /*_#IS_A__L9*/
18367                 meltfnum[7] = 0 ;
18368                 /*^clear*/
18369                 /*clear*/ /*_._IFELSE___V40*/
18370                 meltfptr[39] = 0 ;
18371             }
18372
18373 #else /*MELT_HAVE_DEBUG*/
18374             /*^cppif.else*/
18375             /*_.IFCPP___V39*/ meltfptr[38] = (/*nil*/NULL);
18376 #endif /*MELT_HAVE_DEBUG*/
18377             ;
18378             MELT_LOCATION("warmelt-normal.melt:2357:/ cond");
18379             /*cond*/
18380             if (
18381                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SHKSYMB__V37*/ meltfptr[36]),
18382                                               (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8])))
18383             ) /*then*/
18384                 {
18385                     /*^cond.then*/
18386                     /*^getslot*/
18387                     {
18388                         melt_ptr_t slot=NULL, obj=NULL;
18389                         obj = (melt_ptr_t)(/*_.SHKSYMB__V37*/ meltfptr[36]) /*=obj*/;
18390                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
18391                         /*_.NAMED_NAME__V42*/
18392                         meltfptr[40] = slot;
18393                     };
18394                     ;
18395                 }
18396             else    /*^cond.else*/
18397                 {
18398
18399                     /*_.NAMED_NAME__V42*/ meltfptr[40] =  /*reallynil*/ NULL ;;
18400                 }
18401             ;
18402             MELT_LOCATION("warmelt-normal.melt:2357:/ compute");
18403             /*_.HKNAME__V21*/
18404             meltfptr[20] = /*_.SETQ___V43*/ meltfptr[39] = /*_.NAMED_NAME__V42*/ meltfptr[40];;
18405             MELT_LOCATION("warmelt-normal.melt:2358:/ compute");
18406             /*_.HKINS__V23*/
18407             meltfptr[22] = /*_.SETQ___V44*/ meltfptr[43] = /*_.SHKINS__V35*/ meltfptr[34];;
18408             MELT_LOCATION("warmelt-normal.melt:2359:/ compute");
18409             /*_.HKOUTS__V24*/
18410             meltfptr[23] = /*_.SETQ___V45*/ meltfptr[44] = /*_.SHKOUTS__V36*/ meltfptr[35];;
18411             MELT_LOCATION("warmelt-normal.melt:2360:/ compute");
18412             /*_.HKCTYPE__V25*/
18413             meltfptr[24] = /*_.SETQ___V46*/ meltfptr[45] = /*_.SHCTYPE__V34*/ meltfptr[33];;
18414
18415 #if MELT_HAVE_DEBUG
18416             MELT_LOCATION("warmelt-normal.melt:2361:/ cppif.then");
18417             /*^block*/
18418             /*anyblock*/
18419             {
18420
18421
18422                 {
18423                     /*^locexp*/
18424                     /*melt_increment_dbgcounter*/
18425 #if MELT_HAVE_DEBUG
18426                     melt_dbgcounter++;
18427 #endif
18428                     ;
18429                 }
18430                 ;
18431
18432                 MELT_CHECK_SIGNAL();
18433                 ;
18434                 /*_#MELT_NEED_DBG__L10*/
18435                 meltfnum[1] =
18436                     /*MELT_NEED_DBG*/
18437 #if MELT_HAVE_DEBUG
18438                     (/*melt_need_dbg*/ melt_need_debug ((int) 0))
18439 #else
18440                     0 /* no melt_need_dbg */
18441 #endif /*MELT_HAVE_DEBUG*/
18442                     ;;
18443                 MELT_LOCATION("warmelt-normal.melt:2361:/ cond");
18444                 /*cond*/
18445                 if (/*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then*/
18446                     {
18447                         /*^cond.then*/
18448                         /*^block*/
18449                         /*anyblock*/
18450                         {
18451
18452                             /*_#MELT_CALLCOUNT__L11*/ meltfnum[7] =
18453                                 /* for melt_callcount */
18454 #if MELT_HAVE_DEBUG && defined (meltcallcount)
18455                                 meltcallcount  /* melt_callcount debugging */
18456 #else
18457                                 0L  /* melt_callcount without debug */
18458 #endif /* MELT_HAVE_DEBUG melt_callcount */
18459                                 ;;
18460
18461                             MELT_CHECK_SIGNAL();
18462                             ;
18463                             MELT_LOCATION("warmelt-normal.melt:2361:/ apply");
18464                             /*apply*/
18465                             {
18466                                 union meltparam_un argtab[9];
18467                                 memset(&argtab, 0, sizeof(argtab));
18468                                 /*^apply.arg*/
18469                                 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L11*/ meltfnum[7];
18470                                 /*^apply.arg*/
18471                                 argtab[1].meltbp_cstring =  "warmelt-normal.melt";
18472                                 /*^apply.arg*/
18473                                 argtab[2].meltbp_long = 2361;
18474                                 /*^apply.arg*/
18475                                 argtab[3].meltbp_cstring =  "normexp_hook_call sourcedefhook hkname=";
18476                                 /*^apply.arg*/
18477                                 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V21*/ meltfptr[20];
18478                                 /*^apply.arg*/
18479                                 argtab[5].meltbp_cstring =  "\n hkins=";
18480                                 /*^apply.arg*/
18481                                 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.HKINS__V23*/ meltfptr[22];
18482                                 /*^apply.arg*/
18483                                 argtab[7].meltbp_cstring =  "\n hkouts=";
18484                                 /*^apply.arg*/
18485                                 argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.HKOUTS__V24*/ meltfptr[23];
18486                                 /*_.MELT_DEBUG_FUN__V48*/
18487                                 meltfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
18488                             }
18489                             ;
18490                             /*_._IF___V47*/
18491                             meltfptr[46] = /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47];;
18492                             /*epilog*/
18493
18494                             MELT_LOCATION("warmelt-normal.melt:2361:/ clear");
18495                             /*clear*/ /*_#MELT_CALLCOUNT__L11*/
18496                             meltfnum[7] = 0 ;
18497                             /*^clear*/
18498                             /*clear*/ /*_.MELT_DEBUG_FUN__V48*/
18499                             meltfptr[47] = 0 ;
18500                         }
18501                         ;
18502                     }
18503                 else    /*^cond.else*/
18504                     {
18505
18506                         /*_._IF___V47*/ meltfptr[46] =  /*reallynil*/ NULL ;;
18507                     }
18508                 ;
18509
18510                 {
18511                     MELT_LOCATION("warmelt-normal.melt:2361:/ locexp");
18512                     /*void*/
18513                     (void)0;
18514                 }
18515                 ;
18516                 /*^quasiblock*/
18517
18518
18519                 /*epilog*/
18520
18521                 /*^clear*/
18522                 /*clear*/ /*_#MELT_NEED_DBG__L10*/
18523                 meltfnum[1] = 0 ;
18524                 /*^clear*/
18525                 /*clear*/ /*_._IF___V47*/
18526                 meltfptr[46] = 0 ;
18527             }
18528
18529 #else /*MELT_HAVE_DEBUG*/
18530             /*^cppif.else*/
18531             /*^block*/
18532             /*anyblock*/
18533             {
18534
18535
18536                 {
18537                     /*^locexp*/
18538                     /*void*/(void)0;
18539                 }
18540                 ;
18541                 /*epilog*/
18542             }
18543
18544 #endif /*MELT_HAVE_DEBUG*/
18545             ;
18546
18547             MELT_CHECK_SIGNAL();
18548             ;
18549
18550             MELT_LOCATION("warmelt-normal.melt:2350:/ clear");
18551             /*clear*/ /*_.SHCTYPE__V34*/
18552             meltfptr[33] = 0 ;
18553             /*^clear*/
18554             /*clear*/ /*_.SHKINS__V35*/
18555             meltfptr[34] = 0 ;
18556             /*^clear*/
18557             /*clear*/ /*_.SHKOUTS__V36*/
18558             meltfptr[35] = 0 ;
18559             /*^clear*/
18560             /*clear*/ /*_.SHKSYMB__V37*/
18561             meltfptr[36] = 0 ;
18562             /*^clear*/
18563             /*clear*/ /*_.SETQ___V38*/
18564             meltfptr[37] = 0 ;
18565             /*^clear*/
18566             /*clear*/ /*_.IFCPP___V39*/
18567             meltfptr[38] = 0 ;
18568             /*^clear*/
18569             /*clear*/ /*_.NAMED_NAME__V42*/
18570             meltfptr[40] = 0 ;
18571             /*^clear*/
18572             /*clear*/ /*_.SETQ___V43*/
18573             meltfptr[39] = 0 ;
18574             /*^clear*/
18575             /*clear*/ /*_.SETQ___V44*/
18576             meltfptr[43] = 0 ;
18577             /*^clear*/
18578             /*clear*/ /*_.SETQ___V45*/
18579             meltfptr[44] = 0 ;
18580             /*^clear*/
18581             /*clear*/ /*_.SETQ___V46*/
18582             meltfptr[45] = 0 ;
18583             /*^objgoto*/
18584             /*objgoto*/
18585             goto mtch1__end /*endmatch*/;
18586             ;
18587
18588             /*objlabel*/
18589 mtch1_2:
18590             ;
18591             MELT_LOCATION("warmelt-normal.melt:2364:/ objlabel");
18592             /* objlabel */
18593 #if MELTDEBUG_MATCHING
18594             static long meltlab_count_3;
18595             meltlab_count_3++;
18596             debugeprintf("objlabel_3 mtch1_*CLASS_NORMTESTER_MATCHER/cc59ac4. *CLASS_OBJLABELINSTR/259c3263. %ld", meltlab_count_3);
18597 #endif
18598
18599             ;
18600             /*^clear*/
18601             /*clear*/ /*_.HKDATA__V49*/
18602             meltfptr[47] = 0 ;
18603             /*^cond*/
18604             /*cond*/
18605             if (
18606                 /* some_hook_with_data SOMEHOOK_mtch1__1 ? */ ((/*_.SHOOK__V19*/ meltfptr[18])
18607                         && melt_magic_discr ((melt_ptr_t)(/*_.SHOOK__V19*/ meltfptr[18])) == MELTOBMAG_HOOK) ) /*then*/
18608                 {
18609                     /*^cond.then*/
18610                     /*^block*/
18611                     /*anyblock*/
18612                     {
18613
18614                         /*^clear*/
18615                         /*clear*/ /*_.HKDATA__V49*/ meltfptr[47] = 0 ;
18616
18617                         {
18618                             /*^locexp*/
18619                             /* some_hook_with_data SOMEHOOK_mtch1__1 ! */
18620                             /*_.HKDATA__V49*/ meltfptr[47] = melt_hook_data ((melt_ptr_t) (/*_.SHOOK__V19*/ meltfptr[18]));
18621                             ;
18622                         }
18623                         ;
18624                         MELT_LOCATION("warmelt-normal.melt:2366:/ objgoto");
18625                         /*objgoto*/
18626                         goto mtch1_3;
18627                         ;
18628                     }
18629                     ;
18630                 }
18631             else
18632                 {
18633                     MELT_LOCATION("warmelt-normal.melt:2364:/ cond.else");
18634
18635                     /*^block*/
18636                     /*anyblock*/
18637                     {
18638
18639                         MELT_LOCATION("warmelt-normal.melt:2383:/ objgoto");
18640                         /*objgoto*/
18641                         goto mtch1_5;
18642                         ;
18643                     }
18644                     ;
18645                 }
18646             ;
18647
18648             /*objlabel*/
18649 mtch1_3:
18650             ;
18651             MELT_LOCATION("warmelt-normal.melt:2366:/ objlabel");
18652             /* objlabel */
18653 #if MELTDEBUG_MATCHING
18654             static long meltlab_count_4;
18655             meltlab_count_4++;
18656             debugeprintf("objlabel_4 mtch1_*CLASS_NORMTESTER_INSTANCE/3abbae69. *CLASS_OBJLABELINSTR/2e972171. %ld", meltlab_count_4);
18657 #endif
18658
18659             ;
18660             /*^clear*/
18661             /*clear*/ /*_.NAMED_NAME__V50*/
18662             meltfptr[46] = 0 ;
18663             /*^clear*/
18664             /*clear*/ /*_.HOOKDESC_IN_FORMALS__V51*/
18665             meltfptr[33] = 0 ;
18666             /*^clear*/
18667             /*clear*/ /*_.HOOKDESC_OUT_FORMALS__V52*/
18668             meltfptr[34] = 0 ;
18669             /*^clear*/
18670             /*clear*/ /*_.HOOKDESC_CTYPE__V53*/
18671             meltfptr[35] = 0 ;
18672             /*^cond*/
18673             /*cond*/
18674             if (
18675                 /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.HKDATA__V49*/ meltfptr[47]),
18676                                     (melt_ptr_t)((/*!CLASS_HOOK_DESCRIPTOR*/ meltfrout->tabval[10]))))) /*then*/
18677                 {
18678                     /*^cond.then*/
18679                     /*^block*/
18680                     /*anyblock*/
18681                     {
18682
18683                         /*^getslot*/
18684                         {
18685                             melt_ptr_t slot=NULL, obj=NULL;
18686                             obj = (melt_ptr_t)(/*_.HKDATA__V49*/ meltfptr[47]) /*=obj*/;
18687                             melt_object_get_field(slot,obj, 1, "NAMED_NAME");
18688                             /*_.NAMED_NAME__V50*/
18689                             meltfptr[46] = slot;
18690                         };
18691                         ;
18692                         /*^getslot*/
18693                         {
18694                             melt_ptr_t slot=NULL, obj=NULL;
18695                             obj = (melt_ptr_t)(/*_.HKDATA__V49*/ meltfptr[47]) /*=obj*/;
18696                             melt_object_get_field(slot,obj, 2, "HOOKDESC_IN_FORMALS");
18697                             /*_.HOOKDESC_IN_FORMALS__V51*/
18698                             meltfptr[33] = slot;
18699                         };
18700                         ;
18701                         /*^getslot*/
18702                         {
18703                             melt_ptr_t slot=NULL, obj=NULL;
18704                             obj = (melt_ptr_t)(/*_.HKDATA__V49*/ meltfptr[47]) /*=obj*/;
18705                             melt_object_get_field(slot,obj, 3, "HOOKDESC_OUT_FORMALS");
18706                             /*_.HOOKDESC_OUT_FORMALS__V52*/
18707                             meltfptr[34] = slot;
18708                         };
18709                         ;
18710                         /*^getslot*/
18711                         {
18712                             melt_ptr_t slot=NULL, obj=NULL;
18713                             obj = (melt_ptr_t)(/*_.HKDATA__V49*/ meltfptr[47]) /*=obj*/;
18714                             melt_object_get_field(slot,obj, 4, "HOOKDESC_CTYPE");
18715                             /*_.HOOKDESC_CTYPE__V53*/
18716                             meltfptr[35] = slot;
18717                         };
18718                         ;
18719                         MELT_LOCATION("warmelt-normal.melt:2364:/ objgoto");
18720                         /*objgoto*/
18721                         goto mtch1_4;
18722                         ;
18723                     }
18724                     ;
18725                 }
18726             else
18727                 {
18728                     MELT_LOCATION("warmelt-normal.melt:2366:/ cond.else");
18729
18730                     /*^block*/
18731                     /*anyblock*/
18732                     {
18733
18734                         MELT_LOCATION("warmelt-normal.melt:2383:/ objgoto");
18735                         /*objgoto*/
18736                         goto mtch1_5;
18737                         ;
18738                     }
18739                     ;
18740                 }
18741             ;
18742
18743             /*objlabel*/
18744 mtch1_4:
18745             ;
18746             MELT_LOCATION("warmelt-normal.melt:2364:/ objlabel");
18747             /* objlabel */
18748 #if MELTDEBUG_MATCHING
18749             static long meltlab_count_5;
18750             meltlab_count_5++;
18751             debugeprintf("objlabel_5 mtch1_*CLASS_NORMTESTER_SUCCESS/281bfa89. *CLASS_OBJLABELINSTR/34c01fbe. %ld", meltlab_count_5);
18752 #endif
18753
18754             ;
18755             /*^quasiblock*/
18756
18757
18758             /*_.DHKCTYPE__V54*/
18759             meltfptr[36] = /*_.HOOKDESC_CTYPE__V53*/ meltfptr[35];;
18760             /*^compute*/
18761             /*_.DHKDESCR__V55*/
18762             meltfptr[37] = /*_.HKDATA__V49*/ meltfptr[47];;
18763             /*^compute*/
18764             /*_.DHKINS__V56*/
18765             meltfptr[38] = /*_.HOOKDESC_IN_FORMALS__V51*/ meltfptr[33];;
18766             /*^compute*/
18767             /*_.DHKNAME__V57*/
18768             meltfptr[40] = /*_.NAMED_NAME__V50*/ meltfptr[46];;
18769             /*^compute*/
18770             /*_.DHKOUTS__V58*/
18771             meltfptr[39] = /*_.HOOKDESC_OUT_FORMALS__V52*/ meltfptr[34];;
18772
18773 #if MELT_HAVE_DEBUG
18774             MELT_LOCATION("warmelt-normal.melt:2371:/ cppif.then");
18775             /*^block*/
18776             /*anyblock*/
18777             {
18778
18779
18780                 MELT_CHECK_SIGNAL();
18781                 ;
18782                 /*_#IS_STRING__L12*/
18783                 meltfnum[7] =
18784                     (melt_magic_discr((melt_ptr_t)(/*_.DHKNAME__V57*/ meltfptr[40])) == MELTOBMAG_STRING);;
18785                 MELT_LOCATION("warmelt-normal.melt:2371:/ cond");
18786                 /*cond*/
18787                 if (/*_#IS_STRING__L12*/ meltfnum[7]) /*then*/
18788                     {
18789                         /*^cond.then*/
18790                         /*_._IFELSE___V60*/ meltfptr[44] = (/*nil*/NULL);;
18791                     }
18792                 else
18793                     {
18794                         MELT_LOCATION("warmelt-normal.melt:2371:/ cond.else");
18795
18796                         /*^block*/
18797                         /*anyblock*/
18798                         {
18799
18800
18801                             MELT_CHECK_SIGNAL();
18802                             ;
18803                             /*^apply*/
18804                             /*apply*/
18805                             {
18806                                 union meltparam_un argtab[4];
18807                                 memset(&argtab, 0, sizeof(argtab));
18808                                 /*^apply.arg*/
18809                                 argtab[0].meltbp_cstring =  "check dhkname";
18810                                 /*^apply.arg*/
18811                                 argtab[1].meltbp_cstring =  "warmelt-normal.melt";
18812                                 /*^apply.arg*/
18813                                 argtab[2].meltbp_long = 2371;
18814                                 /*^apply.arg*/
18815                                 argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DHKNAME__V57*/ meltfptr[40];
18816                                 /*_.MELT_ASSERT_FAILURE_FUN__V61*/
18817                                 meltfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
18818                             }
18819                             ;
18820                             /*_._IFELSE___V60*/
18821                             meltfptr[44] = /*_.MELT_ASSERT_FAILURE_FUN__V61*/ meltfptr[45];;
18822                             /*epilog*/
18823
18824                             MELT_LOCATION("warmelt-normal.melt:2371:/ clear");
18825                             /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V61*/
18826                             meltfptr[45] = 0 ;
18827                         }
18828                         ;
18829                     }
18830                 ;
18831                 /*_.IFCPP___V59*/
18832                 meltfptr[43] = /*_._IFELSE___V60*/ meltfptr[44];;
18833                 /*epilog*/
18834
18835                 MELT_LOCATION("warmelt-normal.melt:2371:/ clear");
18836                 /*clear*/ /*_#IS_STRING__L12*/
18837                 meltfnum[7] = 0 ;
18838                 /*^clear*/
18839                 /*clear*/ /*_._IFELSE___V60*/
18840                 meltfptr[44] = 0 ;
18841             }
18842
18843 #else /*MELT_HAVE_DEBUG*/
18844             /*^cppif.else*/
18845             /*_.IFCPP___V59*/ meltfptr[43] = (/*nil*/NULL);
18846 #endif /*MELT_HAVE_DEBUG*/
18847             ;
18848             /*^compute*/
18849             /*_.GET_SYMBOLSTR__V62*/
18850             meltfptr[47] =
18851                 melthookproc_HOOK_NAMED_SYMBOL (melt_string_str((melt_ptr_t)(/*_.DHKNAME__V57*/ meltfptr[40])), (long)MELT_GET);;
18852             MELT_LOCATION("warmelt-normal.melt:2372:/ compute");
18853             /*_.HKSYMB__V22*/
18854             meltfptr[21] = /*_.SETQ___V63*/ meltfptr[45] = /*_.GET_SYMBOLSTR__V62*/ meltfptr[47];;
18855             MELT_LOCATION("warmelt-normal.melt:2373:/ compute");
18856             /*_.HKNAME__V21*/
18857             meltfptr[20] = /*_.SETQ___V64*/ meltfptr[44] = /*_.DHKNAME__V57*/ meltfptr[40];;
18858             MELT_LOCATION("warmelt-normal.melt:2374:/ compute");
18859             /*_.HKDESCR__V26*/
18860             meltfptr[25] = /*_.SETQ___V65*/ meltfptr[64] = /*_.DHKDESCR__V55*/ meltfptr[37];;
18861             MELT_LOCATION("warmelt-normal.melt:2375:/ compute");
18862             /*_.HKINS__V23*/
18863             meltfptr[22] = /*_.SETQ___V66*/ meltfptr[65] = /*_.DHKINS__V56*/ meltfptr[38];;
18864             MELT_LOCATION("warmelt-normal.melt:2376:/ compute");
18865             /*_.HKOUTS__V24*/
18866             meltfptr[23] = /*_.SETQ___V67*/ meltfptr[66] = /*_.DHKOUTS__V58*/ meltfptr[39];;
18867             MELT_LOCATION("warmelt-normal.melt:2377:/ compute");
18868             /*_.HKCTYPE__V25*/
18869             meltfptr[24] = /*_.SETQ___V68*/ meltfptr[67] = /*_.DHKCTYPE__V54*/ meltfptr[36];;
18870
18871 #if MELT_HAVE_DEBUG
18872             MELT_LOCATION("warmelt-normal.melt:2378:/ cppif.then");
18873             /*^block*/
18874             /*anyblock*/
18875             {
18876
18877
18878                 {
18879                     /*^locexp*/
18880                     /*melt_increment_dbgcounter*/
18881 #if MELT_HAVE_DEBUG
18882                     melt_dbgcounter++;
18883 #endif
18884                     ;
18885                 }
18886                 ;
18887
18888                 MELT_CHECK_SIGNAL();
18889                 ;
18890                 /*_#MELT_NEED_DBG__L13*/
18891                 meltfnum[1] =
18892                     /*MELT_NEED_DBG*/
18893 #if MELT_HAVE_DEBUG
18894                     (/*melt_need_dbg*/ melt_need_debug ((int) 0))
18895 #else
18896                     0 /* no melt_need_dbg */
18897 #endif /*MELT_HAVE_DEBUG*/
18898                     ;;
18899                 MELT_LOCATION("warmelt-normal.melt:2378:/ cond");
18900                 /*cond*/
18901                 if (/*_#MELT_NEED_DBG__L13*/ meltfnum[1]) /*then*/
18902                     {
18903                         /*^cond.then*/
18904                         /*^block*/
18905                         /*anyblock*/
18906                         {
18907
18908                             /*_#MELT_CALLCOUNT__L14*/ meltfnum[7] =
18909                                 /* for melt_callcount */
18910 #if MELT_HAVE_DEBUG && defined (meltcallcount)
18911                                 meltcallcount  /* melt_callcount debugging */
18912 #else
18913                                 0L  /* melt_callcount without debug */
18914 #endif /* MELT_HAVE_DEBUG melt_callcount */
18915                                 ;;
18916
18917                             MELT_CHECK_SIGNAL();
18918                             ;
18919                             MELT_LOCATION("warmelt-normal.melt:2378:/ apply");
18920                             /*apply*/
18921                             {
18922                                 union meltparam_un argtab[11];
18923                                 memset(&argtab, 0, sizeof(argtab));
18924                                 /*^apply.arg*/
18925                                 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L14*/ meltfnum[7];
18926                                 /*^apply.arg*/
18927                                 argtab[1].meltbp_cstring =  "warmelt-normal.melt";
18928                                 /*^apply.arg*/
18929                                 argtab[2].meltbp_long = 2378;
18930                                 /*^apply.arg*/
18931                                 argtab[3].meltbp_cstring =  "normexp_hook_call valuehook hkname=";
18932                                 /*^apply.arg*/
18933                                 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V21*/ meltfptr[20];
18934                                 /*^apply.arg*/
18935                                 argtab[5].meltbp_cstring =  "\n.. hkins=";
18936                                 /*^apply.arg*/
18937                                 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.HKINS__V23*/ meltfptr[22];
18938                                 /*^apply.arg*/
18939                                 argtab[7].meltbp_cstring =  "\n.. hkouts=";
18940                                 /*^apply.arg*/
18941                                 argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.HKOUTS__V24*/ meltfptr[23];
18942                                 /*^apply.arg*/
18943                                 argtab[9].meltbp_cstring =  "\n.. hkctype=";
18944                                 /*^apply.arg*/
18945                                 argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.HKCTYPE__V25*/ meltfptr[24];
18946                                 /*_.MELT_DEBUG_FUN__V70*/
18947                                 meltfptr[69] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
18948                             }
18949                             ;
18950                             /*_._IF___V69*/
18951                             meltfptr[68] = /*_.MELT_DEBUG_FUN__V70*/ meltfptr[69];;
18952                             /*epilog*/
18953
18954                             MELT_LOCATION("warmelt-normal.melt:2378:/ clear");
18955                             /*clear*/ /*_#MELT_CALLCOUNT__L14*/
18956                             meltfnum[7] = 0 ;
18957                             /*^clear*/
18958                             /*clear*/ /*_.MELT_DEBUG_FUN__V70*/
18959                             meltfptr[69] = 0 ;
18960                         }
18961                         ;
18962                     }
18963                 else    /*^cond.else*/
18964                     {
18965
18966                         /*_._IF___V69*/ meltfptr[68] =  /*reallynil*/ NULL ;;
18967                     }
18968                 ;
18969
18970                 {
18971                     MELT_LOCATION("warmelt-normal.melt:2378:/ locexp");
18972                     /*void*/
18973                     (void)0;
18974                 }
18975                 ;
18976                 /*^quasiblock*/
18977
18978
18979                 /*epilog*/
18980
18981                 /*^clear*/
18982                 /*clear*/ /*_#MELT_NEED_DBG__L13*/
18983                 meltfnum[1] = 0 ;
18984                 /*^clear*/
18985                 /*clear*/ /*_._IF___V69*/
18986                 meltfptr[68] = 0 ;
18987             }
18988
18989 #else /*MELT_HAVE_DEBUG*/
18990             /*^cppif.else*/
18991             /*^block*/
18992             /*anyblock*/
18993             {
18994
18995
18996                 {
18997                     /*^locexp*/
18998                     /*void*/(void)0;
18999                 }
19000                 ;
19001                 /*epilog*/
19002             }
19003
19004 #endif /*MELT_HAVE_DEBUG*/
19005             ;
19006
19007             MELT_CHECK_SIGNAL();
19008             ;
19009
19010             MELT_LOCATION("warmelt-normal.melt:2364:/ clear");
19011             /*clear*/ /*_.DHKCTYPE__V54*/
19012             meltfptr[36] = 0 ;
19013             /*^clear*/
19014             /*clear*/ /*_.DHKDESCR__V55*/
19015             meltfptr[37] = 0 ;
19016             /*^clear*/
19017             /*clear*/ /*_.DHKINS__V56*/
19018             meltfptr[38] = 0 ;
19019             /*^clear*/
19020             /*clear*/ /*_.DHKNAME__V57*/
19021             meltfptr[40] = 0 ;
19022             /*^clear*/
19023             /*clear*/ /*_.DHKOUTS__V58*/
19024             meltfptr[39] = 0 ;
19025             /*^clear*/
19026             /*clear*/ /*_.IFCPP___V59*/
19027             meltfptr[43] = 0 ;
19028             /*^clear*/
19029             /*clear*/ /*_.GET_SYMBOLSTR__V62*/
19030             meltfptr[47] = 0 ;
19031             /*^clear*/
19032             /*clear*/ /*_.SETQ___V63*/
19033             meltfptr[45] = 0 ;
19034             /*^clear*/
19035             /*clear*/ /*_.SETQ___V64*/
19036             meltfptr[44] = 0 ;
19037             /*^clear*/
19038             /*clear*/ /*_.SETQ___V65*/
19039             meltfptr[64] = 0 ;
19040             /*^clear*/
19041             /*clear*/ /*_.SETQ___V66*/
19042             meltfptr[65] = 0 ;
19043             /*^clear*/
19044             /*clear*/ /*_.SETQ___V67*/
19045             meltfptr[66] = 0 ;
19046             /*^clear*/
19047             /*clear*/ /*_.SETQ___V68*/
19048             meltfptr[67] = 0 ;
19049             /*^objgoto*/
19050             /*objgoto*/
19051             goto mtch1__end /*endmatch*/;
19052             ;
19053
19054             /*objlabel*/
19055 mtch1_5:
19056             ;
19057             MELT_LOCATION("warmelt-normal.melt:2383:/ objlabel");
19058             /* objlabel */
19059 #if MELTDEBUG_MATCHING
19060             static long meltlab_count_6;
19061             meltlab_count_6++;
19062             debugeprintf("objlabel_6 mtch1_*CLASS_NORMTESTER_SUCCESS/239e4f02. *CLASS_OBJLABELINSTR/263bec93. %ld", meltlab_count_6);
19063 #endif
19064
19065             ;
19066             /*^quasiblock*/
19067
19068
19069
19070             MELT_CHECK_SIGNAL();
19071             ;
19072             MELT_LOCATION("warmelt-normal.melt:2384:/ apply");
19073             /*apply*/
19074             {
19075                 union meltparam_un argtab[1];
19076                 memset(&argtab, 0, sizeof(argtab));
19077                 /*^apply.arg*/
19078                 argtab[0].meltbp_cstring =  "invalid hook call";
19079                 /*_.ERROR_AT__V71*/
19080                 meltfptr[69] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
19081             }
19082             ;
19083             MELT_LOCATION("warmelt-normal.melt:2385:/ compute");
19084             /*_#ERRORFLAG__L6*/
19085             meltfnum[0] = /*_#SETQ___L15*/ meltfnum[7] = 1;;
19086
19087 #if MELT_HAVE_DEBUG
19088             MELT_LOCATION("warmelt-normal.melt:2386:/ cppif.then");
19089             /*^block*/
19090             /*anyblock*/
19091             {
19092
19093
19094                 MELT_CHECK_SIGNAL();
19095                 ;
19096                 /*^cond*/
19097                 /*cond*/
19098                 if ((/*nil*/NULL)) /*then*/
19099                     {
19100                         /*^cond.then*/
19101                         /*_._IFELSE___V73*/ meltfptr[36] = (/*nil*/NULL);;
19102                     }
19103                 else
19104                     {
19105                         MELT_LOCATION("warmelt-normal.melt:2386:/ cond.else");
19106
19107                         /*^block*/
19108                         /*anyblock*/
19109                         {
19110
19111
19112                             MELT_CHECK_SIGNAL();
19113                             ;
19114                             /*^apply*/
19115                             /*apply*/
19116                             {
19117                                 union meltparam_un argtab[4];
19118                                 memset(&argtab, 0, sizeof(argtab));
19119                                 /*^apply.arg*/
19120                                 argtab[0].meltbp_cstring =  "@$@unexpected hook, unimplemented";
19121                                 /*^apply.arg*/
19122                                 argtab[1].meltbp_cstring =  "warmelt-normal.melt";
19123                                 /*^apply.arg*/
19124                                 argtab[2].meltbp_long = 2386;
19125                                 /*^apply.arg*/
19126                                 argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SHOOK__V19*/ meltfptr[18];
19127                                 /*_.MELT_ASSERT_FAILURE_FUN__V74*/
19128                                 meltfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
19129                             }
19130                             ;
19131                             /*_._IFELSE___V73*/
19132                             meltfptr[36] = /*_.MELT_ASSERT_FAILURE_FUN__V74*/ meltfptr[37];;
19133                             /*epilog*/
19134
19135                             MELT_LOCATION("warmelt-normal.melt:2386:/ clear");
19136                             /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V74*/
19137                             meltfptr[37] = 0 ;
19138                         }
19139                         ;
19140                     }
19141                 ;
19142                 /*_.IFCPP___V72*/
19143                 meltfptr[68] = /*_._IFELSE___V73*/ meltfptr[36];;
19144                 /*epilog*/
19145
19146                 MELT_LOCATION("warmelt-normal.melt:2386:/ clear");
19147                 /*clear*/ /*_._IFELSE___V73*/
19148                 meltfptr[36] = 0 ;
19149             }
19150
19151 #else /*MELT_HAVE_DEBUG*/
19152             /*^cppif.else*/
19153             /*_.IFCPP___V72*/ meltfptr[68] = (/*nil*/NULL);
19154 #endif /*MELT_HAVE_DEBUG*/
19155             ;
19156
19157             MELT_CHECK_SIGNAL();
19158             ;
19159
19160             MELT_LOCATION("warmelt-normal.melt:2383:/ clear");
19161             /*clear*/ /*_.ERROR_AT__V71*/
19162             meltfptr[69] = 0 ;
19163             /*^clear*/
19164             /*clear*/ /*_#SETQ___L15*/
19165             meltfnum[7] = 0 ;
19166             /*^clear*/
19167             /*clear*/ /*_.IFCPP___V72*/
19168             meltfptr[68] = 0 ;
19169             /*^objgoto*/
19170             /*objgoto*/
19171             goto mtch1__end /*endmatch*/;
19172             ;
19173
19174             /*objlabel*/
19175 mtch1__end:
19176             ;
19177             MELT_LOCATION("warmelt-normal.melt:2349:/ objlabel");
19178             /* objlabel */
19179 #if MELTDEBUG_MATCHING
19180             static long meltlab_count_7;
19181             meltlab_count_7++;
19182             debugeprintf("objlabel_7 mtch1__end_h266890926 *CLASS_OBJLABELINSTR/fe86eae. %ld", meltlab_count_7);
19183 #endif
19184
19185             ;
19186         }
19187         ;
19188
19189 #if MELT_HAVE_DEBUG
19190         MELT_LOCATION("warmelt-normal.melt:2388:/ cppif.then");
19191         /*^block*/
19192         /*anyblock*/
19193         {
19194
19195
19196             MELT_CHECK_SIGNAL();
19197             ;
19198             /*_#IS_STRING__L16*/
19199             meltfnum[1] =
19200                 (melt_magic_discr((melt_ptr_t)(/*_.HKNAME__V21*/ meltfptr[20])) == MELTOBMAG_STRING);;
19201             MELT_LOCATION("warmelt-normal.melt:2388:/ cond");
19202             /*cond*/
19203             if (/*_#IS_STRING__L16*/ meltfnum[1]) /*then*/
19204                 {
19205                     /*^cond.then*/
19206                     /*_._IFELSE___V76*/ meltfptr[40] = (/*nil*/NULL);;
19207                 }
19208             else
19209                 {
19210                     MELT_LOCATION("warmelt-normal.melt:2388:/ cond.else");
19211
19212                     /*^block*/
19213                     /*anyblock*/
19214                     {
19215
19216
19217                         MELT_CHECK_SIGNAL();
19218                         ;
19219                         /*^apply*/
19220                         /*apply*/
19221                         {
19222                             union meltparam_un argtab[4];
19223                             memset(&argtab, 0, sizeof(argtab));
19224                             /*^apply.arg*/
19225                             argtab[0].meltbp_cstring =  "check hkname";
19226                             /*^apply.arg*/
19227                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
19228                             /*^apply.arg*/
19229                             argtab[2].meltbp_long = 2388;
19230                             /*^apply.arg*/
19231                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V21*/ meltfptr[20];
19232                             /*_.MELT_ASSERT_FAILURE_FUN__V77*/
19233                             meltfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
19234                         }
19235                         ;
19236                         /*_._IFELSE___V76*/
19237                         meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V77*/ meltfptr[39];;
19238                         /*epilog*/
19239
19240                         MELT_LOCATION("warmelt-normal.melt:2388:/ clear");
19241                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V77*/
19242                         meltfptr[39] = 0 ;
19243                     }
19244                     ;
19245                 }
19246             ;
19247             /*_.IFCPP___V75*/
19248             meltfptr[38] = /*_._IFELSE___V76*/ meltfptr[40];;
19249             /*epilog*/
19250
19251             MELT_LOCATION("warmelt-normal.melt:2388:/ clear");
19252             /*clear*/ /*_#IS_STRING__L16*/
19253             meltfnum[1] = 0 ;
19254             /*^clear*/
19255             /*clear*/ /*_._IFELSE___V76*/
19256             meltfptr[40] = 0 ;
19257         }
19258
19259 #else /*MELT_HAVE_DEBUG*/
19260         /*^cppif.else*/
19261         /*_.IFCPP___V75*/ meltfptr[38] = (/*nil*/NULL);
19262 #endif /*MELT_HAVE_DEBUG*/
19263         ;
19264
19265 #if MELT_HAVE_DEBUG
19266         MELT_LOCATION("warmelt-normal.melt:2389:/ cppif.then");
19267         /*^block*/
19268         /*anyblock*/
19269         {
19270
19271
19272             MELT_CHECK_SIGNAL();
19273             ;
19274             /*_#IS_MULTIPLE__L17*/
19275             meltfnum[7] =
19276                 (melt_magic_discr((melt_ptr_t)(/*_.HKINS__V23*/ meltfptr[22])) == MELTOBMAG_MULTIPLE);;
19277             MELT_LOCATION("warmelt-normal.melt:2389:/ cond");
19278             /*cond*/
19279             if (/*_#IS_MULTIPLE__L17*/ meltfnum[7]) /*then*/
19280                 {
19281                     /*^cond.then*/
19282                     /*_._IFELSE___V79*/ meltfptr[47] = (/*nil*/NULL);;
19283                 }
19284             else
19285                 {
19286                     MELT_LOCATION("warmelt-normal.melt:2389:/ cond.else");
19287
19288                     /*^block*/
19289                     /*anyblock*/
19290                     {
19291
19292
19293                         MELT_CHECK_SIGNAL();
19294                         ;
19295                         /*^apply*/
19296                         /*apply*/
19297                         {
19298                             union meltparam_un argtab[4];
19299                             memset(&argtab, 0, sizeof(argtab));
19300                             /*^apply.arg*/
19301                             argtab[0].meltbp_cstring =  "check hkins";
19302                             /*^apply.arg*/
19303                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
19304                             /*^apply.arg*/
19305                             argtab[2].meltbp_long = 2389;
19306                             /*^apply.arg*/
19307                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKINS__V23*/ meltfptr[22];
19308                             /*_.MELT_ASSERT_FAILURE_FUN__V80*/
19309                             meltfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
19310                         }
19311                         ;
19312                         /*_._IFELSE___V79*/
19313                         meltfptr[47] = /*_.MELT_ASSERT_FAILURE_FUN__V80*/ meltfptr[45];;
19314                         /*epilog*/
19315
19316                         MELT_LOCATION("warmelt-normal.melt:2389:/ clear");
19317                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V80*/
19318                         meltfptr[45] = 0 ;
19319                     }
19320                     ;
19321                 }
19322             ;
19323             /*_.IFCPP___V78*/
19324             meltfptr[43] = /*_._IFELSE___V79*/ meltfptr[47];;
19325             /*epilog*/
19326
19327             MELT_LOCATION("warmelt-normal.melt:2389:/ clear");
19328             /*clear*/ /*_#IS_MULTIPLE__L17*/
19329             meltfnum[7] = 0 ;
19330             /*^clear*/
19331             /*clear*/ /*_._IFELSE___V79*/
19332             meltfptr[47] = 0 ;
19333         }
19334
19335 #else /*MELT_HAVE_DEBUG*/
19336         /*^cppif.else*/
19337         /*_.IFCPP___V78*/ meltfptr[43] = (/*nil*/NULL);
19338 #endif /*MELT_HAVE_DEBUG*/
19339         ;
19340
19341 #if MELT_HAVE_DEBUG
19342         MELT_LOCATION("warmelt-normal.melt:2390:/ cppif.then");
19343         /*^block*/
19344         /*anyblock*/
19345         {
19346
19347
19348             MELT_CHECK_SIGNAL();
19349             ;
19350             /*_#IS_MULTIPLE__L18*/
19351             meltfnum[1] =
19352                 (melt_magic_discr((melt_ptr_t)(/*_.HKOUTS__V24*/ meltfptr[23])) == MELTOBMAG_MULTIPLE);;
19353             MELT_LOCATION("warmelt-normal.melt:2390:/ cond");
19354             /*cond*/
19355             if (/*_#IS_MULTIPLE__L18*/ meltfnum[1]) /*then*/
19356                 {
19357                     /*^cond.then*/
19358                     /*_._IFELSE___V82*/ meltfptr[64] = (/*nil*/NULL);;
19359                 }
19360             else
19361                 {
19362                     MELT_LOCATION("warmelt-normal.melt:2390:/ cond.else");
19363
19364                     /*^block*/
19365                     /*anyblock*/
19366                     {
19367
19368
19369                         MELT_CHECK_SIGNAL();
19370                         ;
19371                         /*^apply*/
19372                         /*apply*/
19373                         {
19374                             union meltparam_un argtab[4];
19375                             memset(&argtab, 0, sizeof(argtab));
19376                             /*^apply.arg*/
19377                             argtab[0].meltbp_cstring =  "check hkouts";
19378                             /*^apply.arg*/
19379                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
19380                             /*^apply.arg*/
19381                             argtab[2].meltbp_long = 2390;
19382                             /*^apply.arg*/
19383                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKOUTS__V24*/ meltfptr[23];
19384                             /*_.MELT_ASSERT_FAILURE_FUN__V83*/
19385                             meltfptr[65] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
19386                         }
19387                         ;
19388                         /*_._IFELSE___V82*/
19389                         meltfptr[64] = /*_.MELT_ASSERT_FAILURE_FUN__V83*/ meltfptr[65];;
19390                         /*epilog*/
19391
19392                         MELT_LOCATION("warmelt-normal.melt:2390:/ clear");
19393                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V83*/
19394                         meltfptr[65] = 0 ;
19395                     }
19396                     ;
19397                 }
19398             ;
19399             /*_.IFCPP___V81*/
19400             meltfptr[44] = /*_._IFELSE___V82*/ meltfptr[64];;
19401             /*epilog*/
19402
19403             MELT_LOCATION("warmelt-normal.melt:2390:/ clear");
19404             /*clear*/ /*_#IS_MULTIPLE__L18*/
19405             meltfnum[1] = 0 ;
19406             /*^clear*/
19407             /*clear*/ /*_._IFELSE___V82*/
19408             meltfptr[64] = 0 ;
19409         }
19410
19411 #else /*MELT_HAVE_DEBUG*/
19412         /*^cppif.else*/
19413         /*_.IFCPP___V81*/ meltfptr[44] = (/*nil*/NULL);
19414 #endif /*MELT_HAVE_DEBUG*/
19415         ;
19416
19417 #if MELT_HAVE_DEBUG
19418         MELT_LOCATION("warmelt-normal.melt:2391:/ cppif.then");
19419         /*^block*/
19420         /*anyblock*/
19421         {
19422
19423
19424             MELT_CHECK_SIGNAL();
19425             ;
19426             /*_#IS_A__L19*/
19427             meltfnum[7] =
19428                 melt_is_instance_of((melt_ptr_t)(/*_.HKCTYPE__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[12])));;
19429             MELT_LOCATION("warmelt-normal.melt:2391:/ cond");
19430             /*cond*/
19431             if (/*_#IS_A__L19*/ meltfnum[7]) /*then*/
19432                 {
19433                     /*^cond.then*/
19434                     /*_._IFELSE___V85*/ meltfptr[67] = (/*nil*/NULL);;
19435                 }
19436             else
19437                 {
19438                     MELT_LOCATION("warmelt-normal.melt:2391:/ cond.else");
19439
19440                     /*^block*/
19441                     /*anyblock*/
19442                     {
19443
19444
19445                         MELT_CHECK_SIGNAL();
19446                         ;
19447                         /*^apply*/
19448                         /*apply*/
19449                         {
19450                             union meltparam_un argtab[4];
19451                             memset(&argtab, 0, sizeof(argtab));
19452                             /*^apply.arg*/
19453                             argtab[0].meltbp_cstring =  "check hkctype";
19454                             /*^apply.arg*/
19455                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
19456                             /*^apply.arg*/
19457                             argtab[2].meltbp_long = 2391;
19458                             /*^apply.arg*/
19459                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKCTYPE__V25*/ meltfptr[24];
19460                             /*_.MELT_ASSERT_FAILURE_FUN__V86*/
19461                             meltfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
19462                         }
19463                         ;
19464                         /*_._IFELSE___V85*/
19465                         meltfptr[67] = /*_.MELT_ASSERT_FAILURE_FUN__V86*/ meltfptr[37];;
19466                         /*epilog*/
19467
19468                         MELT_LOCATION("warmelt-normal.melt:2391:/ clear");
19469                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V86*/
19470                         meltfptr[37] = 0 ;
19471                     }
19472                     ;
19473                 }
19474             ;
19475             /*_.IFCPP___V84*/
19476             meltfptr[66] = /*_._IFELSE___V85*/ meltfptr[67];;
19477             /*epilog*/
19478
19479             MELT_LOCATION("warmelt-normal.melt:2391:/ clear");
19480             /*clear*/ /*_#IS_A__L19*/
19481             meltfnum[7] = 0 ;
19482             /*^clear*/
19483             /*clear*/ /*_._IFELSE___V85*/
19484             meltfptr[67] = 0 ;
19485         }
19486
19487 #else /*MELT_HAVE_DEBUG*/
19488         /*^cppif.else*/
19489         /*_.IFCPP___V84*/ meltfptr[66] = (/*nil*/NULL);
19490 #endif /*MELT_HAVE_DEBUG*/
19491         ;
19492
19493 #if MELT_HAVE_DEBUG
19494         MELT_LOCATION("warmelt-normal.melt:2392:/ cppif.then");
19495         /*^block*/
19496         /*anyblock*/
19497         {
19498
19499
19500             {
19501                 /*^locexp*/
19502                 /*melt_increment_dbgcounter*/
19503 #if MELT_HAVE_DEBUG
19504                 melt_dbgcounter++;
19505 #endif
19506                 ;
19507             }
19508             ;
19509
19510             MELT_CHECK_SIGNAL();
19511             ;
19512             /*_#MELT_NEED_DBG__L20*/
19513             meltfnum[1] =
19514                 /*MELT_NEED_DBG*/
19515 #if MELT_HAVE_DEBUG
19516                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
19517 #else
19518                 0 /* no melt_need_dbg */
19519 #endif /*MELT_HAVE_DEBUG*/
19520                 ;;
19521             MELT_LOCATION("warmelt-normal.melt:2392:/ cond");
19522             /*cond*/
19523             if (/*_#MELT_NEED_DBG__L20*/ meltfnum[1]) /*then*/
19524                 {
19525                     /*^cond.then*/
19526                     /*^block*/
19527                     /*anyblock*/
19528                     {
19529
19530                         /*_#MELT_CALLCOUNT__L21*/ meltfnum[7] =
19531                             /* for melt_callcount */
19532 #if MELT_HAVE_DEBUG && defined (meltcallcount)
19533                             meltcallcount  /* melt_callcount debugging */
19534 #else
19535                             0L  /* melt_callcount without debug */
19536 #endif /* MELT_HAVE_DEBUG melt_callcount */
19537                             ;;
19538
19539                         MELT_CHECK_SIGNAL();
19540                         ;
19541                         MELT_LOCATION("warmelt-normal.melt:2392:/ apply");
19542                         /*apply*/
19543                         {
19544                             union meltparam_un argtab[13];
19545                             memset(&argtab, 0, sizeof(argtab));
19546                             /*^apply.arg*/
19547                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L21*/ meltfnum[7];
19548                             /*^apply.arg*/
19549                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
19550                             /*^apply.arg*/
19551                             argtab[2].meltbp_long = 2392;
19552                             /*^apply.arg*/
19553                             argtab[3].meltbp_cstring =  "normexp_hook_call hkname=";
19554                             /*^apply.arg*/
19555                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V21*/ meltfptr[20];
19556                             /*^apply.arg*/
19557                             argtab[5].meltbp_cstring =  " hksymb=";
19558                             /*^apply.arg*/
19559                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.HKSYMB__V22*/ meltfptr[21];
19560                             /*^apply.arg*/
19561                             argtab[7].meltbp_cstring =  "\n.. hkins=";
19562                             /*^apply.arg*/
19563                             argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.HKINS__V23*/ meltfptr[22];
19564                             /*^apply.arg*/
19565                             argtab[9].meltbp_cstring =  "\n.. hkouts=";
19566                             /*^apply.arg*/
19567                             argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.HKOUTS__V24*/ meltfptr[23];
19568                             /*^apply.arg*/
19569                             argtab[11].meltbp_cstring =  "\n.. hkctype=";
19570                             /*^apply.arg*/
19571                             argtab[12].meltbp_aptr = (melt_ptr_t*) &/*_.HKCTYPE__V25*/ meltfptr[24];
19572                             /*_.MELT_DEBUG_FUN__V88*/
19573                             meltfptr[69] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
19574                         }
19575                         ;
19576                         /*_._IF___V87*/
19577                         meltfptr[36] = /*_.MELT_DEBUG_FUN__V88*/ meltfptr[69];;
19578                         /*epilog*/
19579
19580                         MELT_LOCATION("warmelt-normal.melt:2392:/ clear");
19581                         /*clear*/ /*_#MELT_CALLCOUNT__L21*/
19582                         meltfnum[7] = 0 ;
19583                         /*^clear*/
19584                         /*clear*/ /*_.MELT_DEBUG_FUN__V88*/
19585                         meltfptr[69] = 0 ;
19586                     }
19587                     ;
19588                 }
19589             else    /*^cond.else*/
19590                 {
19591
19592                     /*_._IF___V87*/ meltfptr[36] =  /*reallynil*/ NULL ;;
19593                 }
19594             ;
19595
19596             {
19597                 MELT_LOCATION("warmelt-normal.melt:2392:/ locexp");
19598                 /*void*/
19599                 (void)0;
19600             }
19601             ;
19602             /*^quasiblock*/
19603
19604
19605             /*epilog*/
19606
19607             /*^clear*/
19608             /*clear*/ /*_#MELT_NEED_DBG__L20*/
19609             meltfnum[1] = 0 ;
19610             /*^clear*/
19611             /*clear*/ /*_._IF___V87*/
19612             meltfptr[36] = 0 ;
19613         }
19614
19615 #else /*MELT_HAVE_DEBUG*/
19616         /*^cppif.else*/
19617         /*^block*/
19618         /*anyblock*/
19619         {
19620
19621
19622             {
19623                 /*^locexp*/
19624                 /*void*/(void)0;
19625             }
19626             ;
19627             /*epilog*/
19628         }
19629
19630 #endif /*MELT_HAVE_DEBUG*/
19631         ;
19632
19633 #if MELT_HAVE_DEBUG
19634         MELT_LOCATION("warmelt-normal.melt:2395:/ cppif.then");
19635         /*^block*/
19636         /*anyblock*/
19637         {
19638
19639
19640             MELT_CHECK_SIGNAL();
19641             ;
19642             /*_#IS_A__L22*/
19643             meltfnum[7] =
19644                 melt_is_instance_of((melt_ptr_t)(/*_.HKCTYPE__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[12])));;
19645             MELT_LOCATION("warmelt-normal.melt:2395:/ cond");
19646             /*cond*/
19647             if (/*_#IS_A__L22*/ meltfnum[7]) /*then*/
19648                 {
19649                     /*^cond.then*/
19650                     /*_._IFELSE___V90*/ meltfptr[39] = (/*nil*/NULL);;
19651                 }
19652             else
19653                 {
19654                     MELT_LOCATION("warmelt-normal.melt:2395:/ cond.else");
19655
19656                     /*^block*/
19657                     /*anyblock*/
19658                     {
19659
19660
19661                         MELT_CHECK_SIGNAL();
19662                         ;
19663                         /*^apply*/
19664                         /*apply*/
19665                         {
19666                             union meltparam_un argtab[4];
19667                             memset(&argtab, 0, sizeof(argtab));
19668                             /*^apply.arg*/
19669                             argtab[0].meltbp_cstring =  "check hkctype";
19670                             /*^apply.arg*/
19671                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
19672                             /*^apply.arg*/
19673                             argtab[2].meltbp_long = 2395;
19674                             /*^apply.arg*/
19675                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKCTYPE__V25*/ meltfptr[24];
19676                             /*_.MELT_ASSERT_FAILURE_FUN__V91*/
19677                             meltfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
19678                         }
19679                         ;
19680                         /*_._IFELSE___V90*/
19681                         meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V91*/ meltfptr[40];;
19682                         /*epilog*/
19683
19684                         MELT_LOCATION("warmelt-normal.melt:2395:/ clear");
19685                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V91*/
19686                         meltfptr[40] = 0 ;
19687                     }
19688                     ;
19689                 }
19690             ;
19691             /*_.IFCPP___V89*/
19692             meltfptr[68] = /*_._IFELSE___V90*/ meltfptr[39];;
19693             /*epilog*/
19694
19695             MELT_LOCATION("warmelt-normal.melt:2395:/ clear");
19696             /*clear*/ /*_#IS_A__L22*/
19697             meltfnum[7] = 0 ;
19698             /*^clear*/
19699             /*clear*/ /*_._IFELSE___V90*/
19700             meltfptr[39] = 0 ;
19701         }
19702
19703 #else /*MELT_HAVE_DEBUG*/
19704         /*^cppif.else*/
19705         /*_.IFCPP___V89*/ meltfptr[68] = (/*nil*/NULL);
19706 #endif /*MELT_HAVE_DEBUG*/
19707         ;
19708         MELT_LOCATION("warmelt-normal.melt:2396:/ quasiblock");
19709
19710
19711         /*_#NBINS__L23*/
19712         meltfnum[1] =
19713             (melt_multiple_length((melt_ptr_t)(/*_.HKINS__V23*/ meltfptr[22])));;
19714         /*^compute*/
19715         /*_#NBOUTS__L24*/
19716         meltfnum[7] =
19717             (melt_multiple_length((melt_ptr_t)(/*_.HKOUTS__V24*/ meltfptr[23])));;
19718         MELT_LOCATION("warmelt-normal.melt:2398:/ cond");
19719         /*cond*/
19720         if (
19721             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.HKNAME__V21*/ meltfptr[20]),
19722                                           (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8])))
19723         ) /*then*/
19724             {
19725                 /*^cond.then*/
19726                 /*^getslot*/
19727                 {
19728                     melt_ptr_t slot=NULL, obj=NULL;
19729                     obj = (melt_ptr_t)(/*_.HKNAME__V21*/ meltfptr[20]) /*=obj*/;
19730                     melt_object_get_field(slot,obj, 1, "NAMED_NAME");
19731                     /*_.HNAMESTR__V93*/
19732                     meltfptr[47] = slot;
19733                 };
19734                 ;
19735             }
19736         else    /*^cond.else*/
19737             {
19738
19739                 /*_.HNAMESTR__V93*/ meltfptr[47] =  /*reallynil*/ NULL ;;
19740             }
19741         ;
19742         /*^compute*/
19743         /*_.SINS__V94*/
19744         meltfptr[65] =
19745             (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[13])), (/*_#NBINS__L23*/ meltfnum[1])));;
19746         /*^compute*/
19747         /*_.SOUTS__V95*/
19748         meltfptr[64] =
19749             (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[13])), (/*_#NBOUTS__L24*/ meltfnum[7])));;
19750         /*^compute*/
19751         /*_.NOUTS__V96*/
19752         meltfptr[37] =
19753             (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[13])), (/*_#NBOUTS__L24*/ meltfnum[7])));;
19754
19755         MELT_CHECK_SIGNAL();
19756         ;
19757         MELT_LOCATION("warmelt-normal.melt:2402:/ apply");
19758         /*apply*/
19759         {
19760             union meltparam_un argtab[1];
19761             memset(&argtab, 0, sizeof(argtab));
19762             /*^apply.arg*/
19763             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.HKSYMB__V22*/ meltfptr[21];
19764             /*_.HKBIND__V97*/
19765             meltfptr[67] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
19766         }
19767         ;
19768
19769 #if MELT_HAVE_DEBUG
19770         MELT_LOCATION("warmelt-normal.melt:2404:/ cppif.then");
19771         /*^block*/
19772         /*anyblock*/
19773         {
19774
19775
19776             {
19777                 /*^locexp*/
19778                 /*melt_increment_dbgcounter*/
19779 #if MELT_HAVE_DEBUG
19780                 melt_dbgcounter++;
19781 #endif
19782                 ;
19783             }
19784             ;
19785
19786             MELT_CHECK_SIGNAL();
19787             ;
19788             /*_#MELT_NEED_DBG__L25*/
19789             meltfnum[24] =
19790                 /*MELT_NEED_DBG*/
19791 #if MELT_HAVE_DEBUG
19792                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
19793 #else
19794                 0 /* no melt_need_dbg */
19795 #endif /*MELT_HAVE_DEBUG*/
19796                 ;;
19797             MELT_LOCATION("warmelt-normal.melt:2404:/ cond");
19798             /*cond*/
19799             if (/*_#MELT_NEED_DBG__L25*/ meltfnum[24]) /*then*/
19800                 {
19801                     /*^cond.then*/
19802                     /*^block*/
19803                     /*anyblock*/
19804                     {
19805
19806                         /*_#MELT_CALLCOUNT__L26*/ meltfnum[25] =
19807                             /* for melt_callcount */
19808 #if MELT_HAVE_DEBUG && defined (meltcallcount)
19809                             meltcallcount  /* melt_callcount debugging */
19810 #else
19811                             0L  /* melt_callcount without debug */
19812 #endif /* MELT_HAVE_DEBUG melt_callcount */
19813                             ;;
19814
19815                         MELT_CHECK_SIGNAL();
19816                         ;
19817                         MELT_LOCATION("warmelt-normal.melt:2404:/ apply");
19818                         /*apply*/
19819                         {
19820                             union meltparam_un argtab[7];
19821                             memset(&argtab, 0, sizeof(argtab));
19822                             /*^apply.arg*/
19823                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L26*/ meltfnum[25];
19824                             /*^apply.arg*/
19825                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
19826                             /*^apply.arg*/
19827                             argtab[2].meltbp_long = 2404;
19828                             /*^apply.arg*/
19829                             argtab[3].meltbp_cstring =  "normexp_hook_call hkbind=";
19830                             /*^apply.arg*/
19831                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.HKBIND__V97*/ meltfptr[67];
19832                             /*^apply.arg*/
19833                             argtab[5].meltbp_cstring =  "\n hksymb=";
19834                             /*^apply.arg*/
19835                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.HKSYMB__V22*/ meltfptr[21];
19836                             /*_.MELT_DEBUG_FUN__V99*/
19837                             meltfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
19838                         }
19839                         ;
19840                         /*_._IF___V98*/
19841                         meltfptr[69] = /*_.MELT_DEBUG_FUN__V99*/ meltfptr[36];;
19842                         /*epilog*/
19843
19844                         MELT_LOCATION("warmelt-normal.melt:2404:/ clear");
19845                         /*clear*/ /*_#MELT_CALLCOUNT__L26*/
19846                         meltfnum[25] = 0 ;
19847                         /*^clear*/
19848                         /*clear*/ /*_.MELT_DEBUG_FUN__V99*/
19849                         meltfptr[36] = 0 ;
19850                     }
19851                     ;
19852                 }
19853             else    /*^cond.else*/
19854                 {
19855
19856                     /*_._IF___V98*/ meltfptr[69] =  /*reallynil*/ NULL ;;
19857                 }
19858             ;
19859
19860             {
19861                 MELT_LOCATION("warmelt-normal.melt:2404:/ locexp");
19862                 /*void*/
19863                 (void)0;
19864             }
19865             ;
19866             /*^quasiblock*/
19867
19868
19869             /*epilog*/
19870
19871             /*^clear*/
19872             /*clear*/ /*_#MELT_NEED_DBG__L25*/
19873             meltfnum[24] = 0 ;
19874             /*^clear*/
19875             /*clear*/ /*_._IF___V98*/
19876             meltfptr[69] = 0 ;
19877         }
19878
19879 #else /*MELT_HAVE_DEBUG*/
19880         /*^cppif.else*/
19881         /*^block*/
19882         /*anyblock*/
19883         {
19884
19885
19886             {
19887                 /*^locexp*/
19888                 /*void*/(void)0;
19889             }
19890             ;
19891             /*epilog*/
19892         }
19893
19894 #endif /*MELT_HAVE_DEBUG*/
19895         ;
19896
19897 #if MELT_HAVE_DEBUG
19898         MELT_LOCATION("warmelt-normal.melt:2405:/ cppif.then");
19899         /*^block*/
19900         /*anyblock*/
19901         {
19902
19903
19904             MELT_CHECK_SIGNAL();
19905             ;
19906             /*_#IS_OBJECT__L27*/
19907             meltfnum[25] =
19908                 (melt_magic_discr((melt_ptr_t)(/*_.HKBIND__V97*/ meltfptr[67])) == MELTOBMAG_OBJECT);;
19909             MELT_LOCATION("warmelt-normal.melt:2405:/ cond");
19910             /*cond*/
19911             if (/*_#IS_OBJECT__L27*/ meltfnum[25]) /*then*/
19912                 {
19913                     /*^cond.then*/
19914                     /*_._IFELSE___V101*/ meltfptr[39] = (/*nil*/NULL);;
19915                 }
19916             else
19917                 {
19918                     MELT_LOCATION("warmelt-normal.melt:2405:/ cond.else");
19919
19920                     /*^block*/
19921                     /*anyblock*/
19922                     {
19923
19924
19925                         MELT_CHECK_SIGNAL();
19926                         ;
19927                         /*^apply*/
19928                         /*apply*/
19929                         {
19930                             union meltparam_un argtab[4];
19931                             memset(&argtab, 0, sizeof(argtab));
19932                             /*^apply.arg*/
19933                             argtab[0].meltbp_cstring =  "check hkbind";
19934                             /*^apply.arg*/
19935                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
19936                             /*^apply.arg*/
19937                             argtab[2].meltbp_long = 2405;
19938                             /*^apply.arg*/
19939                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKBIND__V97*/ meltfptr[67];
19940                             /*_.MELT_ASSERT_FAILURE_FUN__V102*/
19941                             meltfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
19942                         }
19943                         ;
19944                         /*_._IFELSE___V101*/
19945                         meltfptr[39] = /*_.MELT_ASSERT_FAILURE_FUN__V102*/ meltfptr[36];;
19946                         /*epilog*/
19947
19948                         MELT_LOCATION("warmelt-normal.melt:2405:/ clear");
19949                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V102*/
19950                         meltfptr[36] = 0 ;
19951                     }
19952                     ;
19953                 }
19954             ;
19955             /*_.IFCPP___V100*/
19956             meltfptr[40] = /*_._IFELSE___V101*/ meltfptr[39];;
19957             /*epilog*/
19958
19959             MELT_LOCATION("warmelt-normal.melt:2405:/ clear");
19960             /*clear*/ /*_#IS_OBJECT__L27*/
19961             meltfnum[25] = 0 ;
19962             /*^clear*/
19963             /*clear*/ /*_._IFELSE___V101*/
19964             meltfptr[39] = 0 ;
19965         }
19966
19967 #else /*MELT_HAVE_DEBUG*/
19968         /*^cppif.else*/
19969         /*_.IFCPP___V100*/ meltfptr[40] = (/*nil*/NULL);
19970 #endif /*MELT_HAVE_DEBUG*/
19971         ;
19972
19973         MELT_CHECK_SIGNAL();
19974         ;
19975         /*^compute*/
19976         /*_#MULTIPLE_LENGTH__L28*/
19977         meltfnum[24] =
19978             (melt_multiple_length((melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19])));;
19979         /*^compute*/
19980         /*_#plI__L29*/
19981         meltfnum[25] =
19982             ((/*_#NBINS__L23*/ meltfnum[1]) + (/*_#NBOUTS__L24*/ meltfnum[7]));;
19983         /*^compute*/
19984         /*_#exeqI__L30*/
19985         meltfnum[29] =
19986             ((/*_#MULTIPLE_LENGTH__L28*/ meltfnum[24]) != (/*_#plI__L29*/ meltfnum[25]));;
19987         MELT_LOCATION("warmelt-normal.melt:2406:/ cond");
19988         /*cond*/
19989         if (/*_#exeqI__L30*/ meltfnum[29]) /*then*/
19990             {
19991                 /*^cond.then*/
19992                 /*^block*/
19993                 /*anyblock*/
19994                 {
19995
19996                     /*_#MULTIPLE_LENGTH__L31*/ meltfnum[30] =
19997                         (melt_multiple_length((melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19])));;
19998
19999                     MELT_CHECK_SIGNAL();
20000                     ;
20001                     MELT_LOCATION("warmelt-normal.melt:2407:/ apply");
20002                     /*apply*/
20003                     {
20004                         union meltparam_un argtab[5];
20005                         memset(&argtab, 0, sizeof(argtab));
20006                         /*^apply.arg*/
20007                         argtab[0].meltbp_cstring =  "invalid operand arity $1 for hook call \'$2\' wanting #$3 inputs and\
20008  #$4 outputs";
20009                         /*^apply.arg*/
20010                         argtab[1].meltbp_long = /*_#MULTIPLE_LENGTH__L31*/ meltfnum[30];
20011                         /*^apply.arg*/
20012                         argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.HNAMESTR__V93*/ meltfptr[47];
20013                         /*^apply.arg*/
20014                         argtab[3].meltbp_long = /*_#NBINS__L23*/ meltfnum[1];
20015                         /*^apply.arg*/
20016                         argtab[4].meltbp_long = /*_#NBOUTS__L24*/ meltfnum[7];
20017                         /*_.ERROR_AT__V104*/
20018                         meltfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
20019                     }
20020                     ;
20021
20022                     MELT_CHECK_SIGNAL();
20023                     ;
20024                     MELT_LOCATION("warmelt-normal.melt:2409:/ quasiblock");
20025
20026
20027                     /*_._RETVAL___V1*/
20028                     meltfptr[0] = (/*nil*/NULL);;
20029                     MELT_LOCATION("warmelt-normal.melt:2409:/ putxtraresult");
20030                     if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
20031                     if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
20032                     if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*nil*/NULL));
20033                     ;
20034                     /*^finalreturn*/
20035                     ;
20036                     /*finalret*/
20037                     goto meltlabend_rout ;
20038                     MELT_LOCATION("warmelt-normal.melt:2406:/ quasiblock");
20039
20040
20041                     /*_.PROGN___V106*/
20042                     meltfptr[105] = /*_.RETURN___V105*/ meltfptr[39];;
20043                     /*^compute*/
20044                     /*_._IF___V103*/
20045                     meltfptr[69] = /*_.PROGN___V106*/ meltfptr[105];;
20046                     /*epilog*/
20047
20048                     MELT_LOCATION("warmelt-normal.melt:2406:/ clear");
20049                     /*clear*/ /*_#MULTIPLE_LENGTH__L31*/
20050                     meltfnum[30] = 0 ;
20051                     /*^clear*/
20052                     /*clear*/ /*_.ERROR_AT__V104*/
20053                     meltfptr[36] = 0 ;
20054                     /*^clear*/
20055                     /*clear*/ /*_.RETURN___V105*/
20056                     meltfptr[39] = 0 ;
20057                     /*^clear*/
20058                     /*clear*/ /*_.PROGN___V106*/
20059                     meltfptr[105] = 0 ;
20060                 }
20061                 ;
20062             }
20063         else    /*^cond.else*/
20064             {
20065
20066                 /*_._IF___V103*/ meltfptr[69] =  /*reallynil*/ NULL ;;
20067             }
20068         ;
20069         /*^compute*/
20070         /*_#miI__L32*/
20071         meltfnum[30] =
20072             ((/*_#NBINS__L23*/ meltfnum[1]) - (1));;
20073         /*citerblock FOREACH_LONG_UPTO*/
20074         {
20075             /* foreach_long_upto start meltcit1__EACHLONG */
20076             long meltcit1__EACHLONG_min =  0;
20077             long meltcit1__EACHLONG_max = /*_#miI__L32*/ meltfnum[30];
20078             long meltcit1__EACHLONG_cur = 0;
20079             for (meltcit1__EACHLONG_cur = meltcit1__EACHLONG_min;
20080                     meltcit1__EACHLONG_cur <= meltcit1__EACHLONG_max;
20081                     meltcit1__EACHLONG_cur ++)
20082                 {
20083                     /*_#INIX__L33*/ meltfnum[32] = meltcit1__EACHLONG_cur;
20084
20085
20086
20087                     /*_.MULTIPLE_NTH__V107*/
20088                     meltfptr[36] =
20089                         (melt_multiple_nth((melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19]), (/*_#INIX__L33*/ meltfnum[32])));;
20090
20091                     {
20092                         MELT_LOCATION("warmelt-normal.melt:2414:/ locexp");
20093                         meltgc_multiple_put_nth((melt_ptr_t)(/*_.SINS__V94*/ meltfptr[65]), (/*_#INIX__L33*/ meltfnum[32]), (melt_ptr_t)(/*_.MULTIPLE_NTH__V107*/ meltfptr[36]));
20094                     }
20095                     ;
20096                 } /*end foreach_long_upto meltcit1__EACHLONG */
20097
20098             /*citerepilog*/
20099
20100             MELT_LOCATION("warmelt-normal.melt:2411:/ clear");
20101             /*clear*/ /*_#INIX__L33*/
20102             meltfnum[32] = 0 ;
20103             /*^clear*/
20104             /*clear*/ /*_.MULTIPLE_NTH__V107*/
20105             meltfptr[36] = 0 ;
20106         } /*endciterblock FOREACH_LONG_UPTO*/
20107         ;
20108
20109 #if MELT_HAVE_DEBUG
20110         MELT_LOCATION("warmelt-normal.melt:2416:/ cppif.then");
20111         /*^block*/
20112         /*anyblock*/
20113         {
20114
20115
20116             {
20117                 /*^locexp*/
20118                 /*melt_increment_dbgcounter*/
20119 #if MELT_HAVE_DEBUG
20120                 melt_dbgcounter++;
20121 #endif
20122                 ;
20123             }
20124             ;
20125
20126             MELT_CHECK_SIGNAL();
20127             ;
20128             /*_#MELT_NEED_DBG__L34*/
20129             meltfnum[33] =
20130                 /*MELT_NEED_DBG*/
20131 #if MELT_HAVE_DEBUG
20132                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
20133 #else
20134                 0 /* no melt_need_dbg */
20135 #endif /*MELT_HAVE_DEBUG*/
20136                 ;;
20137             MELT_LOCATION("warmelt-normal.melt:2416:/ cond");
20138             /*cond*/
20139             if (/*_#MELT_NEED_DBG__L34*/ meltfnum[33]) /*then*/
20140                 {
20141                     /*^cond.then*/
20142                     /*^block*/
20143                     /*anyblock*/
20144                     {
20145
20146                         /*_#MELT_CALLCOUNT__L35*/ meltfnum[34] =
20147                             /* for melt_callcount */
20148 #if MELT_HAVE_DEBUG && defined (meltcallcount)
20149                             meltcallcount  /* melt_callcount debugging */
20150 #else
20151                             0L  /* melt_callcount without debug */
20152 #endif /* MELT_HAVE_DEBUG melt_callcount */
20153                             ;;
20154
20155                         MELT_CHECK_SIGNAL();
20156                         ;
20157                         MELT_LOCATION("warmelt-normal.melt:2416:/ apply");
20158                         /*apply*/
20159                         {
20160                             union meltparam_un argtab[5];
20161                             memset(&argtab, 0, sizeof(argtab));
20162                             /*^apply.arg*/
20163                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L35*/ meltfnum[34];
20164                             /*^apply.arg*/
20165                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
20166                             /*^apply.arg*/
20167                             argtab[2].meltbp_long = 2416;
20168                             /*^apply.arg*/
20169                             argtab[3].meltbp_cstring =  "normexp_hook_call sins=";
20170                             /*^apply.arg*/
20171                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SINS__V94*/ meltfptr[65];
20172                             /*_.MELT_DEBUG_FUN__V109*/
20173                             meltfptr[105] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
20174                         }
20175                         ;
20176                         /*_._IF___V108*/
20177                         meltfptr[39] = /*_.MELT_DEBUG_FUN__V109*/ meltfptr[105];;
20178                         /*epilog*/
20179
20180                         MELT_LOCATION("warmelt-normal.melt:2416:/ clear");
20181                         /*clear*/ /*_#MELT_CALLCOUNT__L35*/
20182                         meltfnum[34] = 0 ;
20183                         /*^clear*/
20184                         /*clear*/ /*_.MELT_DEBUG_FUN__V109*/
20185                         meltfptr[105] = 0 ;
20186                     }
20187                     ;
20188                 }
20189             else    /*^cond.else*/
20190                 {
20191
20192                     /*_._IF___V108*/ meltfptr[39] =  /*reallynil*/ NULL ;;
20193                 }
20194             ;
20195
20196             {
20197                 MELT_LOCATION("warmelt-normal.melt:2416:/ locexp");
20198                 /*void*/
20199                 (void)0;
20200             }
20201             ;
20202             /*^quasiblock*/
20203
20204
20205             /*epilog*/
20206
20207             /*^clear*/
20208             /*clear*/ /*_#MELT_NEED_DBG__L34*/
20209             meltfnum[33] = 0 ;
20210             /*^clear*/
20211             /*clear*/ /*_._IF___V108*/
20212             meltfptr[39] = 0 ;
20213         }
20214
20215 #else /*MELT_HAVE_DEBUG*/
20216         /*^cppif.else*/
20217         /*^block*/
20218         /*anyblock*/
20219         {
20220
20221
20222             {
20223                 /*^locexp*/
20224                 /*void*/(void)0;
20225             }
20226             ;
20227             /*epilog*/
20228         }
20229
20230 #endif /*MELT_HAVE_DEBUG*/
20231         ;
20232
20233         MELT_CHECK_SIGNAL();
20234         ;
20235         MELT_LOCATION("warmelt-normal.melt:2417:/ quasiblock");
20236
20237
20238         /*^multiapply*/
20239         /*multiapply 4args, 1x.res*/
20240         {
20241             union meltparam_un argtab[3];
20242
20243             union meltparam_un restab[1];
20244             memset(&restab, 0, sizeof(restab));
20245             memset(&argtab, 0, sizeof(argtab));
20246             /*^multiapply.arg*/
20247             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multiapply.arg*/
20248             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multiapply.arg*/
20249             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
20250             /*^multiapply.xres*/
20251             restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NINBINDS__V112*/ meltfptr[111];
20252             /*^multiapply.appl*/
20253             /*_.NINARGS__V111*/
20254             meltfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.SINS__V94*/ meltfptr[65]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
20255         }
20256         ;
20257         /*^quasiblock*/
20258
20259
20260
20261 #if MELT_HAVE_DEBUG
20262         MELT_LOCATION("warmelt-normal.melt:2420:/ cppif.then");
20263         /*^block*/
20264         /*anyblock*/
20265         {
20266
20267
20268             {
20269                 /*^locexp*/
20270                 /*melt_increment_dbgcounter*/
20271 #if MELT_HAVE_DEBUG
20272                 melt_dbgcounter++;
20273 #endif
20274                 ;
20275             }
20276             ;
20277
20278             MELT_CHECK_SIGNAL();
20279             ;
20280             /*_#MELT_NEED_DBG__L36*/
20281             meltfnum[34] =
20282                 /*MELT_NEED_DBG*/
20283 #if MELT_HAVE_DEBUG
20284                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
20285 #else
20286                 0 /* no melt_need_dbg */
20287 #endif /*MELT_HAVE_DEBUG*/
20288                 ;;
20289             MELT_LOCATION("warmelt-normal.melt:2420:/ cond");
20290             /*cond*/
20291             if (/*_#MELT_NEED_DBG__L36*/ meltfnum[34]) /*then*/
20292                 {
20293                     /*^cond.then*/
20294                     /*^block*/
20295                     /*anyblock*/
20296                     {
20297
20298                         /*_#MELT_CALLCOUNT__L37*/ meltfnum[33] =
20299                             /* for melt_callcount */
20300 #if MELT_HAVE_DEBUG && defined (meltcallcount)
20301                             meltcallcount  /* melt_callcount debugging */
20302 #else
20303                             0L  /* melt_callcount without debug */
20304 #endif /* MELT_HAVE_DEBUG melt_callcount */
20305                             ;;
20306
20307                         MELT_CHECK_SIGNAL();
20308                         ;
20309                         MELT_LOCATION("warmelt-normal.melt:2420:/ apply");
20310                         /*apply*/
20311                         {
20312                             union meltparam_un argtab[7];
20313                             memset(&argtab, 0, sizeof(argtab));
20314                             /*^apply.arg*/
20315                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L37*/ meltfnum[33];
20316                             /*^apply.arg*/
20317                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
20318                             /*^apply.arg*/
20319                             argtab[2].meltbp_long = 2420;
20320                             /*^apply.arg*/
20321                             argtab[3].meltbp_cstring =  "normexp_hook_call ninargs=";
20322                             /*^apply.arg*/
20323                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NINARGS__V111*/ meltfptr[39];
20324                             /*^apply.arg*/
20325                             argtab[5].meltbp_cstring =  " ninbinds=";
20326                             /*^apply.arg*/
20327                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NINBINDS__V112*/ meltfptr[111];
20328                             /*_.MELT_DEBUG_FUN__V114*/
20329                             meltfptr[113] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
20330                         }
20331                         ;
20332                         /*_._IF___V113*/
20333                         meltfptr[112] = /*_.MELT_DEBUG_FUN__V114*/ meltfptr[113];;
20334                         /*epilog*/
20335
20336                         MELT_LOCATION("warmelt-normal.melt:2420:/ clear");
20337                         /*clear*/ /*_#MELT_CALLCOUNT__L37*/
20338                         meltfnum[33] = 0 ;
20339                         /*^clear*/
20340                         /*clear*/ /*_.MELT_DEBUG_FUN__V114*/
20341                         meltfptr[113] = 0 ;
20342                     }
20343                     ;
20344                 }
20345             else    /*^cond.else*/
20346                 {
20347
20348                     /*_._IF___V113*/ meltfptr[112] =  /*reallynil*/ NULL ;;
20349                 }
20350             ;
20351
20352             {
20353                 MELT_LOCATION("warmelt-normal.melt:2420:/ locexp");
20354                 /*void*/
20355                 (void)0;
20356             }
20357             ;
20358             /*^quasiblock*/
20359
20360
20361             /*epilog*/
20362
20363             /*^clear*/
20364             /*clear*/ /*_#MELT_NEED_DBG__L36*/
20365             meltfnum[34] = 0 ;
20366             /*^clear*/
20367             /*clear*/ /*_._IF___V113*/
20368             meltfptr[112] = 0 ;
20369         }
20370
20371 #else /*MELT_HAVE_DEBUG*/
20372         /*^cppif.else*/
20373         /*^block*/
20374         /*anyblock*/
20375         {
20376
20377
20378             {
20379                 /*^locexp*/
20380                 /*void*/(void)0;
20381             }
20382             ;
20383             /*epilog*/
20384         }
20385
20386 #endif /*MELT_HAVE_DEBUG*/
20387         ;
20388
20389         MELT_CHECK_SIGNAL();
20390         ;
20391         /*_#NULL__L38*/
20392         meltfnum[33] =
20393             (/*null*/(/*_.NINBINDS__V112*/ meltfptr[111]) == NULL);;
20394         MELT_LOCATION("warmelt-normal.melt:2421:/ cond");
20395         /*cond*/
20396         if (/*_#NULL__L38*/ meltfnum[33]) /*then*/
20397             {
20398                 /*^cond.then*/
20399                 /*^block*/
20400                 /*anyblock*/
20401                 {
20402
20403                     /*_.MAKE_LIST__V116*/ meltfptr[112] =
20404                         (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[16]))));;
20405                     MELT_LOCATION("warmelt-normal.melt:2422:/ compute");
20406                     /*_.NINBINDS__V112*/
20407                     meltfptr[111] = /*_.SETQ___V117*/ meltfptr[116] = /*_.MAKE_LIST__V116*/ meltfptr[112];;
20408                     /*_._IF___V115*/
20409                     meltfptr[113] = /*_.SETQ___V117*/ meltfptr[116];;
20410                     /*epilog*/
20411
20412                     MELT_LOCATION("warmelt-normal.melt:2421:/ clear");
20413                     /*clear*/ /*_.MAKE_LIST__V116*/
20414                     meltfptr[112] = 0 ;
20415                     /*^clear*/
20416                     /*clear*/ /*_.SETQ___V117*/
20417                     meltfptr[116] = 0 ;
20418                 }
20419                 ;
20420             }
20421         else    /*^cond.else*/
20422             {
20423
20424                 /*_._IF___V115*/ meltfptr[113] =  /*reallynil*/ NULL ;;
20425             }
20426         ;
20427         /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
20428         {
20429             /* start foreach_pair_component_in_list meltcit2__EACHLIST */
20430             for (/*_.CURPAIR__V118*/ meltfptr[112] = melt_list_first( (melt_ptr_t)/*_.NINBINDS__V112*/ meltfptr[111]);
20431                                      melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V118*/ meltfptr[112]) == MELTOBMAG_PAIR;
20432                                      /*_.CURPAIR__V118*/ meltfptr[112] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V118*/ meltfptr[112]))
20433                 {
20434                     /*_.CURINBIND__V119*/ meltfptr[116] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V118*/ meltfptr[112]);
20435
20436
20437
20438                     MELT_CHECK_SIGNAL();
20439                     ;
20440                     MELT_LOCATION("warmelt-normal.melt:2426:/ apply");
20441                     /*apply*/
20442                     {
20443                         union meltparam_un argtab[1];
20444                         memset(&argtab, 0, sizeof(argtab));
20445                         /*^apply.arg*/
20446                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURINBIND__V119*/ meltfptr[116];
20447                         /*_.PUT_ENV__V120*/
20448                         meltfptr[119] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.NEWENV__V27*/ meltfptr[26]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
20449                     }
20450                     ;
20451                 } /* end foreach_pair_component_in_list meltcit2__EACHLIST */
20452             /*_.CURPAIR__V118*/ meltfptr[112] = NULL;
20453             /*_.CURINBIND__V119*/
20454             meltfptr[116] = NULL;
20455
20456
20457             /*citerepilog*/
20458
20459             MELT_LOCATION("warmelt-normal.melt:2423:/ clear");
20460             /*clear*/ /*_.CURPAIR__V118*/
20461             meltfptr[112] = 0 ;
20462             /*^clear*/
20463             /*clear*/ /*_.CURINBIND__V119*/
20464             meltfptr[116] = 0 ;
20465             /*^clear*/
20466             /*clear*/ /*_.PUT_ENV__V120*/
20467             meltfptr[119] = 0 ;
20468         } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
20469         ;
20470         /*citerblock FOREACH_IN_MULTIPLE*/
20471         {
20472             /* start foreach_in_multiple meltcit3__EACHTUP */
20473             long  meltcit3__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NINARGS__V111*/ meltfptr[39]);
20474             for (/*_#INIX__L39*/ meltfnum[34] = 0;
20475                                  (/*_#INIX__L39*/ meltfnum[34] >= 0) && (/*_#INIX__L39*/ meltfnum[34] <  meltcit3__EACHTUP_ln);
20476                                  /*_#INIX__L39*/ meltfnum[34]++)
20477                 {
20478                     /*_.CURINARG__V121*/ meltfptr[120] = melt_multiple_nth((melt_ptr_t)(/*_.NINARGS__V111*/ meltfptr[39]),  /*_#INIX__L39*/ meltfnum[34]);
20479
20480
20481
20482                     MELT_LOCATION("warmelt-normal.melt:2432:/ quasiblock");
20483
20484
20485                     /*_.CURINBIND__V122*/
20486                     meltfptr[121] =
20487                         (melt_multiple_nth((melt_ptr_t)(/*_.HKINS__V23*/ meltfptr[22]), (/*_#INIX__L39*/ meltfnum[34])));;
20488                     MELT_LOCATION("warmelt-normal.melt:2433:/ cond");
20489                     /*cond*/
20490                     if (
20491                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINBIND__V122*/ meltfptr[121]),
20492                                                       (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[18])))
20493                     ) /*then*/
20494                         {
20495                             /*^cond.then*/
20496                             /*^getslot*/
20497                             {
20498                                 melt_ptr_t slot=NULL, obj=NULL;
20499                                 obj = (melt_ptr_t)(/*_.CURINBIND__V122*/ meltfptr[121]) /*=obj*/;
20500                                 melt_object_get_field(slot,obj, 1, "FBIND_TYPE");
20501                                 /*_.INBCTYP__V123*/
20502                                 meltfptr[122] = slot;
20503                             };
20504                             ;
20505                         }
20506                     else    /*^cond.else*/
20507                         {
20508
20509                             /*_.INBCTYP__V123*/ meltfptr[122] =  /*reallynil*/ NULL ;;
20510                         }
20511                     ;
20512                     MELT_LOCATION("warmelt-normal.melt:2434:/ cond");
20513                     /*cond*/
20514                     if (
20515                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINBIND__V122*/ meltfptr[121]),
20516                                                       (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[19])))
20517                     ) /*then*/
20518                         {
20519                             /*^cond.then*/
20520                             /*^getslot*/
20521                             {
20522                                 melt_ptr_t slot=NULL, obj=NULL;
20523                                 obj = (melt_ptr_t)(/*_.CURINBIND__V122*/ meltfptr[121]) /*=obj*/;
20524                                 melt_object_get_field(slot,obj, 0, "BINDER");
20525                                 /*_.INBINDER__V124*/
20526                                 meltfptr[123] = slot;
20527                             };
20528                             ;
20529                         }
20530                     else    /*^cond.else*/
20531                         {
20532
20533                             /*_.INBINDER__V124*/ meltfptr[123] =  /*reallynil*/ NULL ;;
20534                         }
20535                     ;
20536
20537                     MELT_CHECK_SIGNAL();
20538                     ;
20539                     MELT_LOCATION("warmelt-normal.melt:2435:/ msend");
20540                     /*msend*/
20541                     {
20542                         union meltparam_un argtab[1];
20543                         memset(&argtab, 0, sizeof(argtab));
20544                         /*^ojbmsend.arg*/
20545                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V27*/ meltfptr[26];
20546                         /*_.CURINCTYP__V125*/
20547                         meltfptr[124] = meltgc_send((melt_ptr_t)(/*_.CURINARG__V121*/ meltfptr[120]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[20])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
20548                     }
20549                     ;
20550
20551 #if MELT_HAVE_DEBUG
20552                     MELT_LOCATION("warmelt-normal.melt:2437:/ cppif.then");
20553                     /*^block*/
20554                     /*anyblock*/
20555                     {
20556
20557
20558                         {
20559                             /*^locexp*/
20560                             /*melt_increment_dbgcounter*/
20561 #if MELT_HAVE_DEBUG
20562                             melt_dbgcounter++;
20563 #endif
20564                             ;
20565                         }
20566                         ;
20567
20568                         MELT_CHECK_SIGNAL();
20569                         ;
20570                         /*_#MELT_NEED_DBG__L41*/
20571                         meltfnum[40] =
20572                             /*MELT_NEED_DBG*/
20573 #if MELT_HAVE_DEBUG
20574                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
20575 #else
20576                             0 /* no melt_need_dbg */
20577 #endif /*MELT_HAVE_DEBUG*/
20578                             ;;
20579                         MELT_LOCATION("warmelt-normal.melt:2437:/ cond");
20580                         /*cond*/
20581                         if (/*_#MELT_NEED_DBG__L41*/ meltfnum[40]) /*then*/
20582                             {
20583                                 /*^cond.then*/
20584                                 /*^block*/
20585                                 /*anyblock*/
20586                                 {
20587
20588                                     /*_#MELT_CALLCOUNT__L42*/ meltfnum[41] =
20589                                         /* for melt_callcount */
20590 #if MELT_HAVE_DEBUG && defined (meltcallcount)
20591                                         meltcallcount  /* melt_callcount debugging */
20592 #else
20593                                         0L  /* melt_callcount without debug */
20594 #endif /* MELT_HAVE_DEBUG melt_callcount */
20595                                         ;;
20596
20597                                     MELT_CHECK_SIGNAL();
20598                                     ;
20599                                     MELT_LOCATION("warmelt-normal.melt:2437:/ apply");
20600                                     /*apply*/
20601                                     {
20602                                         union meltparam_un argtab[13];
20603                                         memset(&argtab, 0, sizeof(argtab));
20604                                         /*^apply.arg*/
20605                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L42*/ meltfnum[41];
20606                                         /*^apply.arg*/
20607                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
20608                                         /*^apply.arg*/
20609                                         argtab[2].meltbp_long = 2437;
20610                                         /*^apply.arg*/
20611                                         argtab[3].meltbp_cstring =  "normexp_hook_call curinbind=";
20612                                         /*^apply.arg*/
20613                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURINBIND__V122*/ meltfptr[121];
20614                                         /*^apply.arg*/
20615                                         argtab[5].meltbp_cstring =  "\n curinarg=";
20616                                         /*^apply.arg*/
20617                                         argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURINARG__V121*/ meltfptr[120];
20618                                         /*^apply.arg*/
20619                                         argtab[7].meltbp_cstring =  "\n inix#";
20620                                         /*^apply.arg*/
20621                                         argtab[8].meltbp_long = /*_#INIX__L39*/ meltfnum[34];
20622                                         /*^apply.arg*/
20623                                         argtab[9].meltbp_cstring =  "\n inbctyp=";
20624                                         /*^apply.arg*/
20625                                         argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.INBCTYP__V123*/ meltfptr[122];
20626                                         /*^apply.arg*/
20627                                         argtab[11].meltbp_cstring =  "\n curinctyp=";
20628                                         /*^apply.arg*/
20629                                         argtab[12].meltbp_aptr = (melt_ptr_t*) &/*_.CURINCTYP__V125*/ meltfptr[124];
20630                                         /*_.MELT_DEBUG_FUN__V127*/
20631                                         meltfptr[126] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
20632                                     }
20633                                     ;
20634                                     /*_._IF___V126*/
20635                                     meltfptr[125] = /*_.MELT_DEBUG_FUN__V127*/ meltfptr[126];;
20636                                     /*epilog*/
20637
20638                                     MELT_LOCATION("warmelt-normal.melt:2437:/ clear");
20639                                     /*clear*/ /*_#MELT_CALLCOUNT__L42*/
20640                                     meltfnum[41] = 0 ;
20641                                     /*^clear*/
20642                                     /*clear*/ /*_.MELT_DEBUG_FUN__V127*/
20643                                     meltfptr[126] = 0 ;
20644                                 }
20645                                 ;
20646                             }
20647                         else    /*^cond.else*/
20648                             {
20649
20650                                 /*_._IF___V126*/ meltfptr[125] =  /*reallynil*/ NULL ;;
20651                             }
20652                         ;
20653
20654                         {
20655                             MELT_LOCATION("warmelt-normal.melt:2437:/ locexp");
20656                             /*void*/
20657                             (void)0;
20658                         }
20659                         ;
20660                         /*^quasiblock*/
20661
20662
20663                         /*epilog*/
20664
20665                         /*^clear*/
20666                         /*clear*/ /*_#MELT_NEED_DBG__L41*/
20667                         meltfnum[40] = 0 ;
20668                         /*^clear*/
20669                         /*clear*/ /*_._IF___V126*/
20670                         meltfptr[125] = 0 ;
20671                     }
20672
20673 #else /*MELT_HAVE_DEBUG*/
20674                     /*^cppif.else*/
20675                     /*^block*/
20676                     /*anyblock*/
20677                     {
20678
20679
20680                         {
20681                             /*^locexp*/
20682                             /*void*/(void)0;
20683                         }
20684                         ;
20685                         /*epilog*/
20686                     }
20687
20688 #endif /*MELT_HAVE_DEBUG*/
20689                     ;
20690
20691 #if MELT_HAVE_DEBUG
20692                     MELT_LOCATION("warmelt-normal.melt:2440:/ cppif.then");
20693                     /*^block*/
20694                     /*anyblock*/
20695                     {
20696
20697
20698                         MELT_CHECK_SIGNAL();
20699                         ;
20700                         /*_#IS_A__L43*/
20701                         meltfnum[41] =
20702                             melt_is_instance_of((melt_ptr_t)(/*_.INBCTYP__V123*/ meltfptr[122]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[12])));;
20703                         MELT_LOCATION("warmelt-normal.melt:2440:/ cond");
20704                         /*cond*/
20705                         if (/*_#IS_A__L43*/ meltfnum[41]) /*then*/
20706                             {
20707                                 /*^cond.then*/
20708                                 /*_._IFELSE___V129*/ meltfptr[125] = (/*nil*/NULL);;
20709                             }
20710                         else
20711                             {
20712                                 MELT_LOCATION("warmelt-normal.melt:2440:/ cond.else");
20713
20714                                 /*^block*/
20715                                 /*anyblock*/
20716                                 {
20717
20718
20719                                     MELT_CHECK_SIGNAL();
20720                                     ;
20721                                     /*^apply*/
20722                                     /*apply*/
20723                                     {
20724                                         union meltparam_un argtab[4];
20725                                         memset(&argtab, 0, sizeof(argtab));
20726                                         /*^apply.arg*/
20727                                         argtab[0].meltbp_cstring =  "check inbctyp";
20728                                         /*^apply.arg*/
20729                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
20730                                         /*^apply.arg*/
20731                                         argtab[2].meltbp_long = 2440;
20732                                         /*^apply.arg*/
20733                                         argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.INBCTYP__V123*/ meltfptr[122];
20734                                         /*_.MELT_ASSERT_FAILURE_FUN__V130*/
20735                                         meltfptr[129] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
20736                                     }
20737                                     ;
20738                                     /*_._IFELSE___V129*/
20739                                     meltfptr[125] = /*_.MELT_ASSERT_FAILURE_FUN__V130*/ meltfptr[129];;
20740                                     /*epilog*/
20741
20742                                     MELT_LOCATION("warmelt-normal.melt:2440:/ clear");
20743                                     /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V130*/
20744                                     meltfptr[129] = 0 ;
20745                                 }
20746                                 ;
20747                             }
20748                         ;
20749                         /*_.IFCPP___V128*/
20750                         meltfptr[126] = /*_._IFELSE___V129*/ meltfptr[125];;
20751                         /*epilog*/
20752
20753                         MELT_LOCATION("warmelt-normal.melt:2440:/ clear");
20754                         /*clear*/ /*_#IS_A__L43*/
20755                         meltfnum[41] = 0 ;
20756                         /*^clear*/
20757                         /*clear*/ /*_._IFELSE___V129*/
20758                         meltfptr[125] = 0 ;
20759                     }
20760
20761 #else /*MELT_HAVE_DEBUG*/
20762                     /*^cppif.else*/
20763                     /*_.IFCPP___V128*/ meltfptr[126] = (/*nil*/NULL);
20764 #endif /*MELT_HAVE_DEBUG*/
20765                     ;
20766
20767 #if MELT_HAVE_DEBUG
20768                     MELT_LOCATION("warmelt-normal.melt:2441:/ cppif.then");
20769                     /*^block*/
20770                     /*anyblock*/
20771                     {
20772
20773
20774                         MELT_CHECK_SIGNAL();
20775                         ;
20776                         /*_#IS_A__L44*/
20777                         meltfnum[40] =
20778                             melt_is_instance_of((melt_ptr_t)(/*_.CURINCTYP__V125*/ meltfptr[124]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[12])));;
20779                         MELT_LOCATION("warmelt-normal.melt:2441:/ cond");
20780                         /*cond*/
20781                         if (/*_#IS_A__L44*/ meltfnum[40]) /*then*/
20782                             {
20783                                 /*^cond.then*/
20784                                 /*_._IFELSE___V132*/ meltfptr[125] = (/*nil*/NULL);;
20785                             }
20786                         else
20787                             {
20788                                 MELT_LOCATION("warmelt-normal.melt:2441:/ cond.else");
20789
20790                                 /*^block*/
20791                                 /*anyblock*/
20792                                 {
20793
20794
20795                                     MELT_CHECK_SIGNAL();
20796                                     ;
20797                                     /*^apply*/
20798                                     /*apply*/
20799                                     {
20800                                         union meltparam_un argtab[4];
20801                                         memset(&argtab, 0, sizeof(argtab));
20802                                         /*^apply.arg*/
20803                                         argtab[0].meltbp_cstring =  "check curinctyp";
20804                                         /*^apply.arg*/
20805                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
20806                                         /*^apply.arg*/
20807                                         argtab[2].meltbp_long = 2441;
20808                                         /*^apply.arg*/
20809                                         argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURINCTYP__V125*/ meltfptr[124];
20810                                         /*_.MELT_ASSERT_FAILURE_FUN__V133*/
20811                                         meltfptr[132] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
20812                                     }
20813                                     ;
20814                                     /*_._IFELSE___V132*/
20815                                     meltfptr[125] = /*_.MELT_ASSERT_FAILURE_FUN__V133*/ meltfptr[132];;
20816                                     /*epilog*/
20817
20818                                     MELT_LOCATION("warmelt-normal.melt:2441:/ clear");
20819                                     /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V133*/
20820                                     meltfptr[132] = 0 ;
20821                                 }
20822                                 ;
20823                             }
20824                         ;
20825                         /*_.IFCPP___V131*/
20826                         meltfptr[129] = /*_._IFELSE___V132*/ meltfptr[125];;
20827                         /*epilog*/
20828
20829                         MELT_LOCATION("warmelt-normal.melt:2441:/ clear");
20830                         /*clear*/ /*_#IS_A__L44*/
20831                         meltfnum[40] = 0 ;
20832                         /*^clear*/
20833                         /*clear*/ /*_._IFELSE___V132*/
20834                         meltfptr[125] = 0 ;
20835                     }
20836
20837 #else /*MELT_HAVE_DEBUG*/
20838                     /*^cppif.else*/
20839                     /*_.IFCPP___V131*/ meltfptr[129] = (/*nil*/NULL);
20840 #endif /*MELT_HAVE_DEBUG*/
20841                     ;
20842
20843                     MELT_CHECK_SIGNAL();
20844                     ;
20845                     /*^compute*/
20846                     /*_#exeq__L45*/
20847                     meltfnum[41] =
20848                         ((/*_.INBCTYP__V123*/ meltfptr[122]) != (/*_.CURINCTYP__V125*/ meltfptr[124]));;
20849                     MELT_LOCATION("warmelt-normal.melt:2442:/ cond");
20850                     /*cond*/
20851                     if (/*_#exeq__L45*/ meltfnum[41]) /*then*/
20852                         {
20853                             /*^cond.then*/
20854                             /*^block*/
20855                             /*anyblock*/
20856                             {
20857
20858                                 MELT_LOCATION("warmelt-normal.melt:2444:/ cond");
20859                                 /*cond*/
20860                                 if (
20861                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.INBINDER__V124*/ meltfptr[123]),
20862                                                                   (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8])))
20863                                 ) /*then*/
20864                                     {
20865                                         /*^cond.then*/
20866                                         /*^getslot*/
20867                                         {
20868                                             melt_ptr_t slot=NULL, obj=NULL;
20869                                             obj = (melt_ptr_t)(/*_.INBINDER__V124*/ meltfptr[123]) /*=obj*/;
20870                                             melt_object_get_field(slot,obj, 1, "NAMED_NAME");
20871                                             /*_.NAMED_NAME__V134*/
20872                                             meltfptr[132] = slot;
20873                                         };
20874                                         ;
20875                                     }
20876                                 else    /*^cond.else*/
20877                                     {
20878
20879                                         /*_.NAMED_NAME__V134*/ meltfptr[132] =  /*reallynil*/ NULL ;;
20880                                     }
20881                                 ;
20882                                 MELT_LOCATION("warmelt-normal.melt:2444:/ cond");
20883                                 /*cond*/
20884                                 if (
20885                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.INBCTYP__V123*/ meltfptr[122]),
20886                                                                   (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8])))
20887                                 ) /*then*/
20888                                     {
20889                                         /*^cond.then*/
20890                                         /*^getslot*/
20891                                         {
20892                                             melt_ptr_t slot=NULL, obj=NULL;
20893                                             obj = (melt_ptr_t)(/*_.INBCTYP__V123*/ meltfptr[122]) /*=obj*/;
20894                                             melt_object_get_field(slot,obj, 1, "NAMED_NAME");
20895                                             /*_.NAMED_NAME__V135*/
20896                                             meltfptr[125] = slot;
20897                                         };
20898                                         ;
20899                                     }
20900                                 else    /*^cond.else*/
20901                                     {
20902
20903                                         /*_.NAMED_NAME__V135*/ meltfptr[125] =  /*reallynil*/ NULL ;;
20904                                     }
20905                                 ;
20906                                 MELT_LOCATION("warmelt-normal.melt:2445:/ cond");
20907                                 /*cond*/
20908                                 if (
20909                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINCTYP__V125*/ meltfptr[124]),
20910                                                                   (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8])))
20911                                 ) /*then*/
20912                                     {
20913                                         /*^cond.then*/
20914                                         /*^getslot*/
20915                                         {
20916                                             melt_ptr_t slot=NULL, obj=NULL;
20917                                             obj = (melt_ptr_t)(/*_.CURINCTYP__V125*/ meltfptr[124]) /*=obj*/;
20918                                             melt_object_get_field(slot,obj, 1, "NAMED_NAME");
20919                                             /*_.NAMED_NAME__V136*/
20920                                             meltfptr[135] = slot;
20921                                         };
20922                                         ;
20923                                     }
20924                                 else    /*^cond.else*/
20925                                     {
20926
20927                                         /*_.NAMED_NAME__V136*/ meltfptr[135] =  /*reallynil*/ NULL ;;
20928                                     }
20929                                 ;
20930
20931                                 MELT_CHECK_SIGNAL();
20932                                 ;
20933                                 MELT_LOCATION("warmelt-normal.melt:2443:/ apply");
20934                                 /*apply*/
20935                                 {
20936                                     union meltparam_un argtab[6];
20937                                     memset(&argtab, 0, sizeof(argtab));
20938                                     /*^apply.arg*/
20939                                     argtab[0].meltbp_cstring =  "type mismatch between input formal $1 of ctype $2 & argument #$3 of\
20940  ctype $4 in hook call $5";
20941                                     /*^apply.arg*/
20942                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V134*/ meltfptr[132];
20943                                     /*^apply.arg*/
20944                                     argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V135*/ meltfptr[125];
20945                                     /*^apply.arg*/
20946                                     argtab[3].meltbp_long = /*_#INIX__L39*/ meltfnum[34];
20947                                     /*^apply.arg*/
20948                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V136*/ meltfptr[135];
20949                                     /*^apply.arg*/
20950                                     argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.HNAMESTR__V93*/ meltfptr[47];
20951                                     /*_.ERROR_AT__V137*/
20952                                     meltfptr[136] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
20953                                 }
20954                                 ;
20955                                 MELT_LOCATION("warmelt-normal.melt:2446:/ compute");
20956                                 /*_#ERRORFLAG__L6*/
20957                                 meltfnum[0] = /*_#SETQ___L47*/ meltfnum[46] = 1;;
20958                                 MELT_LOCATION("warmelt-normal.melt:2442:/ quasiblock");
20959
20960
20961                                 /*_#PROGN___L48*/
20962                                 meltfnum[47] = /*_#SETQ___L47*/ meltfnum[46];;
20963                                 /*^compute*/
20964                                 /*_#_IF___L46*/
20965                                 meltfnum[40] = /*_#PROGN___L48*/ meltfnum[47];;
20966                                 /*epilog*/
20967
20968                                 MELT_LOCATION("warmelt-normal.melt:2442:/ clear");
20969                                 /*clear*/ /*_.NAMED_NAME__V134*/
20970                                 meltfptr[132] = 0 ;
20971                                 /*^clear*/
20972                                 /*clear*/ /*_.NAMED_NAME__V135*/
20973                                 meltfptr[125] = 0 ;
20974                                 /*^clear*/
20975                                 /*clear*/ /*_.NAMED_NAME__V136*/
20976                                 meltfptr[135] = 0 ;
20977                                 /*^clear*/
20978                                 /*clear*/ /*_.ERROR_AT__V137*/
20979                                 meltfptr[136] = 0 ;
20980                                 /*^clear*/
20981                                 /*clear*/ /*_#SETQ___L47*/
20982                                 meltfnum[46] = 0 ;
20983                                 /*^clear*/
20984                                 /*clear*/ /*_#PROGN___L48*/
20985                                 meltfnum[47] = 0 ;
20986                             }
20987                             ;
20988                         }
20989                     else    /*^cond.else*/
20990                         {
20991
20992                             /*_#_IF___L46*/ meltfnum[40] = 0;;
20993                         }
20994                     ;
20995                     /*^compute*/
20996                     /*_#LET___L40*/
20997                     meltfnum[39] = /*_#_IF___L46*/ meltfnum[40];;
20998
20999                     MELT_LOCATION("warmelt-normal.melt:2432:/ clear");
21000                     /*clear*/ /*_.CURINBIND__V122*/
21001                     meltfptr[121] = 0 ;
21002                     /*^clear*/
21003                     /*clear*/ /*_.INBCTYP__V123*/
21004                     meltfptr[122] = 0 ;
21005                     /*^clear*/
21006                     /*clear*/ /*_.INBINDER__V124*/
21007                     meltfptr[123] = 0 ;
21008                     /*^clear*/
21009                     /*clear*/ /*_.CURINCTYP__V125*/
21010                     meltfptr[124] = 0 ;
21011                     /*^clear*/
21012                     /*clear*/ /*_.IFCPP___V128*/
21013                     meltfptr[126] = 0 ;
21014                     /*^clear*/
21015                     /*clear*/ /*_.IFCPP___V131*/
21016                     meltfptr[129] = 0 ;
21017                     /*^clear*/
21018                     /*clear*/ /*_#exeq__L45*/
21019                     meltfnum[41] = 0 ;
21020                     /*^clear*/
21021                     /*clear*/ /*_#_IF___L46*/
21022                     meltfnum[40] = 0 ;
21023                     if (/*_#INIX__L39*/ meltfnum[34]<0) break;
21024                 } /* end  foreach_in_multiple meltcit3__EACHTUP */
21025
21026             /*citerepilog*/
21027
21028             MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
21029             /*clear*/ /*_.CURINARG__V121*/
21030             meltfptr[120] = 0 ;
21031             /*^clear*/
21032             /*clear*/ /*_#INIX__L39*/
21033             meltfnum[34] = 0 ;
21034             /*^clear*/
21035             /*clear*/ /*_#LET___L40*/
21036             meltfnum[39] = 0 ;
21037         } /*endciterblock FOREACH_IN_MULTIPLE*/
21038         ;
21039
21040 #if MELT_HAVE_DEBUG
21041         MELT_LOCATION("warmelt-normal.melt:2449:/ cppif.then");
21042         /*^block*/
21043         /*anyblock*/
21044         {
21045
21046
21047             {
21048                 /*^locexp*/
21049                 /*melt_increment_dbgcounter*/
21050 #if MELT_HAVE_DEBUG
21051                 melt_dbgcounter++;
21052 #endif
21053                 ;
21054             }
21055             ;
21056
21057             MELT_CHECK_SIGNAL();
21058             ;
21059             /*_#MELT_NEED_DBG__L49*/
21060             meltfnum[46] =
21061                 /*MELT_NEED_DBG*/
21062 #if MELT_HAVE_DEBUG
21063                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
21064 #else
21065                 0 /* no melt_need_dbg */
21066 #endif /*MELT_HAVE_DEBUG*/
21067                 ;;
21068             MELT_LOCATION("warmelt-normal.melt:2449:/ cond");
21069             /*cond*/
21070             if (/*_#MELT_NEED_DBG__L49*/ meltfnum[46]) /*then*/
21071                 {
21072                     /*^cond.then*/
21073                     /*^block*/
21074                     /*anyblock*/
21075                     {
21076
21077                         /*_#MELT_CALLCOUNT__L50*/ meltfnum[47] =
21078                             /* for melt_callcount */
21079 #if MELT_HAVE_DEBUG && defined (meltcallcount)
21080                             meltcallcount  /* melt_callcount debugging */
21081 #else
21082                             0L  /* melt_callcount without debug */
21083 #endif /* MELT_HAVE_DEBUG melt_callcount */
21084                             ;;
21085
21086                         MELT_CHECK_SIGNAL();
21087                         ;
21088                         MELT_LOCATION("warmelt-normal.melt:2449:/ apply");
21089                         /*apply*/
21090                         {
21091                             union meltparam_un argtab[7];
21092                             memset(&argtab, 0, sizeof(argtab));
21093                             /*^apply.arg*/
21094                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L50*/ meltfnum[47];
21095                             /*^apply.arg*/
21096                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
21097                             /*^apply.arg*/
21098                             argtab[2].meltbp_long = 2449;
21099                             /*^apply.arg*/
21100                             argtab[3].meltbp_cstring =  "normexp_hook_call errorflag=";
21101                             /*^apply.arg*/
21102                             argtab[4].meltbp_long = /*_#ERRORFLAG__L6*/ meltfnum[0];
21103                             /*^apply.arg*/
21104                             argtab[5].meltbp_cstring =  " after checking ninargs=";
21105                             /*^apply.arg*/
21106                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NINARGS__V111*/ meltfptr[39];
21107                             /*_.MELT_DEBUG_FUN__V139*/
21108                             meltfptr[125] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
21109                         }
21110                         ;
21111                         /*_._IF___V138*/
21112                         meltfptr[132] = /*_.MELT_DEBUG_FUN__V139*/ meltfptr[125];;
21113                         /*epilog*/
21114
21115                         MELT_LOCATION("warmelt-normal.melt:2449:/ clear");
21116                         /*clear*/ /*_#MELT_CALLCOUNT__L50*/
21117                         meltfnum[47] = 0 ;
21118                         /*^clear*/
21119                         /*clear*/ /*_.MELT_DEBUG_FUN__V139*/
21120                         meltfptr[125] = 0 ;
21121                     }
21122                     ;
21123                 }
21124             else    /*^cond.else*/
21125                 {
21126
21127                     /*_._IF___V138*/ meltfptr[132] =  /*reallynil*/ NULL ;;
21128                 }
21129             ;
21130
21131             {
21132                 MELT_LOCATION("warmelt-normal.melt:2449:/ locexp");
21133                 /*void*/
21134                 (void)0;
21135             }
21136             ;
21137             /*^quasiblock*/
21138
21139
21140             /*epilog*/
21141
21142             /*^clear*/
21143             /*clear*/ /*_#MELT_NEED_DBG__L49*/
21144             meltfnum[46] = 0 ;
21145             /*^clear*/
21146             /*clear*/ /*_._IF___V138*/
21147             meltfptr[132] = 0 ;
21148         }
21149
21150 #else /*MELT_HAVE_DEBUG*/
21151         /*^cppif.else*/
21152         /*^block*/
21153         /*anyblock*/
21154         {
21155
21156
21157             {
21158                 /*^locexp*/
21159                 /*void*/(void)0;
21160             }
21161             ;
21162             /*epilog*/
21163         }
21164
21165 #endif /*MELT_HAVE_DEBUG*/
21166         ;
21167         /*_#miI__L51*/
21168         meltfnum[41] =
21169             ((/*_#NBOUTS__L24*/ meltfnum[7]) - (1));;
21170         /*citerblock FOREACH_LONG_UPTO*/
21171         {
21172             /* foreach_long_upto start meltcit4__EACHLONG */
21173             long meltcit4__EACHLONG_min =  0;
21174             long meltcit4__EACHLONG_max = /*_#miI__L51*/ meltfnum[41];
21175             long meltcit4__EACHLONG_cur = 0;
21176             for (meltcit4__EACHLONG_cur = meltcit4__EACHLONG_min;
21177                     meltcit4__EACHLONG_cur <= meltcit4__EACHLONG_max;
21178                     meltcit4__EACHLONG_cur ++)
21179                 {
21180                     /*_#OUTIX__L52*/ meltfnum[40] = meltcit4__EACHLONG_cur;
21181
21182
21183
21184                     MELT_LOCATION("warmelt-normal.melt:2455:/ quasiblock");
21185
21186
21187                     /*_#plI__L54*/
21188                     meltfnum[46] =
21189                         ((/*_#OUTIX__L52*/ meltfnum[40]) + (/*_#NBINS__L23*/ meltfnum[1]));;
21190                     /*^compute*/
21191                     /*_.CUROUTARG__V140*/
21192                     meltfptr[135] =
21193                         (melt_multiple_nth((melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19]), (/*_#plI__L54*/ meltfnum[46])));;
21194                     /*^compute*/
21195                     /*_.CUROUTBIND__V141*/
21196                     meltfptr[136] =
21197                         (melt_multiple_nth((melt_ptr_t)(/*_.HKOUTS__V24*/ meltfptr[23]), (/*_#OUTIX__L52*/ meltfnum[40])));;
21198                     MELT_LOCATION("warmelt-normal.melt:2457:/ cond");
21199                     /*cond*/
21200                     if (
21201                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTBIND__V141*/ meltfptr[136]),
21202                                                       (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[18])))
21203                     ) /*then*/
21204                         {
21205                             /*^cond.then*/
21206                             /*^getslot*/
21207                             {
21208                                 melt_ptr_t slot=NULL, obj=NULL;
21209                                 obj = (melt_ptr_t)(/*_.CUROUTBIND__V141*/ meltfptr[136]) /*=obj*/;
21210                                 melt_object_get_field(slot,obj, 1, "FBIND_TYPE");
21211                                 /*_.OUTBCTYP__V142*/
21212                                 meltfptr[121] = slot;
21213                             };
21214                             ;
21215                         }
21216                     else    /*^cond.else*/
21217                         {
21218
21219                             /*_.OUTBCTYP__V142*/ meltfptr[121] =  /*reallynil*/ NULL ;;
21220                         }
21221                     ;
21222                     MELT_LOCATION("warmelt-normal.melt:2458:/ cond");
21223                     /*cond*/
21224                     if (
21225                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTBIND__V141*/ meltfptr[136]),
21226                                                       (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[19])))
21227                     ) /*then*/
21228                         {
21229                             /*^cond.then*/
21230                             /*^getslot*/
21231                             {
21232                                 melt_ptr_t slot=NULL, obj=NULL;
21233                                 obj = (melt_ptr_t)(/*_.CUROUTBIND__V141*/ meltfptr[136]) /*=obj*/;
21234                                 melt_object_get_field(slot,obj, 0, "BINDER");
21235                                 /*_.OUTBINDER__V143*/
21236                                 meltfptr[122] = slot;
21237                             };
21238                             ;
21239                         }
21240                     else    /*^cond.else*/
21241                         {
21242
21243                             /*_.OUTBINDER__V143*/ meltfptr[122] =  /*reallynil*/ NULL ;;
21244                         }
21245                     ;
21246
21247 #if MELT_HAVE_DEBUG
21248                     MELT_LOCATION("warmelt-normal.melt:2460:/ cppif.then");
21249                     /*^block*/
21250                     /*anyblock*/
21251                     {
21252
21253
21254                         {
21255                             /*^locexp*/
21256                             /*melt_increment_dbgcounter*/
21257 #if MELT_HAVE_DEBUG
21258                             melt_dbgcounter++;
21259 #endif
21260                             ;
21261                         }
21262                         ;
21263
21264                         MELT_CHECK_SIGNAL();
21265                         ;
21266                         /*_#MELT_NEED_DBG__L55*/
21267                         meltfnum[54] =
21268                             /*MELT_NEED_DBG*/
21269 #if MELT_HAVE_DEBUG
21270                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
21271 #else
21272                             0 /* no melt_need_dbg */
21273 #endif /*MELT_HAVE_DEBUG*/
21274                             ;;
21275                         MELT_LOCATION("warmelt-normal.melt:2460:/ cond");
21276                         /*cond*/
21277                         if (/*_#MELT_NEED_DBG__L55*/ meltfnum[54]) /*then*/
21278                             {
21279                                 /*^cond.then*/
21280                                 /*^block*/
21281                                 /*anyblock*/
21282                                 {
21283
21284                                     /*_#MELT_CALLCOUNT__L56*/ meltfnum[55] =
21285                                         /* for melt_callcount */
21286 #if MELT_HAVE_DEBUG && defined (meltcallcount)
21287                                         meltcallcount  /* melt_callcount debugging */
21288 #else
21289                                         0L  /* melt_callcount without debug */
21290 #endif /* MELT_HAVE_DEBUG melt_callcount */
21291                                         ;;
21292
21293                                     MELT_CHECK_SIGNAL();
21294                                     ;
21295                                     MELT_LOCATION("warmelt-normal.melt:2460:/ apply");
21296                                     /*apply*/
21297                                     {
21298                                         union meltparam_un argtab[9];
21299                                         memset(&argtab, 0, sizeof(argtab));
21300                                         /*^apply.arg*/
21301                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L56*/ meltfnum[55];
21302                                         /*^apply.arg*/
21303                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
21304                                         /*^apply.arg*/
21305                                         argtab[2].meltbp_long = 2460;
21306                                         /*^apply.arg*/
21307                                         argtab[3].meltbp_cstring =  "normexp_hook_call curoutarg=";
21308                                         /*^apply.arg*/
21309                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUROUTARG__V140*/ meltfptr[135];
21310                                         /*^apply.arg*/
21311                                         argtab[5].meltbp_cstring =  "\n curoutbind=";
21312                                         /*^apply.arg*/
21313                                         argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CUROUTBIND__V141*/ meltfptr[136];
21314                                         /*^apply.arg*/
21315                                         argtab[7].meltbp_cstring =  "\n outix#";
21316                                         /*^apply.arg*/
21317                                         argtab[8].meltbp_long = /*_#OUTIX__L52*/ meltfnum[40];
21318                                         /*_.MELT_DEBUG_FUN__V145*/
21319                                         meltfptr[124] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
21320                                     }
21321                                     ;
21322                                     /*_._IF___V144*/
21323                                     meltfptr[123] = /*_.MELT_DEBUG_FUN__V145*/ meltfptr[124];;
21324                                     /*epilog*/
21325
21326                                     MELT_LOCATION("warmelt-normal.melt:2460:/ clear");
21327                                     /*clear*/ /*_#MELT_CALLCOUNT__L56*/
21328                                     meltfnum[55] = 0 ;
21329                                     /*^clear*/
21330                                     /*clear*/ /*_.MELT_DEBUG_FUN__V145*/
21331                                     meltfptr[124] = 0 ;
21332                                 }
21333                                 ;
21334                             }
21335                         else    /*^cond.else*/
21336                             {
21337
21338                                 /*_._IF___V144*/ meltfptr[123] =  /*reallynil*/ NULL ;;
21339                             }
21340                         ;
21341
21342                         {
21343                             MELT_LOCATION("warmelt-normal.melt:2460:/ locexp");
21344                             /*void*/
21345                             (void)0;
21346                         }
21347                         ;
21348                         /*^quasiblock*/
21349
21350
21351                         /*epilog*/
21352
21353                         /*^clear*/
21354                         /*clear*/ /*_#MELT_NEED_DBG__L55*/
21355                         meltfnum[54] = 0 ;
21356                         /*^clear*/
21357                         /*clear*/ /*_._IF___V144*/
21358                         meltfptr[123] = 0 ;
21359                     }
21360
21361 #else /*MELT_HAVE_DEBUG*/
21362                     /*^cppif.else*/
21363                     /*^block*/
21364                     /*anyblock*/
21365                     {
21366
21367
21368                         {
21369                             /*^locexp*/
21370                             /*void*/(void)0;
21371                         }
21372                         ;
21373                         /*epilog*/
21374                     }
21375
21376 #endif /*MELT_HAVE_DEBUG*/
21377                     ;
21378
21379                     {
21380                         MELT_LOCATION("warmelt-normal.melt:2462:/ locexp");
21381                         meltgc_multiple_put_nth((melt_ptr_t)(/*_.SOUTS__V95*/ meltfptr[64]), (/*_#OUTIX__L52*/ meltfnum[40]), (melt_ptr_t)(/*_.CUROUTARG__V140*/ meltfptr[135]));
21382                     }
21383                     ;
21384
21385                     MELT_CHECK_SIGNAL();
21386                     ;
21387                     /*_#IS_A__L57*/
21388                     meltfnum[55] =
21389                         melt_is_instance_of((melt_ptr_t)(/*_.CUROUTARG__V140*/ meltfptr[135]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[7])));;
21390                     MELT_LOCATION("warmelt-normal.melt:2464:/ cond");
21391                     /*cond*/
21392                     if (/*_#IS_A__L57*/ meltfnum[55]) /*then*/
21393                         {
21394                             /*^cond.then*/
21395                             /*^block*/
21396                             /*anyblock*/
21397                             {
21398
21399                                 MELT_LOCATION("warmelt-normal.melt:2465:/ quasiblock");
21400
21401
21402
21403                                 MELT_CHECK_SIGNAL();
21404                                 ;
21405                                 /*^apply*/
21406                                 /*apply*/
21407                                 {
21408                                     union meltparam_un argtab[3];
21409                                     memset(&argtab, 0, sizeof(argtab));
21410                                     /*^apply.arg*/
21411                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
21412                                     /*^apply.arg*/
21413                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
21414                                     /*^apply.arg*/
21415                                     argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
21416                                     /*_.NOUTVAR__V146*/
21417                                     meltfptr[126] =  melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.CUROUTARG__V140*/ meltfptr[135]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
21418                                 }
21419                                 ;
21420
21421                                 MELT_CHECK_SIGNAL();
21422                                 ;
21423                                 MELT_LOCATION("warmelt-normal.melt:2466:/ msend");
21424                                 /*msend*/
21425                                 {
21426                                     union meltparam_un argtab[1];
21427                                     memset(&argtab, 0, sizeof(argtab));
21428                                     /*^ojbmsend.arg*/
21429                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
21430                                     /*_.VAROUTCTYP__V147*/
21431                                     meltfptr[129] = meltgc_send((melt_ptr_t)(/*_.NOUTVAR__V146*/ meltfptr[126]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[20])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
21432                                 }
21433                                 ;
21434
21435 #if MELT_HAVE_DEBUG
21436                                 MELT_LOCATION("warmelt-normal.melt:2468:/ cppif.then");
21437                                 /*^block*/
21438                                 /*anyblock*/
21439                                 {
21440
21441
21442                                     {
21443                                         /*^locexp*/
21444                                         /*melt_increment_dbgcounter*/
21445 #if MELT_HAVE_DEBUG
21446                                         melt_dbgcounter++;
21447 #endif
21448                                         ;
21449                                     }
21450                                     ;
21451
21452                                     MELT_CHECK_SIGNAL();
21453                                     ;
21454                                     /*_#MELT_NEED_DBG__L59*/
21455                                     meltfnum[58] =
21456                                         /*MELT_NEED_DBG*/
21457 #if MELT_HAVE_DEBUG
21458                                         (/*melt_need_dbg*/ melt_need_debug ((int) 0))
21459 #else
21460                                         0 /* no melt_need_dbg */
21461 #endif /*MELT_HAVE_DEBUG*/
21462                                         ;;
21463                                     MELT_LOCATION("warmelt-normal.melt:2468:/ cond");
21464                                     /*cond*/
21465                                     if (/*_#MELT_NEED_DBG__L59*/ meltfnum[58]) /*then*/
21466                                         {
21467                                             /*^cond.then*/
21468                                             /*^block*/
21469                                             /*anyblock*/
21470                                             {
21471
21472                                                 /*_#MELT_CALLCOUNT__L60*/ meltfnum[59] =
21473                                                     /* for melt_callcount */
21474 #if MELT_HAVE_DEBUG && defined (meltcallcount)
21475                                                     meltcallcount  /* melt_callcount debugging */
21476 #else
21477                                                     0L  /* melt_callcount without debug */
21478 #endif /* MELT_HAVE_DEBUG melt_callcount */
21479                                                     ;;
21480
21481                                                 MELT_CHECK_SIGNAL();
21482                                                 ;
21483                                                 MELT_LOCATION("warmelt-normal.melt:2468:/ apply");
21484                                                 /*apply*/
21485                                                 {
21486                                                     union meltparam_un argtab[7];
21487                                                     memset(&argtab, 0, sizeof(argtab));
21488                                                     /*^apply.arg*/
21489                                                     argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L60*/ meltfnum[59];
21490                                                     /*^apply.arg*/
21491                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
21492                                                     /*^apply.arg*/
21493                                                     argtab[2].meltbp_long = 2468;
21494                                                     /*^apply.arg*/
21495                                                     argtab[3].meltbp_cstring =  "normexp_hook_call noutvar=";
21496                                                     /*^apply.arg*/
21497                                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NOUTVAR__V146*/ meltfptr[126];
21498                                                     /*^apply.arg*/
21499                                                     argtab[5].meltbp_cstring =  " varoutctyp=";
21500                                                     /*^apply.arg*/
21501                                                     argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.VAROUTCTYP__V147*/ meltfptr[129];
21502                                                     /*_.MELT_DEBUG_FUN__V149*/
21503                                                     meltfptr[132] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
21504                                                 }
21505                                                 ;
21506                                                 /*_._IF___V148*/
21507                                                 meltfptr[125] = /*_.MELT_DEBUG_FUN__V149*/ meltfptr[132];;
21508                                                 /*epilog*/
21509
21510                                                 MELT_LOCATION("warmelt-normal.melt:2468:/ clear");
21511                                                 /*clear*/ /*_#MELT_CALLCOUNT__L60*/
21512                                                 meltfnum[59] = 0 ;
21513                                                 /*^clear*/
21514                                                 /*clear*/ /*_.MELT_DEBUG_FUN__V149*/
21515                                                 meltfptr[132] = 0 ;
21516                                             }
21517                                             ;
21518                                         }
21519                                     else    /*^cond.else*/
21520                                         {
21521
21522                                             /*_._IF___V148*/ meltfptr[125] =  /*reallynil*/ NULL ;;
21523                                         }
21524                                     ;
21525
21526                                     {
21527                                         MELT_LOCATION("warmelt-normal.melt:2468:/ locexp");
21528                                         /*void*/
21529                                         (void)0;
21530                                     }
21531                                     ;
21532                                     /*^quasiblock*/
21533
21534
21535                                     /*epilog*/
21536
21537                                     /*^clear*/
21538                                     /*clear*/ /*_#MELT_NEED_DBG__L59*/
21539                                     meltfnum[58] = 0 ;
21540                                     /*^clear*/
21541                                     /*clear*/ /*_._IF___V148*/
21542                                     meltfptr[125] = 0 ;
21543                                 }
21544
21545 #else /*MELT_HAVE_DEBUG*/
21546                                 /*^cppif.else*/
21547                                 /*^block*/
21548                                 /*anyblock*/
21549                                 {
21550
21551
21552                                     {
21553                                         /*^locexp*/
21554                                         /*void*/(void)0;
21555                                     }
21556                                     ;
21557                                     /*epilog*/
21558                                 }
21559
21560 #endif /*MELT_HAVE_DEBUG*/
21561                                 ;
21562
21563                                 MELT_CHECK_SIGNAL();
21564                                 ;
21565                                 /*_#IS_NOT_A__L61*/
21566                                 meltfnum[59] =
21567                                     !melt_is_instance_of((melt_ptr_t)(/*_.NOUTVAR__V146*/ meltfptr[126]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[22])));;
21568                                 MELT_LOCATION("warmelt-normal.melt:2469:/ cond");
21569                                 /*cond*/
21570                                 if (/*_#IS_NOT_A__L61*/ meltfnum[59]) /*then*/
21571                                     {
21572                                         /*^cond.then*/
21573                                         /*^block*/
21574                                         /*anyblock*/
21575                                         {
21576
21577                                             MELT_LOCATION("warmelt-normal.melt:2470:/ cond");
21578                                             /*cond*/
21579                                             if (
21580                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTARG__V140*/ meltfptr[135]),
21581                                                                               (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8])))
21582                                             ) /*then*/
21583                                                 {
21584                                                     /*^cond.then*/
21585                                                     /*^getslot*/
21586                                                     {
21587                                                         melt_ptr_t slot=NULL, obj=NULL;
21588                                                         obj = (melt_ptr_t)(/*_.CUROUTARG__V140*/ meltfptr[135]) /*=obj*/;
21589                                                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
21590                                                         /*_.NAMED_NAME__V150*/
21591                                                         meltfptr[124] = slot;
21592                                                     };
21593                                                     ;
21594                                                 }
21595                                             else    /*^cond.else*/
21596                                                 {
21597
21598                                                     /*_.NAMED_NAME__V150*/ meltfptr[124] =  /*reallynil*/ NULL ;;
21599                                                 }
21600                                             ;
21601
21602                                             MELT_CHECK_SIGNAL();
21603                                             ;
21604                                             MELT_LOCATION("warmelt-normal.melt:2470:/ apply");
21605                                             /*apply*/
21606                                             {
21607                                                 union meltparam_un argtab[3];
21608                                                 memset(&argtab, 0, sizeof(argtab));
21609                                                 /*^apply.arg*/
21610                                                 argtab[0].meltbp_cstring =  "invalid output variable $1 for hook $2";
21611                                                 /*^apply.arg*/
21612                                                 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V150*/ meltfptr[124];
21613                                                 /*^apply.arg*/
21614                                                 argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.HNAMESTR__V93*/ meltfptr[47];
21615                                                 /*_.ERROR_AT__V151*/
21616                                                 meltfptr[123] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
21617                                             }
21618                                             ;
21619                                             MELT_LOCATION("warmelt-normal.melt:2471:/ compute");
21620                                             /*_#ERRORFLAG__L6*/
21621                                             meltfnum[0] = /*_#SETQ___L63*/ meltfnum[62] = 1;;
21622                                             MELT_LOCATION("warmelt-normal.melt:2469:/ quasiblock");
21623
21624
21625                                             /*_#PROGN___L64*/
21626                                             meltfnum[63] = /*_#SETQ___L63*/ meltfnum[62];;
21627                                             /*^compute*/
21628                                             /*_#_IF___L62*/
21629                                             meltfnum[58] = /*_#PROGN___L64*/ meltfnum[63];;
21630                                             /*epilog*/
21631
21632                                             MELT_LOCATION("warmelt-normal.melt:2469:/ clear");
21633                                             /*clear*/ /*_.NAMED_NAME__V150*/
21634                                             meltfptr[124] = 0 ;
21635                                             /*^clear*/
21636                                             /*clear*/ /*_.ERROR_AT__V151*/
21637                                             meltfptr[123] = 0 ;
21638                                             /*^clear*/
21639                                             /*clear*/ /*_#SETQ___L63*/
21640                                             meltfnum[62] = 0 ;
21641                                             /*^clear*/
21642                                             /*clear*/ /*_#PROGN___L64*/
21643                                             meltfnum[63] = 0 ;
21644                                         }
21645                                         ;
21646                                     }
21647                                 else    /*^cond.else*/
21648                                     {
21649
21650                                         /*_#_IF___L62*/ meltfnum[58] = 0;;
21651                                     }
21652                                 ;
21653
21654 #if MELT_HAVE_DEBUG
21655                                 MELT_LOCATION("warmelt-normal.melt:2472:/ cppif.then");
21656                                 /*^block*/
21657                                 /*anyblock*/
21658                                 {
21659
21660
21661                                     MELT_CHECK_SIGNAL();
21662                                     ;
21663                                     /*_#IS_A__L65*/
21664                                     meltfnum[62] =
21665                                         melt_is_instance_of((melt_ptr_t)(/*_.VAROUTCTYP__V147*/ meltfptr[129]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[12])));;
21666                                     MELT_LOCATION("warmelt-normal.melt:2472:/ cond");
21667                                     /*cond*/
21668                                     if (/*_#IS_A__L65*/ meltfnum[62]) /*then*/
21669                                         {
21670                                             /*^cond.then*/
21671                                             /*_._IFELSE___V153*/ meltfptr[125] = (/*nil*/NULL);;
21672                                         }
21673                                     else
21674                                         {
21675                                             MELT_LOCATION("warmelt-normal.melt:2472:/ cond.else");
21676
21677                                             /*^block*/
21678                                             /*anyblock*/
21679                                             {
21680
21681
21682                                                 MELT_CHECK_SIGNAL();
21683                                                 ;
21684                                                 /*^apply*/
21685                                                 /*apply*/
21686                                                 {
21687                                                     union meltparam_un argtab[4];
21688                                                     memset(&argtab, 0, sizeof(argtab));
21689                                                     /*^apply.arg*/
21690                                                     argtab[0].meltbp_cstring =  "check varoutctyp";
21691                                                     /*^apply.arg*/
21692                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
21693                                                     /*^apply.arg*/
21694                                                     argtab[2].meltbp_long = 2472;
21695                                                     /*^apply.arg*/
21696                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VAROUTCTYP__V147*/ meltfptr[129];
21697                                                     /*_.MELT_ASSERT_FAILURE_FUN__V154*/
21698                                                     meltfptr[124] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
21699                                                 }
21700                                                 ;
21701                                                 /*_._IFELSE___V153*/
21702                                                 meltfptr[125] = /*_.MELT_ASSERT_FAILURE_FUN__V154*/ meltfptr[124];;
21703                                                 /*epilog*/
21704
21705                                                 MELT_LOCATION("warmelt-normal.melt:2472:/ clear");
21706                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V154*/
21707                                                 meltfptr[124] = 0 ;
21708                                             }
21709                                             ;
21710                                         }
21711                                     ;
21712                                     /*_.IFCPP___V152*/
21713                                     meltfptr[132] = /*_._IFELSE___V153*/ meltfptr[125];;
21714                                     /*epilog*/
21715
21716                                     MELT_LOCATION("warmelt-normal.melt:2472:/ clear");
21717                                     /*clear*/ /*_#IS_A__L65*/
21718                                     meltfnum[62] = 0 ;
21719                                     /*^clear*/
21720                                     /*clear*/ /*_._IFELSE___V153*/
21721                                     meltfptr[125] = 0 ;
21722                                 }
21723
21724 #else /*MELT_HAVE_DEBUG*/
21725                                 /*^cppif.else*/
21726                                 /*_.IFCPP___V152*/ meltfptr[132] = (/*nil*/NULL);
21727 #endif /*MELT_HAVE_DEBUG*/
21728                                 ;
21729
21730                                 MELT_CHECK_SIGNAL();
21731                                 ;
21732                                 /*^compute*/
21733                                 /*_#exeq__L66*/
21734                                 meltfnum[63] =
21735                                     ((/*_.VAROUTCTYP__V147*/ meltfptr[129]) != (/*_.OUTBCTYP__V142*/ meltfptr[121]));;
21736                                 MELT_LOCATION("warmelt-normal.melt:2473:/ cond");
21737                                 /*cond*/
21738                                 if (/*_#exeq__L66*/ meltfnum[63]) /*then*/
21739                                     {
21740                                         /*^cond.then*/
21741                                         /*^block*/
21742                                         /*anyblock*/
21743                                         {
21744
21745                                             MELT_LOCATION("warmelt-normal.melt:2475:/ cond");
21746                                             /*cond*/
21747                                             if (
21748                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OUTBINDER__V143*/ meltfptr[122]),
21749                                                                               (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8])))
21750                                             ) /*then*/
21751                                                 {
21752                                                     /*^cond.then*/
21753                                                     /*^getslot*/
21754                                                     {
21755                                                         melt_ptr_t slot=NULL, obj=NULL;
21756                                                         obj = (melt_ptr_t)(/*_.OUTBINDER__V143*/ meltfptr[122]) /*=obj*/;
21757                                                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
21758                                                         /*_.NAMED_NAME__V155*/
21759                                                         meltfptr[123] = slot;
21760                                                     };
21761                                                     ;
21762                                                 }
21763                                             else    /*^cond.else*/
21764                                                 {
21765
21766                                                     /*_.NAMED_NAME__V155*/ meltfptr[123] =  /*reallynil*/ NULL ;;
21767                                                 }
21768                                             ;
21769                                             MELT_LOCATION("warmelt-normal.melt:2476:/ cond");
21770                                             /*cond*/
21771                                             if (
21772                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VAROUTCTYP__V147*/ meltfptr[129]),
21773                                                                               (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8])))
21774                                             ) /*then*/
21775                                                 {
21776                                                     /*^cond.then*/
21777                                                     /*^getslot*/
21778                                                     {
21779                                                         melt_ptr_t slot=NULL, obj=NULL;
21780                                                         obj = (melt_ptr_t)(/*_.VAROUTCTYP__V147*/ meltfptr[129]) /*=obj*/;
21781                                                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
21782                                                         /*_.NAMED_NAME__V156*/
21783                                                         meltfptr[124] = slot;
21784                                                     };
21785                                                     ;
21786                                                 }
21787                                             else    /*^cond.else*/
21788                                                 {
21789
21790                                                     /*_.NAMED_NAME__V156*/ meltfptr[124] =  /*reallynil*/ NULL ;;
21791                                                 }
21792                                             ;
21793                                             MELT_LOCATION("warmelt-normal.melt:2477:/ cond");
21794                                             /*cond*/
21795                                             if (
21796                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OUTBCTYP__V142*/ meltfptr[121]),
21797                                                                               (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8])))
21798                                             ) /*then*/
21799                                                 {
21800                                                     /*^cond.then*/
21801                                                     /*^getslot*/
21802                                                     {
21803                                                         melt_ptr_t slot=NULL, obj=NULL;
21804                                                         obj = (melt_ptr_t)(/*_.OUTBCTYP__V142*/ meltfptr[121]) /*=obj*/;
21805                                                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
21806                                                         /*_.NAMED_NAME__V157*/
21807                                                         meltfptr[125] = slot;
21808                                                     };
21809                                                     ;
21810                                                 }
21811                                             else    /*^cond.else*/
21812                                                 {
21813
21814                                                     /*_.NAMED_NAME__V157*/ meltfptr[125] =  /*reallynil*/ NULL ;;
21815                                                 }
21816                                             ;
21817
21818                                             MELT_CHECK_SIGNAL();
21819                                             ;
21820                                             MELT_LOCATION("warmelt-normal.melt:2474:/ apply");
21821                                             /*apply*/
21822                                             {
21823                                                 union meltparam_un argtab[5];
21824                                                 memset(&argtab, 0, sizeof(argtab));
21825                                                 /*^apply.arg*/
21826                                                 argtab[0].meltbp_cstring =  "incompatible output formal $1 ctype $2 expecting $3 for hook $4";
21827                                                 /*^apply.arg*/
21828                                                 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V155*/ meltfptr[123];
21829                                                 /*^apply.arg*/
21830                                                 argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V156*/ meltfptr[124];
21831                                                 /*^apply.arg*/
21832                                                 argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V157*/ meltfptr[125];
21833                                                 /*^apply.arg*/
21834                                                 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.HNAMESTR__V93*/ meltfptr[47];
21835                                                 /*_.ERROR_AT__V158*/
21836                                                 meltfptr[157] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
21837                                             }
21838                                             ;
21839                                             MELT_LOCATION("warmelt-normal.melt:2478:/ compute");
21840                                             /*_#ERRORFLAG__L6*/
21841                                             meltfnum[0] = /*_#SETQ___L68*/ meltfnum[67] = 1;;
21842                                             MELT_LOCATION("warmelt-normal.melt:2473:/ quasiblock");
21843
21844
21845                                             /*_#PROGN___L69*/
21846                                             meltfnum[68] = /*_#SETQ___L68*/ meltfnum[67];;
21847                                             /*^compute*/
21848                                             /*_#_IF___L67*/
21849                                             meltfnum[62] = /*_#PROGN___L69*/ meltfnum[68];;
21850                                             /*epilog*/
21851
21852                                             MELT_LOCATION("warmelt-normal.melt:2473:/ clear");
21853                                             /*clear*/ /*_.NAMED_NAME__V155*/
21854                                             meltfptr[123] = 0 ;
21855                                             /*^clear*/
21856                                             /*clear*/ /*_.NAMED_NAME__V156*/
21857                                             meltfptr[124] = 0 ;
21858                                             /*^clear*/
21859                                             /*clear*/ /*_.NAMED_NAME__V157*/
21860                                             meltfptr[125] = 0 ;
21861                                             /*^clear*/
21862                                             /*clear*/ /*_.ERROR_AT__V158*/
21863                                             meltfptr[157] = 0 ;
21864                                             /*^clear*/
21865                                             /*clear*/ /*_#SETQ___L68*/
21866                                             meltfnum[67] = 0 ;
21867                                             /*^clear*/
21868                                             /*clear*/ /*_#PROGN___L69*/
21869                                             meltfnum[68] = 0 ;
21870                                         }
21871                                         ;
21872                                     }
21873                                 else    /*^cond.else*/
21874                                     {
21875
21876                                         /*_#_IF___L67*/ meltfnum[62] = 0;;
21877                                     }
21878                                 ;
21879
21880                                 {
21881                                     MELT_LOCATION("warmelt-normal.melt:2480:/ locexp");
21882                                     meltgc_multiple_put_nth((melt_ptr_t)(/*_.NOUTS__V96*/ meltfptr[37]), (/*_#OUTIX__L52*/ meltfnum[40]), (melt_ptr_t)(/*_.NOUTVAR__V146*/ meltfptr[126]));
21883                                 }
21884                                 ;
21885                                 /*_#_IFELSE___L58*/
21886                                 meltfnum[54] = /*_#_IF___L67*/ meltfnum[62];;
21887
21888                                 MELT_LOCATION("warmelt-normal.melt:2465:/ clear");
21889                                 /*clear*/ /*_.NOUTVAR__V146*/
21890                                 meltfptr[126] = 0 ;
21891                                 /*^clear*/
21892                                 /*clear*/ /*_.VAROUTCTYP__V147*/
21893                                 meltfptr[129] = 0 ;
21894                                 /*^clear*/
21895                                 /*clear*/ /*_#IS_NOT_A__L61*/
21896                                 meltfnum[59] = 0 ;
21897                                 /*^clear*/
21898                                 /*clear*/ /*_#_IF___L62*/
21899                                 meltfnum[58] = 0 ;
21900                                 /*^clear*/
21901                                 /*clear*/ /*_.IFCPP___V152*/
21902                                 meltfptr[132] = 0 ;
21903                                 /*^clear*/
21904                                 /*clear*/ /*_#exeq__L66*/
21905                                 meltfnum[63] = 0 ;
21906                                 /*^clear*/
21907                                 /*clear*/ /*_#_IF___L67*/
21908                                 meltfnum[62] = 0 ;
21909                                 /*epilog*/
21910                             }
21911                             ;
21912                         }
21913                     else
21914                         {
21915                             MELT_LOCATION("warmelt-normal.melt:2464:/ cond.else");
21916
21917                             /*^block*/
21918                             /*anyblock*/
21919                             {
21920
21921                                 MELT_LOCATION("warmelt-normal.melt:2483:/ getslot");
21922                                 {
21923                                     melt_ptr_t slot=NULL, obj=NULL;
21924                                     obj = (melt_ptr_t)(/*_.OUTBINDER__V143*/ meltfptr[122]) /*=obj*/;
21925                                     melt_object_get_field(slot,obj, 1, "NAMED_NAME");
21926                                     /*_.NAMED_NAME__V159*/
21927                                     meltfptr[123] = slot;
21928                                 };
21929                                 ;
21930
21931                                 MELT_CHECK_SIGNAL();
21932                                 ;
21933                                 /*^apply*/
21934                                 /*apply*/
21935                                 {
21936                                     union meltparam_un argtab[3];
21937                                     memset(&argtab, 0, sizeof(argtab));
21938                                     /*^apply.arg*/
21939                                     argtab[0].meltbp_cstring =  "hook output argument is not a symbol for formal output $1 of hook $2";
21940                                     /*^apply.arg*/
21941                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V159*/ meltfptr[123];
21942                                     /*^apply.arg*/
21943                                     argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.HNAMESTR__V93*/ meltfptr[47];
21944                                     /*_.ERROR_AT__V160*/
21945                                     meltfptr[124] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
21946                                 }
21947                                 ;
21948                                 MELT_LOCATION("warmelt-normal.melt:2484:/ compute");
21949                                 /*_#ERRORFLAG__L6*/
21950                                 meltfnum[0] = /*_#SETQ___L70*/ meltfnum[67] = 1;;
21951                                 MELT_LOCATION("warmelt-normal.melt:2482:/ quasiblock");
21952
21953
21954                                 /*_#PROGN___L71*/
21955                                 meltfnum[68] = /*_#SETQ___L70*/ meltfnum[67];;
21956                                 /*^compute*/
21957                                 /*_#_IFELSE___L58*/
21958                                 meltfnum[54] = /*_#PROGN___L71*/ meltfnum[68];;
21959                                 /*epilog*/
21960
21961                                 MELT_LOCATION("warmelt-normal.melt:2464:/ clear");
21962                                 /*clear*/ /*_.NAMED_NAME__V159*/
21963                                 meltfptr[123] = 0 ;
21964                                 /*^clear*/
21965                                 /*clear*/ /*_.ERROR_AT__V160*/
21966                                 meltfptr[124] = 0 ;
21967                                 /*^clear*/
21968                                 /*clear*/ /*_#SETQ___L70*/
21969                                 meltfnum[67] = 0 ;
21970                                 /*^clear*/
21971                                 /*clear*/ /*_#PROGN___L71*/
21972                                 meltfnum[68] = 0 ;
21973                             }
21974                             ;
21975                         }
21976                     ;
21977                     /*_#LET___L53*/
21978                     meltfnum[47] = /*_#_IFELSE___L58*/ meltfnum[54];;
21979
21980                     MELT_LOCATION("warmelt-normal.melt:2455:/ clear");
21981                     /*clear*/ /*_#plI__L54*/
21982                     meltfnum[46] = 0 ;
21983                     /*^clear*/
21984                     /*clear*/ /*_.CUROUTARG__V140*/
21985                     meltfptr[135] = 0 ;
21986                     /*^clear*/
21987                     /*clear*/ /*_.CUROUTBIND__V141*/
21988                     meltfptr[136] = 0 ;
21989                     /*^clear*/
21990                     /*clear*/ /*_.OUTBCTYP__V142*/
21991                     meltfptr[121] = 0 ;
21992                     /*^clear*/
21993                     /*clear*/ /*_.OUTBINDER__V143*/
21994                     meltfptr[122] = 0 ;
21995                     /*^clear*/
21996                     /*clear*/ /*_#IS_A__L57*/
21997                     meltfnum[55] = 0 ;
21998                     /*^clear*/
21999                     /*clear*/ /*_#_IFELSE___L58*/
22000                     meltfnum[54] = 0 ;
22001                 } /*end foreach_long_upto meltcit4__EACHLONG */
22002
22003             /*citerepilog*/
22004
22005             MELT_LOCATION("warmelt-normal.melt:2452:/ clear");
22006             /*clear*/ /*_#OUTIX__L52*/
22007             meltfnum[40] = 0 ;
22008             /*^clear*/
22009             /*clear*/ /*_#LET___L53*/
22010             meltfnum[47] = 0 ;
22011         } /*endciterblock FOREACH_LONG_UPTO*/
22012         ;
22013
22014 #if MELT_HAVE_DEBUG
22015         MELT_LOCATION("warmelt-normal.melt:2487:/ cppif.then");
22016         /*^block*/
22017         /*anyblock*/
22018         {
22019
22020
22021             {
22022                 /*^locexp*/
22023                 /*melt_increment_dbgcounter*/
22024 #if MELT_HAVE_DEBUG
22025                 melt_dbgcounter++;
22026 #endif
22027                 ;
22028             }
22029             ;
22030
22031             MELT_CHECK_SIGNAL();
22032             ;
22033             /*_#MELT_NEED_DBG__L72*/
22034             meltfnum[59] =
22035                 /*MELT_NEED_DBG*/
22036 #if MELT_HAVE_DEBUG
22037                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
22038 #else
22039                 0 /* no melt_need_dbg */
22040 #endif /*MELT_HAVE_DEBUG*/
22041                 ;;
22042             MELT_LOCATION("warmelt-normal.melt:2487:/ cond");
22043             /*cond*/
22044             if (/*_#MELT_NEED_DBG__L72*/ meltfnum[59]) /*then*/
22045                 {
22046                     /*^cond.then*/
22047                     /*^block*/
22048                     /*anyblock*/
22049                     {
22050
22051                         /*_#MELT_CALLCOUNT__L73*/ meltfnum[58] =
22052                             /* for melt_callcount */
22053 #if MELT_HAVE_DEBUG && defined (meltcallcount)
22054                             meltcallcount  /* melt_callcount debugging */
22055 #else
22056                             0L  /* melt_callcount without debug */
22057 #endif /* MELT_HAVE_DEBUG melt_callcount */
22058                             ;;
22059
22060                         MELT_CHECK_SIGNAL();
22061                         ;
22062                         MELT_LOCATION("warmelt-normal.melt:2487:/ apply");
22063                         /*apply*/
22064                         {
22065                             union meltparam_un argtab[9];
22066                             memset(&argtab, 0, sizeof(argtab));
22067                             /*^apply.arg*/
22068                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L73*/ meltfnum[58];
22069                             /*^apply.arg*/
22070                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
22071                             /*^apply.arg*/
22072                             argtab[2].meltbp_long = 2487;
22073                             /*^apply.arg*/
22074                             argtab[3].meltbp_cstring =  "normexp_hook_call  errorflag=";
22075                             /*^apply.arg*/
22076                             argtab[4].meltbp_long = /*_#ERRORFLAG__L6*/ meltfnum[0];
22077                             /*^apply.arg*/
22078                             argtab[5].meltbp_cstring =  " souts=";
22079                             /*^apply.arg*/
22080                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SOUTS__V95*/ meltfptr[64];
22081                             /*^apply.arg*/
22082                             argtab[7].meltbp_cstring =  " nouts=";
22083                             /*^apply.arg*/
22084                             argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NOUTS__V96*/ meltfptr[37];
22085                             /*_.MELT_DEBUG_FUN__V162*/
22086                             meltfptr[157] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
22087                         }
22088                         ;
22089                         /*_._IF___V161*/
22090                         meltfptr[125] = /*_.MELT_DEBUG_FUN__V162*/ meltfptr[157];;
22091                         /*epilog*/
22092
22093                         MELT_LOCATION("warmelt-normal.melt:2487:/ clear");
22094                         /*clear*/ /*_#MELT_CALLCOUNT__L73*/
22095                         meltfnum[58] = 0 ;
22096                         /*^clear*/
22097                         /*clear*/ /*_.MELT_DEBUG_FUN__V162*/
22098                         meltfptr[157] = 0 ;
22099                     }
22100                     ;
22101                 }
22102             else    /*^cond.else*/
22103                 {
22104
22105                     /*_._IF___V161*/ meltfptr[125] =  /*reallynil*/ NULL ;;
22106                 }
22107             ;
22108
22109             {
22110                 MELT_LOCATION("warmelt-normal.melt:2487:/ locexp");
22111                 /*void*/
22112                 (void)0;
22113             }
22114             ;
22115             /*^quasiblock*/
22116
22117
22118             /*epilog*/
22119
22120             /*^clear*/
22121             /*clear*/ /*_#MELT_NEED_DBG__L72*/
22122             meltfnum[59] = 0 ;
22123             /*^clear*/
22124             /*clear*/ /*_._IF___V161*/
22125             meltfptr[125] = 0 ;
22126         }
22127
22128 #else /*MELT_HAVE_DEBUG*/
22129         /*^cppif.else*/
22130         /*^block*/
22131         /*anyblock*/
22132         {
22133
22134
22135             {
22136                 /*^locexp*/
22137                 /*void*/(void)0;
22138             }
22139             ;
22140             /*epilog*/
22141         }
22142
22143 #endif /*MELT_HAVE_DEBUG*/
22144         ;
22145
22146         MELT_CHECK_SIGNAL();
22147         ;
22148         MELT_LOCATION("warmelt-normal.melt:2488:/ cond");
22149         /*cond*/
22150         if (/*_#ERRORFLAG__L6*/ meltfnum[0]) /*then*/
22151             {
22152                 /*^cond.then*/
22153                 /*^block*/
22154                 /*anyblock*/
22155                 {
22156
22157
22158                     MELT_CHECK_SIGNAL();
22159                     ;
22160                     MELT_LOCATION("warmelt-normal.melt:2489:/ quasiblock");
22161
22162
22163                     /*_._RETVAL___V1*/
22164                     meltfptr[0] = (/*nil*/NULL);;
22165                     MELT_LOCATION("warmelt-normal.melt:2489:/ putxtraresult");
22166                     if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
22167                     if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
22168                     if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*nil*/NULL));
22169                     ;
22170                     /*^finalreturn*/
22171                     ;
22172                     /*finalret*/
22173                     goto meltlabend_rout ;
22174                     /*_._IF___V163*/
22175                     meltfptr[126] = /*_.RETURN___V164*/ meltfptr[129];;
22176                     /*epilog*/
22177
22178                     MELT_LOCATION("warmelt-normal.melt:2488:/ clear");
22179                     /*clear*/ /*_.RETURN___V164*/
22180                     meltfptr[129] = 0 ;
22181                 }
22182                 ;
22183             }
22184         else    /*^cond.else*/
22185             {
22186
22187                 /*_._IF___V163*/ meltfptr[126] =  /*reallynil*/ NULL ;;
22188             }
22189         ;
22190
22191 #if MELT_HAVE_DEBUG
22192         MELT_LOCATION("warmelt-normal.melt:2491:/ cppif.then");
22193         /*^block*/
22194         /*anyblock*/
22195         {
22196
22197
22198             {
22199                 /*^locexp*/
22200                 /*melt_increment_dbgcounter*/
22201 #if MELT_HAVE_DEBUG
22202                 melt_dbgcounter++;
22203 #endif
22204                 ;
22205             }
22206             ;
22207
22208             MELT_CHECK_SIGNAL();
22209             ;
22210             /*_#MELT_NEED_DBG__L74*/
22211             meltfnum[63] =
22212                 /*MELT_NEED_DBG*/
22213 #if MELT_HAVE_DEBUG
22214                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
22215 #else
22216                 0 /* no melt_need_dbg */
22217 #endif /*MELT_HAVE_DEBUG*/
22218                 ;;
22219             MELT_LOCATION("warmelt-normal.melt:2491:/ cond");
22220             /*cond*/
22221             if (/*_#MELT_NEED_DBG__L74*/ meltfnum[63]) /*then*/
22222                 {
22223                     /*^cond.then*/
22224                     /*^block*/
22225                     /*anyblock*/
22226                     {
22227
22228                         /*_#MELT_CALLCOUNT__L75*/ meltfnum[62] =
22229                             /* for melt_callcount */
22230 #if MELT_HAVE_DEBUG && defined (meltcallcount)
22231                             meltcallcount  /* melt_callcount debugging */
22232 #else
22233                             0L  /* melt_callcount without debug */
22234 #endif /* MELT_HAVE_DEBUG melt_callcount */
22235                             ;;
22236
22237                         MELT_CHECK_SIGNAL();
22238                         ;
22239                         MELT_LOCATION("warmelt-normal.melt:2491:/ apply");
22240                         /*apply*/
22241                         {
22242                             union meltparam_un argtab[7];
22243                             memset(&argtab, 0, sizeof(argtab));
22244                             /*^apply.arg*/
22245                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L75*/ meltfnum[62];
22246                             /*^apply.arg*/
22247                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
22248                             /*^apply.arg*/
22249                             argtab[2].meltbp_long = 2491;
22250                             /*^apply.arg*/
22251                             argtab[3].meltbp_cstring =  "normexp_hook_call hksymb=";
22252                             /*^apply.arg*/
22253                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.HKSYMB__V22*/ meltfptr[21];
22254                             /*^apply.arg*/
22255                             argtab[5].meltbp_cstring =  "\n hkbind=";
22256                             /*^apply.arg*/
22257                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.HKBIND__V97*/ meltfptr[67];
22258                             /*_.MELT_DEBUG_FUN__V166*/
22259                             meltfptr[123] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
22260                         }
22261                         ;
22262                         /*_._IF___V165*/
22263                         meltfptr[132] = /*_.MELT_DEBUG_FUN__V166*/ meltfptr[123];;
22264                         /*epilog*/
22265
22266                         MELT_LOCATION("warmelt-normal.melt:2491:/ clear");
22267                         /*clear*/ /*_#MELT_CALLCOUNT__L75*/
22268                         meltfnum[62] = 0 ;
22269                         /*^clear*/
22270                         /*clear*/ /*_.MELT_DEBUG_FUN__V166*/
22271                         meltfptr[123] = 0 ;
22272                     }
22273                     ;
22274                 }
22275             else    /*^cond.else*/
22276                 {
22277
22278                     /*_._IF___V165*/ meltfptr[132] =  /*reallynil*/ NULL ;;
22279                 }
22280             ;
22281
22282             {
22283                 MELT_LOCATION("warmelt-normal.melt:2491:/ locexp");
22284                 /*void*/
22285                 (void)0;
22286             }
22287             ;
22288             /*^quasiblock*/
22289
22290
22291             /*epilog*/
22292
22293             /*^clear*/
22294             /*clear*/ /*_#MELT_NEED_DBG__L74*/
22295             meltfnum[63] = 0 ;
22296             /*^clear*/
22297             /*clear*/ /*_._IF___V165*/
22298             meltfptr[132] = 0 ;
22299         }
22300
22301 #else /*MELT_HAVE_DEBUG*/
22302         /*^cppif.else*/
22303         /*^block*/
22304         /*anyblock*/
22305         {
22306
22307
22308             {
22309                 /*^locexp*/
22310                 /*void*/(void)0;
22311             }
22312             ;
22313             /*epilog*/
22314         }
22315
22316 #endif /*MELT_HAVE_DEBUG*/
22317         ;
22318         MELT_LOCATION("warmelt-normal.melt:2492:/ quasiblock");
22319
22320
22321
22322         MELT_CHECK_SIGNAL();
22323         ;
22324         MELT_LOCATION("warmelt-normal.melt:2493:/ apply");
22325         /*apply*/
22326         {
22327             union meltparam_un argtab[3];
22328             memset(&argtab, 0, sizeof(argtab));
22329             /*^apply.arg*/
22330             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
22331             /*^apply.arg*/
22332             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
22333             /*^apply.arg*/
22334             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
22335             /*_.NHOOK__V168*/
22336             meltfptr[135] =  melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.HKSYMB__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
22337         }
22338         ;
22339
22340         MELT_CHECK_SIGNAL();
22341         ;
22342         MELT_LOCATION("warmelt-normal.melt:2494:/ quasiblock");
22343
22344
22345         /*^rawallocobj*/
22346         /*rawallocobj*/
22347         {
22348             melt_ptr_t newobj = 0;
22349             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_HOOK_CALL*/ meltfrout->tabval[23])), (7), "CLASS_NREP_HOOK_CALL");
22350             /*_.INST__V170*/
22351             meltfptr[121] =
22352                 newobj;
22353         };
22354         ;
22355         /*^putslot*/
22356         /*putslot*/
22357         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V170*/ meltfptr[121])) == MELTOBMAG_OBJECT);
22358         melt_putfield_object((/*_.INST__V170*/ meltfptr[121]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
22359         ;
22360         /*^putslot*/
22361         /*putslot*/
22362         melt_assertmsg("checkobj putslot  _ @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V170*/ meltfptr[121])) == MELTOBMAG_OBJECT);
22363         melt_putfield_object((/*_.INST__V170*/ meltfptr[121]), (1), (/*_.HKCTYPE__V25*/ meltfptr[24]), "NEXPR_CTYP");
22364         ;
22365         /*^putslot*/
22366         /*putslot*/
22367         melt_assertmsg("checkobj putslot  _ @NHOOK_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V170*/ meltfptr[121])) == MELTOBMAG_OBJECT);
22368         melt_putfield_object((/*_.INST__V170*/ meltfptr[121]), (3), (/*_.HKNAME__V21*/ meltfptr[20]), "NHOOK_NAME");
22369         ;
22370         /*^putslot*/
22371         /*putslot*/
22372         melt_assertmsg("checkobj putslot  _ @NHOOK_CALLED", melt_magic_discr((melt_ptr_t)(/*_.INST__V170*/ meltfptr[121])) == MELTOBMAG_OBJECT);
22373         melt_putfield_object((/*_.INST__V170*/ meltfptr[121]), (4), (/*_.NHOOK__V168*/ meltfptr[135]), "NHOOK_CALLED");
22374         ;
22375         /*^putslot*/
22376         /*putslot*/
22377         melt_assertmsg("checkobj putslot  _ @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V170*/ meltfptr[121])) == MELTOBMAG_OBJECT);
22378         melt_putfield_object((/*_.INST__V170*/ meltfptr[121]), (2), (/*_.NINARGS__V111*/ meltfptr[39]), "NEXPR_ARGS");
22379         ;
22380         /*^putslot*/
22381         /*putslot*/
22382         melt_assertmsg("checkobj putslot  _ @NHOOK_OUTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V170*/ meltfptr[121])) == MELTOBMAG_OBJECT);
22383         melt_putfield_object((/*_.INST__V170*/ meltfptr[121]), (5), (/*_.NOUTS__V96*/ meltfptr[37]), "NHOOK_OUTS");
22384         ;
22385         /*^putslot*/
22386         /*putslot*/
22387         melt_assertmsg("checkobj putslot  _ @NHOOK_DESCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V170*/ meltfptr[121])) == MELTOBMAG_OBJECT);
22388         melt_putfield_object((/*_.INST__V170*/ meltfptr[121]), (6), (/*_.HKDESCR__V26*/ meltfptr[25]), "NHOOK_DESCR");
22389         ;
22390         /*^touchobj*/
22391
22392         melt_dbgtrace_written_object (/*_.INST__V170*/ meltfptr[121], "newly made instance");
22393         ;
22394         /*_.NHKCALL__V169*/
22395         meltfptr[136] = /*_.INST__V170*/ meltfptr[121];;
22396
22397 #if MELT_HAVE_DEBUG
22398         MELT_LOCATION("warmelt-normal.melt:2504:/ cppif.then");
22399         /*^block*/
22400         /*anyblock*/
22401         {
22402
22403
22404             {
22405                 /*^locexp*/
22406                 /*melt_increment_dbgcounter*/
22407 #if MELT_HAVE_DEBUG
22408                 melt_dbgcounter++;
22409 #endif
22410                 ;
22411             }
22412             ;
22413
22414             MELT_CHECK_SIGNAL();
22415             ;
22416             /*_#MELT_NEED_DBG__L76*/
22417             meltfnum[67] =
22418                 /*MELT_NEED_DBG*/
22419 #if MELT_HAVE_DEBUG
22420                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
22421 #else
22422                 0 /* no melt_need_dbg */
22423 #endif /*MELT_HAVE_DEBUG*/
22424                 ;;
22425             MELT_LOCATION("warmelt-normal.melt:2504:/ cond");
22426             /*cond*/
22427             if (/*_#MELT_NEED_DBG__L76*/ meltfnum[67]) /*then*/
22428                 {
22429                     /*^cond.then*/
22430                     /*^block*/
22431                     /*anyblock*/
22432                     {
22433
22434                         /*_#MELT_CALLCOUNT__L77*/ meltfnum[68] =
22435                             /* for melt_callcount */
22436 #if MELT_HAVE_DEBUG && defined (meltcallcount)
22437                             meltcallcount  /* melt_callcount debugging */
22438 #else
22439                             0L  /* melt_callcount without debug */
22440 #endif /* MELT_HAVE_DEBUG melt_callcount */
22441                             ;;
22442
22443                         MELT_CHECK_SIGNAL();
22444                         ;
22445                         MELT_LOCATION("warmelt-normal.melt:2504:/ apply");
22446                         /*apply*/
22447                         {
22448                             union meltparam_un argtab[11];
22449                             memset(&argtab, 0, sizeof(argtab));
22450                             /*^apply.arg*/
22451                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L77*/ meltfnum[68];
22452                             /*^apply.arg*/
22453                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
22454                             /*^apply.arg*/
22455                             argtab[2].meltbp_long = 2504;
22456                             /*^apply.arg*/
22457                             argtab[3].meltbp_cstring =  "normexp_hook_call nhkcall=";
22458                             /*^apply.arg*/
22459                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NHKCALL__V169*/ meltfptr[136];
22460                             /*^apply.arg*/
22461                             argtab[5].meltbp_cstring =  "\n.. nhook=";
22462                             /*^apply.arg*/
22463                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NHOOK__V168*/ meltfptr[135];
22464                             /*^apply.arg*/
22465                             argtab[7].meltbp_cstring =  "\n.. hksymb=";
22466                             /*^apply.arg*/
22467                             argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.HKSYMB__V22*/ meltfptr[21];
22468                             /*^apply.arg*/
22469                             argtab[9].meltbp_cstring =  "\n .. hkdescr=";
22470                             /*^apply.arg*/
22471                             argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.HKDESCR__V26*/ meltfptr[25];
22472                             /*_.MELT_DEBUG_FUN__V172*/
22473                             meltfptr[157] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
22474                         }
22475                         ;
22476                         /*_._IF___V171*/
22477                         meltfptr[122] = /*_.MELT_DEBUG_FUN__V172*/ meltfptr[157];;
22478                         /*epilog*/
22479
22480                         MELT_LOCATION("warmelt-normal.melt:2504:/ clear");
22481                         /*clear*/ /*_#MELT_CALLCOUNT__L77*/
22482                         meltfnum[68] = 0 ;
22483                         /*^clear*/
22484                         /*clear*/ /*_.MELT_DEBUG_FUN__V172*/
22485                         meltfptr[157] = 0 ;
22486                     }
22487                     ;
22488                 }
22489             else    /*^cond.else*/
22490                 {
22491
22492                     /*_._IF___V171*/ meltfptr[122] =  /*reallynil*/ NULL ;;
22493                 }
22494             ;
22495
22496             {
22497                 MELT_LOCATION("warmelt-normal.melt:2504:/ locexp");
22498                 /*void*/
22499                 (void)0;
22500             }
22501             ;
22502             /*^quasiblock*/
22503
22504
22505             /*epilog*/
22506
22507             /*^clear*/
22508             /*clear*/ /*_#MELT_NEED_DBG__L76*/
22509             meltfnum[67] = 0 ;
22510             /*^clear*/
22511             /*clear*/ /*_._IF___V171*/
22512             meltfptr[122] = 0 ;
22513         }
22514
22515 #else /*MELT_HAVE_DEBUG*/
22516         /*^cppif.else*/
22517         /*^block*/
22518         /*anyblock*/
22519         {
22520
22521
22522             {
22523                 /*^locexp*/
22524                 /*void*/(void)0;
22525             }
22526             ;
22527             /*epilog*/
22528         }
22529
22530 #endif /*MELT_HAVE_DEBUG*/
22531         ;
22532         MELT_LOCATION("warmelt-normal.melt:2506:/ quasiblock");
22533
22534
22535
22536         MELT_CHECK_SIGNAL();
22537         ;
22538         /*^apply*/
22539         /*apply*/
22540         {
22541             /*_.CSYM__V174*/ meltfptr[129] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.HKSYMB__V22*/ meltfptr[21]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
22542         }
22543         ;
22544
22545         MELT_CHECK_SIGNAL();
22546         ;
22547         MELT_LOCATION("warmelt-normal.melt:2507:/ quasiblock");
22548
22549
22550         /*^rawallocobj*/
22551         /*rawallocobj*/
22552         {
22553             melt_ptr_t newobj = 0;
22554             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[25])), (4), "CLASS_NORMAL_LET_BINDING");
22555             /*_.INST__V176*/
22556             meltfptr[132] =
22557                 newobj;
22558         };
22559         ;
22560         /*^putslot*/
22561         /*putslot*/
22562         melt_assertmsg("checkobj putslot  _ @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V176*/ meltfptr[132])) == MELTOBMAG_OBJECT);
22563         melt_putfield_object((/*_.INST__V176*/ meltfptr[132]), (3), (/*_.SLOC__V18*/ meltfptr[5]), "LETBIND_LOC");
22564         ;
22565         /*^putslot*/
22566         /*putslot*/
22567         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V176*/ meltfptr[132])) == MELTOBMAG_OBJECT);
22568         melt_putfield_object((/*_.INST__V176*/ meltfptr[132]), (0), (/*_.CSYM__V174*/ meltfptr[129]), "BINDER");
22569         ;
22570         /*^putslot*/
22571         /*putslot*/
22572         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V176*/ meltfptr[132])) == MELTOBMAG_OBJECT);
22573         melt_putfield_object((/*_.INST__V176*/ meltfptr[132]), (1), (/*_.HKCTYPE__V25*/ meltfptr[24]), "LETBIND_TYPE");
22574         ;
22575         /*^putslot*/
22576         /*putslot*/
22577         melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V176*/ meltfptr[132])) == MELTOBMAG_OBJECT);
22578         melt_putfield_object((/*_.INST__V176*/ meltfptr[132]), (2), (/*_.NHKCALL__V169*/ meltfptr[136]), "LETBIND_EXPR");
22579         ;
22580         /*^touchobj*/
22581
22582         melt_dbgtrace_written_object (/*_.INST__V176*/ meltfptr[132], "newly made instance");
22583         ;
22584         /*_.CBIND__V175*/
22585         meltfptr[123] = /*_.INST__V176*/ meltfptr[132];;
22586
22587         MELT_CHECK_SIGNAL();
22588         ;
22589         MELT_LOCATION("warmelt-normal.melt:2513:/ quasiblock");
22590
22591
22592         /*^rawallocobj*/
22593         /*rawallocobj*/
22594         {
22595             melt_ptr_t newobj = 0;
22596             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[22])), (4), "CLASS_NREP_LOCSYMOCC");
22597             /*_.INST__V178*/
22598             meltfptr[122] =
22599                 newobj;
22600         };
22601         ;
22602         /*^putslot*/
22603         /*putslot*/
22604         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V178*/ meltfptr[122])) == MELTOBMAG_OBJECT);
22605         melt_putfield_object((/*_.INST__V178*/ meltfptr[122]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
22606         ;
22607         /*^putslot*/
22608         /*putslot*/
22609         melt_assertmsg("checkobj putslot  _ @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V178*/ meltfptr[122])) == MELTOBMAG_OBJECT);
22610         melt_putfield_object((/*_.INST__V178*/ meltfptr[122]), (2), (/*_.HKCTYPE__V25*/ meltfptr[24]), "NOCC_CTYP");
22611         ;
22612         /*^putslot*/
22613         /*putslot*/
22614         melt_assertmsg("checkobj putslot  _ @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V178*/ meltfptr[122])) == MELTOBMAG_OBJECT);
22615         melt_putfield_object((/*_.INST__V178*/ meltfptr[122]), (1), (/*_.CSYM__V174*/ meltfptr[129]), "NOCC_SYMB");
22616         ;
22617         /*^putslot*/
22618         /*putslot*/
22619         melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V178*/ meltfptr[122])) == MELTOBMAG_OBJECT);
22620         melt_putfield_object((/*_.INST__V178*/ meltfptr[122]), (3), (/*_.CBIND__V175*/ meltfptr[123]), "NOCC_BIND");
22621         ;
22622         /*^touchobj*/
22623
22624         melt_dbgtrace_written_object (/*_.INST__V178*/ meltfptr[122], "newly made instance");
22625         ;
22626         /*_.CLOCC__V177*/
22627         meltfptr[157] = /*_.INST__V178*/ meltfptr[122];;
22628
22629 #if MELT_HAVE_DEBUG
22630         MELT_LOCATION("warmelt-normal.melt:2519:/ cppif.then");
22631         /*^block*/
22632         /*anyblock*/
22633         {
22634
22635
22636             {
22637                 /*^locexp*/
22638                 /*melt_increment_dbgcounter*/
22639 #if MELT_HAVE_DEBUG
22640                 melt_dbgcounter++;
22641 #endif
22642                 ;
22643             }
22644             ;
22645
22646             MELT_CHECK_SIGNAL();
22647             ;
22648             /*_#MELT_NEED_DBG__L78*/
22649             meltfnum[46] =
22650                 /*MELT_NEED_DBG*/
22651 #if MELT_HAVE_DEBUG
22652                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
22653 #else
22654                 0 /* no melt_need_dbg */
22655 #endif /*MELT_HAVE_DEBUG*/
22656                 ;;
22657             MELT_LOCATION("warmelt-normal.melt:2519:/ cond");
22658             /*cond*/
22659             if (/*_#MELT_NEED_DBG__L78*/ meltfnum[46]) /*then*/
22660                 {
22661                     /*^cond.then*/
22662                     /*^block*/
22663                     /*anyblock*/
22664                     {
22665
22666                         /*_#MELT_CALLCOUNT__L79*/ meltfnum[55] =
22667                             /* for melt_callcount */
22668 #if MELT_HAVE_DEBUG && defined (meltcallcount)
22669                             meltcallcount  /* melt_callcount debugging */
22670 #else
22671                             0L  /* melt_callcount without debug */
22672 #endif /* MELT_HAVE_DEBUG melt_callcount */
22673                             ;;
22674
22675                         MELT_CHECK_SIGNAL();
22676                         ;
22677                         MELT_LOCATION("warmelt-normal.melt:2519:/ apply");
22678                         /*apply*/
22679                         {
22680                             union meltparam_un argtab[7];
22681                             memset(&argtab, 0, sizeof(argtab));
22682                             /*^apply.arg*/
22683                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L79*/ meltfnum[55];
22684                             /*^apply.arg*/
22685                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
22686                             /*^apply.arg*/
22687                             argtab[2].meltbp_long = 2519;
22688                             /*^apply.arg*/
22689                             argtab[3].meltbp_cstring =  "normexp_hook_call cbind=";
22690                             /*^apply.arg*/
22691                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CBIND__V175*/ meltfptr[123];
22692                             /*^apply.arg*/
22693                             argtab[5].meltbp_cstring =  " clocc=";
22694                             /*^apply.arg*/
22695                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V177*/ meltfptr[157];
22696                             /*_.MELT_DEBUG_FUN__V180*/
22697                             meltfptr[179] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
22698                         }
22699                         ;
22700                         /*_._IF___V179*/
22701                         meltfptr[178] = /*_.MELT_DEBUG_FUN__V180*/ meltfptr[179];;
22702                         /*epilog*/
22703
22704                         MELT_LOCATION("warmelt-normal.melt:2519:/ clear");
22705                         /*clear*/ /*_#MELT_CALLCOUNT__L79*/
22706                         meltfnum[55] = 0 ;
22707                         /*^clear*/
22708                         /*clear*/ /*_.MELT_DEBUG_FUN__V180*/
22709                         meltfptr[179] = 0 ;
22710                     }
22711                     ;
22712                 }
22713             else    /*^cond.else*/
22714                 {
22715
22716                     /*_._IF___V179*/ meltfptr[178] =  /*reallynil*/ NULL ;;
22717                 }
22718             ;
22719
22720             {
22721                 MELT_LOCATION("warmelt-normal.melt:2519:/ locexp");
22722                 /*void*/
22723                 (void)0;
22724             }
22725             ;
22726             /*^quasiblock*/
22727
22728
22729             /*epilog*/
22730
22731             /*^clear*/
22732             /*clear*/ /*_#MELT_NEED_DBG__L78*/
22733             meltfnum[46] = 0 ;
22734             /*^clear*/
22735             /*clear*/ /*_._IF___V179*/
22736             meltfptr[178] = 0 ;
22737         }
22738
22739 #else /*MELT_HAVE_DEBUG*/
22740         /*^cppif.else*/
22741         /*^block*/
22742         /*anyblock*/
22743         {
22744
22745
22746             {
22747                 /*^locexp*/
22748                 /*void*/(void)0;
22749             }
22750             ;
22751             /*epilog*/
22752         }
22753
22754 #endif /*MELT_HAVE_DEBUG*/
22755         ;
22756
22757         {
22758             MELT_LOCATION("warmelt-normal.melt:2520:/ locexp");
22759             meltgc_append_list((melt_ptr_t)(/*_.NINBINDS__V112*/ meltfptr[111]), (melt_ptr_t)(/*_.CBIND__V175*/ meltfptr[123]));
22760         }
22761         ;
22762
22763 #if MELT_HAVE_DEBUG
22764         MELT_LOCATION("warmelt-normal.melt:2521:/ cppif.then");
22765         /*^block*/
22766         /*anyblock*/
22767         {
22768
22769
22770             {
22771                 /*^locexp*/
22772                 /*melt_increment_dbgcounter*/
22773 #if MELT_HAVE_DEBUG
22774                 melt_dbgcounter++;
22775 #endif
22776                 ;
22777             }
22778             ;
22779
22780             MELT_CHECK_SIGNAL();
22781             ;
22782             /*_#MELT_NEED_DBG__L80*/
22783             meltfnum[54] =
22784                 /*MELT_NEED_DBG*/
22785 #if MELT_HAVE_DEBUG
22786                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
22787 #else
22788                 0 /* no melt_need_dbg */
22789 #endif /*MELT_HAVE_DEBUG*/
22790                 ;;
22791             MELT_LOCATION("warmelt-normal.melt:2521:/ cond");
22792             /*cond*/
22793             if (/*_#MELT_NEED_DBG__L80*/ meltfnum[54]) /*then*/
22794                 {
22795                     /*^cond.then*/
22796                     /*^block*/
22797                     /*anyblock*/
22798                     {
22799
22800                         /*_#MELT_CALLCOUNT__L81*/ meltfnum[58] =
22801                             /* for melt_callcount */
22802 #if MELT_HAVE_DEBUG && defined (meltcallcount)
22803                             meltcallcount  /* melt_callcount debugging */
22804 #else
22805                             0L  /* melt_callcount without debug */
22806 #endif /* MELT_HAVE_DEBUG melt_callcount */
22807                             ;;
22808
22809                         MELT_CHECK_SIGNAL();
22810                         ;
22811                         MELT_LOCATION("warmelt-normal.melt:2521:/ apply");
22812                         /*apply*/
22813                         {
22814                             union meltparam_un argtab[7];
22815                             memset(&argtab, 0, sizeof(argtab));
22816                             /*^apply.arg*/
22817                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L81*/ meltfnum[58];
22818                             /*^apply.arg*/
22819                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
22820                             /*^apply.arg*/
22821                             argtab[2].meltbp_long = 2521;
22822                             /*^apply.arg*/
22823                             argtab[3].meltbp_cstring =  "normexp_hook_call result clocc=";
22824                             /*^apply.arg*/
22825                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V177*/ meltfptr[157];
22826                             /*^apply.arg*/
22827                             argtab[5].meltbp_cstring =  " ninbinds=";
22828                             /*^apply.arg*/
22829                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NINBINDS__V112*/ meltfptr[111];
22830                             /*_.MELT_DEBUG_FUN__V182*/
22831                             meltfptr[178] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
22832                         }
22833                         ;
22834                         /*_._IF___V181*/
22835                         meltfptr[179] = /*_.MELT_DEBUG_FUN__V182*/ meltfptr[178];;
22836                         /*epilog*/
22837
22838                         MELT_LOCATION("warmelt-normal.melt:2521:/ clear");
22839                         /*clear*/ /*_#MELT_CALLCOUNT__L81*/
22840                         meltfnum[58] = 0 ;
22841                         /*^clear*/
22842                         /*clear*/ /*_.MELT_DEBUG_FUN__V182*/
22843                         meltfptr[178] = 0 ;
22844                     }
22845                     ;
22846                 }
22847             else    /*^cond.else*/
22848                 {
22849
22850                     /*_._IF___V181*/ meltfptr[179] =  /*reallynil*/ NULL ;;
22851                 }
22852             ;
22853
22854             {
22855                 MELT_LOCATION("warmelt-normal.melt:2521:/ locexp");
22856                 /*void*/
22857                 (void)0;
22858             }
22859             ;
22860             /*^quasiblock*/
22861
22862
22863             /*epilog*/
22864
22865             /*^clear*/
22866             /*clear*/ /*_#MELT_NEED_DBG__L80*/
22867             meltfnum[54] = 0 ;
22868             /*^clear*/
22869             /*clear*/ /*_._IF___V181*/
22870             meltfptr[179] = 0 ;
22871         }
22872
22873 #else /*MELT_HAVE_DEBUG*/
22874         /*^cppif.else*/
22875         /*^block*/
22876         /*anyblock*/
22877         {
22878
22879
22880             {
22881                 /*^locexp*/
22882                 /*void*/(void)0;
22883             }
22884             ;
22885             /*epilog*/
22886         }
22887
22888 #endif /*MELT_HAVE_DEBUG*/
22889         ;
22890
22891         MELT_CHECK_SIGNAL();
22892         ;
22893         MELT_LOCATION("warmelt-normal.melt:2523:/ quasiblock");
22894
22895
22896         /*_._RETVAL___V1*/
22897         meltfptr[0] = /*_.CLOCC__V177*/ meltfptr[157];;
22898         MELT_LOCATION("warmelt-normal.melt:2523:/ putxtraresult");
22899         if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
22900         if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
22901         if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.NINBINDS__V112*/ meltfptr[111]);
22902         ;
22903         /*^finalreturn*/
22904         ;
22905         /*finalret*/
22906         goto meltlabend_rout ;
22907         /*_.LET___V173*/
22908         meltfptr[125] = /*_.RETURN___V183*/ meltfptr[178];;
22909
22910         MELT_LOCATION("warmelt-normal.melt:2506:/ clear");
22911         /*clear*/ /*_.CSYM__V174*/
22912         meltfptr[129] = 0 ;
22913         /*^clear*/
22914         /*clear*/ /*_.CBIND__V175*/
22915         meltfptr[123] = 0 ;
22916         /*^clear*/
22917         /*clear*/ /*_.CLOCC__V177*/
22918         meltfptr[157] = 0 ;
22919         /*^clear*/
22920         /*clear*/ /*_.RETURN___V183*/
22921         meltfptr[178] = 0 ;
22922         /*_.LET___V167*/
22923         meltfptr[124] = /*_.LET___V173*/ meltfptr[125];;
22924
22925         MELT_LOCATION("warmelt-normal.melt:2492:/ clear");
22926         /*clear*/ /*_.NHOOK__V168*/
22927         meltfptr[135] = 0 ;
22928         /*^clear*/
22929         /*clear*/ /*_.NHKCALL__V169*/
22930         meltfptr[136] = 0 ;
22931         /*^clear*/
22932         /*clear*/ /*_.LET___V173*/
22933         meltfptr[125] = 0 ;
22934
22935         MELT_CHECK_SIGNAL();
22936         ;
22937         /*_.MULTI___V110*/
22938         meltfptr[105] = /*_.LET___V167*/ meltfptr[124];;
22939
22940         MELT_LOCATION("warmelt-normal.melt:2417:/ clear");
22941         /*clear*/ /*_#NULL__L38*/
22942         meltfnum[33] = 0 ;
22943         /*^clear*/
22944         /*clear*/ /*_._IF___V115*/
22945         meltfptr[113] = 0 ;
22946         /*^clear*/
22947         /*clear*/ /*_#miI__L51*/
22948         meltfnum[41] = 0 ;
22949         /*^clear*/
22950         /*clear*/ /*_._IF___V163*/
22951         meltfptr[126] = 0 ;
22952         /*^clear*/
22953         /*clear*/ /*_.LET___V167*/
22954         meltfptr[124] = 0 ;
22955
22956         /*^clear*/
22957         /*clear*/ /*_.NINBINDS__V112*/
22958         meltfptr[111] = 0 ;
22959         /*_.LET___V92*/
22960         meltfptr[45] = /*_.MULTI___V110*/ meltfptr[105];;
22961
22962         MELT_LOCATION("warmelt-normal.melt:2396:/ clear");
22963         /*clear*/ /*_#NBINS__L23*/
22964         meltfnum[1] = 0 ;
22965         /*^clear*/
22966         /*clear*/ /*_#NBOUTS__L24*/
22967         meltfnum[7] = 0 ;
22968         /*^clear*/
22969         /*clear*/ /*_.HNAMESTR__V93*/
22970         meltfptr[47] = 0 ;
22971         /*^clear*/
22972         /*clear*/ /*_.SINS__V94*/
22973         meltfptr[65] = 0 ;
22974         /*^clear*/
22975         /*clear*/ /*_.SOUTS__V95*/
22976         meltfptr[64] = 0 ;
22977         /*^clear*/
22978         /*clear*/ /*_.NOUTS__V96*/
22979         meltfptr[37] = 0 ;
22980         /*^clear*/
22981         /*clear*/ /*_.HKBIND__V97*/
22982         meltfptr[67] = 0 ;
22983         /*^clear*/
22984         /*clear*/ /*_.IFCPP___V100*/
22985         meltfptr[40] = 0 ;
22986         /*^clear*/
22987         /*clear*/ /*_#MULTIPLE_LENGTH__L28*/
22988         meltfnum[24] = 0 ;
22989         /*^clear*/
22990         /*clear*/ /*_#plI__L29*/
22991         meltfnum[25] = 0 ;
22992         /*^clear*/
22993         /*clear*/ /*_#exeqI__L30*/
22994         meltfnum[29] = 0 ;
22995         /*^clear*/
22996         /*clear*/ /*_._IF___V103*/
22997         meltfptr[69] = 0 ;
22998         /*^clear*/
22999         /*clear*/ /*_#miI__L32*/
23000         meltfnum[30] = 0 ;
23001         /*^clear*/
23002         /*clear*/ /*_.MULTI___V110*/
23003         meltfptr[105] = 0 ;
23004         /*_.LET___V17*/
23005         meltfptr[15] = /*_.LET___V92*/ meltfptr[45];;
23006
23007         MELT_LOCATION("warmelt-normal.melt:2336:/ clear");
23008         /*clear*/ /*_.SLOC__V18*/
23009         meltfptr[5] = 0 ;
23010         /*^clear*/
23011         /*clear*/ /*_.SHOOK__V19*/
23012         meltfptr[18] = 0 ;
23013         /*^clear*/
23014         /*clear*/ /*_.SARGS__V20*/
23015         meltfptr[19] = 0 ;
23016         /*^clear*/
23017         /*clear*/ /*_.HKNAME__V21*/
23018         meltfptr[20] = 0 ;
23019         /*^clear*/
23020         /*clear*/ /*_.HKSYMB__V22*/
23021         meltfptr[21] = 0 ;
23022         /*^clear*/
23023         /*clear*/ /*_.HKINS__V23*/
23024         meltfptr[22] = 0 ;
23025         /*^clear*/
23026         /*clear*/ /*_.HKOUTS__V24*/
23027         meltfptr[23] = 0 ;
23028         /*^clear*/
23029         /*clear*/ /*_.HKCTYPE__V25*/
23030         meltfptr[24] = 0 ;
23031         /*^clear*/
23032         /*clear*/ /*_.HKDESCR__V26*/
23033         meltfptr[25] = 0 ;
23034         /*^clear*/
23035         /*clear*/ /*_#ERRORFLAG__L6*/
23036         meltfnum[0] = 0 ;
23037         /*^clear*/
23038         /*clear*/ /*_.NEWENV__V27*/
23039         meltfptr[26] = 0 ;
23040         /*^clear*/
23041         /*clear*/ /*_.IFCPP___V75*/
23042         meltfptr[38] = 0 ;
23043         /*^clear*/
23044         /*clear*/ /*_.IFCPP___V78*/
23045         meltfptr[43] = 0 ;
23046         /*^clear*/
23047         /*clear*/ /*_.IFCPP___V81*/
23048         meltfptr[44] = 0 ;
23049         /*^clear*/
23050         /*clear*/ /*_.IFCPP___V84*/
23051         meltfptr[66] = 0 ;
23052         /*^clear*/
23053         /*clear*/ /*_.IFCPP___V89*/
23054         meltfptr[68] = 0 ;
23055         /*^clear*/
23056         /*clear*/ /*_.LET___V92*/
23057         meltfptr[45] = 0 ;
23058
23059         MELT_CHECK_SIGNAL();
23060         ;
23061         MELT_LOCATION("warmelt-normal.melt:2330:/ quasiblock");
23062
23063
23064         /*_._RETVAL___V1*/
23065         meltfptr[0] = /*_.LET___V17*/ meltfptr[15];;
23066
23067         {
23068             MELT_LOCATION("warmelt-normal.melt:2330:/ locexp");
23069             /*ochecknores compilobj_nrep_return*/
23070 #if MELT_HAVE_DEBUG
23071             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
23072                 melt_warn_for_no_expected_secondary_results();
23073             /* we warned when secondary results are expected but not returned. */
23074 #endif /*MELT_HAVE_DEBUG*/
23075             ;
23076         }
23077         ;
23078         /*^finalreturn*/
23079         ;
23080         /*finalret*/
23081         goto meltlabend_rout ;
23082         /*epilog*/
23083
23084         /*^clear*/
23085         /*clear*/ /*_.IFCPP___V8*/
23086         meltfptr[6] = 0 ;
23087         /*^clear*/
23088         /*clear*/ /*_.IFCPP___V11*/
23089         meltfptr[9] = 0 ;
23090         /*^clear*/
23091         /*clear*/ /*_.IFCPP___V14*/
23092         meltfptr[12] = 0 ;
23093         /*^clear*/
23094         /*clear*/ /*_.LET___V17*/
23095         meltfptr[15] = 0 ;
23096     }
23097
23098     ;
23099     goto meltlabend_rout;
23100 meltlabend_rout:
23101     melt_trace_end("NORMEXP_HOOK_CALL", meltcallcount);
23102     melt_blocklevel_signals = current_blocklevel_signals_meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL_melt;
23103     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
23104 #undef meltcallcount
23105 #undef meltfram__
23106 #undef MELTFRAM_NBVARNUM
23107 #undef MELTFRAM_NBVARPTR
23108 } /*end meltrout_37_WARMELTmiNORMAL_NORMEXP_HOOK_CALL*/
23109
23110
23111
23112
23113
23114
23115 melt_ptr_t MELT_MODULE_VISIBILITY
23116 meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
23117                                         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
23118 {
23119     long current_blocklevel_signals_meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX_melt =  melt_blocklevel_signals;
23120
23121 #if MELT_HAVE_DEBUG
23122     static long melt_call_counter__;
23123     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
23124 #undef meltcallcount
23125 #define meltcallcount melt_thiscallcounter__
23126 #else
23127 #undef meltcallcount
23128 #define meltcallcount 0L
23129 #endif
23130 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
23131
23132     /* start of frame for routine meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX fromline 1752 */
23133
23134     /** start of frame for meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX of CLASS_PROCROUTINEOBJ from 1555**/
23135
23136     /*curframdeclclassy*/ class MeltFrame_meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX// fromline 1568
23137         : public Melt_CallFrameWithValues<86>
23138     {
23139     public: /* fromline 1572*/
23140         long mcfr_varnum[24];
23141         /*classy others*/
23142         long _meltsparel;
23143         void melt_mark_stuff (void)
23144         {
23145         } /*end melt_mark_stuff*/
23146         virtual void melt_mark_ggc_data (void)
23147         {
23148             melt_mark_values ();
23149             melt_mark_stuff ();
23150         }; /*end melt_mark_ggc_data*/
23151         MeltFrame_meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX(meltclosure_ptr_t clos) //the closure constructor fromline 1630
23152             : Melt_CallFrameWithValues<86> (
23153 #if ENABLE_CHECKING /*fromline 1634*/
23154                 __FILE__, __LINE__,
23155 #endif /* ENABLE_CHECKING fromline 1638*/
23156                 sizeof(MeltFrame_meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX), clos) {};
23157         MeltFrame_meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX() //the constructor fromline 1642
23158             : Melt_CallFrameWithValues<86> (
23159 #if ENABLE_CHECKING /*fromline 1646*/
23160                 __FILE__, __LINE__,
23161 #endif /* ENABLE_CHECKING fromline 1650*/
23162                 sizeof(MeltFrame_meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX)) {};
23163 #if ENABLE_CHECKING /*fromline 1654*/
23164         MeltFrame_meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX(const char*fil, int lin) //the constructor fromline 1656
23165             : Melt_CallFrameWithValues<86> (fil,lin, sizeof(MeltFrame_meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX)) {};
23166         MeltFrame_meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
23167             : Melt_CallFrameWithValues<86> (fil,lin, sizeof(MeltFrame_meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX), clos) {};
23168 #endif /* ENABLE_CHECKING fromline 1666*/
23169
23170     }; // end  class MeltFrame_meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX
23171
23172
23173     /** end of frame for meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX fromline 1697**/
23174
23175     /* end of frame for routine meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX fromline 1756 */
23176
23177     /* classy proc frame meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX */
23178     MeltFrame_meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX
23179     meltfram__ /*declfrastruct fromline 1780*/
23180     /*classyprocarg meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX fromline 1785*/
23181 #if ENABLE_CHECKING
23182     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
23183 #else /*ENABLE_CHECKING */
23184     (meltclosp_) /* fromline 1793*/
23185 #endif /*ENABLE_CHECKING */
23186
23187     ;
23188 #define meltframe meltfram__
23189
23190     melt_trace_start("NORMEXP_BOX", meltcallcount);
23191     /*use arguments*/
23192     (void) meltclosp_;
23193     (void)meltfirstargp_;
23194     (void)meltxargdescr_;
23195     (void)meltxargtab_;
23196     (void)meltxresdescr_;
23197     (void)meltxrestab_;
23198     /*getargs*/
23199
23200     /*getarg#0*/
23201     MELT_LOCATION("warmelt-normal.melt:2533:/ getarg");
23202     /*_.RECV__V2*/
23203     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
23204
23205     /*getarg#1*/
23206     /*^getarg*/
23207     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
23208     /*_.ENV__V3*/
23209     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
23210     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
23211
23212
23213     /*getarg#2*/
23214     /*^getarg*/
23215     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
23216     /*_.NCX__V4*/
23217     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
23218     gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL);
23219
23220
23221     /*getarg#3*/
23222     /*^getarg*/
23223     if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
23224     /*_.PSLOC__V5*/
23225     meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
23226     gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL);
23227
23228     ;
23229     goto meltlab_endgetargs;
23230 meltlab_endgetargs:
23231     ;
23232     /*body*/
23233     /*^block*/
23234     /*anyblock*/
23235     {
23236
23237
23238 #if MELT_HAVE_DEBUG
23239         MELT_LOCATION("warmelt-normal.melt:2534:/ cppif.then");
23240         /*^block*/
23241         /*anyblock*/
23242         {
23243
23244
23245             {
23246                 /*^locexp*/
23247                 /*melt_increment_dbgcounter*/
23248 #if MELT_HAVE_DEBUG
23249                 melt_dbgcounter++;
23250 #endif
23251                 ;
23252             }
23253             ;
23254
23255             MELT_CHECK_SIGNAL();
23256             ;
23257             /*_#MELT_NEED_DBG__L1*/
23258             meltfnum[0] =
23259                 /*MELT_NEED_DBG*/
23260 #if MELT_HAVE_DEBUG
23261                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
23262 #else
23263                 0 /* no melt_need_dbg */
23264 #endif /*MELT_HAVE_DEBUG*/
23265                 ;;
23266             MELT_LOCATION("warmelt-normal.melt:2534:/ cond");
23267             /*cond*/
23268             if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
23269                 {
23270                     /*^cond.then*/
23271                     /*^block*/
23272                     /*anyblock*/
23273                     {
23274
23275                         /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
23276                             /* for melt_callcount */
23277 #if MELT_HAVE_DEBUG && defined (meltcallcount)
23278                             meltcallcount  /* melt_callcount debugging */
23279 #else
23280                             0L  /* melt_callcount without debug */
23281 #endif /* MELT_HAVE_DEBUG melt_callcount */
23282                             ;;
23283
23284                         MELT_CHECK_SIGNAL();
23285                         ;
23286                         MELT_LOCATION("warmelt-normal.melt:2534:/ apply");
23287                         /*apply*/
23288                         {
23289                             union meltparam_un argtab[5];
23290                             memset(&argtab, 0, sizeof(argtab));
23291                             /*^apply.arg*/
23292                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
23293                             /*^apply.arg*/
23294                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
23295                             /*^apply.arg*/
23296                             argtab[2].meltbp_long = 2534;
23297                             /*^apply.arg*/
23298                             argtab[3].meltbp_cstring =  "normexp_box recv";
23299                             /*^apply.arg*/
23300                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
23301                             /*_.MELT_DEBUG_FUN__V7*/
23302                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
23303                         }
23304                         ;
23305                         /*_._IF___V6*/
23306                         meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];;
23307                         /*epilog*/
23308
23309                         MELT_LOCATION("warmelt-normal.melt:2534:/ clear");
23310                         /*clear*/ /*_#MELT_CALLCOUNT__L2*/
23311                         meltfnum[1] = 0 ;
23312                         /*^clear*/
23313                         /*clear*/ /*_.MELT_DEBUG_FUN__V7*/
23314                         meltfptr[6] = 0 ;
23315                     }
23316                     ;
23317                 }
23318             else    /*^cond.else*/
23319                 {
23320
23321                     /*_._IF___V6*/ meltfptr[5] =  /*reallynil*/ NULL ;;
23322                 }
23323             ;
23324
23325             {
23326                 MELT_LOCATION("warmelt-normal.melt:2534:/ locexp");
23327                 /*void*/
23328                 (void)0;
23329             }
23330             ;
23331             /*^quasiblock*/
23332
23333
23334             /*epilog*/
23335
23336             /*^clear*/
23337             /*clear*/ /*_#MELT_NEED_DBG__L1*/
23338             meltfnum[0] = 0 ;
23339             /*^clear*/
23340             /*clear*/ /*_._IF___V6*/
23341             meltfptr[5] = 0 ;
23342         }
23343
23344 #else /*MELT_HAVE_DEBUG*/
23345         /*^cppif.else*/
23346         /*^block*/
23347         /*anyblock*/
23348         {
23349
23350
23351             {
23352                 /*^locexp*/
23353                 /*void*/(void)0;
23354             }
23355             ;
23356             /*epilog*/
23357         }
23358
23359 #endif /*MELT_HAVE_DEBUG*/
23360         ;
23361
23362 #if MELT_HAVE_DEBUG
23363         MELT_LOCATION("warmelt-normal.melt:2535:/ cppif.then");
23364         /*^block*/
23365         /*anyblock*/
23366         {
23367
23368
23369             MELT_CHECK_SIGNAL();
23370             ;
23371             /*_#IS_A__L3*/
23372             meltfnum[1] =
23373                 melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_BOX*/ meltfrout->tabval[1])));;
23374             MELT_LOCATION("warmelt-normal.melt:2535:/ cond");
23375             /*cond*/
23376             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
23377                 {
23378                     /*^cond.then*/
23379                     /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);;
23380                 }
23381             else
23382                 {
23383                     MELT_LOCATION("warmelt-normal.melt:2535:/ cond.else");
23384
23385                     /*^block*/
23386                     /*anyblock*/
23387                     {
23388
23389
23390                         MELT_CHECK_SIGNAL();
23391                         ;
23392                         /*^apply*/
23393                         /*apply*/
23394                         {
23395                             union meltparam_un argtab[4];
23396                             memset(&argtab, 0, sizeof(argtab));
23397                             /*^apply.arg*/
23398                             argtab[0].meltbp_cstring =  "check box recv";
23399                             /*^apply.arg*/
23400                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
23401                             /*^apply.arg*/
23402                             argtab[2].meltbp_long = 2535;
23403                             /*^apply.arg*/
23404                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
23405                             /*_.MELT_ASSERT_FAILURE_FUN__V10*/
23406                             meltfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
23407                         }
23408                         ;
23409                         /*_._IFELSE___V9*/
23410                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];;
23411                         /*epilog*/
23412
23413                         MELT_LOCATION("warmelt-normal.melt:2535:/ clear");
23414                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/
23415                         meltfptr[9] = 0 ;
23416                     }
23417                     ;
23418                 }
23419             ;
23420             /*_.IFCPP___V8*/
23421             meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];;
23422             /*epilog*/
23423
23424             MELT_LOCATION("warmelt-normal.melt:2535:/ clear");
23425             /*clear*/ /*_#IS_A__L3*/
23426             meltfnum[1] = 0 ;
23427             /*^clear*/
23428             /*clear*/ /*_._IFELSE___V9*/
23429             meltfptr[5] = 0 ;
23430         }
23431
23432 #else /*MELT_HAVE_DEBUG*/
23433         /*^cppif.else*/
23434         /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL);
23435 #endif /*MELT_HAVE_DEBUG*/
23436         ;
23437
23438 #if MELT_HAVE_DEBUG
23439         MELT_LOCATION("warmelt-normal.melt:2536:/ cppif.then");
23440         /*^block*/
23441         /*anyblock*/
23442         {
23443
23444
23445             MELT_CHECK_SIGNAL();
23446             ;
23447             /*_#IS_A__L4*/
23448             meltfnum[0] =
23449                 melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));;
23450             MELT_LOCATION("warmelt-normal.melt:2536:/ cond");
23451             /*cond*/
23452             if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/
23453                 {
23454                     /*^cond.then*/
23455                     /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);;
23456                 }
23457             else
23458                 {
23459                     MELT_LOCATION("warmelt-normal.melt:2536:/ cond.else");
23460
23461                     /*^block*/
23462                     /*anyblock*/
23463                     {
23464
23465
23466                         MELT_CHECK_SIGNAL();
23467                         ;
23468                         /*^apply*/
23469                         /*apply*/
23470                         {
23471                             union meltparam_un argtab[4];
23472                             memset(&argtab, 0, sizeof(argtab));
23473                             /*^apply.arg*/
23474                             argtab[0].meltbp_cstring =  "check env";
23475                             /*^apply.arg*/
23476                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
23477                             /*^apply.arg*/
23478                             argtab[2].meltbp_long = 2536;
23479                             /*^apply.arg*/
23480                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
23481                             /*_.MELT_ASSERT_FAILURE_FUN__V13*/
23482                             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
23483                         }
23484                         ;
23485                         /*_._IFELSE___V12*/
23486                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];;
23487                         /*epilog*/
23488
23489                         MELT_LOCATION("warmelt-normal.melt:2536:/ clear");
23490                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/
23491                         meltfptr[12] = 0 ;
23492                     }
23493                     ;
23494                 }
23495             ;
23496             /*_.IFCPP___V11*/
23497             meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];;
23498             /*epilog*/
23499
23500             MELT_LOCATION("warmelt-normal.melt:2536:/ clear");
23501             /*clear*/ /*_#IS_A__L4*/
23502             meltfnum[0] = 0 ;
23503             /*^clear*/
23504             /*clear*/ /*_._IFELSE___V12*/
23505             meltfptr[5] = 0 ;
23506         }
23507
23508 #else /*MELT_HAVE_DEBUG*/
23509         /*^cppif.else*/
23510         /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL);
23511 #endif /*MELT_HAVE_DEBUG*/
23512         ;
23513
23514 #if MELT_HAVE_DEBUG
23515         MELT_LOCATION("warmelt-normal.melt:2537:/ cppif.then");
23516         /*^block*/
23517         /*anyblock*/
23518         {
23519
23520
23521             MELT_CHECK_SIGNAL();
23522             ;
23523             /*_#IS_A__L5*/
23524             meltfnum[1] =
23525                 melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));;
23526             MELT_LOCATION("warmelt-normal.melt:2537:/ cond");
23527             /*cond*/
23528             if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/
23529                 {
23530                     /*^cond.then*/
23531                     /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);;
23532                 }
23533             else
23534                 {
23535                     MELT_LOCATION("warmelt-normal.melt:2537:/ cond.else");
23536
23537                     /*^block*/
23538                     /*anyblock*/
23539                     {
23540
23541
23542                         MELT_CHECK_SIGNAL();
23543                         ;
23544                         /*^apply*/
23545                         /*apply*/
23546                         {
23547                             union meltparam_un argtab[4];
23548                             memset(&argtab, 0, sizeof(argtab));
23549                             /*^apply.arg*/
23550                             argtab[0].meltbp_cstring =  "check ncx";
23551                             /*^apply.arg*/
23552                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
23553                             /*^apply.arg*/
23554                             argtab[2].meltbp_long = 2537;
23555                             /*^apply.arg*/
23556                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
23557                             /*_.MELT_ASSERT_FAILURE_FUN__V16*/
23558                             meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
23559                         }
23560                         ;
23561                         /*_._IFELSE___V15*/
23562                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];;
23563                         /*epilog*/
23564
23565                         MELT_LOCATION("warmelt-normal.melt:2537:/ clear");
23566                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/
23567                         meltfptr[15] = 0 ;
23568                     }
23569                     ;
23570                 }
23571             ;
23572             /*_.IFCPP___V14*/
23573             meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];;
23574             /*epilog*/
23575
23576             MELT_LOCATION("warmelt-normal.melt:2537:/ clear");
23577             /*clear*/ /*_#IS_A__L5*/
23578             meltfnum[1] = 0 ;
23579             /*^clear*/
23580             /*clear*/ /*_._IFELSE___V15*/
23581             meltfptr[5] = 0 ;
23582         }
23583
23584 #else /*MELT_HAVE_DEBUG*/
23585         /*^cppif.else*/
23586         /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL);
23587 #endif /*MELT_HAVE_DEBUG*/
23588         ;
23589         MELT_LOCATION("warmelt-normal.melt:2538:/ quasiblock");
23590
23591
23592         /*^getslot*/
23593         {
23594             melt_ptr_t slot=NULL, obj=NULL;
23595             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
23596             melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
23597             /*_.SLOC__V18*/
23598             meltfptr[5] = slot;
23599         };
23600         ;
23601         MELT_LOCATION("warmelt-normal.melt:2539:/ cond");
23602         /*cond*/
23603         if (
23604             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]),
23605                                           (melt_ptr_t)((/*!CLASS_SOURCE_QUASI_BOX*/ meltfrout->tabval[5])))
23606         ) /*then*/
23607             {
23608                 /*^cond.then*/
23609                 /*^getslot*/
23610                 {
23611                     melt_ptr_t slot=NULL, obj=NULL;
23612                     obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
23613                     melt_object_get_field(slot,obj, 2, "SBOXED");
23614                     /*_.SBOXED__V19*/
23615                     meltfptr[18] = slot;
23616                 };
23617                 ;
23618             }
23619         else    /*^cond.else*/
23620             {
23621
23622                 /*_.SBOXED__V19*/ meltfptr[18] =  /*reallynil*/ NULL ;;
23623             }
23624         ;
23625
23626         MELT_CHECK_SIGNAL();
23627         ;
23628         MELT_LOCATION("warmelt-normal.melt:2541:/ quasiblock");
23629
23630
23631         /*^multimsend*/
23632         /*multimsend*/
23633         {
23634             union meltparam_un argtab[3];
23635             union meltparam_un restab[1];
23636             memset(&argtab, 0, sizeof(argtab));
23637             memset(&restab, 0, sizeof(restab));
23638             /*^multimsend.arg*/
23639             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multimsend.arg*/
23640             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multimsend.arg*/
23641             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
23642             /*^multimsend.xres*/
23643             restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ meltfptr[21];/*^multimsend.send*/
23644             /*_.NBOXED__V21*/
23645             meltfptr[20] =  meltgc_send ((melt_ptr_t)(/*_.SBOXED__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
23646         }
23647         ;
23648         /*^quasiblock*/
23649
23650
23651
23652 #if MELT_HAVE_DEBUG
23653         MELT_LOCATION("warmelt-normal.melt:2544:/ cppif.then");
23654         /*^block*/
23655         /*anyblock*/
23656         {
23657
23658
23659             {
23660                 /*^locexp*/
23661                 /*melt_increment_dbgcounter*/
23662 #if MELT_HAVE_DEBUG
23663                 melt_dbgcounter++;
23664 #endif
23665                 ;
23666             }
23667             ;
23668
23669             MELT_CHECK_SIGNAL();
23670             ;
23671             /*_#MELT_NEED_DBG__L6*/
23672             meltfnum[0] =
23673                 /*MELT_NEED_DBG*/
23674 #if MELT_HAVE_DEBUG
23675                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
23676 #else
23677                 0 /* no melt_need_dbg */
23678 #endif /*MELT_HAVE_DEBUG*/
23679                 ;;
23680             MELT_LOCATION("warmelt-normal.melt:2544:/ cond");
23681             /*cond*/
23682             if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/
23683                 {
23684                     /*^cond.then*/
23685                     /*^block*/
23686                     /*anyblock*/
23687                     {
23688
23689                         /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] =
23690                             /* for melt_callcount */
23691 #if MELT_HAVE_DEBUG && defined (meltcallcount)
23692                             meltcallcount  /* melt_callcount debugging */
23693 #else
23694                             0L  /* melt_callcount without debug */
23695 #endif /* MELT_HAVE_DEBUG melt_callcount */
23696                             ;;
23697
23698                         MELT_CHECK_SIGNAL();
23699                         ;
23700                         MELT_LOCATION("warmelt-normal.melt:2544:/ apply");
23701                         /*apply*/
23702                         {
23703                             union meltparam_un argtab[7];
23704                             memset(&argtab, 0, sizeof(argtab));
23705                             /*^apply.arg*/
23706                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L7*/ meltfnum[1];
23707                             /*^apply.arg*/
23708                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
23709                             /*^apply.arg*/
23710                             argtab[2].meltbp_long = 2544;
23711                             /*^apply.arg*/
23712                             argtab[3].meltbp_cstring =  "normexp_box nboxed=";
23713                             /*^apply.arg*/
23714                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NBOXED__V21*/ meltfptr[20];
23715                             /*^apply.arg*/
23716                             argtab[5].meltbp_cstring =  " nbind=";
23717                             /*^apply.arg*/
23718                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ meltfptr[21];
23719                             /*_.MELT_DEBUG_FUN__V24*/
23720                             meltfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
23721                         }
23722                         ;
23723                         /*_._IF___V23*/
23724                         meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];;
23725                         /*epilog*/
23726
23727                         MELT_LOCATION("warmelt-normal.melt:2544:/ clear");
23728                         /*clear*/ /*_#MELT_CALLCOUNT__L7*/
23729                         meltfnum[1] = 0 ;
23730                         /*^clear*/
23731                         /*clear*/ /*_.MELT_DEBUG_FUN__V24*/
23732                         meltfptr[23] = 0 ;
23733                     }
23734                     ;
23735                 }
23736             else    /*^cond.else*/
23737                 {
23738
23739                     /*_._IF___V23*/ meltfptr[22] =  /*reallynil*/ NULL ;;
23740                 }
23741             ;
23742
23743             {
23744                 MELT_LOCATION("warmelt-normal.melt:2544:/ locexp");
23745                 /*void*/
23746                 (void)0;
23747             }
23748             ;
23749             /*^quasiblock*/
23750
23751
23752             /*epilog*/
23753
23754             /*^clear*/
23755             /*clear*/ /*_#MELT_NEED_DBG__L6*/
23756             meltfnum[0] = 0 ;
23757             /*^clear*/
23758             /*clear*/ /*_._IF___V23*/
23759             meltfptr[22] = 0 ;
23760         }
23761
23762 #else /*MELT_HAVE_DEBUG*/
23763         /*^cppif.else*/
23764         /*^block*/
23765         /*anyblock*/
23766         {
23767
23768
23769             {
23770                 /*^locexp*/
23771                 /*void*/(void)0;
23772             }
23773             ;
23774             /*epilog*/
23775         }
23776
23777 #endif /*MELT_HAVE_DEBUG*/
23778         ;
23779
23780         MELT_CHECK_SIGNAL();
23781         ;
23782         /*_#IS_LIST__L8*/
23783         meltfnum[1] =
23784             (melt_magic_discr((melt_ptr_t)(/*_.NBIND__V22*/ meltfptr[21])) == MELTOBMAG_LIST);;
23785         /*^compute*/
23786         /*_#NOT__L9*/
23787         meltfnum[0] =
23788             (!(/*_#IS_LIST__L8*/ meltfnum[1]));;
23789         MELT_LOCATION("warmelt-normal.melt:2545:/ cond");
23790         /*cond*/
23791         if (/*_#NOT__L9*/ meltfnum[0]) /*then*/
23792             {
23793                 /*^cond.then*/
23794                 /*^block*/
23795                 /*anyblock*/
23796                 {
23797
23798                     MELT_LOCATION("warmelt-normal.melt:2546:/ blockmultialloc");
23799                     /*multiallocblock*/
23800                     {
23801                         struct meltletrec_1_st
23802                         {
23803                             struct meltlist_st rlist_0__LIST_;
23804                             long meltletrec_1_endgap;
23805                         } *meltletrec_1_ptr = 0;
23806                         meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0);
23807                         /*^blockmultialloc.initfill*/
23808                         /*inilist rlist_0__LIST_*/
23809                         /*_.LIST___V26*/
23810                         meltfptr[22] = (melt_ptr_t) &meltletrec_1_ptr->rlist_0__LIST_;
23811                         meltletrec_1_ptr->rlist_0__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST))));
23812
23813
23814
23815                         /*_.LIST___V25*/
23816                         meltfptr[23] = /*_.LIST___V26*/ meltfptr[22];;
23817                         /*epilog*/
23818
23819                         MELT_LOCATION("warmelt-normal.melt:2546:/ clear");
23820                         /*clear*/ /*_.LIST___V26*/
23821                         meltfptr[22] = 0 ;
23822                         /*^clear*/
23823                         /*clear*/ /*_.LIST___V26*/
23824                         meltfptr[22] = 0 ;
23825                     } /*end multiallocblock*/
23826                     ;
23827                     /*^compute*/
23828                     /*_.NBIND__V22*/
23829                     meltfptr[21] = /*_.SETQ___V27*/ meltfptr[22] = /*_.LIST___V25*/ meltfptr[23];;
23830
23831 #if MELT_HAVE_DEBUG
23832                     MELT_LOCATION("warmelt-normal.melt:2547:/ cppif.then");
23833                     /*^block*/
23834                     /*anyblock*/
23835                     {
23836
23837
23838                         {
23839                             /*^locexp*/
23840                             /*melt_increment_dbgcounter*/
23841 #if MELT_HAVE_DEBUG
23842                             melt_dbgcounter++;
23843 #endif
23844                             ;
23845                         }
23846                         ;
23847
23848                         MELT_CHECK_SIGNAL();
23849                         ;
23850                         /*_#MELT_NEED_DBG__L10*/
23851                         meltfnum[9] =
23852                             /*MELT_NEED_DBG*/
23853 #if MELT_HAVE_DEBUG
23854                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
23855 #else
23856                             0 /* no melt_need_dbg */
23857 #endif /*MELT_HAVE_DEBUG*/
23858                             ;;
23859                         MELT_LOCATION("warmelt-normal.melt:2547:/ cond");
23860                         /*cond*/
23861                         if (/*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then*/
23862                             {
23863                                 /*^cond.then*/
23864                                 /*^block*/
23865                                 /*anyblock*/
23866                                 {
23867
23868                                     /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] =
23869                                         /* for melt_callcount */
23870 #if MELT_HAVE_DEBUG && defined (meltcallcount)
23871                                         meltcallcount  /* melt_callcount debugging */
23872 #else
23873                                         0L  /* melt_callcount without debug */
23874 #endif /* MELT_HAVE_DEBUG melt_callcount */
23875                                         ;;
23876
23877                                     MELT_CHECK_SIGNAL();
23878                                     ;
23879                                     MELT_LOCATION("warmelt-normal.melt:2547:/ apply");
23880                                     /*apply*/
23881                                     {
23882                                         union meltparam_un argtab[5];
23883                                         memset(&argtab, 0, sizeof(argtab));
23884                                         /*^apply.arg*/
23885                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L11*/ meltfnum[10];
23886                                         /*^apply.arg*/
23887                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
23888                                         /*^apply.arg*/
23889                                         argtab[2].meltbp_long = 2547;
23890                                         /*^apply.arg*/
23891                                         argtab[3].meltbp_cstring =  "normexp_box set nbind=";
23892                                         /*^apply.arg*/
23893                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ meltfptr[21];
23894                                         /*_.MELT_DEBUG_FUN__V29*/
23895                                         meltfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
23896                                     }
23897                                     ;
23898                                     /*_._IF___V28*/
23899                                     meltfptr[27] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];;
23900                                     /*epilog*/
23901
23902                                     MELT_LOCATION("warmelt-normal.melt:2547:/ clear");
23903                                     /*clear*/ /*_#MELT_CALLCOUNT__L11*/
23904                                     meltfnum[10] = 0 ;
23905                                     /*^clear*/
23906                                     /*clear*/ /*_.MELT_DEBUG_FUN__V29*/
23907                                     meltfptr[28] = 0 ;
23908                                 }
23909                                 ;
23910                             }
23911                         else    /*^cond.else*/
23912                             {
23913
23914                                 /*_._IF___V28*/ meltfptr[27] =  /*reallynil*/ NULL ;;
23915                             }
23916                         ;
23917
23918                         {
23919                             MELT_LOCATION("warmelt-normal.melt:2547:/ locexp");
23920                             /*void*/
23921                             (void)0;
23922                         }
23923                         ;
23924                         /*^quasiblock*/
23925
23926
23927                         /*epilog*/
23928
23929                         /*^clear*/
23930                         /*clear*/ /*_#MELT_NEED_DBG__L10*/
23931                         meltfnum[9] = 0 ;
23932                         /*^clear*/
23933                         /*clear*/ /*_._IF___V28*/
23934                         meltfptr[27] = 0 ;
23935                     }
23936
23937 #else /*MELT_HAVE_DEBUG*/
23938                     /*^cppif.else*/
23939                     /*^block*/
23940                     /*anyblock*/
23941                     {
23942
23943
23944                         {
23945                             /*^locexp*/
23946                             /*void*/(void)0;
23947                         }
23948                         ;
23949                         /*epilog*/
23950                     }
23951
23952 #endif /*MELT_HAVE_DEBUG*/
23953                     ;
23954                     MELT_LOCATION("warmelt-normal.melt:2545:/ quasiblock");
23955
23956
23957                     /*epilog*/
23958
23959                     /*^clear*/
23960                     /*clear*/ /*_.LIST___V25*/
23961                     meltfptr[23] = 0 ;
23962                     /*^clear*/
23963                     /*clear*/ /*_.SETQ___V27*/
23964                     meltfptr[22] = 0 ;
23965                 }
23966                 ;
23967             } /*noelse*/
23968         ;
23969         MELT_LOCATION("warmelt-normal.melt:2548:/ quasiblock");
23970
23971
23972
23973         MELT_CHECK_SIGNAL();
23974         ;
23975         /*^msend*/
23976         /*msend*/
23977         {
23978             union meltparam_un argtab[1];
23979             memset(&argtab, 0, sizeof(argtab));
23980             /*^ojbmsend.arg*/
23981             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
23982             /*_.NCTYP__V31*/
23983             meltfptr[27] = meltgc_send((melt_ptr_t)(/*_.NBOXED__V21*/ meltfptr[20]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
23984         }
23985         ;
23986         MELT_LOCATION("warmelt-normal.melt:2549:/ cond");
23987         /*cond*/
23988         if (
23989             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]),
23990                                           (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8])))
23991         ) /*then*/
23992             {
23993                 /*^cond.then*/
23994                 /*^getslot*/
23995                 {
23996                     melt_ptr_t slot=NULL, obj=NULL;
23997                     obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/;
23998                     melt_object_get_field(slot,obj, 11, "CTYPE_AUTOBOXDISCR");
23999                     /*_.AUTOBOXDISCR__V32*/
24000                     meltfptr[23] = slot;
24001                 };
24002                 ;
24003             }
24004         else    /*^cond.else*/
24005             {
24006
24007                 /*_.AUTOBOXDISCR__V32*/ meltfptr[23] =  /*reallynil*/ NULL ;;
24008             }
24009         ;
24010
24011 #if MELT_HAVE_DEBUG
24012         MELT_LOCATION("warmelt-normal.melt:2551:/ cppif.then");
24013         /*^block*/
24014         /*anyblock*/
24015         {
24016
24017
24018             MELT_CHECK_SIGNAL();
24019             ;
24020             /*_#IS_A__L12*/
24021             meltfnum[10] =
24022                 melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8])));;
24023             MELT_LOCATION("warmelt-normal.melt:2551:/ cond");
24024             /*cond*/
24025             if (/*_#IS_A__L12*/ meltfnum[10]) /*then*/
24026                 {
24027                     /*^cond.then*/
24028                     /*_._IFELSE___V34*/ meltfptr[33] = (/*nil*/NULL);;
24029                 }
24030             else
24031                 {
24032                     MELT_LOCATION("warmelt-normal.melt:2551:/ cond.else");
24033
24034                     /*^block*/
24035                     /*anyblock*/
24036                     {
24037
24038
24039                         MELT_CHECK_SIGNAL();
24040                         ;
24041                         /*^apply*/
24042                         /*apply*/
24043                         {
24044                             union meltparam_un argtab[4];
24045                             memset(&argtab, 0, sizeof(argtab));
24046                             /*^apply.arg*/
24047                             argtab[0].meltbp_cstring =  "normexp_box check nctyp";
24048                             /*^apply.arg*/
24049                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
24050                             /*^apply.arg*/
24051                             argtab[2].meltbp_long = 2551;
24052                             /*^apply.arg*/
24053                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCTYP__V31*/ meltfptr[27];
24054                             /*_.MELT_ASSERT_FAILURE_FUN__V35*/
24055                             meltfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
24056                         }
24057                         ;
24058                         /*_._IFELSE___V34*/
24059                         meltfptr[33] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];;
24060                         /*epilog*/
24061
24062                         MELT_LOCATION("warmelt-normal.melt:2551:/ clear");
24063                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/
24064                         meltfptr[34] = 0 ;
24065                     }
24066                     ;
24067                 }
24068             ;
24069             /*_.IFCPP___V33*/
24070             meltfptr[22] = /*_._IFELSE___V34*/ meltfptr[33];;
24071             /*epilog*/
24072
24073             MELT_LOCATION("warmelt-normal.melt:2551:/ clear");
24074             /*clear*/ /*_#IS_A__L12*/
24075             meltfnum[10] = 0 ;
24076             /*^clear*/
24077             /*clear*/ /*_._IFELSE___V34*/
24078             meltfptr[33] = 0 ;
24079         }
24080
24081 #else /*MELT_HAVE_DEBUG*/
24082         /*^cppif.else*/
24083         /*_.IFCPP___V33*/ meltfptr[22] = (/*nil*/NULL);
24084 #endif /*MELT_HAVE_DEBUG*/
24085         ;
24086
24087 #if MELT_HAVE_DEBUG
24088         MELT_LOCATION("warmelt-normal.melt:2552:/ cppif.then");
24089         /*^block*/
24090         /*anyblock*/
24091         {
24092
24093
24094             {
24095                 /*^locexp*/
24096                 /*melt_increment_dbgcounter*/
24097 #if MELT_HAVE_DEBUG
24098                 melt_dbgcounter++;
24099 #endif
24100                 ;
24101             }
24102             ;
24103
24104             MELT_CHECK_SIGNAL();
24105             ;
24106             /*_#MELT_NEED_DBG__L13*/
24107             meltfnum[9] =
24108                 /*MELT_NEED_DBG*/
24109 #if MELT_HAVE_DEBUG
24110                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
24111 #else
24112                 0 /* no melt_need_dbg */
24113 #endif /*MELT_HAVE_DEBUG*/
24114                 ;;
24115             MELT_LOCATION("warmelt-normal.melt:2552:/ cond");
24116             /*cond*/
24117             if (/*_#MELT_NEED_DBG__L13*/ meltfnum[9]) /*then*/
24118                 {
24119                     /*^cond.then*/
24120                     /*^block*/
24121                     /*anyblock*/
24122                     {
24123
24124                         /*_#MELT_CALLCOUNT__L14*/ meltfnum[10] =
24125                             /* for melt_callcount */
24126 #if MELT_HAVE_DEBUG && defined (meltcallcount)
24127                             meltcallcount  /* melt_callcount debugging */
24128 #else
24129                             0L  /* melt_callcount without debug */
24130 #endif /* MELT_HAVE_DEBUG melt_callcount */
24131                             ;;
24132
24133                         MELT_CHECK_SIGNAL();
24134                         ;
24135                         MELT_LOCATION("warmelt-normal.melt:2552:/ apply");
24136                         /*apply*/
24137                         {
24138                             union meltparam_un argtab[7];
24139                             memset(&argtab, 0, sizeof(argtab));
24140                             /*^apply.arg*/
24141                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L14*/ meltfnum[10];
24142                             /*^apply.arg*/
24143                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
24144                             /*^apply.arg*/
24145                             argtab[2].meltbp_long = 2552;
24146                             /*^apply.arg*/
24147                             argtab[3].meltbp_cstring =  "normexp_box nctyp=";
24148                             /*^apply.arg*/
24149                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCTYP__V31*/ meltfptr[27];
24150                             /*^apply.arg*/
24151                             argtab[5].meltbp_cstring =  " autoboxdiscr=";
24152                             /*^apply.arg*/
24153                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.AUTOBOXDISCR__V32*/ meltfptr[23];
24154                             /*_.MELT_DEBUG_FUN__V37*/
24155                             meltfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
24156                         }
24157                         ;
24158                         /*_._IF___V36*/
24159                         meltfptr[34] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[33];;
24160                         /*epilog*/
24161
24162                         MELT_LOCATION("warmelt-normal.melt:2552:/ clear");
24163                         /*clear*/ /*_#MELT_CALLCOUNT__L14*/
24164                         meltfnum[10] = 0 ;
24165                         /*^clear*/
24166                         /*clear*/ /*_.MELT_DEBUG_FUN__V37*/
24167                         meltfptr[33] = 0 ;
24168                     }
24169                     ;
24170                 }
24171             else    /*^cond.else*/
24172                 {
24173
24174                     /*_._IF___V36*/ meltfptr[34] =  /*reallynil*/ NULL ;;
24175                 }
24176             ;
24177
24178             {
24179                 MELT_LOCATION("warmelt-normal.melt:2552:/ locexp");
24180                 /*void*/
24181                 (void)0;
24182             }
24183             ;
24184             /*^quasiblock*/
24185
24186
24187             /*epilog*/
24188
24189             /*^clear*/
24190             /*clear*/ /*_#MELT_NEED_DBG__L13*/
24191             meltfnum[9] = 0 ;
24192             /*^clear*/
24193             /*clear*/ /*_._IF___V36*/
24194             meltfptr[34] = 0 ;
24195         }
24196
24197 #else /*MELT_HAVE_DEBUG*/
24198         /*^cppif.else*/
24199         /*^block*/
24200         /*anyblock*/
24201         {
24202
24203
24204             {
24205                 /*^locexp*/
24206                 /*void*/(void)0;
24207             }
24208             ;
24209             /*epilog*/
24210         }
24211
24212 #endif /*MELT_HAVE_DEBUG*/
24213         ;
24214
24215         MELT_CHECK_SIGNAL();
24216         ;
24217         /*_#IS_NOT_A__L15*/
24218         meltfnum[10] =
24219             !melt_is_instance_of((melt_ptr_t)(/*_.AUTOBOXDISCR__V32*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_DISCRIMINANT*/ meltfrout->tabval[9])));;
24220         MELT_LOCATION("warmelt-normal.melt:2553:/ cond");
24221         /*cond*/
24222         if (/*_#IS_NOT_A__L15*/ meltfnum[10]) /*then*/
24223             {
24224                 /*^cond.then*/
24225                 /*^block*/
24226                 /*anyblock*/
24227                 {
24228
24229                     MELT_LOCATION("warmelt-normal.melt:2555:/ cond");
24230                     /*cond*/
24231                     if (
24232                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]),
24233                                                       (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11])))
24234                     ) /*then*/
24235                         {
24236                             /*^cond.then*/
24237                             /*^getslot*/
24238                             {
24239                                 melt_ptr_t slot=NULL, obj=NULL;
24240                                 obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/;
24241                                 melt_object_get_field(slot,obj, 1, "NAMED_NAME");
24242                                 /*_.NAMED_NAME__V39*/
24243                                 meltfptr[34] = slot;
24244                             };
24245                             ;
24246                         }
24247                     else    /*^cond.else*/
24248                         {
24249
24250                             /*_.NAMED_NAME__V39*/ meltfptr[34] =  /*reallynil*/ NULL ;;
24251                         }
24252                     ;
24253
24254                     MELT_CHECK_SIGNAL();
24255                     ;
24256                     MELT_LOCATION("warmelt-normal.melt:2554:/ apply");
24257                     /*apply*/
24258                     {
24259                         union meltparam_un argtab[2];
24260                         memset(&argtab, 0, sizeof(argtab));
24261                         /*^apply.arg*/
24262                         argtab[0].meltbp_cstring =  "non-BOX-able stuff of ctype $1";
24263                         /*^apply.arg*/
24264                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V39*/ meltfptr[34];
24265                         /*_.ERROR_AT__V40*/
24266                         meltfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
24267                     }
24268                     ;
24269                     MELT_LOCATION("warmelt-normal.melt:2556:/ quasiblock");
24270
24271
24272                     /*_._RETVAL___V1*/
24273                     meltfptr[0] =  /*reallynil*/ NULL ;;
24274
24275                     {
24276                         MELT_LOCATION("warmelt-normal.melt:2556:/ locexp");
24277                         /*ochecknores compilobj_nrep_return*/
24278 #if MELT_HAVE_DEBUG
24279                         if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
24280                             melt_warn_for_no_expected_secondary_results();
24281                         /* we warned when secondary results are expected but not returned. */
24282 #endif /*MELT_HAVE_DEBUG*/
24283                         ;
24284                     }
24285                     ;
24286                     /*^finalreturn*/
24287                     ;
24288                     /*finalret*/
24289                     goto meltlabend_rout ;
24290                     MELT_LOCATION("warmelt-normal.melt:2553:/ quasiblock");
24291
24292
24293                     /*_.PROGN___V42*/
24294                     meltfptr[41] = /*_.RETURN___V41*/ meltfptr[40];;
24295                     /*^compute*/
24296                     /*_._IF___V38*/
24297                     meltfptr[33] = /*_.PROGN___V42*/ meltfptr[41];;
24298                     /*epilog*/
24299
24300                     MELT_LOCATION("warmelt-normal.melt:2553:/ clear");
24301                     /*clear*/ /*_.NAMED_NAME__V39*/
24302                     meltfptr[34] = 0 ;
24303                     /*^clear*/
24304                     /*clear*/ /*_.ERROR_AT__V40*/
24305                     meltfptr[39] = 0 ;
24306                     /*^clear*/
24307                     /*clear*/ /*_.RETURN___V41*/
24308                     meltfptr[40] = 0 ;
24309                     /*^clear*/
24310                     /*clear*/ /*_.PROGN___V42*/
24311                     meltfptr[41] = 0 ;
24312                 }
24313                 ;
24314             }
24315         else    /*^cond.else*/
24316             {
24317
24318                 /*_._IF___V38*/ meltfptr[33] =  /*reallynil*/ NULL ;;
24319             }
24320         ;
24321         MELT_LOCATION("warmelt-normal.melt:2557:/ quasiblock");
24322
24323
24324
24325         MELT_CHECK_SIGNAL();
24326         ;
24327         /*_#eqeq__L16*/
24328         meltfnum[9] =
24329             ((/*_.NCTYP__V31*/ meltfptr[27]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[12])));;
24330         MELT_LOCATION("warmelt-normal.melt:2560:/ cond");
24331         /*cond*/
24332         if (/*_#eqeq__L16*/ meltfnum[9]) /*then*/
24333             {
24334                 /*^cond.then*/
24335                 /*^block*/
24336                 /*anyblock*/
24337                 {
24338
24339                     MELT_LOCATION("warmelt-normal.melt:2561:/ compute");
24340                     /*_.AUTOBOXDISCR__V32*/
24341                     meltfptr[23] = /*_.SETQ___V45*/ meltfptr[40] = (/*nil*/NULL);;
24342                     MELT_LOCATION("warmelt-normal.melt:2560:/ quasiblock");
24343
24344
24345                     /*_.PROGN___V46*/
24346                     meltfptr[41] = (/*!konst_13*/ meltfrout->tabval[13]);;
24347                     /*^compute*/
24348                     /*_.BOXER__V44*/
24349                     meltfptr[39] = /*_.PROGN___V46*/ meltfptr[41];;
24350                     /*epilog*/
24351
24352                     MELT_LOCATION("warmelt-normal.melt:2560:/ clear");
24353                     /*clear*/ /*_.SETQ___V45*/
24354                     meltfptr[40] = 0 ;
24355                     /*^clear*/
24356                     /*clear*/ /*_.PROGN___V46*/
24357                     meltfptr[41] = 0 ;
24358                 }
24359                 ;
24360             }
24361         else    /*^cond.else*/
24362             {
24363
24364                 /*^block*/
24365                 /*anyblock*/
24366                 {
24367
24368
24369                     MELT_CHECK_SIGNAL();
24370                     ;
24371                     /*_#IS_A__L17*/
24372                     meltfnum[16] =
24373                         melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE_PLAIN*/ meltfrout->tabval[14])));;
24374                     MELT_LOCATION("warmelt-normal.melt:2564:/ cond");
24375                     /*cond*/
24376                     if (/*_#IS_A__L17*/ meltfnum[16]) /*then*/
24377                         {
24378                             /*^cond.then*/
24379                             /*^block*/
24380                             /*anyblock*/
24381                             {
24382
24383                                 MELT_LOCATION("warmelt-normal.melt:2565:/ quasiblock");
24384
24385
24386                                 /*^cond*/
24387                                 /*cond*/
24388                                 if (
24389                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]),
24390                                                                   (melt_ptr_t)((/*!CLASS_CTYPE_PLAIN*/ meltfrout->tabval[14])))
24391                                 ) /*then*/
24392                                     {
24393                                         /*^cond.then*/
24394                                         /*^getslot*/
24395                                         {
24396                                             melt_ptr_t slot=NULL, obj=NULL;
24397                                             obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/;
24398                                             melt_object_get_field(slot,obj, 13, "CTYPP_BOXING");
24399                                             /*_.BOXING__V49*/
24400                                             meltfptr[48] = slot;
24401                                         };
24402                                         ;
24403                                     }
24404                                 else    /*^cond.else*/
24405                                     {
24406
24407                                         /*_.BOXING__V49*/ meltfptr[48] =  /*reallynil*/ NULL ;;
24408                                     }
24409                                 ;
24410                                 /*^compute*/
24411                                 /*_.LET___V48*/
24412                                 meltfptr[41] = /*_.BOXING__V49*/ meltfptr[48];;
24413
24414                                 MELT_LOCATION("warmelt-normal.melt:2565:/ clear");
24415                                 /*clear*/ /*_.BOXING__V49*/
24416                                 meltfptr[48] = 0 ;
24417                                 /*_._IFELSE___V47*/
24418                                 meltfptr[40] = /*_.LET___V48*/ meltfptr[41];;
24419                                 /*epilog*/
24420
24421                                 MELT_LOCATION("warmelt-normal.melt:2564:/ clear");
24422                                 /*clear*/ /*_.LET___V48*/
24423                                 meltfptr[41] = 0 ;
24424                             }
24425                             ;
24426                         }
24427                     else    /*^cond.else*/
24428                         {
24429
24430                             /*^block*/
24431                             /*anyblock*/
24432                             {
24433
24434
24435                                 MELT_CHECK_SIGNAL();
24436                                 ;
24437                                 /*_#IS_A__L18*/
24438                                 meltfnum[17] =
24439                                     melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[15])));;
24440                                 MELT_LOCATION("warmelt-normal.melt:2569:/ cond");
24441                                 /*cond*/
24442                                 if (/*_#IS_A__L18*/ meltfnum[17]) /*then*/
24443                                     {
24444                                         /*^cond.then*/
24445                                         /*^block*/
24446                                         /*anyblock*/
24447                                         {
24448
24449                                             MELT_LOCATION("warmelt-normal.melt:2570:/ quasiblock");
24450
24451
24452                                             /*^cond*/
24453                                             /*cond*/
24454                                             if (
24455                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]),
24456                                                                               (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[15])))
24457                                             ) /*then*/
24458                                                 {
24459                                                     /*^cond.then*/
24460                                                     /*^getslot*/
24461                                                     {
24462                                                         melt_ptr_t slot=NULL, obj=NULL;
24463                                                         obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/;
24464                                                         melt_object_get_field(slot,obj, 21, "CTYPG_BOXFUN");
24465                                                         /*_.BOXFUN__V52*/
24466                                                         meltfptr[51] = slot;
24467                                                     };
24468                                                     ;
24469                                                 }
24470                                             else    /*^cond.else*/
24471                                                 {
24472
24473                                                     /*_.BOXFUN__V52*/ meltfptr[51] =  /*reallynil*/ NULL ;;
24474                                                 }
24475                                             ;
24476                                             /*^compute*/
24477                                             /*_.LET___V51*/
24478                                             meltfptr[41] = /*_.BOXFUN__V52*/ meltfptr[51];;
24479
24480                                             MELT_LOCATION("warmelt-normal.melt:2570:/ clear");
24481                                             /*clear*/ /*_.BOXFUN__V52*/
24482                                             meltfptr[51] = 0 ;
24483                                             /*_._IFELSE___V50*/
24484                                             meltfptr[48] = /*_.LET___V51*/ meltfptr[41];;
24485                                             /*epilog*/
24486
24487                                             MELT_LOCATION("warmelt-normal.melt:2569:/ clear");
24488                                             /*clear*/ /*_.LET___V51*/
24489                                             meltfptr[41] = 0 ;
24490                                         }
24491                                         ;
24492                                     }
24493                                 else    /*^cond.else*/
24494                                     {
24495
24496                                         /*^block*/
24497                                         /*anyblock*/
24498                                         {
24499
24500                                             MELT_LOCATION("warmelt-normal.melt:2576:/ cond");
24501                                             /*cond*/
24502                                             if (
24503                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]),
24504                                                                               (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11])))
24505                                             ) /*then*/
24506                                                 {
24507                                                     /*^cond.then*/
24508                                                     /*^getslot*/
24509                                                     {
24510                                                         melt_ptr_t slot=NULL, obj=NULL;
24511                                                         obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/;
24512                                                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
24513                                                         /*_.NAMED_NAME__V53*/
24514                                                         meltfptr[51] = slot;
24515                                                     };
24516                                                     ;
24517                                                 }
24518                                             else    /*^cond.else*/
24519                                                 {
24520
24521                                                     /*_.NAMED_NAME__V53*/ meltfptr[51] =  /*reallynil*/ NULL ;;
24522                                                 }
24523                                             ;
24524
24525                                             MELT_CHECK_SIGNAL();
24526                                             ;
24527                                             MELT_LOCATION("warmelt-normal.melt:2575:/ apply");
24528                                             /*apply*/
24529                                             {
24530                                                 union meltparam_un argtab[2];
24531                                                 memset(&argtab, 0, sizeof(argtab));
24532                                                 /*^apply.arg*/
24533                                                 argtab[0].meltbp_cstring =  "unexpected ctype $1 for BOX";
24534                                                 /*^apply.arg*/
24535                                                 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V53*/ meltfptr[51];
24536                                                 /*_.ERROR_AT__V54*/
24537                                                 meltfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
24538                                             }
24539                                             ;
24540                                             MELT_LOCATION("warmelt-normal.melt:2574:/ quasiblock");
24541
24542
24543                                             /*_.PROGN___V55*/
24544                                             meltfptr[54] = /*_.ERROR_AT__V54*/ meltfptr[41];;
24545                                             /*^compute*/
24546                                             /*_._IFELSE___V50*/
24547                                             meltfptr[48] = /*_.PROGN___V55*/ meltfptr[54];;
24548                                             /*epilog*/
24549
24550                                             MELT_LOCATION("warmelt-normal.melt:2569:/ clear");
24551                                             /*clear*/ /*_.NAMED_NAME__V53*/
24552                                             meltfptr[51] = 0 ;
24553                                             /*^clear*/
24554                                             /*clear*/ /*_.ERROR_AT__V54*/
24555                                             meltfptr[41] = 0 ;
24556                                             /*^clear*/
24557                                             /*clear*/ /*_.PROGN___V55*/
24558                                             meltfptr[54] = 0 ;
24559                                         }
24560                                         ;
24561                                     }
24562                                 ;
24563                                 /*_._IFELSE___V47*/
24564                                 meltfptr[40] = /*_._IFELSE___V50*/ meltfptr[48];;
24565                                 /*epilog*/
24566
24567                                 MELT_LOCATION("warmelt-normal.melt:2564:/ clear");
24568                                 /*clear*/ /*_#IS_A__L18*/
24569                                 meltfnum[17] = 0 ;
24570                                 /*^clear*/
24571                                 /*clear*/ /*_._IFELSE___V50*/
24572                                 meltfptr[48] = 0 ;
24573                             }
24574                             ;
24575                         }
24576                     ;
24577                     /*_.BOXER__V44*/
24578                     meltfptr[39] = /*_._IFELSE___V47*/ meltfptr[40];;
24579                     /*epilog*/
24580
24581                     MELT_LOCATION("warmelt-normal.melt:2560:/ clear");
24582                     /*clear*/ /*_#IS_A__L17*/
24583                     meltfnum[16] = 0 ;
24584                     /*^clear*/
24585                     /*clear*/ /*_._IFELSE___V47*/
24586                     meltfptr[40] = 0 ;
24587                 }
24588                 ;
24589             }
24590         ;
24591
24592 #if MELT_HAVE_DEBUG
24593         MELT_LOCATION("warmelt-normal.melt:2579:/ cppif.then");
24594         /*^block*/
24595         /*anyblock*/
24596         {
24597
24598
24599             {
24600                 /*^locexp*/
24601                 /*melt_increment_dbgcounter*/
24602 #if MELT_HAVE_DEBUG
24603                 melt_dbgcounter++;
24604 #endif
24605                 ;
24606             }
24607             ;
24608
24609             MELT_CHECK_SIGNAL();
24610             ;
24611             /*_#MELT_NEED_DBG__L19*/
24612             meltfnum[17] =
24613                 /*MELT_NEED_DBG*/
24614 #if MELT_HAVE_DEBUG
24615                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
24616 #else
24617                 0 /* no melt_need_dbg */
24618 #endif /*MELT_HAVE_DEBUG*/
24619                 ;;
24620             MELT_LOCATION("warmelt-normal.melt:2579:/ cond");
24621             /*cond*/
24622             if (/*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then*/
24623                 {
24624                     /*^cond.then*/
24625                     /*^block*/
24626                     /*anyblock*/
24627                     {
24628
24629                         /*_#MELT_CALLCOUNT__L20*/ meltfnum[16] =
24630                             /* for melt_callcount */
24631 #if MELT_HAVE_DEBUG && defined (meltcallcount)
24632                             meltcallcount  /* melt_callcount debugging */
24633 #else
24634                             0L  /* melt_callcount without debug */
24635 #endif /* MELT_HAVE_DEBUG melt_callcount */
24636                             ;;
24637
24638                         MELT_CHECK_SIGNAL();
24639                         ;
24640                         MELT_LOCATION("warmelt-normal.melt:2579:/ apply");
24641                         /*apply*/
24642                         {
24643                             union meltparam_un argtab[5];
24644                             memset(&argtab, 0, sizeof(argtab));
24645                             /*^apply.arg*/
24646                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L20*/ meltfnum[16];
24647                             /*^apply.arg*/
24648                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
24649                             /*^apply.arg*/
24650                             argtab[2].meltbp_long = 2579;
24651                             /*^apply.arg*/
24652                             argtab[3].meltbp_cstring =  "normexp_box boxer=";
24653                             /*^apply.arg*/
24654                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BOXER__V44*/ meltfptr[39];
24655                             /*_.MELT_DEBUG_FUN__V57*/
24656                             meltfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
24657                         }
24658                         ;
24659                         /*_._IF___V56*/
24660                         meltfptr[51] = /*_.MELT_DEBUG_FUN__V57*/ meltfptr[41];;
24661                         /*epilog*/
24662
24663                         MELT_LOCATION("warmelt-normal.melt:2579:/ clear");
24664                         /*clear*/ /*_#MELT_CALLCOUNT__L20*/
24665                         meltfnum[16] = 0 ;
24666                         /*^clear*/
24667                         /*clear*/ /*_.MELT_DEBUG_FUN__V57*/
24668                         meltfptr[41] = 0 ;
24669                     }
24670                     ;
24671                 }
24672             else    /*^cond.else*/
24673                 {
24674
24675                     /*_._IF___V56*/ meltfptr[51] =  /*reallynil*/ NULL ;;
24676                 }
24677             ;
24678
24679             {
24680                 MELT_LOCATION("warmelt-normal.melt:2579:/ locexp");
24681                 /*void*/
24682                 (void)0;
24683             }
24684             ;
24685             /*^quasiblock*/
24686
24687
24688             /*epilog*/
24689
24690             /*^clear*/
24691             /*clear*/ /*_#MELT_NEED_DBG__L19*/
24692             meltfnum[17] = 0 ;
24693             /*^clear*/
24694             /*clear*/ /*_._IF___V56*/
24695             meltfptr[51] = 0 ;
24696         }
24697
24698 #else /*MELT_HAVE_DEBUG*/
24699         /*^cppif.else*/
24700         /*^block*/
24701         /*anyblock*/
24702         {
24703
24704
24705             {
24706                 /*^locexp*/
24707                 /*void*/(void)0;
24708             }
24709             ;
24710             /*epilog*/
24711         }
24712
24713 #endif /*MELT_HAVE_DEBUG*/
24714         ;
24715         MELT_LOCATION("warmelt-normal.melt:2580:/ quasiblock");
24716
24717
24718
24719         MELT_CHECK_SIGNAL();
24720         ;
24721         MELT_LOCATION("warmelt-normal.melt:2581:/ apply");
24722         /*apply*/
24723         {
24724             /*_.CSYM__V59*/ meltfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[16])), (melt_ptr_t)((/*!konst_17_BOX*/ meltfrout->tabval[17])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
24725         }
24726         ;
24727
24728         MELT_CHECK_SIGNAL();
24729         ;
24730
24731         MELT_CHECK_SIGNAL();
24732         ;
24733         MELT_LOCATION("warmelt-normal.melt:2587:/ cond");
24734         /*cond*/
24735         if (/*_.AUTOBOXDISCR__V32*/ meltfptr[23]) /*then*/
24736             {
24737                 /*^cond.then*/
24738                 /*^block*/
24739                 /*anyblock*/
24740                 {
24741
24742                     MELT_LOCATION("warmelt-normal.melt:2588:/ quasiblock");
24743
24744
24745
24746                     MELT_CHECK_SIGNAL();
24747                     ;
24748                     MELT_LOCATION("warmelt-normal.melt:2590:/ apply");
24749                     /*apply*/
24750                     {
24751                         union meltparam_un argtab[3];
24752                         memset(&argtab, 0, sizeof(argtab));
24753                         /*^apply.arg*/
24754                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
24755                         /*^apply.arg*/
24756                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
24757                         /*^apply.arg*/
24758                         argtab[2].meltbp_cstring =  "autoboxing discriminant";
24759                         /*_.PREDEFDISCR__V62*/
24760                         meltfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.AUTOBOXDISCR__V32*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
24761                     }
24762                     ;
24763                     /*_.CLONE_WITH_DISCRIMINANT__V63*/
24764                     meltfptr[62] =
24765                         meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_21*/ meltfrout->tabval[21])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[22]))) ;;
24766                     /*^compute*/
24767                     /*_.CLONE_WITH_DISCRIMINANT__V64*/
24768                     meltfptr[63] =
24769                         meltgc_clone_with_discriminant((melt_ptr_t)(/*_.BOXER__V44*/ meltfptr[39]), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[22]))) ;;
24770                     /*^compute*/
24771                     /*_.CLONE_WITH_DISCRIMINANT__V65*/
24772                     meltfptr[64] =
24773                         meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_23*/ meltfrout->tabval[23])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[22]))) ;;
24774                     /*^compute*/
24775                     /*_.CLONE_WITH_DISCRIMINANT__V66*/
24776                     meltfptr[65] =
24777                         meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_24*/ meltfrout->tabval[24])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[22]))) ;;
24778                     /*^compute*/
24779                     /*_.CLONE_WITH_DISCRIMINANT__V67*/
24780                     meltfptr[66] =
24781                         meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_25*/ meltfrout->tabval[25])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[22]))) ;;
24782                     MELT_LOCATION("warmelt-normal.melt:2593:/ blockmultialloc");
24783                     /*multiallocblock*/
24784                     {
24785                         struct meltletrec_2_st
24786                         {
24787                             struct MELT_MULTIPLE_STRUCT(7) rtup_0__TUPLREC__x5;
24788                             long meltletrec_2_endgap;
24789                         } *meltletrec_2_ptr = 0;
24790                         meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0);
24791                         /*^blockmultialloc.initfill*/
24792                         /*inimult rtup_0__TUPLREC__x5*/
24793                         /*_.TUPLREC___V69*/
24794                         meltfptr[68] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x5;
24795                         meltletrec_2_ptr->rtup_0__TUPLREC__x5.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE))));
24796                         meltletrec_2_ptr->rtup_0__TUPLREC__x5.nbval = 7;
24797
24798
24799                         /*^putuple*/
24800                         /*putupl#8*/
24801                         melt_assertmsg("putupl [:2593] #8 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))== MELTOBMAG_MULTIPLE);
24802                         melt_assertmsg("putupl [:2593] #8 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))));
24803                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))->tabval[0] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V63*/ meltfptr[62]);
24804                         ;
24805                         /*^putuple*/
24806                         /*putupl#9*/
24807                         melt_assertmsg("putupl [:2593] #9 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))== MELTOBMAG_MULTIPLE);
24808                         melt_assertmsg("putupl [:2593] #9 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))));
24809                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))->tabval[1] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V64*/ meltfptr[63]);
24810                         ;
24811                         /*^putuple*/
24812                         /*putupl#10*/
24813                         melt_assertmsg("putupl [:2593] #10 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))== MELTOBMAG_MULTIPLE);
24814                         melt_assertmsg("putupl [:2593] #10 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))));
24815                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))->tabval[2] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V65*/ meltfptr[64]);
24816                         ;
24817                         /*^putuple*/
24818                         /*putupl#11*/
24819                         melt_assertmsg("putupl [:2593] #11 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))== MELTOBMAG_MULTIPLE);
24820                         melt_assertmsg("putupl [:2593] #11 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))));
24821                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))->tabval[3] = (melt_ptr_t)(/*_.PREDEFDISCR__V62*/ meltfptr[51]);
24822                         ;
24823                         /*^putuple*/
24824                         /*putupl#12*/
24825                         melt_assertmsg("putupl [:2593] #12 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))== MELTOBMAG_MULTIPLE);
24826                         melt_assertmsg("putupl [:2593] #12 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))));
24827                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))->tabval[4] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V66*/ meltfptr[65]);
24828                         ;
24829                         /*^putuple*/
24830                         /*putupl#13*/
24831                         melt_assertmsg("putupl [:2593] #13 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))== MELTOBMAG_MULTIPLE);
24832                         melt_assertmsg("putupl [:2593] #13 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))));
24833                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))->tabval[5] = (melt_ptr_t)(/*_.NBOXED__V21*/ meltfptr[20]);
24834                         ;
24835                         /*^putuple*/
24836                         /*putupl#14*/
24837                         melt_assertmsg("putupl [:2593] #14 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))== MELTOBMAG_MULTIPLE);
24838                         melt_assertmsg("putupl [:2593] #14 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))));
24839                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V69*/ meltfptr[68]))->tabval[6] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V67*/ meltfptr[66]);
24840                         ;
24841                         /*^touch*/
24842                         meltgc_touch(/*_.TUPLREC___V69*/ meltfptr[68]);
24843                         ;
24844                         /*_.TUPLE___V68*/
24845                         meltfptr[67] = /*_.TUPLREC___V69*/ meltfptr[68];;
24846                         /*epilog*/
24847
24848                         MELT_LOCATION("warmelt-normal.melt:2593:/ clear");
24849                         /*clear*/ /*_.TUPLREC___V69*/
24850                         meltfptr[68] = 0 ;
24851                         /*^clear*/
24852                         /*clear*/ /*_.TUPLREC___V69*/
24853                         meltfptr[68] = 0 ;
24854                     } /*end multiallocblock*/
24855                     ;
24856                     /*_.LET___V61*/
24857                     meltfptr[41] = /*_.TUPLE___V68*/ meltfptr[67];;
24858
24859                     MELT_LOCATION("warmelt-normal.melt:2588:/ clear");
24860                     /*clear*/ /*_.PREDEFDISCR__V62*/
24861                     meltfptr[51] = 0 ;
24862                     /*^clear*/
24863                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V63*/
24864                     meltfptr[62] = 0 ;
24865                     /*^clear*/
24866                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V64*/
24867                     meltfptr[63] = 0 ;
24868                     /*^clear*/
24869                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V65*/
24870                     meltfptr[64] = 0 ;
24871                     /*^clear*/
24872                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V66*/
24873                     meltfptr[65] = 0 ;
24874                     /*^clear*/
24875                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V67*/
24876                     meltfptr[66] = 0 ;
24877                     /*^clear*/
24878                     /*clear*/ /*_.TUPLE___V68*/
24879                     meltfptr[67] = 0 ;
24880                     /*_._IFELSE___V60*/
24881                     meltfptr[40] = /*_.LET___V61*/ meltfptr[41];;
24882                     /*epilog*/
24883
24884                     MELT_LOCATION("warmelt-normal.melt:2587:/ clear");
24885                     /*clear*/ /*_.LET___V61*/
24886                     meltfptr[41] = 0 ;
24887                 }
24888                 ;
24889             }
24890         else    /*^cond.else*/
24891             {
24892
24893                 /*^block*/
24894                 /*anyblock*/
24895                 {
24896
24897                     /*_.CLONE_WITH_DISCRIMINANT__V70*/ meltfptr[68] =
24898                         meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_26*/ meltfrout->tabval[26])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[22]))) ;;
24899                     /*^compute*/
24900                     /*_.CLONE_WITH_DISCRIMINANT__V71*/
24901                     meltfptr[51] =
24902                         meltgc_clone_with_discriminant((melt_ptr_t)(/*_.BOXER__V44*/ meltfptr[39]), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[22]))) ;;
24903                     /*^compute*/
24904                     /*_.CLONE_WITH_DISCRIMINANT__V72*/
24905                     meltfptr[62] =
24906                         meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_27*/ meltfrout->tabval[27])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[22]))) ;;
24907                     /*^compute*/
24908                     /*_.CLONE_WITH_DISCRIMINANT__V73*/
24909                     meltfptr[63] =
24910                         meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_28*/ meltfrout->tabval[28])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[22]))) ;;
24911                     MELT_LOCATION("warmelt-normal.melt:2602:/ blockmultialloc");
24912                     /*multiallocblock*/
24913                     {
24914                         struct meltletrec_3_st
24915                         {
24916                             struct MELT_MULTIPLE_STRUCT(5) rtup_0__TUPLREC__x6;
24917                             long meltletrec_3_endgap;
24918                         } *meltletrec_3_ptr = 0;
24919                         meltletrec_3_ptr = (struct meltletrec_3_st *) meltgc_allocate (sizeof (struct meltletrec_3_st), 0);
24920                         /*^blockmultialloc.initfill*/
24921                         /*inimult rtup_0__TUPLREC__x6*/
24922                         /*_.TUPLREC___V75*/
24923                         meltfptr[65] = (melt_ptr_t) &meltletrec_3_ptr->rtup_0__TUPLREC__x6;
24924                         meltletrec_3_ptr->rtup_0__TUPLREC__x6.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE))));
24925                         meltletrec_3_ptr->rtup_0__TUPLREC__x6.nbval = 5;
24926
24927
24928                         /*^putuple*/
24929                         /*putupl#15*/
24930                         melt_assertmsg("putupl [:2602] #15 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V75*/ meltfptr[65]))== MELTOBMAG_MULTIPLE);
24931                         melt_assertmsg("putupl [:2602] #15 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V75*/ meltfptr[65]))));
24932                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V75*/ meltfptr[65]))->tabval[0] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V70*/ meltfptr[68]);
24933                         ;
24934                         /*^putuple*/
24935                         /*putupl#16*/
24936                         melt_assertmsg("putupl [:2602] #16 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V75*/ meltfptr[65]))== MELTOBMAG_MULTIPLE);
24937                         melt_assertmsg("putupl [:2602] #16 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V75*/ meltfptr[65]))));
24938                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V75*/ meltfptr[65]))->tabval[1] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V71*/ meltfptr[51]);
24939                         ;
24940                         /*^putuple*/
24941                         /*putupl#17*/
24942                         melt_assertmsg("putupl [:2602] #17 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V75*/ meltfptr[65]))== MELTOBMAG_MULTIPLE);
24943                         melt_assertmsg("putupl [:2602] #17 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V75*/ meltfptr[65]))));
24944                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V75*/ meltfptr[65]))->tabval[2] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V72*/ meltfptr[62]);
24945                         ;
24946                         /*^putuple*/
24947                         /*putupl#18*/
24948                         melt_assertmsg("putupl [:2602] #18 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V75*/ meltfptr[65]))== MELTOBMAG_MULTIPLE);
24949                         melt_assertmsg("putupl [:2602] #18 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V75*/ meltfptr[65]))));
24950                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V75*/ meltfptr[65]))->tabval[3] = (melt_ptr_t)(/*_.NBOXED__V21*/ meltfptr[20]);
24951                         ;
24952                         /*^putuple*/
24953                         /*putupl#19*/
24954                         melt_assertmsg("putupl [:2602] #19 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V75*/ meltfptr[65]))== MELTOBMAG_MULTIPLE);
24955                         melt_assertmsg("putupl [:2602] #19 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V75*/ meltfptr[65]))));
24956                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V75*/ meltfptr[65]))->tabval[4] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V73*/ meltfptr[63]);
24957                         ;
24958                         /*^touch*/
24959                         meltgc_touch(/*_.TUPLREC___V75*/ meltfptr[65]);
24960                         ;
24961                         /*_.TUPLE___V74*/
24962                         meltfptr[64] = /*_.TUPLREC___V75*/ meltfptr[65];;
24963                         /*epilog*/
24964
24965                         MELT_LOCATION("warmelt-normal.melt:2602:/ clear");
24966                         /*clear*/ /*_.TUPLREC___V75*/
24967                         meltfptr[65] = 0 ;
24968                         /*^clear*/
24969                         /*clear*/ /*_.TUPLREC___V75*/
24970                         meltfptr[65] = 0 ;
24971                     } /*end multiallocblock*/
24972                     ;
24973                     /*_._IFELSE___V60*/
24974                     meltfptr[40] = /*_.TUPLE___V74*/ meltfptr[64];;
24975                     /*epilog*/
24976
24977                     MELT_LOCATION("warmelt-normal.melt:2587:/ clear");
24978                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V70*/
24979                     meltfptr[68] = 0 ;
24980                     /*^clear*/
24981                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V71*/
24982                     meltfptr[51] = 0 ;
24983                     /*^clear*/
24984                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V72*/
24985                     meltfptr[62] = 0 ;
24986                     /*^clear*/
24987                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V73*/
24988                     meltfptr[63] = 0 ;
24989                     /*^clear*/
24990                     /*clear*/ /*_.TUPLE___V74*/
24991                     meltfptr[64] = 0 ;
24992                 }
24993                 ;
24994             }
24995         ;
24996         MELT_LOCATION("warmelt-normal.melt:2582:/ quasiblock");
24997
24998
24999         /*^rawallocobj*/
25000         /*rawallocobj*/
25001         {
25002             melt_ptr_t newobj = 0;
25003             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ meltfrout->tabval[18])), (4), "CLASS_NREP_CHUNK");
25004             /*_.INST__V77*/
25005             meltfptr[67] =
25006                 newobj;
25007         };
25008         ;
25009         /*^putslot*/
25010         /*putslot*/
25011         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V77*/ meltfptr[67])) == MELTOBMAG_OBJECT);
25012         melt_putfield_object((/*_.INST__V77*/ meltfptr[67]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
25013         ;
25014         /*^putslot*/
25015         /*putslot*/
25016         melt_assertmsg("checkobj putslot  _ @NCHUNK_OPER", melt_magic_discr((melt_ptr_t)(/*_.INST__V77*/ meltfptr[67])) == MELTOBMAG_OBJECT);
25017         melt_putfield_object((/*_.INST__V77*/ meltfptr[67]), (3), ((/*!konst_17_BOX*/ meltfrout->tabval[17])), "NCHUNK_OPER");
25018         ;
25019         /*^putslot*/
25020         /*putslot*/
25021         melt_assertmsg("checkobj putslot  _ @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V77*/ meltfptr[67])) == MELTOBMAG_OBJECT);
25022         melt_putfield_object((/*_.INST__V77*/ meltfptr[67]), (1), ((/*!CTYPE_VALUE*/ meltfrout->tabval[12])), "NEXPR_CTYP");
25023         ;
25024         /*^putslot*/
25025         /*putslot*/
25026         melt_assertmsg("checkobj putslot  _ @NCHUNK_EXPANSION", melt_magic_discr((melt_ptr_t)(/*_.INST__V77*/ meltfptr[67])) == MELTOBMAG_OBJECT);
25027         melt_putfield_object((/*_.INST__V77*/ meltfptr[67]), (2), (/*_._IFELSE___V60*/ meltfptr[40]), "NCHUNK_EXPANSION");
25028         ;
25029         /*^touchobj*/
25030
25031         melt_dbgtrace_written_object (/*_.INST__V77*/ meltfptr[67], "newly made instance");
25032         ;
25033         /*_.NCHUNK__V76*/
25034         meltfptr[66] = /*_.INST__V77*/ meltfptr[67];;
25035
25036         MELT_CHECK_SIGNAL();
25037         ;
25038         MELT_LOCATION("warmelt-normal.melt:2610:/ quasiblock");
25039
25040
25041         /*^rawallocobj*/
25042         /*rawallocobj*/
25043         {
25044             melt_ptr_t newobj = 0;
25045             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[29])), (4), "CLASS_NORMAL_LET_BINDING");
25046             /*_.INST__V79*/
25047             meltfptr[65] =
25048                 newobj;
25049         };
25050         ;
25051         /*^putslot*/
25052         /*putslot*/
25053         melt_assertmsg("checkobj putslot  _ @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[65])) == MELTOBMAG_OBJECT);
25054         melt_putfield_object((/*_.INST__V79*/ meltfptr[65]), (3), (/*_.SLOC__V18*/ meltfptr[5]), "LETBIND_LOC");
25055         ;
25056         /*^putslot*/
25057         /*putslot*/
25058         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[65])) == MELTOBMAG_OBJECT);
25059         melt_putfield_object((/*_.INST__V79*/ meltfptr[65]), (0), (/*_.CSYM__V59*/ meltfptr[48]), "BINDER");
25060         ;
25061         /*^putslot*/
25062         /*putslot*/
25063         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[65])) == MELTOBMAG_OBJECT);
25064         melt_putfield_object((/*_.INST__V79*/ meltfptr[65]), (1), ((/*!CTYPE_VALUE*/ meltfrout->tabval[12])), "LETBIND_TYPE");
25065         ;
25066         /*^putslot*/
25067         /*putslot*/
25068         melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[65])) == MELTOBMAG_OBJECT);
25069         melt_putfield_object((/*_.INST__V79*/ meltfptr[65]), (2), (/*_.NCHUNK__V76*/ meltfptr[66]), "LETBIND_EXPR");
25070         ;
25071         /*^touchobj*/
25072
25073         melt_dbgtrace_written_object (/*_.INST__V79*/ meltfptr[65], "newly made instance");
25074         ;
25075         /*_.CBIND__V78*/
25076         meltfptr[41] = /*_.INST__V79*/ meltfptr[65];;
25077
25078         MELT_CHECK_SIGNAL();
25079         ;
25080         MELT_LOCATION("warmelt-normal.melt:2616:/ quasiblock");
25081
25082
25083         /*^rawallocobj*/
25084         /*rawallocobj*/
25085         {
25086             melt_ptr_t newobj = 0;
25087             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[30])), (4), "CLASS_NREP_LOCSYMOCC");
25088             /*_.INST__V81*/
25089             meltfptr[51] =
25090                 newobj;
25091         };
25092         ;
25093         /*^putslot*/
25094         /*putslot*/
25095         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ meltfptr[51])) == MELTOBMAG_OBJECT);
25096         melt_putfield_object((/*_.INST__V81*/ meltfptr[51]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
25097         ;
25098         /*^putslot*/
25099         /*putslot*/
25100         melt_assertmsg("checkobj putslot  _ @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ meltfptr[51])) == MELTOBMAG_OBJECT);
25101         melt_putfield_object((/*_.INST__V81*/ meltfptr[51]), (2), ((/*!CTYPE_VALUE*/ meltfrout->tabval[12])), "NOCC_CTYP");
25102         ;
25103         /*^putslot*/
25104         /*putslot*/
25105         melt_assertmsg("checkobj putslot  _ @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ meltfptr[51])) == MELTOBMAG_OBJECT);
25106         melt_putfield_object((/*_.INST__V81*/ meltfptr[51]), (1), (/*_.CSYM__V59*/ meltfptr[48]), "NOCC_SYMB");
25107         ;
25108         /*^putslot*/
25109         /*putslot*/
25110         melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ meltfptr[51])) == MELTOBMAG_OBJECT);
25111         melt_putfield_object((/*_.INST__V81*/ meltfptr[51]), (3), (/*_.CBIND__V78*/ meltfptr[41]), "NOCC_BIND");
25112         ;
25113         /*^touchobj*/
25114
25115         melt_dbgtrace_written_object (/*_.INST__V81*/ meltfptr[51], "newly made instance");
25116         ;
25117         /*_.CLOCC__V80*/
25118         meltfptr[68] = /*_.INST__V81*/ meltfptr[51];;
25119
25120 #if MELT_HAVE_DEBUG
25121         MELT_LOCATION("warmelt-normal.melt:2622:/ cppif.then");
25122         /*^block*/
25123         /*anyblock*/
25124         {
25125
25126
25127             {
25128                 /*^locexp*/
25129                 /*melt_increment_dbgcounter*/
25130 #if MELT_HAVE_DEBUG
25131                 melt_dbgcounter++;
25132 #endif
25133                 ;
25134             }
25135             ;
25136
25137             MELT_CHECK_SIGNAL();
25138             ;
25139             /*_#MELT_NEED_DBG__L21*/
25140             meltfnum[16] =
25141                 /*MELT_NEED_DBG*/
25142 #if MELT_HAVE_DEBUG
25143                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
25144 #else
25145                 0 /* no melt_need_dbg */
25146 #endif /*MELT_HAVE_DEBUG*/
25147                 ;;
25148             MELT_LOCATION("warmelt-normal.melt:2622:/ cond");
25149             /*cond*/
25150             if (/*_#MELT_NEED_DBG__L21*/ meltfnum[16]) /*then*/
25151                 {
25152                     /*^cond.then*/
25153                     /*^block*/
25154                     /*anyblock*/
25155                     {
25156
25157                         /*_#MELT_CALLCOUNT__L22*/ meltfnum[17] =
25158                             /* for melt_callcount */
25159 #if MELT_HAVE_DEBUG && defined (meltcallcount)
25160                             meltcallcount  /* melt_callcount debugging */
25161 #else
25162                             0L  /* melt_callcount without debug */
25163 #endif /* MELT_HAVE_DEBUG melt_callcount */
25164                             ;;
25165
25166                         MELT_CHECK_SIGNAL();
25167                         ;
25168                         MELT_LOCATION("warmelt-normal.melt:2622:/ apply");
25169                         /*apply*/
25170                         {
25171                             union meltparam_un argtab[7];
25172                             memset(&argtab, 0, sizeof(argtab));
25173                             /*^apply.arg*/
25174                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L22*/ meltfnum[17];
25175                             /*^apply.arg*/
25176                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
25177                             /*^apply.arg*/
25178                             argtab[2].meltbp_long = 2622;
25179                             /*^apply.arg*/
25180                             argtab[3].meltbp_cstring =  "normexp_box nchunk=";
25181                             /*^apply.arg*/
25182                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCHUNK__V76*/ meltfptr[66];
25183                             /*^apply.arg*/
25184                             argtab[5].meltbp_cstring =  " clocc=";
25185                             /*^apply.arg*/
25186                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V80*/ meltfptr[68];
25187                             /*_.MELT_DEBUG_FUN__V83*/
25188                             meltfptr[63] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
25189                         }
25190                         ;
25191                         /*_._IF___V82*/
25192                         meltfptr[62] = /*_.MELT_DEBUG_FUN__V83*/ meltfptr[63];;
25193                         /*epilog*/
25194
25195                         MELT_LOCATION("warmelt-normal.melt:2622:/ clear");
25196                         /*clear*/ /*_#MELT_CALLCOUNT__L22*/
25197                         meltfnum[17] = 0 ;
25198                         /*^clear*/
25199                         /*clear*/ /*_.MELT_DEBUG_FUN__V83*/
25200                         meltfptr[63] = 0 ;
25201                     }
25202                     ;
25203                 }
25204             else    /*^cond.else*/
25205                 {
25206
25207                     /*_._IF___V82*/ meltfptr[62] =  /*reallynil*/ NULL ;;
25208                 }
25209             ;
25210
25211             {
25212                 MELT_LOCATION("warmelt-normal.melt:2622:/ locexp");
25213                 /*void*/
25214                 (void)0;
25215             }
25216             ;
25217             /*^quasiblock*/
25218
25219
25220             /*epilog*/
25221
25222             /*^clear*/
25223             /*clear*/ /*_#MELT_NEED_DBG__L21*/
25224             meltfnum[16] = 0 ;
25225             /*^clear*/
25226             /*clear*/ /*_._IF___V82*/
25227             meltfptr[62] = 0 ;
25228         }
25229
25230 #else /*MELT_HAVE_DEBUG*/
25231         /*^cppif.else*/
25232         /*^block*/
25233         /*anyblock*/
25234         {
25235
25236
25237             {
25238                 /*^locexp*/
25239                 /*void*/(void)0;
25240             }
25241             ;
25242             /*epilog*/
25243         }
25244
25245 #endif /*MELT_HAVE_DEBUG*/
25246         ;
25247
25248         {
25249             MELT_LOCATION("warmelt-normal.melt:2623:/ locexp");
25250             meltgc_append_list((melt_ptr_t)(/*_.NBIND__V22*/ meltfptr[21]), (melt_ptr_t)(/*_.CBIND__V78*/ meltfptr[41]));
25251         }
25252         ;
25253
25254 #if MELT_HAVE_DEBUG
25255         MELT_LOCATION("warmelt-normal.melt:2624:/ cppif.then");
25256         /*^block*/
25257         /*anyblock*/
25258         {
25259
25260
25261             {
25262                 /*^locexp*/
25263                 /*melt_increment_dbgcounter*/
25264 #if MELT_HAVE_DEBUG
25265                 melt_dbgcounter++;
25266 #endif
25267                 ;
25268             }
25269             ;
25270
25271             MELT_CHECK_SIGNAL();
25272             ;
25273             /*_#MELT_NEED_DBG__L23*/
25274             meltfnum[17] =
25275                 /*MELT_NEED_DBG*/
25276 #if MELT_HAVE_DEBUG
25277                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
25278 #else
25279                 0 /* no melt_need_dbg */
25280 #endif /*MELT_HAVE_DEBUG*/
25281                 ;;
25282             MELT_LOCATION("warmelt-normal.melt:2624:/ cond");
25283             /*cond*/
25284             if (/*_#MELT_NEED_DBG__L23*/ meltfnum[17]) /*then*/
25285                 {
25286                     /*^cond.then*/
25287                     /*^block*/
25288                     /*anyblock*/
25289                     {
25290
25291                         /*_#MELT_CALLCOUNT__L24*/ meltfnum[16] =
25292                             /* for melt_callcount */
25293 #if MELT_HAVE_DEBUG && defined (meltcallcount)
25294                             meltcallcount  /* melt_callcount debugging */
25295 #else
25296                             0L  /* melt_callcount without debug */
25297 #endif /* MELT_HAVE_DEBUG melt_callcount */
25298                             ;;
25299
25300                         MELT_CHECK_SIGNAL();
25301                         ;
25302                         MELT_LOCATION("warmelt-normal.melt:2624:/ apply");
25303                         /*apply*/
25304                         {
25305                             union meltparam_un argtab[7];
25306                             memset(&argtab, 0, sizeof(argtab));
25307                             /*^apply.arg*/
25308                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L24*/ meltfnum[16];
25309                             /*^apply.arg*/
25310                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
25311                             /*^apply.arg*/
25312                             argtab[2].meltbp_long = 2624;
25313                             /*^apply.arg*/
25314                             argtab[3].meltbp_cstring =  "normexp_box return clocc=";
25315                             /*^apply.arg*/
25316                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V80*/ meltfptr[68];
25317                             /*^apply.arg*/
25318                             argtab[5].meltbp_cstring =  " nbind=";
25319                             /*^apply.arg*/
25320                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ meltfptr[21];
25321                             /*_.MELT_DEBUG_FUN__V85*/
25322                             meltfptr[63] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
25323                         }
25324                         ;
25325                         /*_._IF___V84*/
25326                         meltfptr[64] = /*_.MELT_DEBUG_FUN__V85*/ meltfptr[63];;
25327                         /*epilog*/
25328
25329                         MELT_LOCATION("warmelt-normal.melt:2624:/ clear");
25330                         /*clear*/ /*_#MELT_CALLCOUNT__L24*/
25331                         meltfnum[16] = 0 ;
25332                         /*^clear*/
25333                         /*clear*/ /*_.MELT_DEBUG_FUN__V85*/
25334                         meltfptr[63] = 0 ;
25335                     }
25336                     ;
25337                 }
25338             else    /*^cond.else*/
25339                 {
25340
25341                     /*_._IF___V84*/ meltfptr[64] =  /*reallynil*/ NULL ;;
25342                 }
25343             ;
25344
25345             {
25346                 MELT_LOCATION("warmelt-normal.melt:2624:/ locexp");
25347                 /*void*/
25348                 (void)0;
25349             }
25350             ;
25351             /*^quasiblock*/
25352
25353
25354             /*epilog*/
25355
25356             /*^clear*/
25357             /*clear*/ /*_#MELT_NEED_DBG__L23*/
25358             meltfnum[17] = 0 ;
25359             /*^clear*/
25360             /*clear*/ /*_._IF___V84*/
25361             meltfptr[64] = 0 ;
25362         }
25363
25364 #else /*MELT_HAVE_DEBUG*/
25365         /*^cppif.else*/
25366         /*^block*/
25367         /*anyblock*/
25368         {
25369
25370
25371             {
25372                 /*^locexp*/
25373                 /*void*/(void)0;
25374             }
25375             ;
25376             /*epilog*/
25377         }
25378
25379 #endif /*MELT_HAVE_DEBUG*/
25380         ;
25381
25382         MELT_CHECK_SIGNAL();
25383         ;
25384         MELT_LOCATION("warmelt-normal.melt:2625:/ quasiblock");
25385
25386
25387         /*_._RETVAL___V1*/
25388         meltfptr[0] = /*_.CLOCC__V80*/ meltfptr[68];;
25389         MELT_LOCATION("warmelt-normal.melt:2625:/ putxtraresult");
25390         if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
25391         if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
25392         if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.NBIND__V22*/ meltfptr[21]);
25393         ;
25394         /*^finalreturn*/
25395         ;
25396         /*finalret*/
25397         goto meltlabend_rout ;
25398         /*_.LET___V58*/
25399         meltfptr[54] = /*_.RETURN___V86*/ meltfptr[62];;
25400
25401         MELT_LOCATION("warmelt-normal.melt:2580:/ clear");
25402         /*clear*/ /*_.CSYM__V59*/
25403         meltfptr[48] = 0 ;
25404         /*^clear*/
25405         /*clear*/ /*_._IFELSE___V60*/
25406         meltfptr[40] = 0 ;
25407         /*^clear*/
25408         /*clear*/ /*_.NCHUNK__V76*/
25409         meltfptr[66] = 0 ;
25410         /*^clear*/
25411         /*clear*/ /*_.CBIND__V78*/
25412         meltfptr[41] = 0 ;
25413         /*^clear*/
25414         /*clear*/ /*_.CLOCC__V80*/
25415         meltfptr[68] = 0 ;
25416         /*^clear*/
25417         /*clear*/ /*_.RETURN___V86*/
25418         meltfptr[62] = 0 ;
25419         /*_.LET___V43*/
25420         meltfptr[34] = /*_.LET___V58*/ meltfptr[54];;
25421
25422         MELT_LOCATION("warmelt-normal.melt:2557:/ clear");
25423         /*clear*/ /*_#eqeq__L16*/
25424         meltfnum[9] = 0 ;
25425         /*^clear*/
25426         /*clear*/ /*_.BOXER__V44*/
25427         meltfptr[39] = 0 ;
25428         /*^clear*/
25429         /*clear*/ /*_.LET___V58*/
25430         meltfptr[54] = 0 ;
25431         /*_.LET___V30*/
25432         meltfptr[28] = /*_.LET___V43*/ meltfptr[34];;
25433
25434         MELT_LOCATION("warmelt-normal.melt:2548:/ clear");
25435         /*clear*/ /*_.NCTYP__V31*/
25436         meltfptr[27] = 0 ;
25437         /*^clear*/
25438         /*clear*/ /*_.AUTOBOXDISCR__V32*/
25439         meltfptr[23] = 0 ;
25440         /*^clear*/
25441         /*clear*/ /*_.IFCPP___V33*/
25442         meltfptr[22] = 0 ;
25443         /*^clear*/
25444         /*clear*/ /*_#IS_NOT_A__L15*/
25445         meltfnum[10] = 0 ;
25446         /*^clear*/
25447         /*clear*/ /*_._IF___V38*/
25448         meltfptr[33] = 0 ;
25449         /*^clear*/
25450         /*clear*/ /*_.LET___V43*/
25451         meltfptr[34] = 0 ;
25452
25453         MELT_CHECK_SIGNAL();
25454         ;
25455         /*_.MULTI___V20*/
25456         meltfptr[19] = /*_.LET___V30*/ meltfptr[28];;
25457
25458         MELT_LOCATION("warmelt-normal.melt:2541:/ clear");
25459         /*clear*/ /*_#IS_LIST__L8*/
25460         meltfnum[1] = 0 ;
25461         /*^clear*/
25462         /*clear*/ /*_#NOT__L9*/
25463         meltfnum[0] = 0 ;
25464         /*^clear*/
25465         /*clear*/ /*_.LET___V30*/
25466         meltfptr[28] = 0 ;
25467
25468         /*^clear*/
25469         /*clear*/ /*_.NBIND__V22*/
25470         meltfptr[21] = 0 ;
25471         /*_.LET___V17*/
25472         meltfptr[15] = /*_.MULTI___V20*/ meltfptr[19];;
25473
25474         MELT_LOCATION("warmelt-normal.melt:2538:/ clear");
25475         /*clear*/ /*_.SLOC__V18*/
25476         meltfptr[5] = 0 ;
25477         /*^clear*/
25478         /*clear*/ /*_.SBOXED__V19*/
25479         meltfptr[18] = 0 ;
25480         /*^clear*/
25481         /*clear*/ /*_.MULTI___V20*/
25482         meltfptr[19] = 0 ;
25483
25484         MELT_CHECK_SIGNAL();
25485         ;
25486         MELT_LOCATION("warmelt-normal.melt:2533:/ quasiblock");
25487
25488
25489         /*_._RETVAL___V1*/
25490         meltfptr[0] = /*_.LET___V17*/ meltfptr[15];;
25491
25492         {
25493             MELT_LOCATION("warmelt-normal.melt:2533:/ locexp");
25494             /*ochecknores compilobj_nrep_return*/
25495 #if MELT_HAVE_DEBUG
25496             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
25497                 melt_warn_for_no_expected_secondary_results();
25498             /* we warned when secondary results are expected but not returned. */
25499 #endif /*MELT_HAVE_DEBUG*/
25500             ;
25501         }
25502         ;
25503         /*^finalreturn*/
25504         ;
25505         /*finalret*/
25506         goto meltlabend_rout ;
25507         /*epilog*/
25508
25509         /*^clear*/
25510         /*clear*/ /*_.IFCPP___V8*/
25511         meltfptr[6] = 0 ;
25512         /*^clear*/
25513         /*clear*/ /*_.IFCPP___V11*/
25514         meltfptr[9] = 0 ;
25515         /*^clear*/
25516         /*clear*/ /*_.IFCPP___V14*/
25517         meltfptr[12] = 0 ;
25518         /*^clear*/
25519         /*clear*/ /*_.LET___V17*/
25520         meltfptr[15] = 0 ;
25521     }
25522
25523     ;
25524     goto meltlabend_rout;
25525 meltlabend_rout:
25526     melt_trace_end("NORMEXP_BOX", meltcallcount);
25527     melt_blocklevel_signals = current_blocklevel_signals_meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX_melt;
25528     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
25529 #undef meltcallcount
25530 #undef meltfram__
25531 #undef MELTFRAM_NBVARNUM
25532 #undef MELTFRAM_NBVARPTR
25533 } /*end meltrout_38_WARMELTmiNORMAL_NORMEXP_BOX*/
25534
25535
25536
25537
25538
25539
25540 melt_ptr_t MELT_MODULE_VISIBILITY
25541 meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
25542         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
25543 {
25544     long current_blocklevel_signals_meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX_melt =  melt_blocklevel_signals;
25545
25546 #if MELT_HAVE_DEBUG
25547     static long melt_call_counter__;
25548     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
25549 #undef meltcallcount
25550 #define meltcallcount melt_thiscallcounter__
25551 #else
25552 #undef meltcallcount
25553 #define meltcallcount 0L
25554 #endif
25555 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
25556
25557     /* start of frame for routine meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX fromline 1752 */
25558
25559     /** start of frame for meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX of CLASS_PROCROUTINEOBJ from 1555**/
25560
25561     /*curframdeclclassy*/ class MeltFrame_meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX// fromline 1568
25562         : public Melt_CallFrameWithValues<83>
25563     {
25564     public: /* fromline 1572*/
25565         long mcfr_varnum[23];
25566         /*classy others*/
25567         long _meltsparel;
25568         void melt_mark_stuff (void)
25569         {
25570         } /*end melt_mark_stuff*/
25571         virtual void melt_mark_ggc_data (void)
25572         {
25573             melt_mark_values ();
25574             melt_mark_stuff ();
25575         }; /*end melt_mark_ggc_data*/
25576         MeltFrame_meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX(meltclosure_ptr_t clos) //the closure constructor fromline 1630
25577             : Melt_CallFrameWithValues<83> (
25578 #if ENABLE_CHECKING /*fromline 1634*/
25579                 __FILE__, __LINE__,
25580 #endif /* ENABLE_CHECKING fromline 1638*/
25581                 sizeof(MeltFrame_meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX), clos) {};
25582         MeltFrame_meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX() //the constructor fromline 1642
25583             : Melt_CallFrameWithValues<83> (
25584 #if ENABLE_CHECKING /*fromline 1646*/
25585                 __FILE__, __LINE__,
25586 #endif /* ENABLE_CHECKING fromline 1650*/
25587                 sizeof(MeltFrame_meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX)) {};
25588 #if ENABLE_CHECKING /*fromline 1654*/
25589         MeltFrame_meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX(const char*fil, int lin) //the constructor fromline 1656
25590             : Melt_CallFrameWithValues<83> (fil,lin, sizeof(MeltFrame_meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX)) {};
25591         MeltFrame_meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
25592             : Melt_CallFrameWithValues<83> (fil,lin, sizeof(MeltFrame_meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX), clos) {};
25593 #endif /* ENABLE_CHECKING fromline 1666*/
25594
25595     }; // end  class MeltFrame_meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX
25596
25597
25598     /** end of frame for meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX fromline 1697**/
25599
25600     /* end of frame for routine meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX fromline 1756 */
25601
25602     /* classy proc frame meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX */
25603     MeltFrame_meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX
25604     meltfram__ /*declfrastruct fromline 1780*/
25605     /*classyprocarg meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX fromline 1785*/
25606 #if ENABLE_CHECKING
25607     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
25608 #else /*ENABLE_CHECKING */
25609     (meltclosp_) /* fromline 1793*/
25610 #endif /*ENABLE_CHECKING */
25611
25612     ;
25613 #define meltframe meltfram__
25614
25615     melt_trace_start("NORMEXP_CONSTBOX", meltcallcount);
25616     /*use arguments*/
25617     (void) meltclosp_;
25618     (void)meltfirstargp_;
25619     (void)meltxargdescr_;
25620     (void)meltxargtab_;
25621     (void)meltxresdescr_;
25622     (void)meltxrestab_;
25623     /*getargs*/
25624
25625     /*getarg#0*/
25626     MELT_LOCATION("warmelt-normal.melt:2631:/ getarg");
25627     /*_.RECV__V2*/
25628     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
25629
25630     /*getarg#1*/
25631     /*^getarg*/
25632     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
25633     /*_.ENV__V3*/
25634     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
25635     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
25636
25637
25638     /*getarg#2*/
25639     /*^getarg*/
25640     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
25641     /*_.NCX__V4*/
25642     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
25643     gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL);
25644
25645
25646     /*getarg#3*/
25647     /*^getarg*/
25648     if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
25649     /*_.PSLOC__V5*/
25650     meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
25651     gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL);
25652
25653     ;
25654     goto meltlab_endgetargs;
25655 meltlab_endgetargs:
25656     ;
25657     /*body*/
25658     /*^block*/
25659     /*anyblock*/
25660     {
25661
25662
25663 #if MELT_HAVE_DEBUG
25664         MELT_LOCATION("warmelt-normal.melt:2632:/ cppif.then");
25665         /*^block*/
25666         /*anyblock*/
25667         {
25668
25669
25670             {
25671                 /*^locexp*/
25672                 /*melt_increment_dbgcounter*/
25673 #if MELT_HAVE_DEBUG
25674                 melt_dbgcounter++;
25675 #endif
25676                 ;
25677             }
25678             ;
25679
25680             MELT_CHECK_SIGNAL();
25681             ;
25682             /*_#MELT_NEED_DBG__L1*/
25683             meltfnum[0] =
25684                 /*MELT_NEED_DBG*/
25685 #if MELT_HAVE_DEBUG
25686                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
25687 #else
25688                 0 /* no melt_need_dbg */
25689 #endif /*MELT_HAVE_DEBUG*/
25690                 ;;
25691             MELT_LOCATION("warmelt-normal.melt:2632:/ cond");
25692             /*cond*/
25693             if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
25694                 {
25695                     /*^cond.then*/
25696                     /*^block*/
25697                     /*anyblock*/
25698                     {
25699
25700                         /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
25701                             /* for melt_callcount */
25702 #if MELT_HAVE_DEBUG && defined (meltcallcount)
25703                             meltcallcount  /* melt_callcount debugging */
25704 #else
25705                             0L  /* melt_callcount without debug */
25706 #endif /* MELT_HAVE_DEBUG melt_callcount */
25707                             ;;
25708
25709                         MELT_CHECK_SIGNAL();
25710                         ;
25711                         MELT_LOCATION("warmelt-normal.melt:2632:/ apply");
25712                         /*apply*/
25713                         {
25714                             union meltparam_un argtab[5];
25715                             memset(&argtab, 0, sizeof(argtab));
25716                             /*^apply.arg*/
25717                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
25718                             /*^apply.arg*/
25719                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
25720                             /*^apply.arg*/
25721                             argtab[2].meltbp_long = 2632;
25722                             /*^apply.arg*/
25723                             argtab[3].meltbp_cstring =  "normexp_box recv";
25724                             /*^apply.arg*/
25725                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
25726                             /*_.MELT_DEBUG_FUN__V7*/
25727                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
25728                         }
25729                         ;
25730                         /*_._IF___V6*/
25731                         meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];;
25732                         /*epilog*/
25733
25734                         MELT_LOCATION("warmelt-normal.melt:2632:/ clear");
25735                         /*clear*/ /*_#MELT_CALLCOUNT__L2*/
25736                         meltfnum[1] = 0 ;
25737                         /*^clear*/
25738                         /*clear*/ /*_.MELT_DEBUG_FUN__V7*/
25739                         meltfptr[6] = 0 ;
25740                     }
25741                     ;
25742                 }
25743             else    /*^cond.else*/
25744                 {
25745
25746                     /*_._IF___V6*/ meltfptr[5] =  /*reallynil*/ NULL ;;
25747                 }
25748             ;
25749
25750             {
25751                 MELT_LOCATION("warmelt-normal.melt:2632:/ locexp");
25752                 /*void*/
25753                 (void)0;
25754             }
25755             ;
25756             /*^quasiblock*/
25757
25758
25759             /*epilog*/
25760
25761             /*^clear*/
25762             /*clear*/ /*_#MELT_NEED_DBG__L1*/
25763             meltfnum[0] = 0 ;
25764             /*^clear*/
25765             /*clear*/ /*_._IF___V6*/
25766             meltfptr[5] = 0 ;
25767         }
25768
25769 #else /*MELT_HAVE_DEBUG*/
25770         /*^cppif.else*/
25771         /*^block*/
25772         /*anyblock*/
25773         {
25774
25775
25776             {
25777                 /*^locexp*/
25778                 /*void*/(void)0;
25779             }
25780             ;
25781             /*epilog*/
25782         }
25783
25784 #endif /*MELT_HAVE_DEBUG*/
25785         ;
25786
25787 #if MELT_HAVE_DEBUG
25788         MELT_LOCATION("warmelt-normal.melt:2633:/ cppif.then");
25789         /*^block*/
25790         /*anyblock*/
25791         {
25792
25793
25794             MELT_CHECK_SIGNAL();
25795             ;
25796             /*_#IS_A__L3*/
25797             meltfnum[1] =
25798                 melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_CONSTANT_BOX*/ meltfrout->tabval[1])));;
25799             MELT_LOCATION("warmelt-normal.melt:2633:/ cond");
25800             /*cond*/
25801             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
25802                 {
25803                     /*^cond.then*/
25804                     /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);;
25805                 }
25806             else
25807                 {
25808                     MELT_LOCATION("warmelt-normal.melt:2633:/ cond.else");
25809
25810                     /*^block*/
25811                     /*anyblock*/
25812                     {
25813
25814
25815                         MELT_CHECK_SIGNAL();
25816                         ;
25817                         /*^apply*/
25818                         /*apply*/
25819                         {
25820                             union meltparam_un argtab[4];
25821                             memset(&argtab, 0, sizeof(argtab));
25822                             /*^apply.arg*/
25823                             argtab[0].meltbp_cstring =  "check box recv";
25824                             /*^apply.arg*/
25825                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
25826                             /*^apply.arg*/
25827                             argtab[2].meltbp_long = 2633;
25828                             /*^apply.arg*/
25829                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
25830                             /*_.MELT_ASSERT_FAILURE_FUN__V10*/
25831                             meltfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
25832                         }
25833                         ;
25834                         /*_._IFELSE___V9*/
25835                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];;
25836                         /*epilog*/
25837
25838                         MELT_LOCATION("warmelt-normal.melt:2633:/ clear");
25839                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/
25840                         meltfptr[9] = 0 ;
25841                     }
25842                     ;
25843                 }
25844             ;
25845             /*_.IFCPP___V8*/
25846             meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];;
25847             /*epilog*/
25848
25849             MELT_LOCATION("warmelt-normal.melt:2633:/ clear");
25850             /*clear*/ /*_#IS_A__L3*/
25851             meltfnum[1] = 0 ;
25852             /*^clear*/
25853             /*clear*/ /*_._IFELSE___V9*/
25854             meltfptr[5] = 0 ;
25855         }
25856
25857 #else /*MELT_HAVE_DEBUG*/
25858         /*^cppif.else*/
25859         /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL);
25860 #endif /*MELT_HAVE_DEBUG*/
25861         ;
25862
25863 #if MELT_HAVE_DEBUG
25864         MELT_LOCATION("warmelt-normal.melt:2634:/ cppif.then");
25865         /*^block*/
25866         /*anyblock*/
25867         {
25868
25869
25870             MELT_CHECK_SIGNAL();
25871             ;
25872             /*_#IS_A__L4*/
25873             meltfnum[0] =
25874                 melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));;
25875             MELT_LOCATION("warmelt-normal.melt:2634:/ cond");
25876             /*cond*/
25877             if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/
25878                 {
25879                     /*^cond.then*/
25880                     /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);;
25881                 }
25882             else
25883                 {
25884                     MELT_LOCATION("warmelt-normal.melt:2634:/ cond.else");
25885
25886                     /*^block*/
25887                     /*anyblock*/
25888                     {
25889
25890
25891                         MELT_CHECK_SIGNAL();
25892                         ;
25893                         /*^apply*/
25894                         /*apply*/
25895                         {
25896                             union meltparam_un argtab[4];
25897                             memset(&argtab, 0, sizeof(argtab));
25898                             /*^apply.arg*/
25899                             argtab[0].meltbp_cstring =  "check env";
25900                             /*^apply.arg*/
25901                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
25902                             /*^apply.arg*/
25903                             argtab[2].meltbp_long = 2634;
25904                             /*^apply.arg*/
25905                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
25906                             /*_.MELT_ASSERT_FAILURE_FUN__V13*/
25907                             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
25908                         }
25909                         ;
25910                         /*_._IFELSE___V12*/
25911                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];;
25912                         /*epilog*/
25913
25914                         MELT_LOCATION("warmelt-normal.melt:2634:/ clear");
25915                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/
25916                         meltfptr[12] = 0 ;
25917                     }
25918                     ;
25919                 }
25920             ;
25921             /*_.IFCPP___V11*/
25922             meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];;
25923             /*epilog*/
25924
25925             MELT_LOCATION("warmelt-normal.melt:2634:/ clear");
25926             /*clear*/ /*_#IS_A__L4*/
25927             meltfnum[0] = 0 ;
25928             /*^clear*/
25929             /*clear*/ /*_._IFELSE___V12*/
25930             meltfptr[5] = 0 ;
25931         }
25932
25933 #else /*MELT_HAVE_DEBUG*/
25934         /*^cppif.else*/
25935         /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL);
25936 #endif /*MELT_HAVE_DEBUG*/
25937         ;
25938
25939 #if MELT_HAVE_DEBUG
25940         MELT_LOCATION("warmelt-normal.melt:2635:/ cppif.then");
25941         /*^block*/
25942         /*anyblock*/
25943         {
25944
25945
25946             MELT_CHECK_SIGNAL();
25947             ;
25948             /*_#IS_A__L5*/
25949             meltfnum[1] =
25950                 melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));;
25951             MELT_LOCATION("warmelt-normal.melt:2635:/ cond");
25952             /*cond*/
25953             if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/
25954                 {
25955                     /*^cond.then*/
25956                     /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);;
25957                 }
25958             else
25959                 {
25960                     MELT_LOCATION("warmelt-normal.melt:2635:/ cond.else");
25961
25962                     /*^block*/
25963                     /*anyblock*/
25964                     {
25965
25966
25967                         MELT_CHECK_SIGNAL();
25968                         ;
25969                         /*^apply*/
25970                         /*apply*/
25971                         {
25972                             union meltparam_un argtab[4];
25973                             memset(&argtab, 0, sizeof(argtab));
25974                             /*^apply.arg*/
25975                             argtab[0].meltbp_cstring =  "check ncx";
25976                             /*^apply.arg*/
25977                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
25978                             /*^apply.arg*/
25979                             argtab[2].meltbp_long = 2635;
25980                             /*^apply.arg*/
25981                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
25982                             /*_.MELT_ASSERT_FAILURE_FUN__V16*/
25983                             meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
25984                         }
25985                         ;
25986                         /*_._IFELSE___V15*/
25987                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];;
25988                         /*epilog*/
25989
25990                         MELT_LOCATION("warmelt-normal.melt:2635:/ clear");
25991                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/
25992                         meltfptr[15] = 0 ;
25993                     }
25994                     ;
25995                 }
25996             ;
25997             /*_.IFCPP___V14*/
25998             meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];;
25999             /*epilog*/
26000
26001             MELT_LOCATION("warmelt-normal.melt:2635:/ clear");
26002             /*clear*/ /*_#IS_A__L5*/
26003             meltfnum[1] = 0 ;
26004             /*^clear*/
26005             /*clear*/ /*_._IFELSE___V15*/
26006             meltfptr[5] = 0 ;
26007         }
26008
26009 #else /*MELT_HAVE_DEBUG*/
26010         /*^cppif.else*/
26011         /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL);
26012 #endif /*MELT_HAVE_DEBUG*/
26013         ;
26014         MELT_LOCATION("warmelt-normal.melt:2636:/ quasiblock");
26015
26016
26017         /*^getslot*/
26018         {
26019             melt_ptr_t slot=NULL, obj=NULL;
26020             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
26021             melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
26022             /*_.SLOC__V18*/
26023             meltfptr[5] = slot;
26024         };
26025         ;
26026         MELT_LOCATION("warmelt-normal.melt:2637:/ cond");
26027         /*cond*/
26028         if (
26029             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]),
26030                                           (melt_ptr_t)((/*!CLASS_SOURCE_QUASI_BOX*/ meltfrout->tabval[5])))
26031         ) /*then*/
26032             {
26033                 /*^cond.then*/
26034                 /*^getslot*/
26035                 {
26036                     melt_ptr_t slot=NULL, obj=NULL;
26037                     obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
26038                     melt_object_get_field(slot,obj, 2, "SBOXED");
26039                     /*_.SBOXED__V19*/
26040                     meltfptr[18] = slot;
26041                 };
26042                 ;
26043             }
26044         else    /*^cond.else*/
26045             {
26046
26047                 /*_.SBOXED__V19*/ meltfptr[18] =  /*reallynil*/ NULL ;;
26048             }
26049         ;
26050
26051         MELT_CHECK_SIGNAL();
26052         ;
26053         MELT_LOCATION("warmelt-normal.melt:2639:/ quasiblock");
26054
26055
26056         /*^multimsend*/
26057         /*multimsend*/
26058         {
26059             union meltparam_un argtab[3];
26060             union meltparam_un restab[1];
26061             memset(&argtab, 0, sizeof(argtab));
26062             memset(&restab, 0, sizeof(restab));
26063             /*^multimsend.arg*/
26064             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multimsend.arg*/
26065             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multimsend.arg*/
26066             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
26067             /*^multimsend.xres*/
26068             restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ meltfptr[21];/*^multimsend.send*/
26069             /*_.NBOXED__V21*/
26070             meltfptr[20] =  meltgc_send ((melt_ptr_t)(/*_.SBOXED__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[6]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
26071         }
26072         ;
26073         /*^quasiblock*/
26074
26075
26076
26077 #if MELT_HAVE_DEBUG
26078         MELT_LOCATION("warmelt-normal.melt:2642:/ cppif.then");
26079         /*^block*/
26080         /*anyblock*/
26081         {
26082
26083
26084             {
26085                 /*^locexp*/
26086                 /*melt_increment_dbgcounter*/
26087 #if MELT_HAVE_DEBUG
26088                 melt_dbgcounter++;
26089 #endif
26090                 ;
26091             }
26092             ;
26093
26094             MELT_CHECK_SIGNAL();
26095             ;
26096             /*_#MELT_NEED_DBG__L6*/
26097             meltfnum[0] =
26098                 /*MELT_NEED_DBG*/
26099 #if MELT_HAVE_DEBUG
26100                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
26101 #else
26102                 0 /* no melt_need_dbg */
26103 #endif /*MELT_HAVE_DEBUG*/
26104                 ;;
26105             MELT_LOCATION("warmelt-normal.melt:2642:/ cond");
26106             /*cond*/
26107             if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/
26108                 {
26109                     /*^cond.then*/
26110                     /*^block*/
26111                     /*anyblock*/
26112                     {
26113
26114                         /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] =
26115                             /* for melt_callcount */
26116 #if MELT_HAVE_DEBUG && defined (meltcallcount)
26117                             meltcallcount  /* melt_callcount debugging */
26118 #else
26119                             0L  /* melt_callcount without debug */
26120 #endif /* MELT_HAVE_DEBUG melt_callcount */
26121                             ;;
26122
26123                         MELT_CHECK_SIGNAL();
26124                         ;
26125                         MELT_LOCATION("warmelt-normal.melt:2642:/ apply");
26126                         /*apply*/
26127                         {
26128                             union meltparam_un argtab[7];
26129                             memset(&argtab, 0, sizeof(argtab));
26130                             /*^apply.arg*/
26131                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L7*/ meltfnum[1];
26132                             /*^apply.arg*/
26133                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
26134                             /*^apply.arg*/
26135                             argtab[2].meltbp_long = 2642;
26136                             /*^apply.arg*/
26137                             argtab[3].meltbp_cstring =  "normexp_constbox nboxed=";
26138                             /*^apply.arg*/
26139                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NBOXED__V21*/ meltfptr[20];
26140                             /*^apply.arg*/
26141                             argtab[5].meltbp_cstring =  " nbind=";
26142                             /*^apply.arg*/
26143                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ meltfptr[21];
26144                             /*_.MELT_DEBUG_FUN__V24*/
26145                             meltfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
26146                         }
26147                         ;
26148                         /*_._IF___V23*/
26149                         meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];;
26150                         /*epilog*/
26151
26152                         MELT_LOCATION("warmelt-normal.melt:2642:/ clear");
26153                         /*clear*/ /*_#MELT_CALLCOUNT__L7*/
26154                         meltfnum[1] = 0 ;
26155                         /*^clear*/
26156                         /*clear*/ /*_.MELT_DEBUG_FUN__V24*/
26157                         meltfptr[23] = 0 ;
26158                     }
26159                     ;
26160                 }
26161             else    /*^cond.else*/
26162                 {
26163
26164                     /*_._IF___V23*/ meltfptr[22] =  /*reallynil*/ NULL ;;
26165                 }
26166             ;
26167
26168             {
26169                 MELT_LOCATION("warmelt-normal.melt:2642:/ locexp");
26170                 /*void*/
26171                 (void)0;
26172             }
26173             ;
26174             /*^quasiblock*/
26175
26176
26177             /*epilog*/
26178
26179             /*^clear*/
26180             /*clear*/ /*_#MELT_NEED_DBG__L6*/
26181             meltfnum[0] = 0 ;
26182             /*^clear*/
26183             /*clear*/ /*_._IF___V23*/
26184             meltfptr[22] = 0 ;
26185         }
26186
26187 #else /*MELT_HAVE_DEBUG*/
26188         /*^cppif.else*/
26189         /*^block*/
26190         /*anyblock*/
26191         {
26192
26193
26194             {
26195                 /*^locexp*/
26196                 /*void*/(void)0;
26197             }
26198             ;
26199             /*epilog*/
26200         }
26201
26202 #endif /*MELT_HAVE_DEBUG*/
26203         ;
26204
26205         MELT_CHECK_SIGNAL();
26206         ;
26207         /*_#IS_LIST__L8*/
26208         meltfnum[1] =
26209             (melt_magic_discr((melt_ptr_t)(/*_.NBIND__V22*/ meltfptr[21])) == MELTOBMAG_LIST);;
26210         /*^compute*/
26211         /*_#NOT__L9*/
26212         meltfnum[0] =
26213             (!(/*_#IS_LIST__L8*/ meltfnum[1]));;
26214         MELT_LOCATION("warmelt-normal.melt:2643:/ cond");
26215         /*cond*/
26216         if (/*_#NOT__L9*/ meltfnum[0]) /*then*/
26217             {
26218                 /*^cond.then*/
26219                 /*^block*/
26220                 /*anyblock*/
26221                 {
26222
26223                     MELT_LOCATION("warmelt-normal.melt:2644:/ blockmultialloc");
26224                     /*multiallocblock*/
26225                     {
26226                         struct meltletrec_1_st
26227                         {
26228                             struct meltlist_st rlist_0__LIST_;
26229                             long meltletrec_1_endgap;
26230                         } *meltletrec_1_ptr = 0;
26231                         meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0);
26232                         /*^blockmultialloc.initfill*/
26233                         /*inilist rlist_0__LIST_*/
26234                         /*_.LIST___V26*/
26235                         meltfptr[22] = (melt_ptr_t) &meltletrec_1_ptr->rlist_0__LIST_;
26236                         meltletrec_1_ptr->rlist_0__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST))));
26237
26238
26239
26240                         /*_.LIST___V25*/
26241                         meltfptr[23] = /*_.LIST___V26*/ meltfptr[22];;
26242                         /*epilog*/
26243
26244                         MELT_LOCATION("warmelt-normal.melt:2644:/ clear");
26245                         /*clear*/ /*_.LIST___V26*/
26246                         meltfptr[22] = 0 ;
26247                         /*^clear*/
26248                         /*clear*/ /*_.LIST___V26*/
26249                         meltfptr[22] = 0 ;
26250                     } /*end multiallocblock*/
26251                     ;
26252                     /*^compute*/
26253                     /*_.NBIND__V22*/
26254                     meltfptr[21] = /*_.SETQ___V27*/ meltfptr[22] = /*_.LIST___V25*/ meltfptr[23];;
26255
26256 #if MELT_HAVE_DEBUG
26257                     MELT_LOCATION("warmelt-normal.melt:2645:/ cppif.then");
26258                     /*^block*/
26259                     /*anyblock*/
26260                     {
26261
26262
26263                         {
26264                             /*^locexp*/
26265                             /*melt_increment_dbgcounter*/
26266 #if MELT_HAVE_DEBUG
26267                             melt_dbgcounter++;
26268 #endif
26269                             ;
26270                         }
26271                         ;
26272
26273                         MELT_CHECK_SIGNAL();
26274                         ;
26275                         /*_#MELT_NEED_DBG__L10*/
26276                         meltfnum[9] =
26277                             /*MELT_NEED_DBG*/
26278 #if MELT_HAVE_DEBUG
26279                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
26280 #else
26281                             0 /* no melt_need_dbg */
26282 #endif /*MELT_HAVE_DEBUG*/
26283                             ;;
26284                         MELT_LOCATION("warmelt-normal.melt:2645:/ cond");
26285                         /*cond*/
26286                         if (/*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then*/
26287                             {
26288                                 /*^cond.then*/
26289                                 /*^block*/
26290                                 /*anyblock*/
26291                                 {
26292
26293                                     /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] =
26294                                         /* for melt_callcount */
26295 #if MELT_HAVE_DEBUG && defined (meltcallcount)
26296                                         meltcallcount  /* melt_callcount debugging */
26297 #else
26298                                         0L  /* melt_callcount without debug */
26299 #endif /* MELT_HAVE_DEBUG melt_callcount */
26300                                         ;;
26301
26302                                     MELT_CHECK_SIGNAL();
26303                                     ;
26304                                     MELT_LOCATION("warmelt-normal.melt:2645:/ apply");
26305                                     /*apply*/
26306                                     {
26307                                         union meltparam_un argtab[5];
26308                                         memset(&argtab, 0, sizeof(argtab));
26309                                         /*^apply.arg*/
26310                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L11*/ meltfnum[10];
26311                                         /*^apply.arg*/
26312                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
26313                                         /*^apply.arg*/
26314                                         argtab[2].meltbp_long = 2645;
26315                                         /*^apply.arg*/
26316                                         argtab[3].meltbp_cstring =  "normexp_constbox set nbind=";
26317                                         /*^apply.arg*/
26318                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ meltfptr[21];
26319                                         /*_.MELT_DEBUG_FUN__V29*/
26320                                         meltfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
26321                                     }
26322                                     ;
26323                                     /*_._IF___V28*/
26324                                     meltfptr[27] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];;
26325                                     /*epilog*/
26326
26327                                     MELT_LOCATION("warmelt-normal.melt:2645:/ clear");
26328                                     /*clear*/ /*_#MELT_CALLCOUNT__L11*/
26329                                     meltfnum[10] = 0 ;
26330                                     /*^clear*/
26331                                     /*clear*/ /*_.MELT_DEBUG_FUN__V29*/
26332                                     meltfptr[28] = 0 ;
26333                                 }
26334                                 ;
26335                             }
26336                         else    /*^cond.else*/
26337                             {
26338
26339                                 /*_._IF___V28*/ meltfptr[27] =  /*reallynil*/ NULL ;;
26340                             }
26341                         ;
26342
26343                         {
26344                             MELT_LOCATION("warmelt-normal.melt:2645:/ locexp");
26345                             /*void*/
26346                             (void)0;
26347                         }
26348                         ;
26349                         /*^quasiblock*/
26350
26351
26352                         /*epilog*/
26353
26354                         /*^clear*/
26355                         /*clear*/ /*_#MELT_NEED_DBG__L10*/
26356                         meltfnum[9] = 0 ;
26357                         /*^clear*/
26358                         /*clear*/ /*_._IF___V28*/
26359                         meltfptr[27] = 0 ;
26360                     }
26361
26362 #else /*MELT_HAVE_DEBUG*/
26363                     /*^cppif.else*/
26364                     /*^block*/
26365                     /*anyblock*/
26366                     {
26367
26368
26369                         {
26370                             /*^locexp*/
26371                             /*void*/(void)0;
26372                         }
26373                         ;
26374                         /*epilog*/
26375                     }
26376
26377 #endif /*MELT_HAVE_DEBUG*/
26378                     ;
26379                     MELT_LOCATION("warmelt-normal.melt:2643:/ quasiblock");
26380
26381
26382                     /*epilog*/
26383
26384                     /*^clear*/
26385                     /*clear*/ /*_.LIST___V25*/
26386                     meltfptr[23] = 0 ;
26387                     /*^clear*/
26388                     /*clear*/ /*_.SETQ___V27*/
26389                     meltfptr[22] = 0 ;
26390                 }
26391                 ;
26392             } /*noelse*/
26393         ;
26394         MELT_LOCATION("warmelt-normal.melt:2646:/ quasiblock");
26395
26396
26397
26398         MELT_CHECK_SIGNAL();
26399         ;
26400         /*^msend*/
26401         /*msend*/
26402         {
26403             union meltparam_un argtab[1];
26404             memset(&argtab, 0, sizeof(argtab));
26405             /*^ojbmsend.arg*/
26406             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
26407             /*_.NCTYP__V31*/
26408             meltfptr[27] = meltgc_send((melt_ptr_t)(/*_.NBOXED__V21*/ meltfptr[20]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
26409         }
26410         ;
26411         MELT_LOCATION("warmelt-normal.melt:2647:/ cond");
26412         /*cond*/
26413         if (
26414             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]),
26415                                           (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8])))
26416         ) /*then*/
26417             {
26418                 /*^cond.then*/
26419                 /*^getslot*/
26420                 {
26421                     melt_ptr_t slot=NULL, obj=NULL;
26422                     obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/;
26423                     melt_object_get_field(slot,obj, 12, "CTYPE_AUTOCONSTBOXDISCR");
26424                     /*_.AUTOBOXDISCR__V32*/
26425                     meltfptr[23] = slot;
26426                 };
26427                 ;
26428             }
26429         else    /*^cond.else*/
26430             {
26431
26432                 /*_.AUTOBOXDISCR__V32*/ meltfptr[23] =  /*reallynil*/ NULL ;;
26433             }
26434         ;
26435
26436 #if MELT_HAVE_DEBUG
26437         MELT_LOCATION("warmelt-normal.melt:2649:/ cppif.then");
26438         /*^block*/
26439         /*anyblock*/
26440         {
26441
26442
26443             MELT_CHECK_SIGNAL();
26444             ;
26445             /*_#IS_A__L12*/
26446             meltfnum[10] =
26447                 melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8])));;
26448             MELT_LOCATION("warmelt-normal.melt:2649:/ cond");
26449             /*cond*/
26450             if (/*_#IS_A__L12*/ meltfnum[10]) /*then*/
26451                 {
26452                     /*^cond.then*/
26453                     /*_._IFELSE___V34*/ meltfptr[33] = (/*nil*/NULL);;
26454                 }
26455             else
26456                 {
26457                     MELT_LOCATION("warmelt-normal.melt:2649:/ cond.else");
26458
26459                     /*^block*/
26460                     /*anyblock*/
26461                     {
26462
26463
26464                         MELT_CHECK_SIGNAL();
26465                         ;
26466                         /*^apply*/
26467                         /*apply*/
26468                         {
26469                             union meltparam_un argtab[4];
26470                             memset(&argtab, 0, sizeof(argtab));
26471                             /*^apply.arg*/
26472                             argtab[0].meltbp_cstring =  "normexp_constbox check nctyp";
26473                             /*^apply.arg*/
26474                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
26475                             /*^apply.arg*/
26476                             argtab[2].meltbp_long = 2649;
26477                             /*^apply.arg*/
26478                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCTYP__V31*/ meltfptr[27];
26479                             /*_.MELT_ASSERT_FAILURE_FUN__V35*/
26480                             meltfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
26481                         }
26482                         ;
26483                         /*_._IFELSE___V34*/
26484                         meltfptr[33] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];;
26485                         /*epilog*/
26486
26487                         MELT_LOCATION("warmelt-normal.melt:2649:/ clear");
26488                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/
26489                         meltfptr[34] = 0 ;
26490                     }
26491                     ;
26492                 }
26493             ;
26494             /*_.IFCPP___V33*/
26495             meltfptr[22] = /*_._IFELSE___V34*/ meltfptr[33];;
26496             /*epilog*/
26497
26498             MELT_LOCATION("warmelt-normal.melt:2649:/ clear");
26499             /*clear*/ /*_#IS_A__L12*/
26500             meltfnum[10] = 0 ;
26501             /*^clear*/
26502             /*clear*/ /*_._IFELSE___V34*/
26503             meltfptr[33] = 0 ;
26504         }
26505
26506 #else /*MELT_HAVE_DEBUG*/
26507         /*^cppif.else*/
26508         /*_.IFCPP___V33*/ meltfptr[22] = (/*nil*/NULL);
26509 #endif /*MELT_HAVE_DEBUG*/
26510         ;
26511
26512 #if MELT_HAVE_DEBUG
26513         MELT_LOCATION("warmelt-normal.melt:2650:/ cppif.then");
26514         /*^block*/
26515         /*anyblock*/
26516         {
26517
26518
26519             {
26520                 /*^locexp*/
26521                 /*melt_increment_dbgcounter*/
26522 #if MELT_HAVE_DEBUG
26523                 melt_dbgcounter++;
26524 #endif
26525                 ;
26526             }
26527             ;
26528
26529             MELT_CHECK_SIGNAL();
26530             ;
26531             /*_#MELT_NEED_DBG__L13*/
26532             meltfnum[9] =
26533                 /*MELT_NEED_DBG*/
26534 #if MELT_HAVE_DEBUG
26535                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
26536 #else
26537                 0 /* no melt_need_dbg */
26538 #endif /*MELT_HAVE_DEBUG*/
26539                 ;;
26540             MELT_LOCATION("warmelt-normal.melt:2650:/ cond");
26541             /*cond*/
26542             if (/*_#MELT_NEED_DBG__L13*/ meltfnum[9]) /*then*/
26543                 {
26544                     /*^cond.then*/
26545                     /*^block*/
26546                     /*anyblock*/
26547                     {
26548
26549                         /*_#MELT_CALLCOUNT__L14*/ meltfnum[10] =
26550                             /* for melt_callcount */
26551 #if MELT_HAVE_DEBUG && defined (meltcallcount)
26552                             meltcallcount  /* melt_callcount debugging */
26553 #else
26554                             0L  /* melt_callcount without debug */
26555 #endif /* MELT_HAVE_DEBUG melt_callcount */
26556                             ;;
26557
26558                         MELT_CHECK_SIGNAL();
26559                         ;
26560                         MELT_LOCATION("warmelt-normal.melt:2650:/ apply");
26561                         /*apply*/
26562                         {
26563                             union meltparam_un argtab[7];
26564                             memset(&argtab, 0, sizeof(argtab));
26565                             /*^apply.arg*/
26566                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L14*/ meltfnum[10];
26567                             /*^apply.arg*/
26568                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
26569                             /*^apply.arg*/
26570                             argtab[2].meltbp_long = 2650;
26571                             /*^apply.arg*/
26572                             argtab[3].meltbp_cstring =  "normexp_constbox nctyp=";
26573                             /*^apply.arg*/
26574                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCTYP__V31*/ meltfptr[27];
26575                             /*^apply.arg*/
26576                             argtab[5].meltbp_cstring =  " autoboxdiscr=";
26577                             /*^apply.arg*/
26578                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.AUTOBOXDISCR__V32*/ meltfptr[23];
26579                             /*_.MELT_DEBUG_FUN__V37*/
26580                             meltfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
26581                         }
26582                         ;
26583                         /*_._IF___V36*/
26584                         meltfptr[34] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[33];;
26585                         /*epilog*/
26586
26587                         MELT_LOCATION("warmelt-normal.melt:2650:/ clear");
26588                         /*clear*/ /*_#MELT_CALLCOUNT__L14*/
26589                         meltfnum[10] = 0 ;
26590                         /*^clear*/
26591                         /*clear*/ /*_.MELT_DEBUG_FUN__V37*/
26592                         meltfptr[33] = 0 ;
26593                     }
26594                     ;
26595                 }
26596             else    /*^cond.else*/
26597                 {
26598
26599                     /*_._IF___V36*/ meltfptr[34] =  /*reallynil*/ NULL ;;
26600                 }
26601             ;
26602
26603             {
26604                 MELT_LOCATION("warmelt-normal.melt:2650:/ locexp");
26605                 /*void*/
26606                 (void)0;
26607             }
26608             ;
26609             /*^quasiblock*/
26610
26611
26612             /*epilog*/
26613
26614             /*^clear*/
26615             /*clear*/ /*_#MELT_NEED_DBG__L13*/
26616             meltfnum[9] = 0 ;
26617             /*^clear*/
26618             /*clear*/ /*_._IF___V36*/
26619             meltfptr[34] = 0 ;
26620         }
26621
26622 #else /*MELT_HAVE_DEBUG*/
26623         /*^cppif.else*/
26624         /*^block*/
26625         /*anyblock*/
26626         {
26627
26628
26629             {
26630                 /*^locexp*/
26631                 /*void*/(void)0;
26632             }
26633             ;
26634             /*epilog*/
26635         }
26636
26637 #endif /*MELT_HAVE_DEBUG*/
26638         ;
26639
26640         MELT_CHECK_SIGNAL();
26641         ;
26642         /*_#IS_NOT_A__L15*/
26643         meltfnum[10] =
26644             !melt_is_instance_of((melt_ptr_t)(/*_.AUTOBOXDISCR__V32*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_DISCRIMINANT*/ meltfrout->tabval[9])));;
26645         MELT_LOCATION("warmelt-normal.melt:2651:/ cond");
26646         /*cond*/
26647         if (/*_#IS_NOT_A__L15*/ meltfnum[10]) /*then*/
26648             {
26649                 /*^cond.then*/
26650                 /*^block*/
26651                 /*anyblock*/
26652                 {
26653
26654                     MELT_LOCATION("warmelt-normal.melt:2653:/ cond");
26655                     /*cond*/
26656                     if (
26657                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]),
26658                                                       (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11])))
26659                     ) /*then*/
26660                         {
26661                             /*^cond.then*/
26662                             /*^getslot*/
26663                             {
26664                                 melt_ptr_t slot=NULL, obj=NULL;
26665                                 obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/;
26666                                 melt_object_get_field(slot,obj, 1, "NAMED_NAME");
26667                                 /*_.NAMED_NAME__V39*/
26668                                 meltfptr[34] = slot;
26669                             };
26670                             ;
26671                         }
26672                     else    /*^cond.else*/
26673                         {
26674
26675                             /*_.NAMED_NAME__V39*/ meltfptr[34] =  /*reallynil*/ NULL ;;
26676                         }
26677                     ;
26678
26679                     MELT_CHECK_SIGNAL();
26680                     ;
26681                     MELT_LOCATION("warmelt-normal.melt:2652:/ apply");
26682                     /*apply*/
26683                     {
26684                         union meltparam_un argtab[2];
26685                         memset(&argtab, 0, sizeof(argtab));
26686                         /*^apply.arg*/
26687                         argtab[0].meltbp_cstring =  "non-CONSTANT_BOX-able stuff of ctype $1";
26688                         /*^apply.arg*/
26689                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V39*/ meltfptr[34];
26690                         /*_.ERROR_AT__V40*/
26691                         meltfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
26692                     }
26693                     ;
26694                     MELT_LOCATION("warmelt-normal.melt:2654:/ quasiblock");
26695
26696
26697                     /*_._RETVAL___V1*/
26698                     meltfptr[0] =  /*reallynil*/ NULL ;;
26699
26700                     {
26701                         MELT_LOCATION("warmelt-normal.melt:2654:/ locexp");
26702                         /*ochecknores compilobj_nrep_return*/
26703 #if MELT_HAVE_DEBUG
26704                         if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
26705                             melt_warn_for_no_expected_secondary_results();
26706                         /* we warned when secondary results are expected but not returned. */
26707 #endif /*MELT_HAVE_DEBUG*/
26708                         ;
26709                     }
26710                     ;
26711                     /*^finalreturn*/
26712                     ;
26713                     /*finalret*/
26714                     goto meltlabend_rout ;
26715                     MELT_LOCATION("warmelt-normal.melt:2651:/ quasiblock");
26716
26717
26718                     /*_.PROGN___V42*/
26719                     meltfptr[41] = /*_.RETURN___V41*/ meltfptr[40];;
26720                     /*^compute*/
26721                     /*_._IF___V38*/
26722                     meltfptr[33] = /*_.PROGN___V42*/ meltfptr[41];;
26723                     /*epilog*/
26724
26725                     MELT_LOCATION("warmelt-normal.melt:2651:/ clear");
26726                     /*clear*/ /*_.NAMED_NAME__V39*/
26727                     meltfptr[34] = 0 ;
26728                     /*^clear*/
26729                     /*clear*/ /*_.ERROR_AT__V40*/
26730                     meltfptr[39] = 0 ;
26731                     /*^clear*/
26732                     /*clear*/ /*_.RETURN___V41*/
26733                     meltfptr[40] = 0 ;
26734                     /*^clear*/
26735                     /*clear*/ /*_.PROGN___V42*/
26736                     meltfptr[41] = 0 ;
26737                 }
26738                 ;
26739             }
26740         else    /*^cond.else*/
26741             {
26742
26743                 /*_._IF___V38*/ meltfptr[33] =  /*reallynil*/ NULL ;;
26744             }
26745         ;
26746         MELT_LOCATION("warmelt-normal.melt:2655:/ quasiblock");
26747
26748
26749
26750         MELT_CHECK_SIGNAL();
26751         ;
26752         /*_#IS_A__L16*/
26753         meltfnum[9] =
26754             melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE_PLAIN*/ meltfrout->tabval[12])));;
26755         MELT_LOCATION("warmelt-normal.melt:2658:/ cond");
26756         /*cond*/
26757         if (/*_#IS_A__L16*/ meltfnum[9]) /*then*/
26758             {
26759                 /*^cond.then*/
26760                 /*^block*/
26761                 /*anyblock*/
26762                 {
26763
26764                     MELT_LOCATION("warmelt-normal.melt:2659:/ quasiblock");
26765
26766
26767                     /*^cond*/
26768                     /*cond*/
26769                     if (
26770                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]),
26771                                                       (melt_ptr_t)((/*!CLASS_CTYPE_PLAIN*/ meltfrout->tabval[12])))
26772                     ) /*then*/
26773                         {
26774                             /*^cond.then*/
26775                             /*^getslot*/
26776                             {
26777                                 melt_ptr_t slot=NULL, obj=NULL;
26778                                 obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/;
26779                                 melt_object_get_field(slot,obj, 13, "CTYPP_BOXING");
26780                                 /*_.BOXING__V46*/
26781                                 meltfptr[41] = slot;
26782                             };
26783                             ;
26784                         }
26785                     else    /*^cond.else*/
26786                         {
26787
26788                             /*_.BOXING__V46*/ meltfptr[41] =  /*reallynil*/ NULL ;;
26789                         }
26790                     ;
26791                     /*^compute*/
26792                     /*_.LET___V45*/
26793                     meltfptr[40] = /*_.BOXING__V46*/ meltfptr[41];;
26794
26795                     MELT_LOCATION("warmelt-normal.melt:2659:/ clear");
26796                     /*clear*/ /*_.BOXING__V46*/
26797                     meltfptr[41] = 0 ;
26798                     /*_.BOXER__V44*/
26799                     meltfptr[39] = /*_.LET___V45*/ meltfptr[40];;
26800                     /*epilog*/
26801
26802                     MELT_LOCATION("warmelt-normal.melt:2658:/ clear");
26803                     /*clear*/ /*_.LET___V45*/
26804                     meltfptr[40] = 0 ;
26805                 }
26806                 ;
26807             }
26808         else    /*^cond.else*/
26809             {
26810
26811                 /*^block*/
26812                 /*anyblock*/
26813                 {
26814
26815
26816                     MELT_CHECK_SIGNAL();
26817                     ;
26818                     /*_#IS_A__L17*/
26819                     meltfnum[16] =
26820                         melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[13])));;
26821                     MELT_LOCATION("warmelt-normal.melt:2663:/ cond");
26822                     /*cond*/
26823                     if (/*_#IS_A__L17*/ meltfnum[16]) /*then*/
26824                         {
26825                             /*^cond.then*/
26826                             /*^block*/
26827                             /*anyblock*/
26828                             {
26829
26830                                 MELT_LOCATION("warmelt-normal.melt:2664:/ quasiblock");
26831
26832
26833                                 /*^cond*/
26834                                 /*cond*/
26835                                 if (
26836                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]),
26837                                                                   (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[13])))
26838                                 ) /*then*/
26839                                     {
26840                                         /*^cond.then*/
26841                                         /*^getslot*/
26842                                         {
26843                                             melt_ptr_t slot=NULL, obj=NULL;
26844                                             obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/;
26845                                             melt_object_get_field(slot,obj, 21, "CTYPG_BOXFUN");
26846                                             /*_.BOXFUN__V49*/
26847                                             meltfptr[48] = slot;
26848                                         };
26849                                         ;
26850                                     }
26851                                 else    /*^cond.else*/
26852                                     {
26853
26854                                         /*_.BOXFUN__V49*/ meltfptr[48] =  /*reallynil*/ NULL ;;
26855                                     }
26856                                 ;
26857                                 /*^compute*/
26858                                 /*_.LET___V48*/
26859                                 meltfptr[40] = /*_.BOXFUN__V49*/ meltfptr[48];;
26860
26861                                 MELT_LOCATION("warmelt-normal.melt:2664:/ clear");
26862                                 /*clear*/ /*_.BOXFUN__V49*/
26863                                 meltfptr[48] = 0 ;
26864                                 /*_._IFELSE___V47*/
26865                                 meltfptr[41] = /*_.LET___V48*/ meltfptr[40];;
26866                                 /*epilog*/
26867
26868                                 MELT_LOCATION("warmelt-normal.melt:2663:/ clear");
26869                                 /*clear*/ /*_.LET___V48*/
26870                                 meltfptr[40] = 0 ;
26871                             }
26872                             ;
26873                         }
26874                     else    /*^cond.else*/
26875                         {
26876
26877                             /*^block*/
26878                             /*anyblock*/
26879                             {
26880
26881                                 MELT_LOCATION("warmelt-normal.melt:2670:/ cond");
26882                                 /*cond*/
26883                                 if (
26884                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]),
26885                                                                   (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11])))
26886                                 ) /*then*/
26887                                     {
26888                                         /*^cond.then*/
26889                                         /*^getslot*/
26890                                         {
26891                                             melt_ptr_t slot=NULL, obj=NULL;
26892                                             obj = (melt_ptr_t)(/*_.NCTYP__V31*/ meltfptr[27]) /*=obj*/;
26893                                             melt_object_get_field(slot,obj, 1, "NAMED_NAME");
26894                                             /*_.NAMED_NAME__V50*/
26895                                             meltfptr[48] = slot;
26896                                         };
26897                                         ;
26898                                     }
26899                                 else    /*^cond.else*/
26900                                     {
26901
26902                                         /*_.NAMED_NAME__V50*/ meltfptr[48] =  /*reallynil*/ NULL ;;
26903                                     }
26904                                 ;
26905
26906                                 MELT_CHECK_SIGNAL();
26907                                 ;
26908                                 MELT_LOCATION("warmelt-normal.melt:2669:/ apply");
26909                                 /*apply*/
26910                                 {
26911                                     union meltparam_un argtab[2];
26912                                     memset(&argtab, 0, sizeof(argtab));
26913                                     /*^apply.arg*/
26914                                     argtab[0].meltbp_cstring =  "unexpected ctype $1 for BOX";
26915                                     /*^apply.arg*/
26916                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V50*/ meltfptr[48];
26917                                     /*_.ERROR_AT__V51*/
26918                                     meltfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
26919                                 }
26920                                 ;
26921                                 MELT_LOCATION("warmelt-normal.melt:2668:/ quasiblock");
26922
26923
26924                                 /*_.PROGN___V52*/
26925                                 meltfptr[51] = /*_.ERROR_AT__V51*/ meltfptr[40];;
26926                                 /*^compute*/
26927                                 /*_._IFELSE___V47*/
26928                                 meltfptr[41] = /*_.PROGN___V52*/ meltfptr[51];;
26929                                 /*epilog*/
26930
26931                                 MELT_LOCATION("warmelt-normal.melt:2663:/ clear");
26932                                 /*clear*/ /*_.NAMED_NAME__V50*/
26933                                 meltfptr[48] = 0 ;
26934                                 /*^clear*/
26935                                 /*clear*/ /*_.ERROR_AT__V51*/
26936                                 meltfptr[40] = 0 ;
26937                                 /*^clear*/
26938                                 /*clear*/ /*_.PROGN___V52*/
26939                                 meltfptr[51] = 0 ;
26940                             }
26941                             ;
26942                         }
26943                     ;
26944                     /*_.BOXER__V44*/
26945                     meltfptr[39] = /*_._IFELSE___V47*/ meltfptr[41];;
26946                     /*epilog*/
26947
26948                     MELT_LOCATION("warmelt-normal.melt:2658:/ clear");
26949                     /*clear*/ /*_#IS_A__L17*/
26950                     meltfnum[16] = 0 ;
26951                     /*^clear*/
26952                     /*clear*/ /*_._IFELSE___V47*/
26953                     meltfptr[41] = 0 ;
26954                 }
26955                 ;
26956             }
26957         ;
26958
26959 #if MELT_HAVE_DEBUG
26960         MELT_LOCATION("warmelt-normal.melt:2673:/ cppif.then");
26961         /*^block*/
26962         /*anyblock*/
26963         {
26964
26965
26966             {
26967                 /*^locexp*/
26968                 /*melt_increment_dbgcounter*/
26969 #if MELT_HAVE_DEBUG
26970                 melt_dbgcounter++;
26971 #endif
26972                 ;
26973             }
26974             ;
26975
26976             MELT_CHECK_SIGNAL();
26977             ;
26978             /*_#MELT_NEED_DBG__L18*/
26979             meltfnum[16] =
26980                 /*MELT_NEED_DBG*/
26981 #if MELT_HAVE_DEBUG
26982                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
26983 #else
26984                 0 /* no melt_need_dbg */
26985 #endif /*MELT_HAVE_DEBUG*/
26986                 ;;
26987             MELT_LOCATION("warmelt-normal.melt:2673:/ cond");
26988             /*cond*/
26989             if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/
26990                 {
26991                     /*^cond.then*/
26992                     /*^block*/
26993                     /*anyblock*/
26994                     {
26995
26996                         /*_#MELT_CALLCOUNT__L19*/ meltfnum[18] =
26997                             /* for melt_callcount */
26998 #if MELT_HAVE_DEBUG && defined (meltcallcount)
26999                             meltcallcount  /* melt_callcount debugging */
27000 #else
27001                             0L  /* melt_callcount without debug */
27002 #endif /* MELT_HAVE_DEBUG melt_callcount */
27003                             ;;
27004
27005                         MELT_CHECK_SIGNAL();
27006                         ;
27007                         MELT_LOCATION("warmelt-normal.melt:2673:/ apply");
27008                         /*apply*/
27009                         {
27010                             union meltparam_un argtab[5];
27011                             memset(&argtab, 0, sizeof(argtab));
27012                             /*^apply.arg*/
27013                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L19*/ meltfnum[18];
27014                             /*^apply.arg*/
27015                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
27016                             /*^apply.arg*/
27017                             argtab[2].meltbp_long = 2673;
27018                             /*^apply.arg*/
27019                             argtab[3].meltbp_cstring =  "normexp_box boxer=";
27020                             /*^apply.arg*/
27021                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BOXER__V44*/ meltfptr[39];
27022                             /*_.MELT_DEBUG_FUN__V54*/
27023                             meltfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
27024                         }
27025                         ;
27026                         /*_._IF___V53*/
27027                         meltfptr[48] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[40];;
27028                         /*epilog*/
27029
27030                         MELT_LOCATION("warmelt-normal.melt:2673:/ clear");
27031                         /*clear*/ /*_#MELT_CALLCOUNT__L19*/
27032                         meltfnum[18] = 0 ;
27033                         /*^clear*/
27034                         /*clear*/ /*_.MELT_DEBUG_FUN__V54*/
27035                         meltfptr[40] = 0 ;
27036                     }
27037                     ;
27038                 }
27039             else    /*^cond.else*/
27040                 {
27041
27042                     /*_._IF___V53*/ meltfptr[48] =  /*reallynil*/ NULL ;;
27043                 }
27044             ;
27045
27046             {
27047                 MELT_LOCATION("warmelt-normal.melt:2673:/ locexp");
27048                 /*void*/
27049                 (void)0;
27050             }
27051             ;
27052             /*^quasiblock*/
27053
27054
27055             /*epilog*/
27056
27057             /*^clear*/
27058             /*clear*/ /*_#MELT_NEED_DBG__L18*/
27059             meltfnum[16] = 0 ;
27060             /*^clear*/
27061             /*clear*/ /*_._IF___V53*/
27062             meltfptr[48] = 0 ;
27063         }
27064
27065 #else /*MELT_HAVE_DEBUG*/
27066         /*^cppif.else*/
27067         /*^block*/
27068         /*anyblock*/
27069         {
27070
27071
27072             {
27073                 /*^locexp*/
27074                 /*void*/(void)0;
27075             }
27076             ;
27077             /*epilog*/
27078         }
27079
27080 #endif /*MELT_HAVE_DEBUG*/
27081         ;
27082         MELT_LOCATION("warmelt-normal.melt:2674:/ quasiblock");
27083
27084
27085
27086         MELT_CHECK_SIGNAL();
27087         ;
27088         MELT_LOCATION("warmelt-normal.melt:2675:/ apply");
27089         /*apply*/
27090         {
27091             /*_.CSYM__V56*/ meltfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[14])), (melt_ptr_t)((/*!konst_15_BOX*/ meltfrout->tabval[15])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
27092         }
27093         ;
27094
27095         MELT_CHECK_SIGNAL();
27096         ;
27097
27098         MELT_CHECK_SIGNAL();
27099         ;
27100         MELT_LOCATION("warmelt-normal.melt:2681:/ cond");
27101         /*cond*/
27102         if (/*_.AUTOBOXDISCR__V32*/ meltfptr[23]) /*then*/
27103             {
27104                 /*^cond.then*/
27105                 /*^block*/
27106                 /*anyblock*/
27107                 {
27108
27109                     MELT_LOCATION("warmelt-normal.melt:2682:/ quasiblock");
27110
27111
27112
27113                     MELT_CHECK_SIGNAL();
27114                     ;
27115                     MELT_LOCATION("warmelt-normal.melt:2684:/ apply");
27116                     /*apply*/
27117                     {
27118                         union meltparam_un argtab[3];
27119                         memset(&argtab, 0, sizeof(argtab));
27120                         /*^apply.arg*/
27121                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
27122                         /*^apply.arg*/
27123                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
27124                         /*^apply.arg*/
27125                         argtab[2].meltbp_cstring =  "autoconstboxing discriminant";
27126                         /*_.PREDEFDISCR__V59*/
27127                         meltfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.AUTOBOXDISCR__V32*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
27128                     }
27129                     ;
27130                     /*_.CLONE_WITH_DISCRIMINANT__V60*/
27131                     meltfptr[59] =
27132                         meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_20*/ meltfrout->tabval[20])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[21]))) ;;
27133                     /*^compute*/
27134                     /*_.CLONE_WITH_DISCRIMINANT__V61*/
27135                     meltfptr[60] =
27136                         meltgc_clone_with_discriminant((melt_ptr_t)(/*_.BOXER__V44*/ meltfptr[39]), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[21]))) ;;
27137                     /*^compute*/
27138                     /*_.CLONE_WITH_DISCRIMINANT__V62*/
27139                     meltfptr[61] =
27140                         meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_22*/ meltfrout->tabval[22])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[21]))) ;;
27141                     /*^compute*/
27142                     /*_.CLONE_WITH_DISCRIMINANT__V63*/
27143                     meltfptr[62] =
27144                         meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_23*/ meltfrout->tabval[23])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[21]))) ;;
27145                     /*^compute*/
27146                     /*_.CLONE_WITH_DISCRIMINANT__V64*/
27147                     meltfptr[63] =
27148                         meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_24*/ meltfrout->tabval[24])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[21]))) ;;
27149                     MELT_LOCATION("warmelt-normal.melt:2687:/ blockmultialloc");
27150                     /*multiallocblock*/
27151                     {
27152                         struct meltletrec_2_st
27153                         {
27154                             struct MELT_MULTIPLE_STRUCT(7) rtup_0__TUPLREC__x7;
27155                             long meltletrec_2_endgap;
27156                         } *meltletrec_2_ptr = 0;
27157                         meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0);
27158                         /*^blockmultialloc.initfill*/
27159                         /*inimult rtup_0__TUPLREC__x7*/
27160                         /*_.TUPLREC___V66*/
27161                         meltfptr[65] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x7;
27162                         meltletrec_2_ptr->rtup_0__TUPLREC__x7.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE))));
27163                         meltletrec_2_ptr->rtup_0__TUPLREC__x7.nbval = 7;
27164
27165
27166                         /*^putuple*/
27167                         /*putupl#20*/
27168                         melt_assertmsg("putupl [:2687] #20 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))== MELTOBMAG_MULTIPLE);
27169                         melt_assertmsg("putupl [:2687] #20 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))));
27170                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))->tabval[0] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V60*/ meltfptr[59]);
27171                         ;
27172                         /*^putuple*/
27173                         /*putupl#21*/
27174                         melt_assertmsg("putupl [:2687] #21 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))== MELTOBMAG_MULTIPLE);
27175                         melt_assertmsg("putupl [:2687] #21 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))));
27176                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))->tabval[1] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V61*/ meltfptr[60]);
27177                         ;
27178                         /*^putuple*/
27179                         /*putupl#22*/
27180                         melt_assertmsg("putupl [:2687] #22 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))== MELTOBMAG_MULTIPLE);
27181                         melt_assertmsg("putupl [:2687] #22 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))));
27182                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))->tabval[2] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V62*/ meltfptr[61]);
27183                         ;
27184                         /*^putuple*/
27185                         /*putupl#23*/
27186                         melt_assertmsg("putupl [:2687] #23 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))== MELTOBMAG_MULTIPLE);
27187                         melt_assertmsg("putupl [:2687] #23 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))));
27188                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))->tabval[3] = (melt_ptr_t)(/*_.PREDEFDISCR__V59*/ meltfptr[58]);
27189                         ;
27190                         /*^putuple*/
27191                         /*putupl#24*/
27192                         melt_assertmsg("putupl [:2687] #24 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))== MELTOBMAG_MULTIPLE);
27193                         melt_assertmsg("putupl [:2687] #24 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))));
27194                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))->tabval[4] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V63*/ meltfptr[62]);
27195                         ;
27196                         /*^putuple*/
27197                         /*putupl#25*/
27198                         melt_assertmsg("putupl [:2687] #25 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))== MELTOBMAG_MULTIPLE);
27199                         melt_assertmsg("putupl [:2687] #25 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))));
27200                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))->tabval[5] = (melt_ptr_t)(/*_.NBOXED__V21*/ meltfptr[20]);
27201                         ;
27202                         /*^putuple*/
27203                         /*putupl#26*/
27204                         melt_assertmsg("putupl [:2687] #26 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))== MELTOBMAG_MULTIPLE);
27205                         melt_assertmsg("putupl [:2687] #26 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))));
27206                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V66*/ meltfptr[65]))->tabval[6] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V64*/ meltfptr[63]);
27207                         ;
27208                         /*^touch*/
27209                         meltgc_touch(/*_.TUPLREC___V66*/ meltfptr[65]);
27210                         ;
27211                         /*_.TUPLE___V65*/
27212                         meltfptr[64] = /*_.TUPLREC___V66*/ meltfptr[65];;
27213                         /*epilog*/
27214
27215                         MELT_LOCATION("warmelt-normal.melt:2687:/ clear");
27216                         /*clear*/ /*_.TUPLREC___V66*/
27217                         meltfptr[65] = 0 ;
27218                         /*^clear*/
27219                         /*clear*/ /*_.TUPLREC___V66*/
27220                         meltfptr[65] = 0 ;
27221                     } /*end multiallocblock*/
27222                     ;
27223                     /*_.LET___V58*/
27224                     meltfptr[48] = /*_.TUPLE___V65*/ meltfptr[64];;
27225
27226                     MELT_LOCATION("warmelt-normal.melt:2682:/ clear");
27227                     /*clear*/ /*_.PREDEFDISCR__V59*/
27228                     meltfptr[58] = 0 ;
27229                     /*^clear*/
27230                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V60*/
27231                     meltfptr[59] = 0 ;
27232                     /*^clear*/
27233                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V61*/
27234                     meltfptr[60] = 0 ;
27235                     /*^clear*/
27236                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V62*/
27237                     meltfptr[61] = 0 ;
27238                     /*^clear*/
27239                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V63*/
27240                     meltfptr[62] = 0 ;
27241                     /*^clear*/
27242                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V64*/
27243                     meltfptr[63] = 0 ;
27244                     /*^clear*/
27245                     /*clear*/ /*_.TUPLE___V65*/
27246                     meltfptr[64] = 0 ;
27247                     /*_._IFELSE___V57*/
27248                     meltfptr[40] = /*_.LET___V58*/ meltfptr[48];;
27249                     /*epilog*/
27250
27251                     MELT_LOCATION("warmelt-normal.melt:2681:/ clear");
27252                     /*clear*/ /*_.LET___V58*/
27253                     meltfptr[48] = 0 ;
27254                 }
27255                 ;
27256             }
27257         else    /*^cond.else*/
27258             {
27259
27260                 /*^block*/
27261                 /*anyblock*/
27262                 {
27263
27264                     /*_.CLONE_WITH_DISCRIMINANT__V67*/ meltfptr[65] =
27265                         meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_25*/ meltfrout->tabval[25])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[21]))) ;;
27266                     /*^compute*/
27267                     /*_.CLONE_WITH_DISCRIMINANT__V68*/
27268                     meltfptr[58] =
27269                         meltgc_clone_with_discriminant((melt_ptr_t)(/*_.BOXER__V44*/ meltfptr[39]), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[21]))) ;;
27270                     /*^compute*/
27271                     /*_.CLONE_WITH_DISCRIMINANT__V69*/
27272                     meltfptr[59] =
27273                         meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_26*/ meltfrout->tabval[26])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[21]))) ;;
27274                     /*^compute*/
27275                     /*_.CLONE_WITH_DISCRIMINANT__V70*/
27276                     meltfptr[60] =
27277                         meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_27*/ meltfrout->tabval[27])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[21]))) ;;
27278                     MELT_LOCATION("warmelt-normal.melt:2696:/ blockmultialloc");
27279                     /*multiallocblock*/
27280                     {
27281                         struct meltletrec_3_st
27282                         {
27283                             struct MELT_MULTIPLE_STRUCT(5) rtup_0__TUPLREC__x8;
27284                             long meltletrec_3_endgap;
27285                         } *meltletrec_3_ptr = 0;
27286                         meltletrec_3_ptr = (struct meltletrec_3_st *) meltgc_allocate (sizeof (struct meltletrec_3_st), 0);
27287                         /*^blockmultialloc.initfill*/
27288                         /*inimult rtup_0__TUPLREC__x8*/
27289                         /*_.TUPLREC___V72*/
27290                         meltfptr[62] = (melt_ptr_t) &meltletrec_3_ptr->rtup_0__TUPLREC__x8;
27291                         meltletrec_3_ptr->rtup_0__TUPLREC__x8.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE))));
27292                         meltletrec_3_ptr->rtup_0__TUPLREC__x8.nbval = 5;
27293
27294
27295                         /*^putuple*/
27296                         /*putupl#27*/
27297                         melt_assertmsg("putupl [:2696] #27 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V72*/ meltfptr[62]))== MELTOBMAG_MULTIPLE);
27298                         melt_assertmsg("putupl [:2696] #27 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V72*/ meltfptr[62]))));
27299                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V72*/ meltfptr[62]))->tabval[0] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V67*/ meltfptr[65]);
27300                         ;
27301                         /*^putuple*/
27302                         /*putupl#28*/
27303                         melt_assertmsg("putupl [:2696] #28 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V72*/ meltfptr[62]))== MELTOBMAG_MULTIPLE);
27304                         melt_assertmsg("putupl [:2696] #28 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V72*/ meltfptr[62]))));
27305                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V72*/ meltfptr[62]))->tabval[1] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V68*/ meltfptr[58]);
27306                         ;
27307                         /*^putuple*/
27308                         /*putupl#29*/
27309                         melt_assertmsg("putupl [:2696] #29 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V72*/ meltfptr[62]))== MELTOBMAG_MULTIPLE);
27310                         melt_assertmsg("putupl [:2696] #29 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V72*/ meltfptr[62]))));
27311                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V72*/ meltfptr[62]))->tabval[2] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V69*/ meltfptr[59]);
27312                         ;
27313                         /*^putuple*/
27314                         /*putupl#30*/
27315                         melt_assertmsg("putupl [:2696] #30 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V72*/ meltfptr[62]))== MELTOBMAG_MULTIPLE);
27316                         melt_assertmsg("putupl [:2696] #30 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V72*/ meltfptr[62]))));
27317                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V72*/ meltfptr[62]))->tabval[3] = (melt_ptr_t)(/*_.NBOXED__V21*/ meltfptr[20]);
27318                         ;
27319                         /*^putuple*/
27320                         /*putupl#31*/
27321                         melt_assertmsg("putupl [:2696] #31 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V72*/ meltfptr[62]))== MELTOBMAG_MULTIPLE);
27322                         melt_assertmsg("putupl [:2696] #31 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V72*/ meltfptr[62]))));
27323                         ((meltmultiple_ptr_t)(/*_.TUPLREC___V72*/ meltfptr[62]))->tabval[4] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V70*/ meltfptr[60]);
27324                         ;
27325                         /*^touch*/
27326                         meltgc_touch(/*_.TUPLREC___V72*/ meltfptr[62]);
27327                         ;
27328                         /*_.TUPLE___V71*/
27329                         meltfptr[61] = /*_.TUPLREC___V72*/ meltfptr[62];;
27330                         /*epilog*/
27331
27332                         MELT_LOCATION("warmelt-normal.melt:2696:/ clear");
27333                         /*clear*/ /*_.TUPLREC___V72*/
27334                         meltfptr[62] = 0 ;
27335                         /*^clear*/
27336                         /*clear*/ /*_.TUPLREC___V72*/
27337                         meltfptr[62] = 0 ;
27338                     } /*end multiallocblock*/
27339                     ;
27340                     /*_._IFELSE___V57*/
27341                     meltfptr[40] = /*_.TUPLE___V71*/ meltfptr[61];;
27342                     /*epilog*/
27343
27344                     MELT_LOCATION("warmelt-normal.melt:2681:/ clear");
27345                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V67*/
27346                     meltfptr[65] = 0 ;
27347                     /*^clear*/
27348                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V68*/
27349                     meltfptr[58] = 0 ;
27350                     /*^clear*/
27351                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V69*/
27352                     meltfptr[59] = 0 ;
27353                     /*^clear*/
27354                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V70*/
27355                     meltfptr[60] = 0 ;
27356                     /*^clear*/
27357                     /*clear*/ /*_.TUPLE___V71*/
27358                     meltfptr[61] = 0 ;
27359                 }
27360                 ;
27361             }
27362         ;
27363         MELT_LOCATION("warmelt-normal.melt:2676:/ quasiblock");
27364
27365
27366         /*^rawallocobj*/
27367         /*rawallocobj*/
27368         {
27369             melt_ptr_t newobj = 0;
27370             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ meltfrout->tabval[16])), (4), "CLASS_NREP_CHUNK");
27371             /*_.INST__V74*/
27372             meltfptr[64] =
27373                 newobj;
27374         };
27375         ;
27376         /*^putslot*/
27377         /*putslot*/
27378         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V74*/ meltfptr[64])) == MELTOBMAG_OBJECT);
27379         melt_putfield_object((/*_.INST__V74*/ meltfptr[64]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
27380         ;
27381         /*^putslot*/
27382         /*putslot*/
27383         melt_assertmsg("checkobj putslot  _ @NCHUNK_OPER", melt_magic_discr((melt_ptr_t)(/*_.INST__V74*/ meltfptr[64])) == MELTOBMAG_OBJECT);
27384         melt_putfield_object((/*_.INST__V74*/ meltfptr[64]), (3), ((/*!konst_15_BOX*/ meltfrout->tabval[15])), "NCHUNK_OPER");
27385         ;
27386         /*^putslot*/
27387         /*putslot*/
27388         melt_assertmsg("checkobj putslot  _ @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V74*/ meltfptr[64])) == MELTOBMAG_OBJECT);
27389         melt_putfield_object((/*_.INST__V74*/ meltfptr[64]), (1), ((/*!CTYPE_VALUE*/ meltfrout->tabval[18])), "NEXPR_CTYP");
27390         ;
27391         /*^putslot*/
27392         /*putslot*/
27393         melt_assertmsg("checkobj putslot  _ @NCHUNK_EXPANSION", melt_magic_discr((melt_ptr_t)(/*_.INST__V74*/ meltfptr[64])) == MELTOBMAG_OBJECT);
27394         melt_putfield_object((/*_.INST__V74*/ meltfptr[64]), (2), (/*_._IFELSE___V57*/ meltfptr[40]), "NCHUNK_EXPANSION");
27395         ;
27396         /*^touchobj*/
27397
27398         melt_dbgtrace_written_object (/*_.INST__V74*/ meltfptr[64], "newly made instance");
27399         ;
27400         /*_.NCHUNK__V73*/
27401         meltfptr[63] = /*_.INST__V74*/ meltfptr[64];;
27402
27403         MELT_CHECK_SIGNAL();
27404         ;
27405         MELT_LOCATION("warmelt-normal.melt:2704:/ quasiblock");
27406
27407
27408         /*^rawallocobj*/
27409         /*rawallocobj*/
27410         {
27411             melt_ptr_t newobj = 0;
27412             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[28])), (4), "CLASS_NORMAL_LET_BINDING");
27413             /*_.INST__V76*/
27414             meltfptr[62] =
27415                 newobj;
27416         };
27417         ;
27418         /*^putslot*/
27419         /*putslot*/
27420         melt_assertmsg("checkobj putslot  _ @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ meltfptr[62])) == MELTOBMAG_OBJECT);
27421         melt_putfield_object((/*_.INST__V76*/ meltfptr[62]), (3), (/*_.SLOC__V18*/ meltfptr[5]), "LETBIND_LOC");
27422         ;
27423         /*^putslot*/
27424         /*putslot*/
27425         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ meltfptr[62])) == MELTOBMAG_OBJECT);
27426         melt_putfield_object((/*_.INST__V76*/ meltfptr[62]), (0), (/*_.CSYM__V56*/ meltfptr[41]), "BINDER");
27427         ;
27428         /*^putslot*/
27429         /*putslot*/
27430         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ meltfptr[62])) == MELTOBMAG_OBJECT);
27431         melt_putfield_object((/*_.INST__V76*/ meltfptr[62]), (1), ((/*!CTYPE_VALUE*/ meltfrout->tabval[18])), "LETBIND_TYPE");
27432         ;
27433         /*^putslot*/
27434         /*putslot*/
27435         melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ meltfptr[62])) == MELTOBMAG_OBJECT);
27436         melt_putfield_object((/*_.INST__V76*/ meltfptr[62]), (2), (/*_.NCHUNK__V73*/ meltfptr[63]), "LETBIND_EXPR");
27437         ;
27438         /*^touchobj*/
27439
27440         melt_dbgtrace_written_object (/*_.INST__V76*/ meltfptr[62], "newly made instance");
27441         ;
27442         /*_.CBIND__V75*/
27443         meltfptr[48] = /*_.INST__V76*/ meltfptr[62];;
27444
27445         MELT_CHECK_SIGNAL();
27446         ;
27447         MELT_LOCATION("warmelt-normal.melt:2710:/ quasiblock");
27448
27449
27450         /*^rawallocobj*/
27451         /*rawallocobj*/
27452         {
27453             melt_ptr_t newobj = 0;
27454             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[29])), (4), "CLASS_NREP_LOCSYMOCC");
27455             /*_.INST__V78*/
27456             meltfptr[58] =
27457                 newobj;
27458         };
27459         ;
27460         /*^putslot*/
27461         /*putslot*/
27462         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ meltfptr[58])) == MELTOBMAG_OBJECT);
27463         melt_putfield_object((/*_.INST__V78*/ meltfptr[58]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
27464         ;
27465         /*^putslot*/
27466         /*putslot*/
27467         melt_assertmsg("checkobj putslot  _ @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ meltfptr[58])) == MELTOBMAG_OBJECT);
27468         melt_putfield_object((/*_.INST__V78*/ meltfptr[58]), (2), ((/*!CTYPE_VALUE*/ meltfrout->tabval[18])), "NOCC_CTYP");
27469         ;
27470         /*^putslot*/
27471         /*putslot*/
27472         melt_assertmsg("checkobj putslot  _ @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ meltfptr[58])) == MELTOBMAG_OBJECT);
27473         melt_putfield_object((/*_.INST__V78*/ meltfptr[58]), (1), (/*_.CSYM__V56*/ meltfptr[41]), "NOCC_SYMB");
27474         ;
27475         /*^putslot*/
27476         /*putslot*/
27477         melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ meltfptr[58])) == MELTOBMAG_OBJECT);
27478         melt_putfield_object((/*_.INST__V78*/ meltfptr[58]), (3), (/*_.CBIND__V75*/ meltfptr[48]), "NOCC_BIND");
27479         ;
27480         /*^touchobj*/
27481
27482         melt_dbgtrace_written_object (/*_.INST__V78*/ meltfptr[58], "newly made instance");
27483         ;
27484         /*_.CLOCC__V77*/
27485         meltfptr[65] = /*_.INST__V78*/ meltfptr[58];;
27486
27487 #if MELT_HAVE_DEBUG
27488         MELT_LOCATION("warmelt-normal.melt:2716:/ cppif.then");
27489         /*^block*/
27490         /*anyblock*/
27491         {
27492
27493
27494             {
27495                 /*^locexp*/
27496                 /*melt_increment_dbgcounter*/
27497 #if MELT_HAVE_DEBUG
27498                 melt_dbgcounter++;
27499 #endif
27500                 ;
27501             }
27502             ;
27503
27504             MELT_CHECK_SIGNAL();
27505             ;
27506             /*_#MELT_NEED_DBG__L20*/
27507             meltfnum[18] =
27508                 /*MELT_NEED_DBG*/
27509 #if MELT_HAVE_DEBUG
27510                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
27511 #else
27512                 0 /* no melt_need_dbg */
27513 #endif /*MELT_HAVE_DEBUG*/
27514                 ;;
27515             MELT_LOCATION("warmelt-normal.melt:2716:/ cond");
27516             /*cond*/
27517             if (/*_#MELT_NEED_DBG__L20*/ meltfnum[18]) /*then*/
27518                 {
27519                     /*^cond.then*/
27520                     /*^block*/
27521                     /*anyblock*/
27522                     {
27523
27524                         /*_#MELT_CALLCOUNT__L21*/ meltfnum[16] =
27525                             /* for melt_callcount */
27526 #if MELT_HAVE_DEBUG && defined (meltcallcount)
27527                             meltcallcount  /* melt_callcount debugging */
27528 #else
27529                             0L  /* melt_callcount without debug */
27530 #endif /* MELT_HAVE_DEBUG melt_callcount */
27531                             ;;
27532
27533                         MELT_CHECK_SIGNAL();
27534                         ;
27535                         MELT_LOCATION("warmelt-normal.melt:2716:/ apply");
27536                         /*apply*/
27537                         {
27538                             union meltparam_un argtab[7];
27539                             memset(&argtab, 0, sizeof(argtab));
27540                             /*^apply.arg*/
27541                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L21*/ meltfnum[16];
27542                             /*^apply.arg*/
27543                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
27544                             /*^apply.arg*/
27545                             argtab[2].meltbp_long = 2716;
27546                             /*^apply.arg*/
27547                             argtab[3].meltbp_cstring =  "normexp_constbox nchunk=";
27548                             /*^apply.arg*/
27549                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCHUNK__V73*/ meltfptr[63];
27550                             /*^apply.arg*/
27551                             argtab[5].meltbp_cstring =  " clocc=";
27552                             /*^apply.arg*/
27553                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V77*/ meltfptr[65];
27554                             /*_.MELT_DEBUG_FUN__V80*/
27555                             meltfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
27556                         }
27557                         ;
27558                         /*_._IF___V79*/
27559                         meltfptr[59] = /*_.MELT_DEBUG_FUN__V80*/ meltfptr[60];;
27560                         /*epilog*/
27561
27562                         MELT_LOCATION("warmelt-normal.melt:2716:/ clear");
27563                         /*clear*/ /*_#MELT_CALLCOUNT__L21*/
27564                         meltfnum[16] = 0 ;
27565                         /*^clear*/
27566                         /*clear*/ /*_.MELT_DEBUG_FUN__V80*/
27567                         meltfptr[60] = 0 ;
27568                     }
27569                     ;
27570                 }
27571             else    /*^cond.else*/
27572                 {
27573
27574                     /*_._IF___V79*/ meltfptr[59] =  /*reallynil*/ NULL ;;
27575                 }
27576             ;
27577
27578             {
27579                 MELT_LOCATION("warmelt-normal.melt:2716:/ locexp");
27580                 /*void*/
27581                 (void)0;
27582             }
27583             ;
27584             /*^quasiblock*/
27585
27586
27587             /*epilog*/
27588
27589             /*^clear*/
27590             /*clear*/ /*_#MELT_NEED_DBG__L20*/
27591             meltfnum[18] = 0 ;
27592             /*^clear*/
27593             /*clear*/ /*_._IF___V79*/
27594             meltfptr[59] = 0 ;
27595         }
27596
27597 #else /*MELT_HAVE_DEBUG*/
27598         /*^cppif.else*/
27599         /*^block*/
27600         /*anyblock*/
27601         {
27602
27603
27604             {
27605                 /*^locexp*/
27606                 /*void*/(void)0;
27607             }
27608             ;
27609             /*epilog*/
27610         }
27611
27612 #endif /*MELT_HAVE_DEBUG*/
27613         ;
27614
27615         {
27616             MELT_LOCATION("warmelt-normal.melt:2717:/ locexp");
27617             meltgc_append_list((melt_ptr_t)(/*_.NBIND__V22*/ meltfptr[21]), (melt_ptr_t)(/*_.CBIND__V75*/ meltfptr[48]));
27618         }
27619         ;
27620
27621 #if MELT_HAVE_DEBUG
27622         MELT_LOCATION("warmelt-normal.melt:2718:/ cppif.then");
27623         /*^block*/
27624         /*anyblock*/
27625         {
27626
27627
27628             {
27629                 /*^locexp*/
27630                 /*melt_increment_dbgcounter*/
27631 #if MELT_HAVE_DEBUG
27632                 melt_dbgcounter++;
27633 #endif
27634                 ;
27635             }
27636             ;
27637
27638             MELT_CHECK_SIGNAL();
27639             ;
27640             /*_#MELT_NEED_DBG__L22*/
27641             meltfnum[16] =
27642                 /*MELT_NEED_DBG*/
27643 #if MELT_HAVE_DEBUG
27644                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
27645 #else
27646                 0 /* no melt_need_dbg */
27647 #endif /*MELT_HAVE_DEBUG*/
27648                 ;;
27649             MELT_LOCATION("warmelt-normal.melt:2718:/ cond");
27650             /*cond*/
27651             if (/*_#MELT_NEED_DBG__L22*/ meltfnum[16]) /*then*/
27652                 {
27653                     /*^cond.then*/
27654                     /*^block*/
27655                     /*anyblock*/
27656                     {
27657
27658                         /*_#MELT_CALLCOUNT__L23*/ meltfnum[18] =
27659                             /* for melt_callcount */
27660 #if MELT_HAVE_DEBUG && defined (meltcallcount)
27661                             meltcallcount  /* melt_callcount debugging */
27662 #else
27663                             0L  /* melt_callcount without debug */
27664 #endif /* MELT_HAVE_DEBUG melt_callcount */
27665                             ;;
27666
27667                         MELT_CHECK_SIGNAL();
27668                         ;
27669                         MELT_LOCATION("warmelt-normal.melt:2718:/ apply");
27670                         /*apply*/
27671                         {
27672                             union meltparam_un argtab[7];
27673                             memset(&argtab, 0, sizeof(argtab));
27674                             /*^apply.arg*/
27675                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L23*/ meltfnum[18];
27676                             /*^apply.arg*/
27677                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
27678                             /*^apply.arg*/
27679                             argtab[2].meltbp_long = 2718;
27680                             /*^apply.arg*/
27681                             argtab[3].meltbp_cstring =  "normexp_constbox return clocc=";
27682                             /*^apply.arg*/
27683                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V77*/ meltfptr[65];
27684                             /*^apply.arg*/
27685                             argtab[5].meltbp_cstring =  " nbind=";
27686                             /*^apply.arg*/
27687                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ meltfptr[21];
27688                             /*_.MELT_DEBUG_FUN__V82*/
27689                             meltfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
27690                         }
27691                         ;
27692                         /*_._IF___V81*/
27693                         meltfptr[61] = /*_.MELT_DEBUG_FUN__V82*/ meltfptr[60];;
27694                         /*epilog*/
27695
27696                         MELT_LOCATION("warmelt-normal.melt:2718:/ clear");
27697                         /*clear*/ /*_#MELT_CALLCOUNT__L23*/
27698                         meltfnum[18] = 0 ;
27699                         /*^clear*/
27700                         /*clear*/ /*_.MELT_DEBUG_FUN__V82*/
27701                         meltfptr[60] = 0 ;
27702                     }
27703                     ;
27704                 }
27705             else    /*^cond.else*/
27706                 {
27707
27708                     /*_._IF___V81*/ meltfptr[61] =  /*reallynil*/ NULL ;;
27709                 }
27710             ;
27711
27712             {
27713                 MELT_LOCATION("warmelt-normal.melt:2718:/ locexp");
27714                 /*void*/
27715                 (void)0;
27716             }
27717             ;
27718             /*^quasiblock*/
27719
27720
27721             /*epilog*/
27722
27723             /*^clear*/
27724             /*clear*/ /*_#MELT_NEED_DBG__L22*/
27725             meltfnum[16] = 0 ;
27726             /*^clear*/
27727             /*clear*/ /*_._IF___V81*/
27728             meltfptr[61] = 0 ;
27729         }
27730
27731 #else /*MELT_HAVE_DEBUG*/
27732         /*^cppif.else*/
27733         /*^block*/
27734         /*anyblock*/
27735         {
27736
27737
27738             {
27739                 /*^locexp*/
27740                 /*void*/(void)0;
27741             }
27742             ;
27743             /*epilog*/
27744         }
27745
27746 #endif /*MELT_HAVE_DEBUG*/
27747         ;
27748
27749         MELT_CHECK_SIGNAL();
27750         ;
27751         MELT_LOCATION("warmelt-normal.melt:2719:/ quasiblock");
27752
27753
27754         /*_._RETVAL___V1*/
27755         meltfptr[0] = /*_.CLOCC__V77*/ meltfptr[65];;
27756         MELT_LOCATION("warmelt-normal.melt:2719:/ putxtraresult");
27757         if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
27758         if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
27759         if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.NBIND__V22*/ meltfptr[21]);
27760         ;
27761         /*^finalreturn*/
27762         ;
27763         /*finalret*/
27764         goto meltlabend_rout ;
27765         /*_.LET___V55*/
27766         meltfptr[51] = /*_.RETURN___V83*/ meltfptr[59];;
27767
27768         MELT_LOCATION("warmelt-normal.melt:2674:/ clear");
27769         /*clear*/ /*_.CSYM__V56*/
27770         meltfptr[41] = 0 ;
27771         /*^clear*/
27772         /*clear*/ /*_._IFELSE___V57*/
27773         meltfptr[40] = 0 ;
27774         /*^clear*/
27775         /*clear*/ /*_.NCHUNK__V73*/
27776         meltfptr[63] = 0 ;
27777         /*^clear*/
27778         /*clear*/ /*_.CBIND__V75*/
27779         meltfptr[48] = 0 ;
27780         /*^clear*/
27781         /*clear*/ /*_.CLOCC__V77*/
27782         meltfptr[65] = 0 ;
27783         /*^clear*/
27784         /*clear*/ /*_.RETURN___V83*/
27785         meltfptr[59] = 0 ;
27786         /*_.LET___V43*/
27787         meltfptr[34] = /*_.LET___V55*/ meltfptr[51];;
27788
27789         MELT_LOCATION("warmelt-normal.melt:2655:/ clear");
27790         /*clear*/ /*_#IS_A__L16*/
27791         meltfnum[9] = 0 ;
27792         /*^clear*/
27793         /*clear*/ /*_.BOXER__V44*/
27794         meltfptr[39] = 0 ;
27795         /*^clear*/
27796         /*clear*/ /*_.LET___V55*/
27797         meltfptr[51] = 0 ;
27798         /*_.LET___V30*/
27799         meltfptr[28] = /*_.LET___V43*/ meltfptr[34];;
27800
27801         MELT_LOCATION("warmelt-normal.melt:2646:/ clear");
27802         /*clear*/ /*_.NCTYP__V31*/
27803         meltfptr[27] = 0 ;
27804         /*^clear*/
27805         /*clear*/ /*_.AUTOBOXDISCR__V32*/
27806         meltfptr[23] = 0 ;
27807         /*^clear*/
27808         /*clear*/ /*_.IFCPP___V33*/
27809         meltfptr[22] = 0 ;
27810         /*^clear*/
27811         /*clear*/ /*_#IS_NOT_A__L15*/
27812         meltfnum[10] = 0 ;
27813         /*^clear*/
27814         /*clear*/ /*_._IF___V38*/
27815         meltfptr[33] = 0 ;
27816         /*^clear*/
27817         /*clear*/ /*_.LET___V43*/
27818         meltfptr[34] = 0 ;
27819
27820         MELT_CHECK_SIGNAL();
27821         ;
27822         /*_.MULTI___V20*/
27823         meltfptr[19] = /*_.LET___V30*/ meltfptr[28];;
27824
27825         MELT_LOCATION("warmelt-normal.melt:2639:/ clear");
27826         /*clear*/ /*_#IS_LIST__L8*/
27827         meltfnum[1] = 0 ;
27828         /*^clear*/
27829         /*clear*/ /*_#NOT__L9*/
27830         meltfnum[0] = 0 ;
27831         /*^clear*/
27832         /*clear*/ /*_.LET___V30*/
27833         meltfptr[28] = 0 ;
27834
27835         /*^clear*/
27836         /*clear*/ /*_.NBIND__V22*/
27837         meltfptr[21] = 0 ;
27838         /*_.LET___V17*/
27839         meltfptr[15] = /*_.MULTI___V20*/ meltfptr[19];;
27840
27841         MELT_LOCATION("warmelt-normal.melt:2636:/ clear");
27842         /*clear*/ /*_.SLOC__V18*/
27843         meltfptr[5] = 0 ;
27844         /*^clear*/
27845         /*clear*/ /*_.SBOXED__V19*/
27846         meltfptr[18] = 0 ;
27847         /*^clear*/
27848         /*clear*/ /*_.MULTI___V20*/
27849         meltfptr[19] = 0 ;
27850
27851         MELT_CHECK_SIGNAL();
27852         ;
27853         MELT_LOCATION("warmelt-normal.melt:2631:/ quasiblock");
27854
27855
27856         /*_._RETVAL___V1*/
27857         meltfptr[0] = /*_.LET___V17*/ meltfptr[15];;
27858
27859         {
27860             MELT_LOCATION("warmelt-normal.melt:2631:/ locexp");
27861             /*ochecknores compilobj_nrep_return*/
27862 #if MELT_HAVE_DEBUG
27863             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
27864                 melt_warn_for_no_expected_secondary_results();
27865             /* we warned when secondary results are expected but not returned. */
27866 #endif /*MELT_HAVE_DEBUG*/
27867             ;
27868         }
27869         ;
27870         /*^finalreturn*/
27871         ;
27872         /*finalret*/
27873         goto meltlabend_rout ;
27874         /*epilog*/
27875
27876         /*^clear*/
27877         /*clear*/ /*_.IFCPP___V8*/
27878         meltfptr[6] = 0 ;
27879         /*^clear*/
27880         /*clear*/ /*_.IFCPP___V11*/
27881         meltfptr[9] = 0 ;
27882         /*^clear*/
27883         /*clear*/ /*_.IFCPP___V14*/
27884         meltfptr[12] = 0 ;
27885         /*^clear*/
27886         /*clear*/ /*_.LET___V17*/
27887         meltfptr[15] = 0 ;
27888     }
27889
27890     ;
27891     goto meltlabend_rout;
27892 meltlabend_rout:
27893     melt_trace_end("NORMEXP_CONSTBOX", meltcallcount);
27894     melt_blocklevel_signals = current_blocklevel_signals_meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX_melt;
27895     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
27896 #undef meltcallcount
27897 #undef meltfram__
27898 #undef MELTFRAM_NBVARNUM
27899 #undef MELTFRAM_NBVARPTR
27900 } /*end meltrout_39_WARMELTmiNORMAL_NORMEXP_CONSTBOX*/
27901
27902
27903
27904
27905
27906
27907 melt_ptr_t MELT_MODULE_VISIBILITY
27908 meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
27909         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
27910 {
27911     long current_blocklevel_signals_meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX_melt =  melt_blocklevel_signals;
27912
27913 #if MELT_HAVE_DEBUG
27914     static long melt_call_counter__;
27915     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
27916 #undef meltcallcount
27917 #define meltcallcount melt_thiscallcounter__
27918 #else
27919 #undef meltcallcount
27920 #define meltcallcount 0L
27921 #endif
27922 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
27923
27924     /* start of frame for routine meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX fromline 1752 */
27925
27926     /** start of frame for meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX of CLASS_PROCROUTINEOBJ from 1555**/
27927
27928     /*curframdeclclassy*/ class MeltFrame_meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX// fromline 1568
27929         : public Melt_CallFrameWithValues<66>
27930     {
27931     public: /* fromline 1572*/
27932         long mcfr_varnum[22];
27933         /*classy others*/
27934         long _meltsparel;
27935         void melt_mark_stuff (void)
27936         {
27937         } /*end melt_mark_stuff*/
27938         virtual void melt_mark_ggc_data (void)
27939         {
27940             melt_mark_values ();
27941             melt_mark_stuff ();
27942         }; /*end melt_mark_ggc_data*/
27943         MeltFrame_meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX(meltclosure_ptr_t clos) //the closure constructor fromline 1630
27944             : Melt_CallFrameWithValues<66> (
27945 #if ENABLE_CHECKING /*fromline 1634*/
27946                 __FILE__, __LINE__,
27947 #endif /* ENABLE_CHECKING fromline 1638*/
27948                 sizeof(MeltFrame_meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX), clos) {};
27949         MeltFrame_meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX() //the constructor fromline 1642
27950             : Melt_CallFrameWithValues<66> (
27951 #if ENABLE_CHECKING /*fromline 1646*/
27952                 __FILE__, __LINE__,
27953 #endif /* ENABLE_CHECKING fromline 1650*/
27954                 sizeof(MeltFrame_meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX)) {};
27955 #if ENABLE_CHECKING /*fromline 1654*/
27956         MeltFrame_meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX(const char*fil, int lin) //the constructor fromline 1656
27957             : Melt_CallFrameWithValues<66> (fil,lin, sizeof(MeltFrame_meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX)) {};
27958         MeltFrame_meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
27959             : Melt_CallFrameWithValues<66> (fil,lin, sizeof(MeltFrame_meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX), clos) {};
27960 #endif /* ENABLE_CHECKING fromline 1666*/
27961
27962     }; // end  class MeltFrame_meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX
27963
27964
27965     /** end of frame for meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX fromline 1697**/
27966
27967     /* end of frame for routine meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX fromline 1756 */
27968
27969     /* classy proc frame meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX */
27970     MeltFrame_meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX
27971     meltfram__ /*declfrastruct fromline 1780*/
27972     /*classyprocarg meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX fromline 1785*/
27973 #if ENABLE_CHECKING
27974     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
27975 #else /*ENABLE_CHECKING */
27976     (meltclosp_) /* fromline 1793*/
27977 #endif /*ENABLE_CHECKING */
27978
27979     ;
27980 #define meltframe meltfram__
27981
27982     melt_trace_start("NORMEXP_UNBOX", meltcallcount);
27983     /*use arguments*/
27984     (void) meltclosp_;
27985     (void)meltfirstargp_;
27986     (void)meltxargdescr_;
27987     (void)meltxargtab_;
27988     (void)meltxresdescr_;
27989     (void)meltxrestab_;
27990     /*getargs*/
27991
27992     /*getarg#0*/
27993     MELT_LOCATION("warmelt-normal.melt:2726:/ getarg");
27994     /*_.RECV__V2*/
27995     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
27996
27997     /*getarg#1*/
27998     /*^getarg*/
27999     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
28000     /*_.ENV__V3*/
28001     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
28002     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
28003
28004
28005     /*getarg#2*/
28006     /*^getarg*/
28007     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
28008     /*_.NCX__V4*/
28009     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
28010     gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL);
28011
28012
28013     /*getarg#3*/
28014     /*^getarg*/
28015     if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
28016     /*_.PSLOC__V5*/
28017     meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
28018     gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL);
28019
28020     ;
28021     goto meltlab_endgetargs;
28022 meltlab_endgetargs:
28023     ;
28024     /*body*/
28025     /*^block*/
28026     /*anyblock*/
28027     {
28028
28029
28030 #if MELT_HAVE_DEBUG
28031         MELT_LOCATION("warmelt-normal.melt:2727:/ cppif.then");
28032         /*^block*/
28033         /*anyblock*/
28034         {
28035
28036
28037             {
28038                 /*^locexp*/
28039                 /*melt_increment_dbgcounter*/
28040 #if MELT_HAVE_DEBUG
28041                 melt_dbgcounter++;
28042 #endif
28043                 ;
28044             }
28045             ;
28046
28047             MELT_CHECK_SIGNAL();
28048             ;
28049             /*_#MELT_NEED_DBG__L1*/
28050             meltfnum[0] =
28051                 /*MELT_NEED_DBG*/
28052 #if MELT_HAVE_DEBUG
28053                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
28054 #else
28055                 0 /* no melt_need_dbg */
28056 #endif /*MELT_HAVE_DEBUG*/
28057                 ;;
28058             MELT_LOCATION("warmelt-normal.melt:2727:/ cond");
28059             /*cond*/
28060             if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
28061                 {
28062                     /*^cond.then*/
28063                     /*^block*/
28064                     /*anyblock*/
28065                     {
28066
28067                         /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
28068                             /* for melt_callcount */
28069 #if MELT_HAVE_DEBUG && defined (meltcallcount)
28070                             meltcallcount  /* melt_callcount debugging */
28071 #else
28072                             0L  /* melt_callcount without debug */
28073 #endif /* MELT_HAVE_DEBUG melt_callcount */
28074                             ;;
28075
28076                         MELT_CHECK_SIGNAL();
28077                         ;
28078                         MELT_LOCATION("warmelt-normal.melt:2727:/ apply");
28079                         /*apply*/
28080                         {
28081                             union meltparam_un argtab[5];
28082                             memset(&argtab, 0, sizeof(argtab));
28083                             /*^apply.arg*/
28084                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
28085                             /*^apply.arg*/
28086                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
28087                             /*^apply.arg*/
28088                             argtab[2].meltbp_long = 2727;
28089                             /*^apply.arg*/
28090                             argtab[3].meltbp_cstring =  "normexp_unbox recv";
28091                             /*^apply.arg*/
28092                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
28093                             /*_.MELT_DEBUG_FUN__V7*/
28094                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
28095                         }
28096                         ;
28097                         /*_._IF___V6*/
28098                         meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];;
28099                         /*epilog*/
28100
28101                         MELT_LOCATION("warmelt-normal.melt:2727:/ clear");
28102                         /*clear*/ /*_#MELT_CALLCOUNT__L2*/
28103                         meltfnum[1] = 0 ;
28104                         /*^clear*/
28105                         /*clear*/ /*_.MELT_DEBUG_FUN__V7*/
28106                         meltfptr[6] = 0 ;
28107                     }
28108                     ;
28109                 }
28110             else    /*^cond.else*/
28111                 {
28112
28113                     /*_._IF___V6*/ meltfptr[5] =  /*reallynil*/ NULL ;;
28114                 }
28115             ;
28116
28117             {
28118                 MELT_LOCATION("warmelt-normal.melt:2727:/ locexp");
28119                 /*void*/
28120                 (void)0;
28121             }
28122             ;
28123             /*^quasiblock*/
28124
28125
28126             /*epilog*/
28127
28128             /*^clear*/
28129             /*clear*/ /*_#MELT_NEED_DBG__L1*/
28130             meltfnum[0] = 0 ;
28131             /*^clear*/
28132             /*clear*/ /*_._IF___V6*/
28133             meltfptr[5] = 0 ;
28134         }
28135
28136 #else /*MELT_HAVE_DEBUG*/
28137         /*^cppif.else*/
28138         /*^block*/
28139         /*anyblock*/
28140         {
28141
28142
28143             {
28144                 /*^locexp*/
28145                 /*void*/(void)0;
28146             }
28147             ;
28148             /*epilog*/
28149         }
28150
28151 #endif /*MELT_HAVE_DEBUG*/
28152         ;
28153
28154 #if MELT_HAVE_DEBUG
28155         MELT_LOCATION("warmelt-normal.melt:2728:/ cppif.then");
28156         /*^block*/
28157         /*anyblock*/
28158         {
28159
28160
28161             MELT_CHECK_SIGNAL();
28162             ;
28163             /*_#IS_A__L3*/
28164             meltfnum[1] =
28165                 melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_UNBOX*/ meltfrout->tabval[1])));;
28166             MELT_LOCATION("warmelt-normal.melt:2728:/ cond");
28167             /*cond*/
28168             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
28169                 {
28170                     /*^cond.then*/
28171                     /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);;
28172                 }
28173             else
28174                 {
28175                     MELT_LOCATION("warmelt-normal.melt:2728:/ cond.else");
28176
28177                     /*^block*/
28178                     /*anyblock*/
28179                     {
28180
28181
28182                         MELT_CHECK_SIGNAL();
28183                         ;
28184                         /*^apply*/
28185                         /*apply*/
28186                         {
28187                             union meltparam_un argtab[4];
28188                             memset(&argtab, 0, sizeof(argtab));
28189                             /*^apply.arg*/
28190                             argtab[0].meltbp_cstring =  "check unbox recv";
28191                             /*^apply.arg*/
28192                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
28193                             /*^apply.arg*/
28194                             argtab[2].meltbp_long = 2728;
28195                             /*^apply.arg*/
28196                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
28197                             /*_.MELT_ASSERT_FAILURE_FUN__V10*/
28198                             meltfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
28199                         }
28200                         ;
28201                         /*_._IFELSE___V9*/
28202                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];;
28203                         /*epilog*/
28204
28205                         MELT_LOCATION("warmelt-normal.melt:2728:/ clear");
28206                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/
28207                         meltfptr[9] = 0 ;
28208                     }
28209                     ;
28210                 }
28211             ;
28212             /*_.IFCPP___V8*/
28213             meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];;
28214             /*epilog*/
28215
28216             MELT_LOCATION("warmelt-normal.melt:2728:/ clear");
28217             /*clear*/ /*_#IS_A__L3*/
28218             meltfnum[1] = 0 ;
28219             /*^clear*/
28220             /*clear*/ /*_._IFELSE___V9*/
28221             meltfptr[5] = 0 ;
28222         }
28223
28224 #else /*MELT_HAVE_DEBUG*/
28225         /*^cppif.else*/
28226         /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL);
28227 #endif /*MELT_HAVE_DEBUG*/
28228         ;
28229
28230 #if MELT_HAVE_DEBUG
28231         MELT_LOCATION("warmelt-normal.melt:2729:/ cppif.then");
28232         /*^block*/
28233         /*anyblock*/
28234         {
28235
28236
28237             MELT_CHECK_SIGNAL();
28238             ;
28239             /*_#IS_A__L4*/
28240             meltfnum[0] =
28241                 melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));;
28242             MELT_LOCATION("warmelt-normal.melt:2729:/ cond");
28243             /*cond*/
28244             if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/
28245                 {
28246                     /*^cond.then*/
28247                     /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);;
28248                 }
28249             else
28250                 {
28251                     MELT_LOCATION("warmelt-normal.melt:2729:/ cond.else");
28252
28253                     /*^block*/
28254                     /*anyblock*/
28255                     {
28256
28257
28258                         MELT_CHECK_SIGNAL();
28259                         ;
28260                         /*^apply*/
28261                         /*apply*/
28262                         {
28263                             union meltparam_un argtab[4];
28264                             memset(&argtab, 0, sizeof(argtab));
28265                             /*^apply.arg*/
28266                             argtab[0].meltbp_cstring =  "check env";
28267                             /*^apply.arg*/
28268                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
28269                             /*^apply.arg*/
28270                             argtab[2].meltbp_long = 2729;
28271                             /*^apply.arg*/
28272                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
28273                             /*_.MELT_ASSERT_FAILURE_FUN__V13*/
28274                             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
28275                         }
28276                         ;
28277                         /*_._IFELSE___V12*/
28278                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];;
28279                         /*epilog*/
28280
28281                         MELT_LOCATION("warmelt-normal.melt:2729:/ clear");
28282                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/
28283                         meltfptr[12] = 0 ;
28284                     }
28285                     ;
28286                 }
28287             ;
28288             /*_.IFCPP___V11*/
28289             meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];;
28290             /*epilog*/
28291
28292             MELT_LOCATION("warmelt-normal.melt:2729:/ clear");
28293             /*clear*/ /*_#IS_A__L4*/
28294             meltfnum[0] = 0 ;
28295             /*^clear*/
28296             /*clear*/ /*_._IFELSE___V12*/
28297             meltfptr[5] = 0 ;
28298         }
28299
28300 #else /*MELT_HAVE_DEBUG*/
28301         /*^cppif.else*/
28302         /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL);
28303 #endif /*MELT_HAVE_DEBUG*/
28304         ;
28305
28306 #if MELT_HAVE_DEBUG
28307         MELT_LOCATION("warmelt-normal.melt:2730:/ cppif.then");
28308         /*^block*/
28309         /*anyblock*/
28310         {
28311
28312
28313             MELT_CHECK_SIGNAL();
28314             ;
28315             /*_#IS_A__L5*/
28316             meltfnum[1] =
28317                 melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));;
28318             MELT_LOCATION("warmelt-normal.melt:2730:/ cond");
28319             /*cond*/
28320             if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/
28321                 {
28322                     /*^cond.then*/
28323                     /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);;
28324                 }
28325             else
28326                 {
28327                     MELT_LOCATION("warmelt-normal.melt:2730:/ cond.else");
28328
28329                     /*^block*/
28330                     /*anyblock*/
28331                     {
28332
28333
28334                         MELT_CHECK_SIGNAL();
28335                         ;
28336                         /*^apply*/
28337                         /*apply*/
28338                         {
28339                             union meltparam_un argtab[4];
28340                             memset(&argtab, 0, sizeof(argtab));
28341                             /*^apply.arg*/
28342                             argtab[0].meltbp_cstring =  "check ncx";
28343                             /*^apply.arg*/
28344                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
28345                             /*^apply.arg*/
28346                             argtab[2].meltbp_long = 2730;
28347                             /*^apply.arg*/
28348                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
28349                             /*_.MELT_ASSERT_FAILURE_FUN__V16*/
28350                             meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
28351                         }
28352                         ;
28353                         /*_._IFELSE___V15*/
28354                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];;
28355                         /*epilog*/
28356
28357                         MELT_LOCATION("warmelt-normal.melt:2730:/ clear");
28358                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/
28359                         meltfptr[15] = 0 ;
28360                     }
28361                     ;
28362                 }
28363             ;
28364             /*_.IFCPP___V14*/
28365             meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];;
28366             /*epilog*/
28367
28368             MELT_LOCATION("warmelt-normal.melt:2730:/ clear");
28369             /*clear*/ /*_#IS_A__L5*/
28370             meltfnum[1] = 0 ;
28371             /*^clear*/
28372             /*clear*/ /*_._IFELSE___V15*/
28373             meltfptr[5] = 0 ;
28374         }
28375
28376 #else /*MELT_HAVE_DEBUG*/
28377         /*^cppif.else*/
28378         /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL);
28379 #endif /*MELT_HAVE_DEBUG*/
28380         ;
28381         MELT_LOCATION("warmelt-normal.melt:2731:/ quasiblock");
28382
28383
28384         /*^getslot*/
28385         {
28386             melt_ptr_t slot=NULL, obj=NULL;
28387             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
28388             melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
28389             /*_.SLOC__V18*/
28390             meltfptr[5] = slot;
28391         };
28392         ;
28393         MELT_LOCATION("warmelt-normal.melt:2732:/ cond");
28394         /*cond*/
28395         if (
28396             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]),
28397                                           (melt_ptr_t)((/*!CLASS_SOURCE_UNBOX*/ meltfrout->tabval[1])))
28398         ) /*then*/
28399             {
28400                 /*^cond.then*/
28401                 /*^getslot*/
28402                 {
28403                     melt_ptr_t slot=NULL, obj=NULL;
28404                     obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
28405                     melt_object_get_field(slot,obj, 3, "SUNBOX_EXPR");
28406                     /*_.SEXP__V19*/
28407                     meltfptr[18] = slot;
28408                 };
28409                 ;
28410             }
28411         else    /*^cond.else*/
28412             {
28413
28414                 /*_.SEXP__V19*/ meltfptr[18] =  /*reallynil*/ NULL ;;
28415             }
28416         ;
28417         MELT_LOCATION("warmelt-normal.melt:2733:/ cond");
28418         /*cond*/
28419         if (
28420             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]),
28421                                           (melt_ptr_t)((/*!CLASS_SOURCE_UNBOX*/ meltfrout->tabval[1])))
28422         ) /*then*/
28423             {
28424                 /*^cond.then*/
28425                 /*^getslot*/
28426                 {
28427                     melt_ptr_t slot=NULL, obj=NULL;
28428                     obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
28429                     melt_object_get_field(slot,obj, 2, "SUNBOX_CTYPE");
28430                     /*_.CTYP__V20*/
28431                     meltfptr[19] = slot;
28432                 };
28433                 ;
28434             }
28435         else    /*^cond.else*/
28436             {
28437
28438                 /*_.CTYP__V20*/ meltfptr[19] =  /*reallynil*/ NULL ;;
28439             }
28440         ;
28441         MELT_LOCATION("warmelt-normal.melt:2734:/ cond");
28442         /*cond*/
28443         if (
28444             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]),
28445                                           (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[5])))
28446         ) /*then*/
28447             {
28448                 /*^cond.then*/
28449                 /*^getslot*/
28450                 {
28451                     melt_ptr_t slot=NULL, obj=NULL;
28452                     obj = (melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]) /*=obj*/;
28453                     melt_object_get_field(slot,obj, 4, "CTYPE_CNAME");
28454                     /*_.CNAME__V21*/
28455                     meltfptr[20] = slot;
28456                 };
28457                 ;
28458             }
28459         else    /*^cond.else*/
28460             {
28461
28462                 /*_.CNAME__V21*/ meltfptr[20] =  /*reallynil*/ NULL ;;
28463             }
28464         ;
28465
28466 #if MELT_HAVE_DEBUG
28467         MELT_LOCATION("warmelt-normal.melt:2736:/ cppif.then");
28468         /*^block*/
28469         /*anyblock*/
28470         {
28471
28472
28473             {
28474                 /*^locexp*/
28475                 /*melt_increment_dbgcounter*/
28476 #if MELT_HAVE_DEBUG
28477                 melt_dbgcounter++;
28478 #endif
28479                 ;
28480             }
28481             ;
28482
28483             MELT_CHECK_SIGNAL();
28484             ;
28485             /*_#MELT_NEED_DBG__L6*/
28486             meltfnum[0] =
28487                 /*MELT_NEED_DBG*/
28488 #if MELT_HAVE_DEBUG
28489                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
28490 #else
28491                 0 /* no melt_need_dbg */
28492 #endif /*MELT_HAVE_DEBUG*/
28493                 ;;
28494             MELT_LOCATION("warmelt-normal.melt:2736:/ cond");
28495             /*cond*/
28496             if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/
28497                 {
28498                     /*^cond.then*/
28499                     /*^block*/
28500                     /*anyblock*/
28501                     {
28502
28503                         /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] =
28504                             /* for melt_callcount */
28505 #if MELT_HAVE_DEBUG && defined (meltcallcount)
28506                             meltcallcount  /* melt_callcount debugging */
28507 #else
28508                             0L  /* melt_callcount without debug */
28509 #endif /* MELT_HAVE_DEBUG melt_callcount */
28510                             ;;
28511
28512                         MELT_CHECK_SIGNAL();
28513                         ;
28514                         MELT_LOCATION("warmelt-normal.melt:2736:/ apply");
28515                         /*apply*/
28516                         {
28517                             union meltparam_un argtab[5];
28518                             memset(&argtab, 0, sizeof(argtab));
28519                             /*^apply.arg*/
28520                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L7*/ meltfnum[1];
28521                             /*^apply.arg*/
28522                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
28523                             /*^apply.arg*/
28524                             argtab[2].meltbp_long = 2736;
28525                             /*^apply.arg*/
28526                             argtab[3].meltbp_cstring =  "normexp_unbox ctyp=";
28527                             /*^apply.arg*/
28528                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CTYP__V20*/ meltfptr[19];
28529                             /*_.MELT_DEBUG_FUN__V23*/
28530                             meltfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
28531                         }
28532                         ;
28533                         /*_._IF___V22*/
28534                         meltfptr[21] = /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];;
28535                         /*epilog*/
28536
28537                         MELT_LOCATION("warmelt-normal.melt:2736:/ clear");
28538                         /*clear*/ /*_#MELT_CALLCOUNT__L7*/
28539                         meltfnum[1] = 0 ;
28540                         /*^clear*/
28541                         /*clear*/ /*_.MELT_DEBUG_FUN__V23*/
28542                         meltfptr[22] = 0 ;
28543                     }
28544                     ;
28545                 }
28546             else    /*^cond.else*/
28547                 {
28548
28549                     /*_._IF___V22*/ meltfptr[21] =  /*reallynil*/ NULL ;;
28550                 }
28551             ;
28552
28553             {
28554                 MELT_LOCATION("warmelt-normal.melt:2736:/ locexp");
28555                 /*void*/
28556                 (void)0;
28557             }
28558             ;
28559             /*^quasiblock*/
28560
28561
28562             /*epilog*/
28563
28564             /*^clear*/
28565             /*clear*/ /*_#MELT_NEED_DBG__L6*/
28566             meltfnum[0] = 0 ;
28567             /*^clear*/
28568             /*clear*/ /*_._IF___V22*/
28569             meltfptr[21] = 0 ;
28570         }
28571
28572 #else /*MELT_HAVE_DEBUG*/
28573         /*^cppif.else*/
28574         /*^block*/
28575         /*anyblock*/
28576         {
28577
28578
28579             {
28580                 /*^locexp*/
28581                 /*void*/(void)0;
28582             }
28583             ;
28584             /*epilog*/
28585         }
28586
28587 #endif /*MELT_HAVE_DEBUG*/
28588         ;
28589
28590 #if MELT_HAVE_DEBUG
28591         MELT_LOCATION("warmelt-normal.melt:2737:/ cppif.then");
28592         /*^block*/
28593         /*anyblock*/
28594         {
28595
28596
28597             MELT_CHECK_SIGNAL();
28598             ;
28599             /*_#IS_A__L8*/
28600             meltfnum[1] =
28601                 melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[5])));;
28602             MELT_LOCATION("warmelt-normal.melt:2737:/ cond");
28603             /*cond*/
28604             if (/*_#IS_A__L8*/ meltfnum[1]) /*then*/
28605                 {
28606                     /*^cond.then*/
28607                     /*_._IFELSE___V25*/ meltfptr[21] = (/*nil*/NULL);;
28608                 }
28609             else
28610                 {
28611                     MELT_LOCATION("warmelt-normal.melt:2737:/ cond.else");
28612
28613                     /*^block*/
28614                     /*anyblock*/
28615                     {
28616
28617
28618                         MELT_CHECK_SIGNAL();
28619                         ;
28620                         /*^apply*/
28621                         /*apply*/
28622                         {
28623                             union meltparam_un argtab[4];
28624                             memset(&argtab, 0, sizeof(argtab));
28625                             /*^apply.arg*/
28626                             argtab[0].meltbp_cstring =  "check ctyp";
28627                             /*^apply.arg*/
28628                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
28629                             /*^apply.arg*/
28630                             argtab[2].meltbp_long = 2737;
28631                             /*^apply.arg*/
28632                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYP__V20*/ meltfptr[19];
28633                             /*_.MELT_ASSERT_FAILURE_FUN__V26*/
28634                             meltfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
28635                         }
28636                         ;
28637                         /*_._IFELSE___V25*/
28638                         meltfptr[21] = /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25];;
28639                         /*epilog*/
28640
28641                         MELT_LOCATION("warmelt-normal.melt:2737:/ clear");
28642                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V26*/
28643                         meltfptr[25] = 0 ;
28644                     }
28645                     ;
28646                 }
28647             ;
28648             /*_.IFCPP___V24*/
28649             meltfptr[22] = /*_._IFELSE___V25*/ meltfptr[21];;
28650             /*epilog*/
28651
28652             MELT_LOCATION("warmelt-normal.melt:2737:/ clear");
28653             /*clear*/ /*_#IS_A__L8*/
28654             meltfnum[1] = 0 ;
28655             /*^clear*/
28656             /*clear*/ /*_._IFELSE___V25*/
28657             meltfptr[21] = 0 ;
28658         }
28659
28660 #else /*MELT_HAVE_DEBUG*/
28661         /*^cppif.else*/
28662         /*_.IFCPP___V24*/ meltfptr[22] = (/*nil*/NULL);
28663 #endif /*MELT_HAVE_DEBUG*/
28664         ;
28665         MELT_LOCATION("warmelt-normal.melt:2738:/ quasiblock");
28666
28667
28668
28669         MELT_CHECK_SIGNAL();
28670         ;
28671         /*_#IS_A__L9*/
28672         meltfnum[0] =
28673             melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_CTYPE_PLAIN*/ meltfrout->tabval[6])));;
28674         MELT_LOCATION("warmelt-normal.melt:2739:/ cond");
28675         /*cond*/
28676         if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/
28677             {
28678                 /*^cond.then*/
28679                 /*^block*/
28680                 /*anyblock*/
28681                 {
28682
28683                     MELT_LOCATION("warmelt-normal.melt:2740:/ cond");
28684                     /*cond*/
28685                     if (
28686                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]),
28687                                                       (melt_ptr_t)((/*!CLASS_CTYPE_PLAIN*/ meltfrout->tabval[6])))
28688                     ) /*then*/
28689                         {
28690                             /*^cond.then*/
28691                             /*^getslot*/
28692                             {
28693                                 melt_ptr_t slot=NULL, obj=NULL;
28694                                 obj = (melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]) /*=obj*/;
28695                                 melt_object_get_field(slot,obj, 14, "CTYPP_UNBOXING");
28696                                 /*_.CTYPP_UNBOXING__V29*/
28697                                 meltfptr[28] = slot;
28698                             };
28699                             ;
28700                         }
28701                     else    /*^cond.else*/
28702                         {
28703
28704                             /*_.CTYPP_UNBOXING__V29*/ meltfptr[28] =  /*reallynil*/ NULL ;;
28705                         }
28706                     ;
28707                     /*^compute*/
28708                     /*_.UNBOXER__V28*/
28709                     meltfptr[21] = /*_.CTYPP_UNBOXING__V29*/ meltfptr[28];;
28710                     /*epilog*/
28711
28712                     MELT_LOCATION("warmelt-normal.melt:2739:/ clear");
28713                     /*clear*/ /*_.CTYPP_UNBOXING__V29*/
28714                     meltfptr[28] = 0 ;
28715                 }
28716                 ;
28717             }
28718         else    /*^cond.else*/
28719             {
28720
28721                 /*^block*/
28722                 /*anyblock*/
28723                 {
28724
28725
28726                     MELT_CHECK_SIGNAL();
28727                     ;
28728                     /*_#IS_A__L10*/
28729                     meltfnum[1] =
28730                         melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7])));;
28731                     MELT_LOCATION("warmelt-normal.melt:2741:/ cond");
28732                     /*cond*/
28733                     if (/*_#IS_A__L10*/ meltfnum[1]) /*then*/
28734                         {
28735                             /*^cond.then*/
28736                             /*^block*/
28737                             /*anyblock*/
28738                             {
28739
28740                                 MELT_LOCATION("warmelt-normal.melt:2742:/ cond");
28741                                 /*cond*/
28742                                 if (
28743                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]),
28744                                                                   (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7])))
28745                                 ) /*then*/
28746                                     {
28747                                         /*^cond.then*/
28748                                         /*^getslot*/
28749                                         {
28750                                             melt_ptr_t slot=NULL, obj=NULL;
28751                                             obj = (melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]) /*=obj*/;
28752                                             melt_object_get_field(slot,obj, 22, "CTYPG_UNBOXFUN");
28753                                             /*_.CTYPG_UNBOXFUN__V31*/
28754                                             meltfptr[30] = slot;
28755                                         };
28756                                         ;
28757                                     }
28758                                 else    /*^cond.else*/
28759                                     {
28760
28761                                         /*_.CTYPG_UNBOXFUN__V31*/ meltfptr[30] =  /*reallynil*/ NULL ;;
28762                                     }
28763                                 ;
28764                                 /*^compute*/
28765                                 /*_._IFELSE___V30*/
28766                                 meltfptr[28] = /*_.CTYPG_UNBOXFUN__V31*/ meltfptr[30];;
28767                                 /*epilog*/
28768
28769                                 MELT_LOCATION("warmelt-normal.melt:2741:/ clear");
28770                                 /*clear*/ /*_.CTYPG_UNBOXFUN__V31*/
28771                                 meltfptr[30] = 0 ;
28772                             }
28773                             ;
28774                         }
28775                     else    /*^cond.else*/
28776                         {
28777
28778                             /*^block*/
28779                             /*anyblock*/
28780                             {
28781
28782                                 MELT_LOCATION("warmelt-normal.melt:2745:/ cond");
28783                                 /*cond*/
28784                                 if (
28785                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]),
28786                                                                   (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[9])))
28787                                 ) /*then*/
28788                                     {
28789                                         /*^cond.then*/
28790                                         /*^getslot*/
28791                                         {
28792                                             melt_ptr_t slot=NULL, obj=NULL;
28793                                             obj = (melt_ptr_t)(/*_.CTYP__V20*/ meltfptr[19]) /*=obj*/;
28794                                             melt_object_get_field(slot,obj, 1, "NAMED_NAME");
28795                                             /*_.NAMED_NAME__V32*/
28796                                             meltfptr[30] = slot;
28797                                         };
28798                                         ;
28799                                     }
28800                                 else    /*^cond.else*/
28801                                     {
28802
28803                                         /*_.NAMED_NAME__V32*/ meltfptr[30] =  /*reallynil*/ NULL ;;
28804                                     }
28805                                 ;
28806
28807                                 MELT_CHECK_SIGNAL();
28808                                 ;
28809                                 MELT_LOCATION("warmelt-normal.melt:2744:/ apply");
28810                                 /*apply*/
28811                                 {
28812                                     union meltparam_un argtab[2];
28813                                     memset(&argtab, 0, sizeof(argtab));
28814                                     /*^apply.arg*/
28815                                     argtab[0].meltbp_cstring =  "unexpected ctype $1 for UNBOX";
28816                                     /*^apply.arg*/
28817                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V32*/ meltfptr[30];
28818                                     /*_.ERROR_AT__V33*/
28819                                     meltfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
28820                                 }
28821                                 ;
28822                                 MELT_LOCATION("warmelt-normal.melt:2746:/ quasiblock");
28823
28824
28825                                 /*_._RETVAL___V1*/
28826                                 meltfptr[0] =  /*reallynil*/ NULL ;;
28827
28828                                 {
28829                                     MELT_LOCATION("warmelt-normal.melt:2746:/ locexp");
28830                                     /*ochecknores compilobj_nrep_return*/
28831 #if MELT_HAVE_DEBUG
28832                                     if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
28833                                         melt_warn_for_no_expected_secondary_results();
28834                                     /* we warned when secondary results are expected but not returned. */
28835 #endif /*MELT_HAVE_DEBUG*/
28836                                     ;
28837                                 }
28838                                 ;
28839                                 /*^finalreturn*/
28840                                 ;
28841                                 /*finalret*/
28842                                 goto meltlabend_rout ;
28843                                 MELT_LOCATION("warmelt-normal.melt:2743:/ quasiblock");
28844
28845
28846                                 /*_.PROGN___V35*/
28847                                 meltfptr[34] = /*_.RETURN___V34*/ meltfptr[33];;
28848                                 /*^compute*/
28849                                 /*_._IFELSE___V30*/
28850                                 meltfptr[28] = /*_.PROGN___V35*/ meltfptr[34];;
28851                                 /*epilog*/
28852
28853                                 MELT_LOCATION("warmelt-normal.melt:2741:/ clear");
28854                                 /*clear*/ /*_.NAMED_NAME__V32*/
28855                                 meltfptr[30] = 0 ;
28856                                 /*^clear*/
28857                                 /*clear*/ /*_.ERROR_AT__V33*/
28858                                 meltfptr[32] = 0 ;
28859                                 /*^clear*/
28860                                 /*clear*/ /*_.RETURN___V34*/
28861                                 meltfptr[33] = 0 ;
28862                                 /*^clear*/
28863                                 /*clear*/ /*_.PROGN___V35*/
28864                                 meltfptr[34] = 0 ;
28865                             }
28866                             ;
28867                         }
28868                     ;
28869                     /*_.UNBOXER__V28*/
28870                     meltfptr[21] = /*_._IFELSE___V30*/ meltfptr[28];;
28871                     /*epilog*/
28872
28873                     MELT_LOCATION("warmelt-normal.melt:2739:/ clear");
28874                     /*clear*/ /*_#IS_A__L10*/
28875                     meltfnum[1] = 0 ;
28876                     /*^clear*/
28877                     /*clear*/ /*_._IFELSE___V30*/
28878                     meltfptr[28] = 0 ;
28879                 }
28880                 ;
28881             }
28882         ;
28883
28884 #if MELT_HAVE_DEBUG
28885         MELT_LOCATION("warmelt-normal.melt:2748:/ cppif.then");
28886         /*^block*/
28887         /*anyblock*/
28888         {
28889
28890
28891             {
28892                 /*^locexp*/
28893                 /*melt_increment_dbgcounter*/
28894 #if MELT_HAVE_DEBUG
28895                 melt_dbgcounter++;
28896 #endif
28897                 ;
28898             }
28899             ;
28900
28901             MELT_CHECK_SIGNAL();
28902             ;
28903             /*_#MELT_NEED_DBG__L11*/
28904             meltfnum[1] =
28905                 /*MELT_NEED_DBG*/
28906 #if MELT_HAVE_DEBUG
28907                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
28908 #else
28909                 0 /* no melt_need_dbg */
28910 #endif /*MELT_HAVE_DEBUG*/
28911                 ;;
28912             MELT_LOCATION("warmelt-normal.melt:2748:/ cond");
28913             /*cond*/
28914             if (/*_#MELT_NEED_DBG__L11*/ meltfnum[1]) /*then*/
28915                 {
28916                     /*^cond.then*/
28917                     /*^block*/
28918                     /*anyblock*/
28919                     {
28920
28921                         /*_#MELT_CALLCOUNT__L12*/ meltfnum[11] =
28922                             /* for melt_callcount */
28923 #if MELT_HAVE_DEBUG && defined (meltcallcount)
28924                             meltcallcount  /* melt_callcount debugging */
28925 #else
28926                             0L  /* melt_callcount without debug */
28927 #endif /* MELT_HAVE_DEBUG melt_callcount */
28928                             ;;
28929
28930                         MELT_CHECK_SIGNAL();
28931                         ;
28932                         MELT_LOCATION("warmelt-normal.melt:2748:/ apply");
28933                         /*apply*/
28934                         {
28935                             union meltparam_un argtab[7];
28936                             memset(&argtab, 0, sizeof(argtab));
28937                             /*^apply.arg*/
28938                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L12*/ meltfnum[11];
28939                             /*^apply.arg*/
28940                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
28941                             /*^apply.arg*/
28942                             argtab[2].meltbp_long = 2748;
28943                             /*^apply.arg*/
28944                             argtab[3].meltbp_cstring =  "normexp_unbox unboxer=";
28945                             /*^apply.arg*/
28946                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.UNBOXER__V28*/ meltfptr[21];
28947                             /*^apply.arg*/
28948                             argtab[5].meltbp_cstring =  " cname=";
28949                             /*^apply.arg*/
28950                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CNAME__V21*/ meltfptr[20];
28951                             /*_.MELT_DEBUG_FUN__V37*/
28952                             meltfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
28953                         }
28954                         ;
28955                         /*_._IF___V36*/
28956                         meltfptr[30] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[32];;
28957                         /*epilog*/
28958
28959                         MELT_LOCATION("warmelt-normal.melt:2748:/ clear");
28960                         /*clear*/ /*_#MELT_CALLCOUNT__L12*/
28961                         meltfnum[11] = 0 ;
28962                         /*^clear*/
28963                         /*clear*/ /*_.MELT_DEBUG_FUN__V37*/
28964                         meltfptr[32] = 0 ;
28965                     }
28966                     ;
28967                 }
28968             else    /*^cond.else*/
28969                 {
28970
28971                     /*_._IF___V36*/ meltfptr[30] =  /*reallynil*/ NULL ;;
28972                 }
28973             ;
28974
28975             {
28976                 MELT_LOCATION("warmelt-normal.melt:2748:/ locexp");
28977                 /*void*/
28978                 (void)0;
28979             }
28980             ;
28981             /*^quasiblock*/
28982
28983
28984             /*epilog*/
28985
28986             /*^clear*/
28987             /*clear*/ /*_#MELT_NEED_DBG__L11*/
28988             meltfnum[1] = 0 ;
28989             /*^clear*/
28990             /*clear*/ /*_._IF___V36*/
28991             meltfptr[30] = 0 ;
28992         }
28993
28994 #else /*MELT_HAVE_DEBUG*/
28995         /*^cppif.else*/
28996         /*^block*/
28997         /*anyblock*/
28998         {
28999
29000
29001             {
29002                 /*^locexp*/
29003                 /*void*/(void)0;
29004             }
29005             ;
29006             /*epilog*/
29007         }
29008
29009 #endif /*MELT_HAVE_DEBUG*/
29010         ;
29011
29012         MELT_CHECK_SIGNAL();
29013         ;
29014         MELT_LOCATION("warmelt-normal.melt:2749:/ quasiblock");
29015
29016
29017         /*^multimsend*/
29018         /*multimsend*/
29019         {
29020             union meltparam_un argtab[3];
29021             union meltparam_un restab[1];
29022             memset(&argtab, 0, sizeof(argtab));
29023             memset(&restab, 0, sizeof(restab));
29024             /*^multimsend.arg*/
29025             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multimsend.arg*/
29026             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multimsend.arg*/
29027             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
29028             /*^multimsend.xres*/
29029             restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V40*/ meltfptr[28];/*^multimsend.send*/
29030             /*_.NEXP__V39*/
29031             meltfptr[34] =  meltgc_send ((melt_ptr_t)(/*_.SEXP__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
29032         }
29033         ;
29034         /*^quasiblock*/
29035
29036
29037
29038 #if MELT_HAVE_DEBUG
29039         MELT_LOCATION("warmelt-normal.melt:2752:/ cppif.then");
29040         /*^block*/
29041         /*anyblock*/
29042         {
29043
29044
29045             {
29046                 /*^locexp*/
29047                 /*melt_increment_dbgcounter*/
29048 #if MELT_HAVE_DEBUG
29049                 melt_dbgcounter++;
29050 #endif
29051                 ;
29052             }
29053             ;
29054
29055             MELT_CHECK_SIGNAL();
29056             ;
29057             /*_#MELT_NEED_DBG__L13*/
29058             meltfnum[11] =
29059                 /*MELT_NEED_DBG*/
29060 #if MELT_HAVE_DEBUG
29061                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
29062 #else
29063                 0 /* no melt_need_dbg */
29064 #endif /*MELT_HAVE_DEBUG*/
29065                 ;;
29066             MELT_LOCATION("warmelt-normal.melt:2752:/ cond");
29067             /*cond*/
29068             if (/*_#MELT_NEED_DBG__L13*/ meltfnum[11]) /*then*/
29069                 {
29070                     /*^cond.then*/
29071                     /*^block*/
29072                     /*anyblock*/
29073                     {
29074
29075                         /*_#MELT_CALLCOUNT__L14*/ meltfnum[1] =
29076                             /* for melt_callcount */
29077 #if MELT_HAVE_DEBUG && defined (meltcallcount)
29078                             meltcallcount  /* melt_callcount debugging */
29079 #else
29080                             0L  /* melt_callcount without debug */
29081 #endif /* MELT_HAVE_DEBUG melt_callcount */
29082                             ;;
29083
29084                         MELT_CHECK_SIGNAL();
29085                         ;
29086                         MELT_LOCATION("warmelt-normal.melt:2752:/ apply");
29087                         /*apply*/
29088                         {
29089                             union meltparam_un argtab[7];
29090                             memset(&argtab, 0, sizeof(argtab));
29091                             /*^apply.arg*/
29092                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L14*/ meltfnum[1];
29093                             /*^apply.arg*/
29094                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
29095                             /*^apply.arg*/
29096                             argtab[2].meltbp_long = 2752;
29097                             /*^apply.arg*/
29098                             argtab[3].meltbp_cstring =  "normexp_unbox nexp=";
29099                             /*^apply.arg*/
29100                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEXP__V39*/ meltfptr[34];
29101                             /*^apply.arg*/
29102                             argtab[5].meltbp_cstring =  " nbind=";
29103                             /*^apply.arg*/
29104                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V40*/ meltfptr[28];
29105                             /*_.MELT_DEBUG_FUN__V42*/
29106                             meltfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
29107                         }
29108                         ;
29109                         /*_._IF___V41*/
29110                         meltfptr[32] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[30];;
29111                         /*epilog*/
29112
29113                         MELT_LOCATION("warmelt-normal.melt:2752:/ clear");
29114                         /*clear*/ /*_#MELT_CALLCOUNT__L14*/
29115                         meltfnum[1] = 0 ;
29116                         /*^clear*/
29117                         /*clear*/ /*_.MELT_DEBUG_FUN__V42*/
29118                         meltfptr[30] = 0 ;
29119                     }
29120                     ;
29121                 }
29122             else    /*^cond.else*/
29123                 {
29124
29125                     /*_._IF___V41*/ meltfptr[32] =  /*reallynil*/ NULL ;;
29126                 }
29127             ;
29128
29129             {
29130                 MELT_LOCATION("warmelt-normal.melt:2752:/ locexp");
29131                 /*void*/
29132                 (void)0;
29133             }
29134             ;
29135             /*^quasiblock*/
29136
29137
29138             /*epilog*/
29139
29140             /*^clear*/
29141             /*clear*/ /*_#MELT_NEED_DBG__L13*/
29142             meltfnum[11] = 0 ;
29143             /*^clear*/
29144             /*clear*/ /*_._IF___V41*/
29145             meltfptr[32] = 0 ;
29146         }
29147
29148 #else /*MELT_HAVE_DEBUG*/
29149         /*^cppif.else*/
29150         /*^block*/
29151         /*anyblock*/
29152         {
29153
29154
29155             {
29156                 /*^locexp*/
29157                 /*void*/(void)0;
29158             }
29159             ;
29160             /*epilog*/
29161         }
29162
29163 #endif /*MELT_HAVE_DEBUG*/
29164         ;
29165
29166         MELT_CHECK_SIGNAL();
29167         ;
29168         /*_#IS_LIST__L15*/
29169         meltfnum[1] =
29170             (melt_magic_discr((melt_ptr_t)(/*_.NBIND__V40*/ meltfptr[28])) == MELTOBMAG_LIST);;
29171         /*^compute*/
29172         /*_#NOT__L16*/
29173         meltfnum[11] =
29174             (!(/*_#IS_LIST__L15*/ meltfnum[1]));;
29175         MELT_LOCATION("warmelt-normal.melt:2753:/ cond");
29176         /*cond*/
29177         if (/*_#NOT__L16*/ meltfnum[11]) /*then*/
29178             {
29179                 /*^cond.then*/
29180                 /*^block*/
29181                 /*anyblock*/
29182                 {
29183
29184                     MELT_LOCATION("warmelt-normal.melt:2754:/ blockmultialloc");
29185                     /*multiallocblock*/
29186                     {
29187                         struct meltletrec_1_st
29188                         {
29189                             struct meltlist_st rlist_0__LIST_;
29190                             long meltletrec_1_endgap;
29191                         } *meltletrec_1_ptr = 0;
29192                         meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0);
29193                         /*^blockmultialloc.initfill*/
29194                         /*inilist rlist_0__LIST_*/
29195                         /*_.LIST___V44*/
29196                         meltfptr[32] = (melt_ptr_t) &meltletrec_1_ptr->rlist_0__LIST_;
29197                         meltletrec_1_ptr->rlist_0__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST))));
29198
29199
29200
29201                         /*_.LIST___V43*/
29202                         meltfptr[30] = /*_.LIST___V44*/ meltfptr[32];;
29203                         /*epilog*/
29204
29205                         MELT_LOCATION("warmelt-normal.melt:2754:/ clear");
29206                         /*clear*/ /*_.LIST___V44*/
29207                         meltfptr[32] = 0 ;
29208                         /*^clear*/
29209                         /*clear*/ /*_.LIST___V44*/
29210                         meltfptr[32] = 0 ;
29211                     } /*end multiallocblock*/
29212                     ;
29213                     /*^compute*/
29214                     /*_.NBIND__V40*/
29215                     meltfptr[28] = /*_.SETQ___V45*/ meltfptr[32] = /*_.LIST___V43*/ meltfptr[30];;
29216
29217 #if MELT_HAVE_DEBUG
29218                     MELT_LOCATION("warmelt-normal.melt:2755:/ cppif.then");
29219                     /*^block*/
29220                     /*anyblock*/
29221                     {
29222
29223
29224                         {
29225                             /*^locexp*/
29226                             /*melt_increment_dbgcounter*/
29227 #if MELT_HAVE_DEBUG
29228                             melt_dbgcounter++;
29229 #endif
29230                             ;
29231                         }
29232                         ;
29233
29234                         MELT_CHECK_SIGNAL();
29235                         ;
29236                         /*_#MELT_NEED_DBG__L17*/
29237                         meltfnum[16] =
29238                             /*MELT_NEED_DBG*/
29239 #if MELT_HAVE_DEBUG
29240                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
29241 #else
29242                             0 /* no melt_need_dbg */
29243 #endif /*MELT_HAVE_DEBUG*/
29244                             ;;
29245                         MELT_LOCATION("warmelt-normal.melt:2755:/ cond");
29246                         /*cond*/
29247                         if (/*_#MELT_NEED_DBG__L17*/ meltfnum[16]) /*then*/
29248                             {
29249                                 /*^cond.then*/
29250                                 /*^block*/
29251                                 /*anyblock*/
29252                                 {
29253
29254                                     /*_#MELT_CALLCOUNT__L18*/ meltfnum[17] =
29255                                         /* for melt_callcount */
29256 #if MELT_HAVE_DEBUG && defined (meltcallcount)
29257                                         meltcallcount  /* melt_callcount debugging */
29258 #else
29259                                         0L  /* melt_callcount without debug */
29260 #endif /* MELT_HAVE_DEBUG melt_callcount */
29261                                         ;;
29262
29263                                     MELT_CHECK_SIGNAL();
29264                                     ;
29265                                     MELT_LOCATION("warmelt-normal.melt:2755:/ apply");
29266                                     /*apply*/
29267                                     {
29268                                         union meltparam_un argtab[5];
29269                                         memset(&argtab, 0, sizeof(argtab));
29270                                         /*^apply.arg*/
29271                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L18*/ meltfnum[17];
29272                                         /*^apply.arg*/
29273                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
29274                                         /*^apply.arg*/
29275                                         argtab[2].meltbp_long = 2755;
29276                                         /*^apply.arg*/
29277                                         argtab[3].meltbp_cstring =  "normexp_unbox set nbind=";
29278                                         /*^apply.arg*/
29279                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V40*/ meltfptr[28];
29280                                         /*_.MELT_DEBUG_FUN__V47*/
29281                                         meltfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
29282                                     }
29283                                     ;
29284                                     /*_._IF___V46*/
29285                                     meltfptr[45] = /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46];;
29286                                     /*epilog*/
29287
29288                                     MELT_LOCATION("warmelt-normal.melt:2755:/ clear");
29289                                     /*clear*/ /*_#MELT_CALLCOUNT__L18*/
29290                                     meltfnum[17] = 0 ;
29291                                     /*^clear*/
29292                                     /*clear*/ /*_.MELT_DEBUG_FUN__V47*/
29293                                     meltfptr[46] = 0 ;
29294                                 }
29295                                 ;
29296                             }
29297                         else    /*^cond.else*/
29298                             {
29299
29300                                 /*_._IF___V46*/ meltfptr[45] =  /*reallynil*/ NULL ;;
29301                             }
29302                         ;
29303
29304                         {
29305                             MELT_LOCATION("warmelt-normal.melt:2755:/ locexp");
29306                             /*void*/
29307                             (void)0;
29308                         }
29309                         ;
29310                         /*^quasiblock*/
29311
29312
29313                         /*epilog*/
29314
29315                         /*^clear*/
29316                         /*clear*/ /*_#MELT_NEED_DBG__L17*/
29317                         meltfnum[16] = 0 ;
29318                         /*^clear*/
29319                         /*clear*/ /*_._IF___V46*/
29320                         meltfptr[45] = 0 ;
29321                     }
29322
29323 #else /*MELT_HAVE_DEBUG*/
29324                     /*^cppif.else*/
29325                     /*^block*/
29326                     /*anyblock*/
29327                     {
29328
29329
29330                         {
29331                             /*^locexp*/
29332                             /*void*/(void)0;
29333                         }
29334                         ;
29335                         /*epilog*/
29336                     }
29337
29338 #endif /*MELT_HAVE_DEBUG*/
29339                     ;
29340                     MELT_LOCATION("warmelt-normal.melt:2753:/ quasiblock");
29341
29342
29343                     /*epilog*/
29344
29345                     /*^clear*/
29346                     /*clear*/ /*_.LIST___V43*/
29347                     meltfptr[30] = 0 ;
29348                     /*^clear*/
29349                     /*clear*/ /*_.SETQ___V45*/
29350                     meltfptr[32] = 0 ;
29351                 }
29352                 ;
29353             } /*noelse*/
29354         ;
29355         MELT_LOCATION("warmelt-normal.melt:2756:/ quasiblock");
29356
29357
29358
29359         MELT_CHECK_SIGNAL();
29360         ;
29361         MELT_LOCATION("warmelt-normal.melt:2757:/ apply");
29362         /*apply*/
29363         {
29364             /*_.CSYM__V49*/ meltfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[11])), (melt_ptr_t)((/*!konst_12_UNBOX*/ meltfrout->tabval[12])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
29365         }
29366         ;
29367
29368         MELT_CHECK_SIGNAL();
29369         ;
29370         /*_.CLONE_WITH_DISCRIMINANT__V50*/
29371         meltfptr[30] =
29372             meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_15*/ meltfrout->tabval[15])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[16]))) ;;
29373         /*^compute*/
29374         /*_.CLONE_WITH_DISCRIMINANT__V51*/
29375         meltfptr[32] =
29376             meltgc_clone_with_discriminant((melt_ptr_t)(/*_.UNBOXER__V28*/ meltfptr[21]), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[16]))) ;;
29377         /*^compute*/
29378         /*_.CLONE_WITH_DISCRIMINANT__V52*/
29379         meltfptr[51] =
29380             meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_17*/ meltfrout->tabval[17])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[16]))) ;;
29381         /*^compute*/
29382         /*_.CLONE_WITH_DISCRIMINANT__V53*/
29383         meltfptr[52] =
29384             meltgc_clone_with_discriminant((melt_ptr_t)((/*!konst_18*/ meltfrout->tabval[18])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[16]))) ;;
29385         MELT_LOCATION("warmelt-normal.melt:2764:/ blockmultialloc");
29386         /*multiallocblock*/
29387         {
29388             struct meltletrec_2_st
29389             {
29390                 struct MELT_MULTIPLE_STRUCT(5) rtup_0__TUPLREC__x9;
29391                 long meltletrec_2_endgap;
29392             } *meltletrec_2_ptr = 0;
29393             meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0);
29394             /*^blockmultialloc.initfill*/
29395             /*inimult rtup_0__TUPLREC__x9*/
29396             /*_.TUPLREC___V55*/
29397             meltfptr[54] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x9;
29398             meltletrec_2_ptr->rtup_0__TUPLREC__x9.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE))));
29399             meltletrec_2_ptr->rtup_0__TUPLREC__x9.nbval = 5;
29400
29401
29402             /*^putuple*/
29403             /*putupl#32*/
29404             melt_assertmsg("putupl [:2764] #32 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V55*/ meltfptr[54]))== MELTOBMAG_MULTIPLE);
29405             melt_assertmsg("putupl [:2764] #32 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V55*/ meltfptr[54]))));
29406             ((meltmultiple_ptr_t)(/*_.TUPLREC___V55*/ meltfptr[54]))->tabval[0] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V50*/ meltfptr[30]);
29407             ;
29408             /*^putuple*/
29409             /*putupl#33*/
29410             melt_assertmsg("putupl [:2764] #33 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V55*/ meltfptr[54]))== MELTOBMAG_MULTIPLE);
29411             melt_assertmsg("putupl [:2764] #33 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V55*/ meltfptr[54]))));
29412             ((meltmultiple_ptr_t)(/*_.TUPLREC___V55*/ meltfptr[54]))->tabval[1] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V51*/ meltfptr[32]);
29413             ;
29414             /*^putuple*/
29415             /*putupl#34*/
29416             melt_assertmsg("putupl [:2764] #34 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V55*/ meltfptr[54]))== MELTOBMAG_MULTIPLE);
29417             melt_assertmsg("putupl [:2764] #34 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V55*/ meltfptr[54]))));
29418             ((meltmultiple_ptr_t)(/*_.TUPLREC___V55*/ meltfptr[54]))->tabval[2] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V52*/ meltfptr[51]);
29419             ;
29420             /*^putuple*/
29421             /*putupl#35*/
29422             melt_assertmsg("putupl [:2764] #35 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V55*/ meltfptr[54]))== MELTOBMAG_MULTIPLE);
29423             melt_assertmsg("putupl [:2764] #35 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V55*/ meltfptr[54]))));
29424             ((meltmultiple_ptr_t)(/*_.TUPLREC___V55*/ meltfptr[54]))->tabval[3] = (melt_ptr_t)(/*_.NEXP__V39*/ meltfptr[34]);
29425             ;
29426             /*^putuple*/
29427             /*putupl#36*/
29428             melt_assertmsg("putupl [:2764] #36 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V55*/ meltfptr[54]))== MELTOBMAG_MULTIPLE);
29429             melt_assertmsg("putupl [:2764] #36 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V55*/ meltfptr[54]))));
29430             ((meltmultiple_ptr_t)(/*_.TUPLREC___V55*/ meltfptr[54]))->tabval[4] = (melt_ptr_t)(/*_.CLONE_WITH_DISCRIMINANT__V53*/ meltfptr[52]);
29431             ;
29432             /*^touch*/
29433             meltgc_touch(/*_.TUPLREC___V55*/ meltfptr[54]);
29434             ;
29435             /*_.TUPLE___V54*/
29436             meltfptr[53] = /*_.TUPLREC___V55*/ meltfptr[54];;
29437             /*epilog*/
29438
29439             MELT_LOCATION("warmelt-normal.melt:2764:/ clear");
29440             /*clear*/ /*_.TUPLREC___V55*/
29441             meltfptr[54] = 0 ;
29442             /*^clear*/
29443             /*clear*/ /*_.TUPLREC___V55*/
29444             meltfptr[54] = 0 ;
29445         } /*end multiallocblock*/
29446         ;
29447         MELT_LOCATION("warmelt-normal.melt:2759:/ quasiblock");
29448
29449
29450         /*^rawallocobj*/
29451         /*rawallocobj*/
29452         {
29453             melt_ptr_t newobj = 0;
29454             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ meltfrout->tabval[13])), (4), "CLASS_NREP_CHUNK");
29455             /*_.INST__V57*/
29456             meltfptr[56] =
29457                 newobj;
29458         };
29459         ;
29460         /*^putslot*/
29461         /*putslot*/
29462         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ meltfptr[56])) == MELTOBMAG_OBJECT);
29463         melt_putfield_object((/*_.INST__V57*/ meltfptr[56]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
29464         ;
29465         /*^putslot*/
29466         /*putslot*/
29467         melt_assertmsg("checkobj putslot  _ @NCHUNK_OPER", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ meltfptr[56])) == MELTOBMAG_OBJECT);
29468         melt_putfield_object((/*_.INST__V57*/ meltfptr[56]), (3), ((/*!konst_12_UNBOX*/ meltfrout->tabval[12])), "NCHUNK_OPER");
29469         ;
29470         /*^putslot*/
29471         /*putslot*/
29472         melt_assertmsg("checkobj putslot  _ @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ meltfptr[56])) == MELTOBMAG_OBJECT);
29473         melt_putfield_object((/*_.INST__V57*/ meltfptr[56]), (1), (/*_.CTYP__V20*/ meltfptr[19]), "NEXPR_CTYP");
29474         ;
29475         /*^putslot*/
29476         /*putslot*/
29477         melt_assertmsg("checkobj putslot  _ @NCHUNK_EXPANSION", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ meltfptr[56])) == MELTOBMAG_OBJECT);
29478         melt_putfield_object((/*_.INST__V57*/ meltfptr[56]), (2), (/*_.TUPLE___V54*/ meltfptr[53]), "NCHUNK_EXPANSION");
29479         ;
29480         /*^touchobj*/
29481
29482         melt_dbgtrace_written_object (/*_.INST__V57*/ meltfptr[56], "newly made instance");
29483         ;
29484         /*_.NCHUNK__V56*/
29485         meltfptr[54] = /*_.INST__V57*/ meltfptr[56];;
29486
29487         MELT_CHECK_SIGNAL();
29488         ;
29489         MELT_LOCATION("warmelt-normal.melt:2771:/ quasiblock");
29490
29491
29492         /*^rawallocobj*/
29493         /*rawallocobj*/
29494         {
29495             melt_ptr_t newobj = 0;
29496             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[19])), (4), "CLASS_NORMAL_LET_BINDING");
29497             /*_.INST__V59*/
29498             meltfptr[58] =
29499                 newobj;
29500         };
29501         ;
29502         /*^putslot*/
29503         /*putslot*/
29504         melt_assertmsg("checkobj putslot  _ @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ meltfptr[58])) == MELTOBMAG_OBJECT);
29505         melt_putfield_object((/*_.INST__V59*/ meltfptr[58]), (3), (/*_.SLOC__V18*/ meltfptr[5]), "LETBIND_LOC");
29506         ;
29507         /*^putslot*/
29508         /*putslot*/
29509         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ meltfptr[58])) == MELTOBMAG_OBJECT);
29510         melt_putfield_object((/*_.INST__V59*/ meltfptr[58]), (0), (/*_.CSYM__V49*/ meltfptr[45]), "BINDER");
29511         ;
29512         /*^putslot*/
29513         /*putslot*/
29514         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ meltfptr[58])) == MELTOBMAG_OBJECT);
29515         melt_putfield_object((/*_.INST__V59*/ meltfptr[58]), (1), (/*_.CTYP__V20*/ meltfptr[19]), "LETBIND_TYPE");
29516         ;
29517         /*^putslot*/
29518         /*putslot*/
29519         melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ meltfptr[58])) == MELTOBMAG_OBJECT);
29520         melt_putfield_object((/*_.INST__V59*/ meltfptr[58]), (2), (/*_.NCHUNK__V56*/ meltfptr[54]), "LETBIND_EXPR");
29521         ;
29522         /*^touchobj*/
29523
29524         melt_dbgtrace_written_object (/*_.INST__V59*/ meltfptr[58], "newly made instance");
29525         ;
29526         /*_.CBIND__V58*/
29527         meltfptr[57] = /*_.INST__V59*/ meltfptr[58];;
29528
29529         MELT_CHECK_SIGNAL();
29530         ;
29531         MELT_LOCATION("warmelt-normal.melt:2777:/ quasiblock");
29532
29533
29534         /*^rawallocobj*/
29535         /*rawallocobj*/
29536         {
29537             melt_ptr_t newobj = 0;
29538             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[20])), (4), "CLASS_NREP_LOCSYMOCC");
29539             /*_.INST__V61*/
29540             meltfptr[60] =
29541                 newobj;
29542         };
29543         ;
29544         /*^putslot*/
29545         /*putslot*/
29546         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[60])) == MELTOBMAG_OBJECT);
29547         melt_putfield_object((/*_.INST__V61*/ meltfptr[60]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
29548         ;
29549         /*^putslot*/
29550         /*putslot*/
29551         melt_assertmsg("checkobj putslot  _ @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[60])) == MELTOBMAG_OBJECT);
29552         melt_putfield_object((/*_.INST__V61*/ meltfptr[60]), (2), (/*_.CTYP__V20*/ meltfptr[19]), "NOCC_CTYP");
29553         ;
29554         /*^putslot*/
29555         /*putslot*/
29556         melt_assertmsg("checkobj putslot  _ @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[60])) == MELTOBMAG_OBJECT);
29557         melt_putfield_object((/*_.INST__V61*/ meltfptr[60]), (1), (/*_.CSYM__V49*/ meltfptr[45]), "NOCC_SYMB");
29558         ;
29559         /*^putslot*/
29560         /*putslot*/
29561         melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[60])) == MELTOBMAG_OBJECT);
29562         melt_putfield_object((/*_.INST__V61*/ meltfptr[60]), (3), (/*_.CBIND__V58*/ meltfptr[57]), "NOCC_BIND");
29563         ;
29564         /*^touchobj*/
29565
29566         melt_dbgtrace_written_object (/*_.INST__V61*/ meltfptr[60], "newly made instance");
29567         ;
29568         /*_.CLOCC__V60*/
29569         meltfptr[59] = /*_.INST__V61*/ meltfptr[60];;
29570
29571 #if MELT_HAVE_DEBUG
29572         MELT_LOCATION("warmelt-normal.melt:2783:/ cppif.then");
29573         /*^block*/
29574         /*anyblock*/
29575         {
29576
29577
29578             {
29579                 /*^locexp*/
29580                 /*melt_increment_dbgcounter*/
29581 #if MELT_HAVE_DEBUG
29582                 melt_dbgcounter++;
29583 #endif
29584                 ;
29585             }
29586             ;
29587
29588             MELT_CHECK_SIGNAL();
29589             ;
29590             /*_#MELT_NEED_DBG__L19*/
29591             meltfnum[17] =
29592                 /*MELT_NEED_DBG*/
29593 #if MELT_HAVE_DEBUG
29594                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
29595 #else
29596                 0 /* no melt_need_dbg */
29597 #endif /*MELT_HAVE_DEBUG*/
29598                 ;;
29599             MELT_LOCATION("warmelt-normal.melt:2783:/ cond");
29600             /*cond*/
29601             if (/*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then*/
29602                 {
29603                     /*^cond.then*/
29604                     /*^block*/
29605                     /*anyblock*/
29606                     {
29607
29608                         /*_#MELT_CALLCOUNT__L20*/ meltfnum[16] =
29609                             /* for melt_callcount */
29610 #if MELT_HAVE_DEBUG && defined (meltcallcount)
29611                             meltcallcount  /* melt_callcount debugging */
29612 #else
29613                             0L  /* melt_callcount without debug */
29614 #endif /* MELT_HAVE_DEBUG melt_callcount */
29615                             ;;
29616
29617                         MELT_CHECK_SIGNAL();
29618                         ;
29619                         MELT_LOCATION("warmelt-normal.melt:2783:/ apply");
29620                         /*apply*/
29621                         {
29622                             union meltparam_un argtab[7];
29623                             memset(&argtab, 0, sizeof(argtab));
29624                             /*^apply.arg*/
29625                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L20*/ meltfnum[16];
29626                             /*^apply.arg*/
29627                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
29628                             /*^apply.arg*/
29629                             argtab[2].meltbp_long = 2783;
29630                             /*^apply.arg*/
29631                             argtab[3].meltbp_cstring =  "normexp_unbox nchunk=";
29632                             /*^apply.arg*/
29633                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCHUNK__V56*/ meltfptr[54];
29634                             /*^apply.arg*/
29635                             argtab[5].meltbp_cstring =  " clocc=";
29636                             /*^apply.arg*/
29637                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V60*/ meltfptr[59];
29638                             /*_.MELT_DEBUG_FUN__V63*/
29639                             meltfptr[62] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
29640                         }
29641                         ;
29642                         /*_._IF___V62*/
29643                         meltfptr[61] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62];;
29644                         /*epilog*/
29645
29646                         MELT_LOCATION("warmelt-normal.melt:2783:/ clear");
29647                         /*clear*/ /*_#MELT_CALLCOUNT__L20*/
29648                         meltfnum[16] = 0 ;
29649                         /*^clear*/
29650                         /*clear*/ /*_.MELT_DEBUG_FUN__V63*/
29651                         meltfptr[62] = 0 ;
29652                     }
29653                     ;
29654                 }
29655             else    /*^cond.else*/
29656                 {
29657
29658                     /*_._IF___V62*/ meltfptr[61] =  /*reallynil*/ NULL ;;
29659                 }
29660             ;
29661
29662             {
29663                 MELT_LOCATION("warmelt-normal.melt:2783:/ locexp");
29664                 /*void*/
29665                 (void)0;
29666             }
29667             ;
29668             /*^quasiblock*/
29669
29670
29671             /*epilog*/
29672
29673             /*^clear*/
29674             /*clear*/ /*_#MELT_NEED_DBG__L19*/
29675             meltfnum[17] = 0 ;
29676             /*^clear*/
29677             /*clear*/ /*_._IF___V62*/
29678             meltfptr[61] = 0 ;
29679         }
29680
29681 #else /*MELT_HAVE_DEBUG*/
29682         /*^cppif.else*/
29683         /*^block*/
29684         /*anyblock*/
29685         {
29686
29687
29688             {
29689                 /*^locexp*/
29690                 /*void*/(void)0;
29691             }
29692             ;
29693             /*epilog*/
29694         }
29695
29696 #endif /*MELT_HAVE_DEBUG*/
29697         ;
29698
29699         {
29700             MELT_LOCATION("warmelt-normal.melt:2784:/ locexp");
29701             meltgc_append_list((melt_ptr_t)(/*_.NBIND__V40*/ meltfptr[28]), (melt_ptr_t)(/*_.CBIND__V58*/ meltfptr[57]));
29702         }
29703         ;
29704
29705 #if MELT_HAVE_DEBUG
29706         MELT_LOCATION("warmelt-normal.melt:2785:/ cppif.then");
29707         /*^block*/
29708         /*anyblock*/
29709         {
29710
29711
29712             {
29713                 /*^locexp*/
29714                 /*melt_increment_dbgcounter*/
29715 #if MELT_HAVE_DEBUG
29716                 melt_dbgcounter++;
29717 #endif
29718                 ;
29719             }
29720             ;
29721
29722             MELT_CHECK_SIGNAL();
29723             ;
29724             /*_#MELT_NEED_DBG__L21*/
29725             meltfnum[16] =
29726                 /*MELT_NEED_DBG*/
29727 #if MELT_HAVE_DEBUG
29728                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
29729 #else
29730                 0 /* no melt_need_dbg */
29731 #endif /*MELT_HAVE_DEBUG*/
29732                 ;;
29733             MELT_LOCATION("warmelt-normal.melt:2785:/ cond");
29734             /*cond*/
29735             if (/*_#MELT_NEED_DBG__L21*/ meltfnum[16]) /*then*/
29736                 {
29737                     /*^cond.then*/
29738                     /*^block*/
29739                     /*anyblock*/
29740                     {
29741
29742                         /*_#MELT_CALLCOUNT__L22*/ meltfnum[17] =
29743                             /* for melt_callcount */
29744 #if MELT_HAVE_DEBUG && defined (meltcallcount)
29745                             meltcallcount  /* melt_callcount debugging */
29746 #else
29747                             0L  /* melt_callcount without debug */
29748 #endif /* MELT_HAVE_DEBUG melt_callcount */
29749                             ;;
29750
29751                         MELT_CHECK_SIGNAL();
29752                         ;
29753                         MELT_LOCATION("warmelt-normal.melt:2785:/ apply");
29754                         /*apply*/
29755                         {
29756                             union meltparam_un argtab[7];
29757                             memset(&argtab, 0, sizeof(argtab));
29758                             /*^apply.arg*/
29759                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L22*/ meltfnum[17];
29760                             /*^apply.arg*/
29761                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
29762                             /*^apply.arg*/
29763                             argtab[2].meltbp_long = 2785;
29764                             /*^apply.arg*/
29765                             argtab[3].meltbp_cstring =  "normexp_unbox return clocc=";
29766                             /*^apply.arg*/
29767                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V60*/ meltfptr[59];
29768                             /*^apply.arg*/
29769                             argtab[5].meltbp_cstring =  " nbind=";
29770                             /*^apply.arg*/
29771                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V40*/ meltfptr[28];
29772                             /*_.MELT_DEBUG_FUN__V65*/
29773                             meltfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
29774                         }
29775                         ;
29776                         /*_._IF___V64*/
29777                         meltfptr[62] = /*_.MELT_DEBUG_FUN__V65*/ meltfptr[61];;
29778                         /*epilog*/
29779
29780                         MELT_LOCATION("warmelt-normal.melt:2785:/ clear");
29781                         /*clear*/ /*_#MELT_CALLCOUNT__L22*/
29782                         meltfnum[17] = 0 ;
29783                         /*^clear*/
29784                         /*clear*/ /*_.MELT_DEBUG_FUN__V65*/
29785                         meltfptr[61] = 0 ;
29786                     }
29787                     ;
29788                 }
29789             else    /*^cond.else*/
29790                 {
29791
29792                     /*_._IF___V64*/ meltfptr[62] =  /*reallynil*/ NULL ;;
29793                 }
29794             ;
29795
29796             {
29797                 MELT_LOCATION("warmelt-normal.melt:2785:/ locexp");
29798                 /*void*/
29799                 (void)0;
29800             }
29801             ;
29802             /*^quasiblock*/
29803
29804
29805             /*epilog*/
29806
29807             /*^clear*/
29808             /*clear*/ /*_#MELT_NEED_DBG__L21*/
29809             meltfnum[16] = 0 ;
29810             /*^clear*/
29811             /*clear*/ /*_._IF___V64*/
29812             meltfptr[62] = 0 ;
29813         }
29814
29815 #else /*MELT_HAVE_DEBUG*/
29816         /*^cppif.else*/
29817         /*^block*/
29818         /*anyblock*/
29819         {
29820
29821
29822             {
29823                 /*^locexp*/
29824                 /*void*/(void)0;
29825             }
29826             ;
29827             /*epilog*/
29828         }
29829
29830 #endif /*MELT_HAVE_DEBUG*/
29831         ;
29832
29833         MELT_CHECK_SIGNAL();
29834         ;
29835         MELT_LOCATION("warmelt-normal.melt:2786:/ quasiblock");
29836
29837
29838         /*_._RETVAL___V1*/
29839         meltfptr[0] = /*_.CLOCC__V60*/ meltfptr[59];;
29840         MELT_LOCATION("warmelt-normal.melt:2786:/ putxtraresult");
29841         if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
29842         if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
29843         if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.NBIND__V40*/ meltfptr[28]);
29844         ;
29845         /*^finalreturn*/
29846         ;
29847         /*finalret*/
29848         goto meltlabend_rout ;
29849         /*_.LET___V48*/
29850         meltfptr[46] = /*_.RETURN___V66*/ meltfptr[61];;
29851
29852         MELT_LOCATION("warmelt-normal.melt:2756:/ clear");
29853         /*clear*/ /*_.CSYM__V49*/
29854         meltfptr[45] = 0 ;
29855         /*^clear*/
29856         /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V50*/
29857         meltfptr[30] = 0 ;
29858         /*^clear*/
29859         /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V51*/
29860         meltfptr[32] = 0 ;
29861         /*^clear*/
29862         /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V52*/
29863         meltfptr[51] = 0 ;
29864         /*^clear*/
29865         /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V53*/
29866         meltfptr[52] = 0 ;
29867         /*^clear*/
29868         /*clear*/ /*_.TUPLE___V54*/
29869         meltfptr[53] = 0 ;
29870         /*^clear*/
29871         /*clear*/ /*_.NCHUNK__V56*/
29872         meltfptr[54] = 0 ;
29873         /*^clear*/
29874         /*clear*/ /*_.CBIND__V58*/
29875         meltfptr[57] = 0 ;
29876         /*^clear*/
29877         /*clear*/ /*_.CLOCC__V60*/
29878         meltfptr[59] = 0 ;
29879         /*^clear*/
29880         /*clear*/ /*_.RETURN___V66*/
29881         meltfptr[61] = 0 ;
29882
29883         MELT_CHECK_SIGNAL();
29884         ;
29885         /*_.MULTI___V38*/
29886         meltfptr[33] = /*_.LET___V48*/ meltfptr[46];;
29887
29888         MELT_LOCATION("warmelt-normal.melt:2749:/ clear");
29889         /*clear*/ /*_#IS_LIST__L15*/
29890         meltfnum[1] = 0 ;
29891         /*^clear*/
29892         /*clear*/ /*_#NOT__L16*/
29893         meltfnum[11] = 0 ;
29894         /*^clear*/
29895         /*clear*/ /*_.LET___V48*/
29896         meltfptr[46] = 0 ;
29897
29898         /*^clear*/
29899         /*clear*/ /*_.NBIND__V40*/
29900         meltfptr[28] = 0 ;
29901         /*_.LET___V27*/
29902         meltfptr[25] = /*_.MULTI___V38*/ meltfptr[33];;
29903
29904         MELT_LOCATION("warmelt-normal.melt:2738:/ clear");
29905         /*clear*/ /*_#IS_A__L9*/
29906         meltfnum[0] = 0 ;
29907         /*^clear*/
29908         /*clear*/ /*_.UNBOXER__V28*/
29909         meltfptr[21] = 0 ;
29910         /*^clear*/
29911         /*clear*/ /*_.MULTI___V38*/
29912         meltfptr[33] = 0 ;
29913         /*_.LET___V17*/
29914         meltfptr[15] = /*_.LET___V27*/ meltfptr[25];;
29915
29916         MELT_LOCATION("warmelt-normal.melt:2731:/ clear");
29917         /*clear*/ /*_.SLOC__V18*/
29918         meltfptr[5] = 0 ;
29919         /*^clear*/
29920         /*clear*/ /*_.SEXP__V19*/
29921         meltfptr[18] = 0 ;
29922         /*^clear*/
29923         /*clear*/ /*_.CTYP__V20*/
29924         meltfptr[19] = 0 ;
29925         /*^clear*/
29926         /*clear*/ /*_.CNAME__V21*/
29927         meltfptr[20] = 0 ;
29928         /*^clear*/
29929         /*clear*/ /*_.IFCPP___V24*/
29930         meltfptr[22] = 0 ;
29931         /*^clear*/
29932         /*clear*/ /*_.LET___V27*/
29933         meltfptr[25] = 0 ;
29934
29935         MELT_CHECK_SIGNAL();
29936         ;
29937         MELT_LOCATION("warmelt-normal.melt:2726:/ quasiblock");
29938
29939
29940         /*_._RETVAL___V1*/
29941         meltfptr[0] = /*_.LET___V17*/ meltfptr[15];;
29942
29943         {
29944             MELT_LOCATION("warmelt-normal.melt:2726:/ locexp");
29945             /*ochecknores compilobj_nrep_return*/
29946 #if MELT_HAVE_DEBUG
29947             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
29948                 melt_warn_for_no_expected_secondary_results();
29949             /* we warned when secondary results are expected but not returned. */
29950 #endif /*MELT_HAVE_DEBUG*/
29951             ;
29952         }
29953         ;
29954         /*^finalreturn*/
29955         ;
29956         /*finalret*/
29957         goto meltlabend_rout ;
29958         /*epilog*/
29959
29960         /*^clear*/
29961         /*clear*/ /*_.IFCPP___V8*/
29962         meltfptr[6] = 0 ;
29963         /*^clear*/
29964         /*clear*/ /*_.IFCPP___V11*/
29965         meltfptr[9] = 0 ;
29966         /*^clear*/
29967         /*clear*/ /*_.IFCPP___V14*/
29968         meltfptr[12] = 0 ;
29969         /*^clear*/
29970         /*clear*/ /*_.LET___V17*/
29971         meltfptr[15] = 0 ;
29972     }
29973
29974     ;
29975     goto meltlabend_rout;
29976 meltlabend_rout:
29977     melt_trace_end("NORMEXP_UNBOX", meltcallcount);
29978     melt_blocklevel_signals = current_blocklevel_signals_meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX_melt;
29979     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
29980 #undef meltcallcount
29981 #undef meltfram__
29982 #undef MELTFRAM_NBVARNUM
29983 #undef MELTFRAM_NBVARPTR
29984 } /*end meltrout_40_WARMELTmiNORMAL_NORMEXP_UNBOX*/
29985
29986
29987
29988
29989
29990
29991 melt_ptr_t MELT_MODULE_VISIBILITY
29992 meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
29993         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
29994 {
29995     long current_blocklevel_signals_meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK_melt =  melt_blocklevel_signals;
29996
29997 #if MELT_HAVE_DEBUG
29998     static long melt_call_counter__;
29999     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
30000 #undef meltcallcount
30001 #define meltcallcount melt_thiscallcounter__
30002 #else
30003 #undef meltcallcount
30004 #define meltcallcount 0L
30005 #endif
30006 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
30007
30008     /* start of frame for routine meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK fromline 1752 */
30009
30010     /** start of frame for meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK of CLASS_PROCROUTINEOBJ from 1555**/
30011
30012     /*curframdeclclassy*/ class MeltFrame_meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK// fromline 1568
30013         : public Melt_CallFrameWithValues<62>
30014     {
30015     public: /* fromline 1572*/
30016         long mcfr_varnum[17];
30017         /*classy others*/
30018         long _meltsparel;
30019         void melt_mark_stuff (void)
30020         {
30021         } /*end melt_mark_stuff*/
30022         virtual void melt_mark_ggc_data (void)
30023         {
30024             melt_mark_values ();
30025             melt_mark_stuff ();
30026         }; /*end melt_mark_ggc_data*/
30027         MeltFrame_meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK(meltclosure_ptr_t clos) //the closure constructor fromline 1630
30028             : Melt_CallFrameWithValues<62> (
30029 #if ENABLE_CHECKING /*fromline 1634*/
30030                 __FILE__, __LINE__,
30031 #endif /* ENABLE_CHECKING fromline 1638*/
30032                 sizeof(MeltFrame_meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK), clos) {};
30033         MeltFrame_meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK() //the constructor fromline 1642
30034             : Melt_CallFrameWithValues<62> (
30035 #if ENABLE_CHECKING /*fromline 1646*/
30036                 __FILE__, __LINE__,
30037 #endif /* ENABLE_CHECKING fromline 1650*/
30038                 sizeof(MeltFrame_meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK)) {};
30039 #if ENABLE_CHECKING /*fromline 1654*/
30040         MeltFrame_meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK(const char*fil, int lin) //the constructor fromline 1656
30041             : Melt_CallFrameWithValues<62> (fil,lin, sizeof(MeltFrame_meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK)) {};
30042         MeltFrame_meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
30043             : Melt_CallFrameWithValues<62> (fil,lin, sizeof(MeltFrame_meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK), clos) {};
30044 #endif /* ENABLE_CHECKING fromline 1666*/
30045
30046     }; // end  class MeltFrame_meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK
30047
30048
30049     /** end of frame for meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK fromline 1697**/
30050
30051     /* end of frame for routine meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK fromline 1756 */
30052
30053     /* classy proc frame meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK */
30054     MeltFrame_meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK
30055     meltfram__ /*declfrastruct fromline 1780*/
30056     /*classyprocarg meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK fromline 1785*/
30057 #if ENABLE_CHECKING
30058     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
30059 #else /*ENABLE_CHECKING */
30060     (meltclosp_) /* fromline 1793*/
30061 #endif /*ENABLE_CHECKING */
30062
30063     ;
30064 #define meltframe meltfram__
30065
30066     melt_trace_start("NORMEXP_CODE_CHUNK", meltcallcount);
30067     /*use arguments*/
30068     (void) meltclosp_;
30069     (void)meltfirstargp_;
30070     (void)meltxargdescr_;
30071     (void)meltxargtab_;
30072     (void)meltxresdescr_;
30073     (void)meltxrestab_;
30074     /*getargs*/
30075
30076     /*getarg#0*/
30077     MELT_LOCATION("warmelt-normal.melt:2793:/ getarg");
30078     /*_.RECV__V2*/
30079     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
30080
30081     /*getarg#1*/
30082     /*^getarg*/
30083     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
30084     /*_.ENV__V3*/
30085     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
30086     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
30087
30088
30089     /*getarg#2*/
30090     /*^getarg*/
30091     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
30092     /*_.NCX__V4*/
30093     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
30094     gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL);
30095
30096
30097     /*getarg#3*/
30098     /*^getarg*/
30099     if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
30100     /*_.PSLOC__V5*/
30101     meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
30102     gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL);
30103
30104     ;
30105     goto meltlab_endgetargs;
30106 meltlab_endgetargs:
30107     ;
30108     /*body*/
30109     /*^block*/
30110     /*anyblock*/
30111     {
30112
30113
30114 #if MELT_HAVE_DEBUG
30115         MELT_LOCATION("warmelt-normal.melt:2794:/ cppif.then");
30116         /*^block*/
30117         /*anyblock*/
30118         {
30119
30120
30121             {
30122                 /*^locexp*/
30123                 /*melt_increment_dbgcounter*/
30124 #if MELT_HAVE_DEBUG
30125                 melt_dbgcounter++;
30126 #endif
30127                 ;
30128             }
30129             ;
30130
30131             MELT_CHECK_SIGNAL();
30132             ;
30133             /*_#MELT_NEED_DBG__L1*/
30134             meltfnum[0] =
30135                 /*MELT_NEED_DBG*/
30136 #if MELT_HAVE_DEBUG
30137                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
30138 #else
30139                 0 /* no melt_need_dbg */
30140 #endif /*MELT_HAVE_DEBUG*/
30141                 ;;
30142             MELT_LOCATION("warmelt-normal.melt:2794:/ cond");
30143             /*cond*/
30144             if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
30145                 {
30146                     /*^cond.then*/
30147                     /*^block*/
30148                     /*anyblock*/
30149                     {
30150
30151                         /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
30152                             /* for melt_callcount */
30153 #if MELT_HAVE_DEBUG && defined (meltcallcount)
30154                             meltcallcount  /* melt_callcount debugging */
30155 #else
30156                             0L  /* melt_callcount without debug */
30157 #endif /* MELT_HAVE_DEBUG melt_callcount */
30158                             ;;
30159
30160                         MELT_CHECK_SIGNAL();
30161                         ;
30162                         MELT_LOCATION("warmelt-normal.melt:2794:/ apply");
30163                         /*apply*/
30164                         {
30165                             union meltparam_un argtab[5];
30166                             memset(&argtab, 0, sizeof(argtab));
30167                             /*^apply.arg*/
30168                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
30169                             /*^apply.arg*/
30170                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
30171                             /*^apply.arg*/
30172                             argtab[2].meltbp_long = 2794;
30173                             /*^apply.arg*/
30174                             argtab[3].meltbp_cstring =  "normexp_code_chunk recv=";
30175                             /*^apply.arg*/
30176                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
30177                             /*_.MELT_DEBUG_FUN__V7*/
30178                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
30179                         }
30180                         ;
30181                         /*_._IF___V6*/
30182                         meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];;
30183                         /*epilog*/
30184
30185                         MELT_LOCATION("warmelt-normal.melt:2794:/ clear");
30186                         /*clear*/ /*_#MELT_CALLCOUNT__L2*/
30187                         meltfnum[1] = 0 ;
30188                         /*^clear*/
30189                         /*clear*/ /*_.MELT_DEBUG_FUN__V7*/
30190                         meltfptr[6] = 0 ;
30191                     }
30192                     ;
30193                 }
30194             else    /*^cond.else*/
30195                 {
30196
30197                     /*_._IF___V6*/ meltfptr[5] =  /*reallynil*/ NULL ;;
30198                 }
30199             ;
30200
30201             {
30202                 MELT_LOCATION("warmelt-normal.melt:2794:/ locexp");
30203                 /*void*/
30204                 (void)0;
30205             }
30206             ;
30207             /*^quasiblock*/
30208
30209
30210             /*epilog*/
30211
30212             /*^clear*/
30213             /*clear*/ /*_#MELT_NEED_DBG__L1*/
30214             meltfnum[0] = 0 ;
30215             /*^clear*/
30216             /*clear*/ /*_._IF___V6*/
30217             meltfptr[5] = 0 ;
30218         }
30219
30220 #else /*MELT_HAVE_DEBUG*/
30221         /*^cppif.else*/
30222         /*^block*/
30223         /*anyblock*/
30224         {
30225
30226
30227             {
30228                 /*^locexp*/
30229                 /*void*/(void)0;
30230             }
30231             ;
30232             /*epilog*/
30233         }
30234
30235 #endif /*MELT_HAVE_DEBUG*/
30236         ;
30237
30238 #if MELT_HAVE_DEBUG
30239         MELT_LOCATION("warmelt-normal.melt:2795:/ cppif.then");
30240         /*^block*/
30241         /*anyblock*/
30242         {
30243
30244
30245             MELT_CHECK_SIGNAL();
30246             ;
30247             /*_#IS_A__L3*/
30248             meltfnum[1] =
30249                 melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_CODECHUNK*/ meltfrout->tabval[1])));;
30250             MELT_LOCATION("warmelt-normal.melt:2795:/ cond");
30251             /*cond*/
30252             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
30253                 {
30254                     /*^cond.then*/
30255                     /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);;
30256                 }
30257             else
30258                 {
30259                     MELT_LOCATION("warmelt-normal.melt:2795:/ cond.else");
30260
30261                     /*^block*/
30262                     /*anyblock*/
30263                     {
30264
30265
30266                         MELT_CHECK_SIGNAL();
30267                         ;
30268                         /*^apply*/
30269                         /*apply*/
30270                         {
30271                             union meltparam_un argtab[4];
30272                             memset(&argtab, 0, sizeof(argtab));
30273                             /*^apply.arg*/
30274                             argtab[0].meltbp_cstring =  "check code_chunk recv";
30275                             /*^apply.arg*/
30276                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
30277                             /*^apply.arg*/
30278                             argtab[2].meltbp_long = 2795;
30279                             /*^apply.arg*/
30280                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
30281                             /*_.MELT_ASSERT_FAILURE_FUN__V10*/
30282                             meltfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
30283                         }
30284                         ;
30285                         /*_._IFELSE___V9*/
30286                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];;
30287                         /*epilog*/
30288
30289                         MELT_LOCATION("warmelt-normal.melt:2795:/ clear");
30290                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/
30291                         meltfptr[9] = 0 ;
30292                     }
30293                     ;
30294                 }
30295             ;
30296             /*_.IFCPP___V8*/
30297             meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];;
30298             /*epilog*/
30299
30300             MELT_LOCATION("warmelt-normal.melt:2795:/ clear");
30301             /*clear*/ /*_#IS_A__L3*/
30302             meltfnum[1] = 0 ;
30303             /*^clear*/
30304             /*clear*/ /*_._IFELSE___V9*/
30305             meltfptr[5] = 0 ;
30306         }
30307
30308 #else /*MELT_HAVE_DEBUG*/
30309         /*^cppif.else*/
30310         /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL);
30311 #endif /*MELT_HAVE_DEBUG*/
30312         ;
30313
30314 #if MELT_HAVE_DEBUG
30315         MELT_LOCATION("warmelt-normal.melt:2796:/ cppif.then");
30316         /*^block*/
30317         /*anyblock*/
30318         {
30319
30320
30321             MELT_CHECK_SIGNAL();
30322             ;
30323             /*_#IS_A__L4*/
30324             meltfnum[0] =
30325                 melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));;
30326             MELT_LOCATION("warmelt-normal.melt:2796:/ cond");
30327             /*cond*/
30328             if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/
30329                 {
30330                     /*^cond.then*/
30331                     /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);;
30332                 }
30333             else
30334                 {
30335                     MELT_LOCATION("warmelt-normal.melt:2796:/ cond.else");
30336
30337                     /*^block*/
30338                     /*anyblock*/
30339                     {
30340
30341
30342                         MELT_CHECK_SIGNAL();
30343                         ;
30344                         /*^apply*/
30345                         /*apply*/
30346                         {
30347                             union meltparam_un argtab[4];
30348                             memset(&argtab, 0, sizeof(argtab));
30349                             /*^apply.arg*/
30350                             argtab[0].meltbp_cstring =  "check env";
30351                             /*^apply.arg*/
30352                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
30353                             /*^apply.arg*/
30354                             argtab[2].meltbp_long = 2796;
30355                             /*^apply.arg*/
30356                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
30357                             /*_.MELT_ASSERT_FAILURE_FUN__V13*/
30358                             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
30359                         }
30360                         ;
30361                         /*_._IFELSE___V12*/
30362                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];;
30363                         /*epilog*/
30364
30365                         MELT_LOCATION("warmelt-normal.melt:2796:/ clear");
30366                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/
30367                         meltfptr[12] = 0 ;
30368                     }
30369                     ;
30370                 }
30371             ;
30372             /*_.IFCPP___V11*/
30373             meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];;
30374             /*epilog*/
30375
30376             MELT_LOCATION("warmelt-normal.melt:2796:/ clear");
30377             /*clear*/ /*_#IS_A__L4*/
30378             meltfnum[0] = 0 ;
30379             /*^clear*/
30380             /*clear*/ /*_._IFELSE___V12*/
30381             meltfptr[5] = 0 ;
30382         }
30383
30384 #else /*MELT_HAVE_DEBUG*/
30385         /*^cppif.else*/
30386         /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL);
30387 #endif /*MELT_HAVE_DEBUG*/
30388         ;
30389
30390 #if MELT_HAVE_DEBUG
30391         MELT_LOCATION("warmelt-normal.melt:2797:/ cppif.then");
30392         /*^block*/
30393         /*anyblock*/
30394         {
30395
30396
30397             MELT_CHECK_SIGNAL();
30398             ;
30399             /*_#IS_A__L5*/
30400             meltfnum[1] =
30401                 melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));;
30402             MELT_LOCATION("warmelt-normal.melt:2797:/ cond");
30403             /*cond*/
30404             if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/
30405                 {
30406                     /*^cond.then*/
30407                     /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);;
30408                 }
30409             else
30410                 {
30411                     MELT_LOCATION("warmelt-normal.melt:2797:/ cond.else");
30412
30413                     /*^block*/
30414                     /*anyblock*/
30415                     {
30416
30417
30418                         MELT_CHECK_SIGNAL();
30419                         ;
30420                         /*^apply*/
30421                         /*apply*/
30422                         {
30423                             union meltparam_un argtab[4];
30424                             memset(&argtab, 0, sizeof(argtab));
30425                             /*^apply.arg*/
30426                             argtab[0].meltbp_cstring =  "check nctxt";
30427                             /*^apply.arg*/
30428                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
30429                             /*^apply.arg*/
30430                             argtab[2].meltbp_long = 2797;
30431                             /*^apply.arg*/
30432                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
30433                             /*_.MELT_ASSERT_FAILURE_FUN__V16*/
30434                             meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
30435                         }
30436                         ;
30437                         /*_._IFELSE___V15*/
30438                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];;
30439                         /*epilog*/
30440
30441                         MELT_LOCATION("warmelt-normal.melt:2797:/ clear");
30442                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/
30443                         meltfptr[15] = 0 ;
30444                     }
30445                     ;
30446                 }
30447             ;
30448             /*_.IFCPP___V14*/
30449             meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];;
30450             /*epilog*/
30451
30452             MELT_LOCATION("warmelt-normal.melt:2797:/ clear");
30453             /*clear*/ /*_#IS_A__L5*/
30454             meltfnum[1] = 0 ;
30455             /*^clear*/
30456             /*clear*/ /*_._IFELSE___V15*/
30457             meltfptr[5] = 0 ;
30458         }
30459
30460 #else /*MELT_HAVE_DEBUG*/
30461         /*^cppif.else*/
30462         /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL);
30463 #endif /*MELT_HAVE_DEBUG*/
30464         ;
30465         MELT_LOCATION("warmelt-normal.melt:2798:/ quasiblock");
30466
30467
30468         /*^getslot*/
30469         {
30470             melt_ptr_t slot=NULL, obj=NULL;
30471             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
30472             melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
30473             /*_.SLOC__V18*/
30474             meltfptr[5] = slot;
30475         };
30476         ;
30477         MELT_LOCATION("warmelt-normal.melt:2799:/ getslot");
30478         {
30479             melt_ptr_t slot=NULL, obj=NULL;
30480             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
30481             melt_object_get_field(slot,obj, 3, "SCH_CHUNKS");
30482             /*_.SCHK__V19*/
30483             meltfptr[18] = slot;
30484         };
30485         ;
30486         MELT_LOCATION("warmelt-normal.melt:2800:/ getslot");
30487         {
30488             melt_ptr_t slot=NULL, obj=NULL;
30489             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
30490             melt_object_get_field(slot,obj, 2, "SCH_GENSYM");
30491             /*_.GSYM__V20*/
30492             meltfptr[19] = slot;
30493         };
30494         ;
30495
30496         MELT_CHECK_SIGNAL();
30497         ;
30498         MELT_LOCATION("warmelt-normal.melt:2801:/ apply");
30499         /*apply*/
30500         {
30501             /*_.CSYM__V21*/ meltfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.GSYM__V20*/ meltfptr[19]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
30502         }
30503         ;
30504         /*_.BINDLIST__V22*/
30505         meltfptr[21] =
30506             (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[6]))));;
30507
30508         MELT_CHECK_SIGNAL();
30509         ;
30510         MELT_LOCATION("warmelt-normal.melt:2803:/ apply");
30511         /*apply*/
30512         {
30513             /*_.NEWENV__V23*/ meltfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
30514         }
30515         ;
30516         MELT_LOCATION("warmelt-normal.melt:2805:/ quasiblock");
30517
30518
30519         /*_.SBUF__V25*/
30520         meltfptr[24] =
30521             (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[8])), (const char*)0);;
30522         MELT_LOCATION("warmelt-normal.melt:2806:/ cond");
30523         /*cond*/
30524         if (
30525             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CSYM__V21*/ meltfptr[20]),
30526                                           (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[9])))
30527         ) /*then*/
30528             {
30529                 /*^cond.then*/
30530                 /*^getslot*/
30531                 {
30532                     melt_ptr_t slot=NULL, obj=NULL;
30533                     obj = (melt_ptr_t)(/*_.CSYM__V21*/ meltfptr[20]) /*=obj*/;
30534                     melt_object_get_field(slot,obj, 1, "NAMED_NAME");
30535                     /*_.NAMED_NAME__V26*/
30536                     meltfptr[25] = slot;
30537                 };
30538                 ;
30539             }
30540         else    /*^cond.else*/
30541             {
30542
30543                 /*_.NAMED_NAME__V26*/ meltfptr[25] =  /*reallynil*/ NULL ;;
30544             }
30545         ;
30546
30547         {
30548             MELT_LOCATION("warmelt-normal.melt:2806:/ locexp");
30549             meltgc_add_strbuf_cident((melt_ptr_t)(/*_.SBUF__V25*/ meltfptr[24]),
30550                                      melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V26*/ meltfptr[25])));
30551         }
30552         ;
30553
30554         {
30555             MELT_LOCATION("warmelt-normal.melt:2807:/ locexp");
30556             /*add2sbuf_strconst*/
30557             meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V25*/ meltfptr[24]), ( "__"));
30558         }
30559         ;
30560         MELT_LOCATION("warmelt-normal.melt:2808:/ cond");
30561         /*cond*/
30562         if (
30563             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CSYM__V21*/ meltfptr[20]),
30564                                           (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[10])))
30565         ) /*then*/
30566             {
30567                 /*^cond.then*/
30568                 /*^getslot*/
30569                 {
30570                     melt_ptr_t slot=NULL, obj=NULL;
30571                     obj = (melt_ptr_t)(/*_.CSYM__V21*/ meltfptr[20]) /*=obj*/;
30572                     melt_object_get_field(slot,obj, 3, "CSYM_URANK");
30573                     /*_.CSYM_URANK__V27*/
30574                     meltfptr[26] = slot;
30575                 };
30576                 ;
30577             }
30578         else    /*^cond.else*/
30579             {
30580
30581                 /*_.CSYM_URANK__V27*/ meltfptr[26] =  /*reallynil*/ NULL ;;
30582             }
30583         ;
30584         /*^compute*/
30585         /*_#GET_INT__L6*/
30586         meltfnum[0] =
30587             (melt_get_int((melt_ptr_t)(/*_.CSYM_URANK__V27*/ meltfptr[26])));;
30588
30589         {
30590             MELT_LOCATION("warmelt-normal.melt:2808:/ locexp");
30591             meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V25*/ meltfptr[24]), (/*_#GET_INT__L6*/ meltfnum[0]));
30592         }
30593         ;
30594         /*_.STRBUF2STRING__V28*/
30595         meltfptr[27] =
30596             (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[11])), melt_strbuf_str((melt_ptr_t)(/*_.SBUF__V25*/ meltfptr[24]))));;
30597         /*^compute*/
30598         /*_.LET___V24*/
30599         meltfptr[23] = /*_.STRBUF2STRING__V28*/ meltfptr[27];;
30600
30601         MELT_LOCATION("warmelt-normal.melt:2805:/ clear");
30602         /*clear*/ /*_.SBUF__V25*/
30603         meltfptr[24] = 0 ;
30604         /*^clear*/
30605         /*clear*/ /*_.NAMED_NAME__V26*/
30606         meltfptr[25] = 0 ;
30607         /*^clear*/
30608         /*clear*/ /*_.CSYM_URANK__V27*/
30609         meltfptr[26] = 0 ;
30610         /*^clear*/
30611         /*clear*/ /*_#GET_INT__L6*/
30612         meltfnum[0] = 0 ;
30613         /*^clear*/
30614         /*clear*/ /*_.STRBUF2STRING__V28*/
30615         meltfptr[27] = 0 ;
30616         /*_.CSYMSTR__V29*/
30617         meltfptr[24] = /*_.LET___V24*/ meltfptr[23];;
30618         MELT_LOCATION("warmelt-normal.melt:2811:/ quasiblock");
30619
30620
30621
30622         MELT_CHECK_SIGNAL();
30623         ;
30624         /*^quasiblock*/
30625
30626
30627         /*^rawallocobj*/
30628         /*rawallocobj*/
30629         {
30630             melt_ptr_t newobj = 0;
30631             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_MAGIC_BINDING*/ meltfrout->tabval[12])), (2), "CLASS_NORMAL_MAGIC_BINDING");
30632             /*_.INST__V32*/
30633             meltfptr[27] =
30634                 newobj;
30635         };
30636         ;
30637         /*^putslot*/
30638         /*putslot*/
30639         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ meltfptr[27])) == MELTOBMAG_OBJECT);
30640         melt_putfield_object((/*_.INST__V32*/ meltfptr[27]), (0), (/*_.GSYM__V20*/ meltfptr[19]), "BINDER");
30641         ;
30642         /*^putslot*/
30643         /*putslot*/
30644         melt_assertmsg("checkobj putslot  _ @NMAGIC_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ meltfptr[27])) == MELTOBMAG_OBJECT);
30645         melt_putfield_object((/*_.INST__V32*/ meltfptr[27]), (1), (/*_.CSYMSTR__V29*/ meltfptr[24]), "NMAGIC_VALUE");
30646         ;
30647         /*^touchobj*/
30648
30649         melt_dbgtrace_written_object (/*_.INST__V32*/ meltfptr[27], "newly made instance");
30650         ;
30651         /*_.MB__V31*/
30652         meltfptr[26] = /*_.INST__V32*/ meltfptr[27];;
30653
30654         MELT_CHECK_SIGNAL();
30655         ;
30656         MELT_LOCATION("warmelt-normal.melt:2815:/ apply");
30657         /*apply*/
30658         {
30659             union meltparam_un argtab[1];
30660             memset(&argtab, 0, sizeof(argtab));
30661             /*^apply.arg*/
30662             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MB__V31*/ meltfptr[26];
30663             /*_.PUT_ENV__V33*/
30664             meltfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.NEWENV__V23*/ meltfptr[22]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
30665         }
30666         ;
30667
30668 #if MELT_HAVE_DEBUG
30669         MELT_LOCATION("warmelt-normal.melt:2816:/ cppif.then");
30670         /*^block*/
30671         /*anyblock*/
30672         {
30673
30674
30675             {
30676                 /*^locexp*/
30677                 /*melt_increment_dbgcounter*/
30678 #if MELT_HAVE_DEBUG
30679                 melt_dbgcounter++;
30680 #endif
30681                 ;
30682             }
30683             ;
30684
30685             MELT_CHECK_SIGNAL();
30686             ;
30687             /*_#MELT_NEED_DBG__L7*/
30688             meltfnum[1] =
30689                 /*MELT_NEED_DBG*/
30690 #if MELT_HAVE_DEBUG
30691                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
30692 #else
30693                 0 /* no melt_need_dbg */
30694 #endif /*MELT_HAVE_DEBUG*/
30695                 ;;
30696             MELT_LOCATION("warmelt-normal.melt:2816:/ cond");
30697             /*cond*/
30698             if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/
30699                 {
30700                     /*^cond.then*/
30701                     /*^block*/
30702                     /*anyblock*/
30703                     {
30704
30705                         /*_#MELT_CALLCOUNT__L8*/ meltfnum[0] =
30706                             /* for melt_callcount */
30707 #if MELT_HAVE_DEBUG && defined (meltcallcount)
30708                             meltcallcount  /* melt_callcount debugging */
30709 #else
30710                             0L  /* melt_callcount without debug */
30711 #endif /* MELT_HAVE_DEBUG melt_callcount */
30712                             ;;
30713
30714                         MELT_CHECK_SIGNAL();
30715                         ;
30716                         MELT_LOCATION("warmelt-normal.melt:2816:/ apply");
30717                         /*apply*/
30718                         {
30719                             union meltparam_un argtab[5];
30720                             memset(&argtab, 0, sizeof(argtab));
30721                             /*^apply.arg*/
30722                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[0];
30723                             /*^apply.arg*/
30724                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
30725                             /*^apply.arg*/
30726                             argtab[2].meltbp_long = 2816;
30727                             /*^apply.arg*/
30728                             argtab[3].meltbp_cstring =  "normexp_code_chunk magicbind=";
30729                             /*^apply.arg*/
30730                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MB__V31*/ meltfptr[26];
30731                             /*_.MELT_DEBUG_FUN__V35*/
30732                             meltfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
30733                         }
30734                         ;
30735                         /*_._IF___V34*/
30736                         meltfptr[33] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];;
30737                         /*epilog*/
30738
30739                         MELT_LOCATION("warmelt-normal.melt:2816:/ clear");
30740                         /*clear*/ /*_#MELT_CALLCOUNT__L8*/
30741                         meltfnum[0] = 0 ;
30742                         /*^clear*/
30743                         /*clear*/ /*_.MELT_DEBUG_FUN__V35*/
30744                         meltfptr[34] = 0 ;
30745                     }
30746                     ;
30747                 }
30748             else    /*^cond.else*/
30749                 {
30750
30751                     /*_._IF___V34*/ meltfptr[33] =  /*reallynil*/ NULL ;;
30752                 }
30753             ;
30754
30755             {
30756                 MELT_LOCATION("warmelt-normal.melt:2816:/ locexp");
30757                 /*void*/
30758                 (void)0;
30759             }
30760             ;
30761             /*^quasiblock*/
30762
30763
30764             /*epilog*/
30765
30766             /*^clear*/
30767             /*clear*/ /*_#MELT_NEED_DBG__L7*/
30768             meltfnum[1] = 0 ;
30769             /*^clear*/
30770             /*clear*/ /*_._IF___V34*/
30771             meltfptr[33] = 0 ;
30772         }
30773
30774 #else /*MELT_HAVE_DEBUG*/
30775         /*^cppif.else*/
30776         /*^block*/
30777         /*anyblock*/
30778         {
30779
30780
30781             {
30782                 /*^locexp*/
30783                 /*void*/(void)0;
30784             }
30785             ;
30786             /*epilog*/
30787         }
30788
30789 #endif /*MELT_HAVE_DEBUG*/
30790         ;
30791         /*_.LET___V30*/
30792         meltfptr[25] = /*_.MB__V31*/ meltfptr[26];;
30793
30794         MELT_LOCATION("warmelt-normal.melt:2811:/ clear");
30795         /*clear*/ /*_.MB__V31*/
30796         meltfptr[26] = 0 ;
30797         /*^clear*/
30798         /*clear*/ /*_.PUT_ENV__V33*/
30799         meltfptr[32] = 0 ;
30800         /*_.MAGICBIND__V36*/
30801         meltfptr[34] = /*_.LET___V30*/ meltfptr[25];;
30802         MELT_LOCATION("warmelt-normal.melt:2818:/ quasiblock");
30803
30804
30805         MELT_LOCATION("warmelt-normal.melt:2821:/ quasiblock");
30806
30807
30808         /*^newclosure*/
30809         /*newclosure*/ /*_.LAMBDA___V39*/
30810         meltfptr[32] =
30811             (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_26*/ meltfrout->tabval[26])), (3));
30812         ;
30813         /*^putclosedv*/
30814         /*putclosv*/
30815         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V39*/ meltfptr[32])) == MELTOBMAG_CLOSURE);
30816         melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V39*/ meltfptr[32])));
30817         ((meltclosure_ptr_t)/*_.LAMBDA___V39*/ meltfptr[32])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V23*/ meltfptr[22]);
30818         ;
30819         /*^putclosedv*/
30820         /*putclosv*/
30821         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V39*/ meltfptr[32])) == MELTOBMAG_CLOSURE);
30822         melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V39*/ meltfptr[32])));
30823         ((meltclosure_ptr_t)/*_.LAMBDA___V39*/ meltfptr[32])->tabval[1] = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]);
30824         ;
30825         /*^putclosedv*/
30826         /*putclosv*/
30827         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V39*/ meltfptr[32])) == MELTOBMAG_CLOSURE);
30828         melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V39*/ meltfptr[32])));
30829         ((meltclosure_ptr_t)/*_.LAMBDA___V39*/ meltfptr[32])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]);
30830         ;
30831         /*_.LAMBDA___V38*/
30832         meltfptr[26] = /*_.LAMBDA___V39*/ meltfptr[32];;
30833
30834         MELT_CHECK_SIGNAL();
30835         ;
30836         MELT_LOCATION("warmelt-normal.melt:2819:/ apply");
30837         /*apply*/
30838         {
30839             union meltparam_un argtab[1];
30840             memset(&argtab, 0, sizeof(argtab));
30841             /*^apply.arg*/
30842             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V38*/ meltfptr[26];
30843             /*_.NC__V40*/
30844             meltfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SCHK__V19*/ meltfptr[18]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
30845         }
30846         ;
30847
30848 #if MELT_HAVE_DEBUG
30849         MELT_LOCATION("warmelt-normal.melt:2848:/ cppif.then");
30850         /*^block*/
30851         /*anyblock*/
30852         {
30853
30854
30855             {
30856                 /*^locexp*/
30857                 /*melt_increment_dbgcounter*/
30858 #if MELT_HAVE_DEBUG
30859                 melt_dbgcounter++;
30860 #endif
30861                 ;
30862             }
30863             ;
30864
30865             MELT_CHECK_SIGNAL();
30866             ;
30867             /*_#MELT_NEED_DBG__L9*/
30868             meltfnum[0] =
30869                 /*MELT_NEED_DBG*/
30870 #if MELT_HAVE_DEBUG
30871                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
30872 #else
30873                 0 /* no melt_need_dbg */
30874 #endif /*MELT_HAVE_DEBUG*/
30875                 ;;
30876             MELT_LOCATION("warmelt-normal.melt:2848:/ cond");
30877             /*cond*/
30878             if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/
30879                 {
30880                     /*^cond.then*/
30881                     /*^block*/
30882                     /*anyblock*/
30883                     {
30884
30885                         /*_#MELT_CALLCOUNT__L10*/ meltfnum[1] =
30886                             /* for melt_callcount */
30887 #if MELT_HAVE_DEBUG && defined (meltcallcount)
30888                             meltcallcount  /* melt_callcount debugging */
30889 #else
30890                             0L  /* melt_callcount without debug */
30891 #endif /* MELT_HAVE_DEBUG melt_callcount */
30892                             ;;
30893
30894                         MELT_CHECK_SIGNAL();
30895                         ;
30896                         MELT_LOCATION("warmelt-normal.melt:2848:/ apply");
30897                         /*apply*/
30898                         {
30899                             union meltparam_un argtab[5];
30900                             memset(&argtab, 0, sizeof(argtab));
30901                             /*^apply.arg*/
30902                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L10*/ meltfnum[1];
30903                             /*^apply.arg*/
30904                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
30905                             /*^apply.arg*/
30906                             argtab[2].meltbp_long = 2848;
30907                             /*^apply.arg*/
30908                             argtab[3].meltbp_cstring =  "normexp_code_chunk nchk=";
30909                             /*^apply.arg*/
30910                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NC__V40*/ meltfptr[39];
30911                             /*_.MELT_DEBUG_FUN__V42*/
30912                             meltfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
30913                         }
30914                         ;
30915                         /*_._IF___V41*/
30916                         meltfptr[40] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41];;
30917                         /*epilog*/
30918
30919                         MELT_LOCATION("warmelt-normal.melt:2848:/ clear");
30920                         /*clear*/ /*_#MELT_CALLCOUNT__L10*/
30921                         meltfnum[1] = 0 ;
30922                         /*^clear*/
30923                         /*clear*/ /*_.MELT_DEBUG_FUN__V42*/
30924                         meltfptr[41] = 0 ;
30925                     }
30926                     ;
30927                 }
30928             else    /*^cond.else*/
30929                 {
30930
30931                     /*_._IF___V41*/ meltfptr[40] =  /*reallynil*/ NULL ;;
30932                 }
30933             ;
30934
30935             {
30936                 MELT_LOCATION("warmelt-normal.melt:2848:/ locexp");
30937                 /*void*/
30938                 (void)0;
30939             }
30940             ;
30941             /*^quasiblock*/
30942
30943
30944             /*epilog*/
30945
30946             /*^clear*/
30947             /*clear*/ /*_#MELT_NEED_DBG__L9*/
30948             meltfnum[0] = 0 ;
30949             /*^clear*/
30950             /*clear*/ /*_._IF___V41*/
30951             meltfptr[40] = 0 ;
30952         }
30953
30954 #else /*MELT_HAVE_DEBUG*/
30955         /*^cppif.else*/
30956         /*^block*/
30957         /*anyblock*/
30958         {
30959
30960
30961             {
30962                 /*^locexp*/
30963                 /*void*/(void)0;
30964             }
30965             ;
30966             /*epilog*/
30967         }
30968
30969 #endif /*MELT_HAVE_DEBUG*/
30970         ;
30971         /*_.LET___V37*/
30972         meltfptr[33] = /*_.NC__V40*/ meltfptr[39];;
30973
30974         MELT_LOCATION("warmelt-normal.melt:2818:/ clear");
30975         /*clear*/ /*_.LAMBDA___V38*/
30976         meltfptr[26] = 0 ;
30977         /*^clear*/
30978         /*clear*/ /*_.NC__V40*/
30979         meltfptr[39] = 0 ;
30980         /*_.NCHK__V43*/
30981         meltfptr[41] = /*_.LET___V37*/ meltfptr[33];;
30982
30983         MELT_CHECK_SIGNAL();
30984         ;
30985
30986         MELT_CHECK_SIGNAL();
30987         ;
30988         MELT_LOCATION("warmelt-normal.melt:2855:/ quasiblock");
30989
30990
30991         /*^rawallocobj*/
30992         /*rawallocobj*/
30993         {
30994             melt_ptr_t newobj = 0;
30995             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ meltfrout->tabval[29])), (4), "CLASS_NREP_CHUNK");
30996             /*_.INST__V45*/
30997             meltfptr[26] =
30998                 newobj;
30999         };
31000         ;
31001         /*^putslot*/
31002         /*putslot*/
31003         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ meltfptr[26])) == MELTOBMAG_OBJECT);
31004         melt_putfield_object((/*_.INST__V45*/ meltfptr[26]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
31005         ;
31006         /*^putslot*/
31007         /*putslot*/
31008         melt_assertmsg("checkobj putslot  _ @NCHUNK_EXPANSION", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ meltfptr[26])) == MELTOBMAG_OBJECT);
31009         melt_putfield_object((/*_.INST__V45*/ meltfptr[26]), (2), (/*_.NCHK__V43*/ meltfptr[41]), "NCHUNK_EXPANSION");
31010         ;
31011         /*^putslot*/
31012         /*putslot*/
31013         melt_assertmsg("checkobj putslot  _ @NCHUNK_OPER", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ meltfptr[26])) == MELTOBMAG_OBJECT);
31014         melt_putfield_object((/*_.INST__V45*/ meltfptr[26]), (3), (/*_.CSYM__V21*/ meltfptr[20]), "NCHUNK_OPER");
31015         ;
31016         /*^putslot*/
31017         /*putslot*/
31018         melt_assertmsg("checkobj putslot  _ @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ meltfptr[26])) == MELTOBMAG_OBJECT);
31019         melt_putfield_object((/*_.INST__V45*/ meltfptr[26]), (1), ((/*!CTYPE_VOID*/ meltfrout->tabval[28])), "NEXPR_CTYP");
31020         ;
31021         /*^touchobj*/
31022
31023         melt_dbgtrace_written_object (/*_.INST__V45*/ meltfptr[26], "newly made instance");
31024         ;
31025         /*_.INST___V44*/
31026         meltfptr[40] = /*_.INST__V45*/ meltfptr[26];;
31027         MELT_LOCATION("warmelt-normal.melt:2850:/ quasiblock");
31028
31029
31030         /*^rawallocobj*/
31031         /*rawallocobj*/
31032         {
31033             melt_ptr_t newobj = 0;
31034             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[27])), (4), "CLASS_NORMAL_LET_BINDING");
31035             /*_.INST__V47*/
31036             meltfptr[46] =
31037                 newobj;
31038         };
31039         ;
31040         /*^putslot*/
31041         /*putslot*/
31042         melt_assertmsg("checkobj putslot  _ @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ meltfptr[46])) == MELTOBMAG_OBJECT);
31043         melt_putfield_object((/*_.INST__V47*/ meltfptr[46]), (3), (/*_.SLOC__V18*/ meltfptr[5]), "LETBIND_LOC");
31044         ;
31045         /*^putslot*/
31046         /*putslot*/
31047         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ meltfptr[46])) == MELTOBMAG_OBJECT);
31048         melt_putfield_object((/*_.INST__V47*/ meltfptr[46]), (0), (/*_.CSYM__V21*/ meltfptr[20]), "BINDER");
31049         ;
31050         /*^putslot*/
31051         /*putslot*/
31052         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ meltfptr[46])) == MELTOBMAG_OBJECT);
31053         melt_putfield_object((/*_.INST__V47*/ meltfptr[46]), (1), ((/*!CTYPE_VOID*/ meltfrout->tabval[28])), "LETBIND_TYPE");
31054         ;
31055         /*^putslot*/
31056         /*putslot*/
31057         melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ meltfptr[46])) == MELTOBMAG_OBJECT);
31058         melt_putfield_object((/*_.INST__V47*/ meltfptr[46]), (2), (/*_.INST___V44*/ meltfptr[40]), "LETBIND_EXPR");
31059         ;
31060         /*^touchobj*/
31061
31062         melt_dbgtrace_written_object (/*_.INST__V47*/ meltfptr[46], "newly made instance");
31063         ;
31064         /*_.CBIND__V46*/
31065         meltfptr[39] = /*_.INST__V47*/ meltfptr[46];;
31066
31067         MELT_CHECK_SIGNAL();
31068         ;
31069         MELT_LOCATION("warmelt-normal.melt:2861:/ quasiblock");
31070
31071
31072         /*^rawallocobj*/
31073         /*rawallocobj*/
31074         {
31075             melt_ptr_t newobj = 0;
31076             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[30])), (4), "CLASS_NREP_LOCSYMOCC");
31077             /*_.INST__V49*/
31078             meltfptr[48] =
31079                 newobj;
31080         };
31081         ;
31082         /*^putslot*/
31083         /*putslot*/
31084         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ meltfptr[48])) == MELTOBMAG_OBJECT);
31085         melt_putfield_object((/*_.INST__V49*/ meltfptr[48]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
31086         ;
31087         /*^putslot*/
31088         /*putslot*/
31089         melt_assertmsg("checkobj putslot  _ @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ meltfptr[48])) == MELTOBMAG_OBJECT);
31090         melt_putfield_object((/*_.INST__V49*/ meltfptr[48]), (2), ((/*!CTYPE_VOID*/ meltfrout->tabval[28])), "NOCC_CTYP");
31091         ;
31092         /*^putslot*/
31093         /*putslot*/
31094         melt_assertmsg("checkobj putslot  _ @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ meltfptr[48])) == MELTOBMAG_OBJECT);
31095         melt_putfield_object((/*_.INST__V49*/ meltfptr[48]), (1), (/*_.CSYM__V21*/ meltfptr[20]), "NOCC_SYMB");
31096         ;
31097         /*^putslot*/
31098         /*putslot*/
31099         melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ meltfptr[48])) == MELTOBMAG_OBJECT);
31100         melt_putfield_object((/*_.INST__V49*/ meltfptr[48]), (3), (/*_.CBIND__V46*/ meltfptr[39]), "NOCC_BIND");
31101         ;
31102         /*^touchobj*/
31103
31104         melt_dbgtrace_written_object (/*_.INST__V49*/ meltfptr[48], "newly made instance");
31105         ;
31106         /*_.CLOCC__V48*/
31107         meltfptr[47] = /*_.INST__V49*/ meltfptr[48];;
31108
31109 #if MELT_HAVE_DEBUG
31110         MELT_LOCATION("warmelt-normal.melt:2867:/ cppif.then");
31111         /*^block*/
31112         /*anyblock*/
31113         {
31114
31115
31116             {
31117                 /*^locexp*/
31118                 /*melt_increment_dbgcounter*/
31119 #if MELT_HAVE_DEBUG
31120                 melt_dbgcounter++;
31121 #endif
31122                 ;
31123             }
31124             ;
31125
31126             MELT_CHECK_SIGNAL();
31127             ;
31128             /*_#MELT_NEED_DBG__L11*/
31129             meltfnum[1] =
31130                 /*MELT_NEED_DBG*/
31131 #if MELT_HAVE_DEBUG
31132                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
31133 #else
31134                 0 /* no melt_need_dbg */
31135 #endif /*MELT_HAVE_DEBUG*/
31136                 ;;
31137             MELT_LOCATION("warmelt-normal.melt:2867:/ cond");
31138             /*cond*/
31139             if (/*_#MELT_NEED_DBG__L11*/ meltfnum[1]) /*then*/
31140                 {
31141                     /*^cond.then*/
31142                     /*^block*/
31143                     /*anyblock*/
31144                     {
31145
31146                         /*_#MELT_CALLCOUNT__L12*/ meltfnum[0] =
31147                             /* for melt_callcount */
31148 #if MELT_HAVE_DEBUG && defined (meltcallcount)
31149                             meltcallcount  /* melt_callcount debugging */
31150 #else
31151                             0L  /* melt_callcount without debug */
31152 #endif /* MELT_HAVE_DEBUG melt_callcount */
31153                             ;;
31154
31155                         MELT_CHECK_SIGNAL();
31156                         ;
31157                         MELT_LOCATION("warmelt-normal.melt:2867:/ apply");
31158                         /*apply*/
31159                         {
31160                             union meltparam_un argtab[7];
31161                             memset(&argtab, 0, sizeof(argtab));
31162                             /*^apply.arg*/
31163                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L12*/ meltfnum[0];
31164                             /*^apply.arg*/
31165                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
31166                             /*^apply.arg*/
31167                             argtab[2].meltbp_long = 2867;
31168                             /*^apply.arg*/
31169                             argtab[3].meltbp_cstring =  "normexp_code_chunk schk=";
31170                             /*^apply.arg*/
31171                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SCHK__V19*/ meltfptr[18];
31172                             /*^apply.arg*/
31173                             argtab[5].meltbp_cstring =  "\n.. nchk=";
31174                             /*^apply.arg*/
31175                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NCHK__V43*/ meltfptr[41];
31176                             /*_.MELT_DEBUG_FUN__V51*/
31177                             meltfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
31178                         }
31179                         ;
31180                         /*_._IF___V50*/
31181                         meltfptr[49] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];;
31182                         /*epilog*/
31183
31184                         MELT_LOCATION("warmelt-normal.melt:2867:/ clear");
31185                         /*clear*/ /*_#MELT_CALLCOUNT__L12*/
31186                         meltfnum[0] = 0 ;
31187                         /*^clear*/
31188                         /*clear*/ /*_.MELT_DEBUG_FUN__V51*/
31189                         meltfptr[50] = 0 ;
31190                     }
31191                     ;
31192                 }
31193             else    /*^cond.else*/
31194                 {
31195
31196                     /*_._IF___V50*/ meltfptr[49] =  /*reallynil*/ NULL ;;
31197                 }
31198             ;
31199
31200             {
31201                 MELT_LOCATION("warmelt-normal.melt:2867:/ locexp");
31202                 /*void*/
31203                 (void)0;
31204             }
31205             ;
31206             /*^quasiblock*/
31207
31208
31209             /*epilog*/
31210
31211             /*^clear*/
31212             /*clear*/ /*_#MELT_NEED_DBG__L11*/
31213             meltfnum[1] = 0 ;
31214             /*^clear*/
31215             /*clear*/ /*_._IF___V50*/
31216             meltfptr[49] = 0 ;
31217         }
31218
31219 #else /*MELT_HAVE_DEBUG*/
31220         /*^cppif.else*/
31221         /*^block*/
31222         /*anyblock*/
31223         {
31224
31225
31226             {
31227                 /*^locexp*/
31228                 /*void*/(void)0;
31229             }
31230             ;
31231             /*epilog*/
31232         }
31233
31234 #endif /*MELT_HAVE_DEBUG*/
31235         ;
31236
31237 #if MELT_HAVE_DEBUG
31238         MELT_LOCATION("warmelt-normal.melt:2868:/ cppif.then");
31239         /*^block*/
31240         /*anyblock*/
31241         {
31242
31243
31244             {
31245                 /*^locexp*/
31246                 /*melt_increment_dbgcounter*/
31247 #if MELT_HAVE_DEBUG
31248                 melt_dbgcounter++;
31249 #endif
31250                 ;
31251             }
31252             ;
31253
31254             MELT_CHECK_SIGNAL();
31255             ;
31256             /*_#MELT_NEED_DBG__L13*/
31257             meltfnum[0] =
31258                 /*MELT_NEED_DBG*/
31259 #if MELT_HAVE_DEBUG
31260                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
31261 #else
31262                 0 /* no melt_need_dbg */
31263 #endif /*MELT_HAVE_DEBUG*/
31264                 ;;
31265             MELT_LOCATION("warmelt-normal.melt:2868:/ cond");
31266             /*cond*/
31267             if (/*_#MELT_NEED_DBG__L13*/ meltfnum[0]) /*then*/
31268                 {
31269                     /*^cond.then*/
31270                     /*^block*/
31271                     /*anyblock*/
31272                     {
31273
31274                         /*_#MELT_CALLCOUNT__L14*/ meltfnum[1] =
31275                             /* for melt_callcount */
31276 #if MELT_HAVE_DEBUG && defined (meltcallcount)
31277                             meltcallcount  /* melt_callcount debugging */
31278 #else
31279                             0L  /* melt_callcount without debug */
31280 #endif /* MELT_HAVE_DEBUG melt_callcount */
31281                             ;;
31282
31283                         MELT_CHECK_SIGNAL();
31284                         ;
31285                         MELT_LOCATION("warmelt-normal.melt:2868:/ apply");
31286                         /*apply*/
31287                         {
31288                             union meltparam_un argtab[5];
31289                             memset(&argtab, 0, sizeof(argtab));
31290                             /*^apply.arg*/
31291                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L14*/ meltfnum[1];
31292                             /*^apply.arg*/
31293                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
31294                             /*^apply.arg*/
31295                             argtab[2].meltbp_long = 2868;
31296                             /*^apply.arg*/
31297                             argtab[3].meltbp_cstring =  "normexp_code_chunk clocc=";
31298                             /*^apply.arg*/
31299                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V48*/ meltfptr[47];
31300                             /*_.MELT_DEBUG_FUN__V53*/
31301                             meltfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
31302                         }
31303                         ;
31304                         /*_._IF___V52*/
31305                         meltfptr[50] = /*_.MELT_DEBUG_FUN__V53*/ meltfptr[49];;
31306                         /*epilog*/
31307
31308                         MELT_LOCATION("warmelt-normal.melt:2868:/ clear");
31309                         /*clear*/ /*_#MELT_CALLCOUNT__L14*/
31310                         meltfnum[1] = 0 ;
31311                         /*^clear*/
31312                         /*clear*/ /*_.MELT_DEBUG_FUN__V53*/
31313                         meltfptr[49] = 0 ;
31314                     }
31315                     ;
31316                 }
31317             else    /*^cond.else*/
31318                 {
31319
31320                     /*_._IF___V52*/ meltfptr[50] =  /*reallynil*/ NULL ;;
31321                 }
31322             ;
31323
31324             {
31325                 MELT_LOCATION("warmelt-normal.melt:2868:/ locexp");
31326                 /*void*/
31327                 (void)0;
31328             }
31329             ;
31330             /*^quasiblock*/
31331
31332
31333             /*epilog*/
31334
31335             /*^clear*/
31336             /*clear*/ /*_#MELT_NEED_DBG__L13*/
31337             meltfnum[0] = 0 ;
31338             /*^clear*/
31339             /*clear*/ /*_._IF___V52*/
31340             meltfptr[50] = 0 ;
31341         }
31342
31343 #else /*MELT_HAVE_DEBUG*/
31344         /*^cppif.else*/
31345         /*^block*/
31346         /*anyblock*/
31347         {
31348
31349
31350             {
31351                 /*^locexp*/
31352                 /*void*/(void)0;
31353             }
31354             ;
31355             /*epilog*/
31356         }
31357
31358 #endif /*MELT_HAVE_DEBUG*/
31359         ;
31360
31361 #if MELT_HAVE_DEBUG
31362         MELT_LOCATION("warmelt-normal.melt:2869:/ cppif.then");
31363         /*^block*/
31364         /*anyblock*/
31365         {
31366
31367
31368             MELT_CHECK_SIGNAL();
31369             ;
31370             /*_#IS_MULTIPLE__L15*/
31371             meltfnum[1] =
31372                 (melt_magic_discr((melt_ptr_t)(/*_.NCHK__V43*/ meltfptr[41])) == MELTOBMAG_MULTIPLE);;
31373             MELT_LOCATION("warmelt-normal.melt:2869:/ cond");
31374             /*cond*/
31375             if (/*_#IS_MULTIPLE__L15*/ meltfnum[1]) /*then*/
31376                 {
31377                     /*^cond.then*/
31378                     /*_._IFELSE___V55*/ meltfptr[50] = (/*nil*/NULL);;
31379                 }
31380             else
31381                 {
31382                     MELT_LOCATION("warmelt-normal.melt:2869:/ cond.else");
31383
31384                     /*^block*/
31385                     /*anyblock*/
31386                     {
31387
31388
31389                         MELT_CHECK_SIGNAL();
31390                         ;
31391                         /*^apply*/
31392                         /*apply*/
31393                         {
31394                             union meltparam_un argtab[4];
31395                             memset(&argtab, 0, sizeof(argtab));
31396                             /*^apply.arg*/
31397                             argtab[0].meltbp_cstring =  "check nchk";
31398                             /*^apply.arg*/
31399                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
31400                             /*^apply.arg*/
31401                             argtab[2].meltbp_long = 2869;
31402                             /*^apply.arg*/
31403                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCHK__V43*/ meltfptr[41];
31404                             /*_.MELT_ASSERT_FAILURE_FUN__V56*/
31405                             meltfptr[55] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
31406                         }
31407                         ;
31408                         /*_._IFELSE___V55*/
31409                         meltfptr[50] = /*_.MELT_ASSERT_FAILURE_FUN__V56*/ meltfptr[55];;
31410                         /*epilog*/
31411
31412                         MELT_LOCATION("warmelt-normal.melt:2869:/ clear");
31413                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V56*/
31414                         meltfptr[55] = 0 ;
31415                     }
31416                     ;
31417                 }
31418             ;
31419             /*_.IFCPP___V54*/
31420             meltfptr[49] = /*_._IFELSE___V55*/ meltfptr[50];;
31421             /*epilog*/
31422
31423             MELT_LOCATION("warmelt-normal.melt:2869:/ clear");
31424             /*clear*/ /*_#IS_MULTIPLE__L15*/
31425             meltfnum[1] = 0 ;
31426             /*^clear*/
31427             /*clear*/ /*_._IFELSE___V55*/
31428             meltfptr[50] = 0 ;
31429         }
31430
31431 #else /*MELT_HAVE_DEBUG*/
31432         /*^cppif.else*/
31433         /*_.IFCPP___V54*/ meltfptr[49] = (/*nil*/NULL);
31434 #endif /*MELT_HAVE_DEBUG*/
31435         ;
31436
31437 #if MELT_HAVE_DEBUG
31438         MELT_LOCATION("warmelt-normal.melt:2870:/ cppif.then");
31439         /*^block*/
31440         /*anyblock*/
31441         {
31442
31443
31444             {
31445                 /*^locexp*/
31446                 /*melt_increment_dbgcounter*/
31447 #if MELT_HAVE_DEBUG
31448                 melt_dbgcounter++;
31449 #endif
31450                 ;
31451             }
31452             ;
31453
31454             MELT_CHECK_SIGNAL();
31455             ;
31456             /*_#MELT_NEED_DBG__L16*/
31457             meltfnum[0] =
31458                 /*MELT_NEED_DBG*/
31459 #if MELT_HAVE_DEBUG
31460                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
31461 #else
31462                 0 /* no melt_need_dbg */
31463 #endif /*MELT_HAVE_DEBUG*/
31464                 ;;
31465             MELT_LOCATION("warmelt-normal.melt:2870:/ cond");
31466             /*cond*/
31467             if (/*_#MELT_NEED_DBG__L16*/ meltfnum[0]) /*then*/
31468                 {
31469                     /*^cond.then*/
31470                     /*^block*/
31471                     /*anyblock*/
31472                     {
31473
31474                         /*_#MELT_CALLCOUNT__L17*/ meltfnum[1] =
31475                             /* for melt_callcount */
31476 #if MELT_HAVE_DEBUG && defined (meltcallcount)
31477                             meltcallcount  /* melt_callcount debugging */
31478 #else
31479                             0L  /* melt_callcount without debug */
31480 #endif /* MELT_HAVE_DEBUG melt_callcount */
31481                             ;;
31482
31483                         MELT_CHECK_SIGNAL();
31484                         ;
31485                         MELT_LOCATION("warmelt-normal.melt:2870:/ apply");
31486                         /*apply*/
31487                         {
31488                             union meltparam_un argtab[7];
31489                             memset(&argtab, 0, sizeof(argtab));
31490                             /*^apply.arg*/
31491                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L17*/ meltfnum[1];
31492                             /*^apply.arg*/
31493                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
31494                             /*^apply.arg*/
31495                             argtab[2].meltbp_long = 2870;
31496                             /*^apply.arg*/
31497                             argtab[3].meltbp_cstring =  "normexp_code_chunk return clocc=";
31498                             /*^apply.arg*/
31499                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V48*/ meltfptr[47];
31500                             /*^apply.arg*/
31501                             argtab[5].meltbp_cstring =  " cbind=";
31502                             /*^apply.arg*/
31503                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CBIND__V46*/ meltfptr[39];
31504                             /*_.MELT_DEBUG_FUN__V58*/
31505                             meltfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
31506                         }
31507                         ;
31508                         /*_._IF___V57*/
31509                         meltfptr[55] = /*_.MELT_DEBUG_FUN__V58*/ meltfptr[50];;
31510                         /*epilog*/
31511
31512                         MELT_LOCATION("warmelt-normal.melt:2870:/ clear");
31513                         /*clear*/ /*_#MELT_CALLCOUNT__L17*/
31514                         meltfnum[1] = 0 ;
31515                         /*^clear*/
31516                         /*clear*/ /*_.MELT_DEBUG_FUN__V58*/
31517                         meltfptr[50] = 0 ;
31518                     }
31519                     ;
31520                 }
31521             else    /*^cond.else*/
31522                 {
31523
31524                     /*_._IF___V57*/ meltfptr[55] =  /*reallynil*/ NULL ;;
31525                 }
31526             ;
31527
31528             {
31529                 MELT_LOCATION("warmelt-normal.melt:2870:/ locexp");
31530                 /*void*/
31531                 (void)0;
31532             }
31533             ;
31534             /*^quasiblock*/
31535
31536
31537             /*epilog*/
31538
31539             /*^clear*/
31540             /*clear*/ /*_#MELT_NEED_DBG__L16*/
31541             meltfnum[0] = 0 ;
31542             /*^clear*/
31543             /*clear*/ /*_._IF___V57*/
31544             meltfptr[55] = 0 ;
31545         }
31546
31547 #else /*MELT_HAVE_DEBUG*/
31548         /*^cppif.else*/
31549         /*^block*/
31550         /*anyblock*/
31551         {
31552
31553
31554             {
31555                 /*^locexp*/
31556                 /*void*/(void)0;
31557             }
31558             ;
31559             /*epilog*/
31560         }
31561
31562 #endif /*MELT_HAVE_DEBUG*/
31563         ;
31564         MELT_LOCATION("warmelt-normal.melt:2871:/ blockmultialloc");
31565         /*multiallocblock*/
31566         {
31567             struct meltletrec_1_st
31568             {
31569                 struct meltpair_st rpair_0__CBIND_x1;
31570                 struct meltlist_st rlist_1__LIST_;
31571                 long meltletrec_1_endgap;
31572             } *meltletrec_1_ptr = 0;
31573             meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0);
31574             /*^blockmultialloc.initfill*/
31575             /*inipair rpair_0__CBIND_x1*/
31576             /*_.CBIND__V60*/
31577             meltfptr[55] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CBIND_x1;
31578             meltletrec_1_ptr->rpair_0__CBIND_x1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR))));
31579
31580             /*inilist rlist_1__LIST_*/
31581             /*_.LIST___V61*/
31582             meltfptr[60] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_;
31583             meltletrec_1_ptr->rlist_1__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST))));
31584
31585
31586
31587             /*^putpairhead*/
31588             /*putpairhead*/
31589             melt_assertmsg("putpairhead /1 checkpair", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V60*/ meltfptr[55]))== MELTOBMAG_PAIR);
31590             ((meltpair_ptr_t)(/*_.CBIND__V60*/ meltfptr[55]))->hd = (melt_ptr_t) (/*_.CBIND__V46*/ meltfptr[39]);
31591             ;
31592             /*^touch*/
31593             meltgc_touch(/*_.CBIND__V60*/ meltfptr[55]);
31594             ;
31595             /*^putlist*/
31596             /*putlist*/
31597             melt_assertmsg("putlist checklist", melt_magic_discr((melt_ptr_t)(/*_.LIST___V61*/ meltfptr[60]))== MELTOBMAG_LIST);
31598             ((meltlist_ptr_t)(/*_.LIST___V61*/ meltfptr[60]))->first = (meltpair_ptr_t) (/*_.CBIND__V60*/ meltfptr[55]);
31599             ((meltlist_ptr_t)(/*_.LIST___V61*/ meltfptr[60]))->last = (meltpair_ptr_t) (/*_.CBIND__V60*/ meltfptr[55]);
31600             ;
31601             /*^touch*/
31602             meltgc_touch(/*_.LIST___V61*/ meltfptr[60]);
31603             ;
31604             /*_.LIST___V59*/
31605             meltfptr[50] = /*_.LIST___V61*/ meltfptr[60];;
31606             /*epilog*/
31607
31608             MELT_LOCATION("warmelt-normal.melt:2871:/ clear");
31609             /*clear*/ /*_.CBIND__V60*/
31610             meltfptr[55] = 0 ;
31611             /*^clear*/
31612             /*clear*/ /*_.LIST___V61*/
31613             meltfptr[60] = 0 ;
31614             /*^clear*/
31615             /*clear*/ /*_.CBIND__V60*/
31616             meltfptr[55] = 0 ;
31617             /*^clear*/
31618             /*clear*/ /*_.LIST___V61*/
31619             meltfptr[60] = 0 ;
31620         } /*end multiallocblock*/
31621         ;
31622
31623         MELT_CHECK_SIGNAL();
31624         ;
31625         /*^quasiblock*/
31626
31627
31628         /*_._RETVAL___V1*/
31629         meltfptr[0] = /*_.CLOCC__V48*/ meltfptr[47];;
31630         MELT_LOCATION("warmelt-normal.melt:2871:/ putxtraresult");
31631         if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
31632         if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
31633         if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.LIST___V59*/ meltfptr[50]);
31634         ;
31635         /*^finalreturn*/
31636         ;
31637         /*finalret*/
31638         goto meltlabend_rout ;
31639         /*_.LET___V17*/
31640         meltfptr[15] = /*_.RETURN___V62*/ meltfptr[55];;
31641
31642         MELT_LOCATION("warmelt-normal.melt:2798:/ clear");
31643         /*clear*/ /*_.SLOC__V18*/
31644         meltfptr[5] = 0 ;
31645         /*^clear*/
31646         /*clear*/ /*_.SCHK__V19*/
31647         meltfptr[18] = 0 ;
31648         /*^clear*/
31649         /*clear*/ /*_.GSYM__V20*/
31650         meltfptr[19] = 0 ;
31651         /*^clear*/
31652         /*clear*/ /*_.CSYM__V21*/
31653         meltfptr[20] = 0 ;
31654         /*^clear*/
31655         /*clear*/ /*_.BINDLIST__V22*/
31656         meltfptr[21] = 0 ;
31657         /*^clear*/
31658         /*clear*/ /*_.NEWENV__V23*/
31659         meltfptr[22] = 0 ;
31660         /*^clear*/
31661         /*clear*/ /*_.LET___V24*/
31662         meltfptr[23] = 0 ;
31663         /*^clear*/
31664         /*clear*/ /*_.CSYMSTR__V29*/
31665         meltfptr[24] = 0 ;
31666         /*^clear*/
31667         /*clear*/ /*_.LET___V30*/
31668         meltfptr[25] = 0 ;
31669         /*^clear*/
31670         /*clear*/ /*_.MAGICBIND__V36*/
31671         meltfptr[34] = 0 ;
31672         /*^clear*/
31673         /*clear*/ /*_.LET___V37*/
31674         meltfptr[33] = 0 ;
31675         /*^clear*/
31676         /*clear*/ /*_.NCHK__V43*/
31677         meltfptr[41] = 0 ;
31678         /*^clear*/
31679         /*clear*/ /*_.INST___V44*/
31680         meltfptr[40] = 0 ;
31681         /*^clear*/
31682         /*clear*/ /*_.CBIND__V46*/
31683         meltfptr[39] = 0 ;
31684         /*^clear*/
31685         /*clear*/ /*_.CLOCC__V48*/
31686         meltfptr[47] = 0 ;
31687         /*^clear*/
31688         /*clear*/ /*_.IFCPP___V54*/
31689         meltfptr[49] = 0 ;
31690         /*^clear*/
31691         /*clear*/ /*_.LIST___V59*/
31692         meltfptr[50] = 0 ;
31693         /*^clear*/
31694         /*clear*/ /*_.RETURN___V62*/
31695         meltfptr[55] = 0 ;
31696
31697         MELT_CHECK_SIGNAL();
31698         ;
31699         MELT_LOCATION("warmelt-normal.melt:2793:/ quasiblock");
31700
31701
31702         /*_._RETVAL___V1*/
31703         meltfptr[0] = /*_.LET___V17*/ meltfptr[15];;
31704
31705         {
31706             MELT_LOCATION("warmelt-normal.melt:2793:/ locexp");
31707             /*ochecknores compilobj_nrep_return*/
31708 #if MELT_HAVE_DEBUG
31709             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
31710                 melt_warn_for_no_expected_secondary_results();
31711             /* we warned when secondary results are expected but not returned. */
31712 #endif /*MELT_HAVE_DEBUG*/
31713             ;
31714         }
31715         ;
31716         /*^finalreturn*/
31717         ;
31718         /*finalret*/
31719         goto meltlabend_rout ;
31720         /*epilog*/
31721
31722         /*^clear*/
31723         /*clear*/ /*_.IFCPP___V8*/
31724         meltfptr[6] = 0 ;
31725         /*^clear*/
31726         /*clear*/ /*_.IFCPP___V11*/
31727         meltfptr[9] = 0 ;
31728         /*^clear*/
31729         /*clear*/ /*_.IFCPP___V14*/
31730         meltfptr[12] = 0 ;
31731         /*^clear*/
31732         /*clear*/ /*_.LET___V17*/
31733         meltfptr[15] = 0 ;
31734     }
31735
31736     ;
31737     goto meltlabend_rout;
31738 meltlabend_rout:
31739     melt_trace_end("NORMEXP_CODE_CHUNK", meltcallcount);
31740     melt_blocklevel_signals = current_blocklevel_signals_meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK_melt;
31741     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
31742 #undef meltcallcount
31743 #undef meltfram__
31744 #undef MELTFRAM_NBVARNUM
31745 #undef MELTFRAM_NBVARPTR
31746 } /*end meltrout_41_WARMELTmiNORMAL_NORMEXP_CODE_CHUNK*/
31747
31748
31749
31750
31751
31752
31753 melt_ptr_t MELT_MODULE_VISIBILITY
31754 meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
31755                                        const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
31756 {
31757     long current_blocklevel_signals_meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3_melt =  melt_blocklevel_signals;
31758
31759 #if MELT_HAVE_DEBUG
31760     static long melt_call_counter__;
31761     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
31762 #undef meltcallcount
31763 #define meltcallcount melt_thiscallcounter__
31764 #else
31765 #undef meltcallcount
31766 #define meltcallcount 0L
31767 #endif
31768 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
31769
31770     /* start of frame for routine meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3 fromline 1752 */
31771
31772     /** start of frame for meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3 of CLASS_PROCROUTINEOBJ from 1555**/
31773
31774     /*curframdeclclassy*/ class MeltFrame_meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3// fromline 1568
31775         : public Melt_CallFrameWithValues<32>
31776     {
31777     public: /* fromline 1572*/
31778         long mcfr_varnum[13];
31779         /*classy others*/
31780         long _meltsparel;
31781         void melt_mark_stuff (void)
31782         {
31783         } /*end melt_mark_stuff*/
31784         virtual void melt_mark_ggc_data (void)
31785         {
31786             melt_mark_values ();
31787             melt_mark_stuff ();
31788         }; /*end melt_mark_ggc_data*/
31789         MeltFrame_meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3(meltclosure_ptr_t clos) //the closure constructor fromline 1630
31790             : Melt_CallFrameWithValues<32> (
31791 #if ENABLE_CHECKING /*fromline 1634*/
31792                 __FILE__, __LINE__,
31793 #endif /* ENABLE_CHECKING fromline 1638*/
31794                 sizeof(MeltFrame_meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3), clos) {};
31795         MeltFrame_meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3() //the constructor fromline 1642
31796             : Melt_CallFrameWithValues<32> (
31797 #if ENABLE_CHECKING /*fromline 1646*/
31798                 __FILE__, __LINE__,
31799 #endif /* ENABLE_CHECKING fromline 1650*/
31800                 sizeof(MeltFrame_meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3)) {};
31801 #if ENABLE_CHECKING /*fromline 1654*/
31802         MeltFrame_meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3(const char*fil, int lin) //the constructor fromline 1656
31803             : Melt_CallFrameWithValues<32> (fil,lin, sizeof(MeltFrame_meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3)) {};
31804         MeltFrame_meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
31805             : Melt_CallFrameWithValues<32> (fil,lin, sizeof(MeltFrame_meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3), clos) {};
31806 #endif /* ENABLE_CHECKING fromline 1666*/
31807
31808     }; // end  class MeltFrame_meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3
31809
31810
31811     /** end of frame for meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3 fromline 1697**/
31812
31813     /* end of frame for routine meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3 fromline 1756 */
31814
31815     /* classy proc frame meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3 */
31816     MeltFrame_meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3
31817     meltfram__ /*declfrastruct fromline 1780*/
31818     /*classyprocarg meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3 fromline 1785*/
31819 #if ENABLE_CHECKING
31820     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
31821 #else /*ENABLE_CHECKING */
31822     (meltclosp_) /* fromline 1793*/
31823 #endif /*ENABLE_CHECKING */
31824
31825     ;
31826 #define meltframe meltfram__
31827
31828     melt_trace_start("LAMBDA_cl3", meltcallcount);
31829     /*use arguments*/
31830     (void) meltclosp_;
31831     (void)meltfirstargp_;
31832     (void)meltxargdescr_;
31833     (void)meltxargtab_;
31834     (void)meltxresdescr_;
31835     (void)meltxrestab_;
31836     /*getargs*/
31837
31838     /*getarg#0*/
31839     MELT_LOCATION("warmelt-normal.melt:2821:/ getarg");
31840     /*_.CURCOMP__V2*/
31841     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
31842
31843     /*getarg#1*/
31844     /*^getarg*/
31845     if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs;
31846     /*_#CURIX__L1*/
31847     meltfnum[0] = meltxargtab_[0].meltbp_long;
31848     ;
31849     goto meltlab_endgetargs;
31850 meltlab_endgetargs:
31851     ;
31852     /*body*/
31853     /*^block*/
31854     /*anyblock*/
31855     {
31856
31857
31858         MELT_CHECK_SIGNAL();
31859         ;
31860         /*_#IS_STRING__L2*/
31861         meltfnum[1] =
31862             (melt_magic_discr((melt_ptr_t)(/*_.CURCOMP__V2*/ meltfptr[1])) == MELTOBMAG_STRING);;
31863         MELT_LOCATION("warmelt-normal.melt:2823:/ cond");
31864         /*cond*/
31865         if (/*_#IS_STRING__L2*/ meltfnum[1]) /*then*/
31866             {
31867                 /*^cond.then*/
31868                 /*^block*/
31869                 /*anyblock*/
31870                 {
31871
31872                     /*_.CLONE_WITH_DISCRIMINANT__V4*/ meltfptr[3] =
31873                         meltgc_clone_with_discriminant((melt_ptr_t)(/*_.CURCOMP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[0]))) ;;
31874                     /*^compute*/
31875                     /*_._IFELSE___V3*/
31876                     meltfptr[2] = /*_.CLONE_WITH_DISCRIMINANT__V4*/ meltfptr[3];;
31877                     /*epilog*/
31878
31879                     MELT_LOCATION("warmelt-normal.melt:2823:/ clear");
31880                     /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V4*/
31881                     meltfptr[3] = 0 ;
31882                 }
31883                 ;
31884             }
31885         else    /*^cond.else*/
31886             {
31887
31888                 /*^block*/
31889                 /*anyblock*/
31890                 {
31891
31892
31893                     MELT_CHECK_SIGNAL();
31894                     ;
31895                     /*_#IS_A__L3*/
31896                     meltfnum[2] =
31897                         melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));;
31898                     MELT_LOCATION("warmelt-normal.melt:2825:/ cond");
31899                     /*cond*/
31900                     if (/*_#IS_A__L3*/ meltfnum[2]) /*then*/
31901                         {
31902                             /*^cond.then*/
31903                             /*^block*/
31904                             /*anyblock*/
31905                             {
31906
31907
31908                                 MELT_CHECK_SIGNAL();
31909                                 ;
31910                                 MELT_LOCATION("warmelt-normal.melt:2826:/ msend");
31911                                 /*msend*/
31912                                 {
31913                                     union meltparam_un argtab[3];
31914                                     memset(&argtab, 0, sizeof(argtab));
31915                                     /*^ojbmsend.arg*/
31916                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~NEWENV*/ meltfclos->tabval[0]);
31917                                     /*^ojbmsend.arg*/
31918                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~NCX*/ meltfclos->tabval[1]);
31919                                     /*^ojbmsend.arg*/
31920                                     argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*~SLOC*/ meltfclos->tabval[2]);
31921                                     /*_.NORMAL_EXP__V6*/
31922                                     meltfptr[5] = meltgc_send((melt_ptr_t)(/*_.CURCOMP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[2])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
31923                                 }
31924                                 ;
31925                                 /*_._IFELSE___V5*/
31926                                 meltfptr[3] = /*_.NORMAL_EXP__V6*/ meltfptr[5];;
31927                                 /*epilog*/
31928
31929                                 MELT_LOCATION("warmelt-normal.melt:2825:/ clear");
31930                                 /*clear*/ /*_.NORMAL_EXP__V6*/
31931                                 meltfptr[5] = 0 ;
31932                             }
31933                             ;
31934                         }
31935                     else    /*^cond.else*/
31936                         {
31937
31938                             /*^block*/
31939                             /*anyblock*/
31940                             {
31941
31942
31943 #if MELT_HAVE_DEBUG
31944                                 MELT_LOCATION("warmelt-normal.melt:2828:/ cppif.then");
31945                                 /*^block*/
31946                                 /*anyblock*/
31947                                 {
31948
31949
31950                                     {
31951                                         /*^locexp*/
31952                                         /*melt_increment_dbgcounter*/
31953 #if MELT_HAVE_DEBUG
31954                                         melt_dbgcounter++;
31955 #endif
31956                                         ;
31957                                     }
31958                                     ;
31959
31960                                     MELT_CHECK_SIGNAL();
31961                                     ;
31962                                     /*_#MELT_NEED_DBG__L4*/
31963                                     meltfnum[3] =
31964                                         /*MELT_NEED_DBG*/
31965 #if MELT_HAVE_DEBUG
31966                                         (/*melt_need_dbg*/ melt_need_debug ((int) 0))
31967 #else
31968                                         0 /* no melt_need_dbg */
31969 #endif /*MELT_HAVE_DEBUG*/
31970                                         ;;
31971                                     MELT_LOCATION("warmelt-normal.melt:2828:/ cond");
31972                                     /*cond*/
31973                                     if (/*_#MELT_NEED_DBG__L4*/ meltfnum[3]) /*then*/
31974                                         {
31975                                             /*^cond.then*/
31976                                             /*^block*/
31977                                             /*anyblock*/
31978                                             {
31979
31980                                                 /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] =
31981                                                     /* for melt_callcount */
31982 #if MELT_HAVE_DEBUG && defined (meltcallcount)
31983                                                     meltcallcount  /* melt_callcount debugging */
31984 #else
31985                                                     0L  /* melt_callcount without debug */
31986 #endif /* MELT_HAVE_DEBUG melt_callcount */
31987                                                     ;;
31988
31989                                                 MELT_CHECK_SIGNAL();
31990                                                 ;
31991                                                 MELT_LOCATION("warmelt-normal.melt:2828:/ apply");
31992                                                 /*apply*/
31993                                                 {
31994                                                     union meltparam_un argtab[7];
31995                                                     memset(&argtab, 0, sizeof(argtab));
31996                                                     /*^apply.arg*/
31997                                                     argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L5*/ meltfnum[4];
31998                                                     /*^apply.arg*/
31999                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
32000                                                     /*^apply.arg*/
32001                                                     argtab[2].meltbp_long = 2828;
32002                                                     /*^apply.arg*/
32003                                                     argtab[3].meltbp_cstring =  "normexp_code_chunk curcomp=";
32004                                                     /*^apply.arg*/
32005                                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURCOMP__V2*/ meltfptr[1];
32006                                                     /*^apply.arg*/
32007                                                     argtab[5].meltbp_cstring =  " curix#";
32008                                                     /*^apply.arg*/
32009                                                     argtab[6].meltbp_long = /*_#CURIX__L1*/ meltfnum[0];
32010                                                     /*_.MELT_DEBUG_FUN__V8*/
32011                                                     meltfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
32012                                                 }
32013                                                 ;
32014                                                 /*_._IF___V7*/
32015                                                 meltfptr[5] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];;
32016                                                 /*epilog*/
32017
32018                                                 MELT_LOCATION("warmelt-normal.melt:2828:/ clear");
32019                                                 /*clear*/ /*_#MELT_CALLCOUNT__L5*/
32020                                                 meltfnum[4] = 0 ;
32021                                                 /*^clear*/
32022                                                 /*clear*/ /*_.MELT_DEBUG_FUN__V8*/
32023                                                 meltfptr[7] = 0 ;
32024                                             }
32025                                             ;
32026                                         }
32027                                     else    /*^cond.else*/
32028                                         {
32029
32030                                             /*_._IF___V7*/ meltfptr[5] =  /*reallynil*/ NULL ;;
32031                                         }
32032                                     ;
32033
32034                                     {
32035                                         MELT_LOCATION("warmelt-normal.melt:2828:/ locexp");
32036                                         /*void*/
32037                                         (void)0;
32038                                     }
32039                                     ;
32040                                     /*^quasiblock*/
32041
32042
32043                                     /*epilog*/
32044
32045                                     /*^clear*/
32046                                     /*clear*/ /*_#MELT_NEED_DBG__L4*/
32047                                     meltfnum[3] = 0 ;
32048                                     /*^clear*/
32049                                     /*clear*/ /*_._IF___V7*/
32050                                     meltfptr[5] = 0 ;
32051                                 }
32052
32053 #else /*MELT_HAVE_DEBUG*/
32054                                 /*^cppif.else*/
32055                                 /*^block*/
32056                                 /*anyblock*/
32057                                 {
32058
32059
32060                                     {
32061                                         /*^locexp*/
32062                                         /*void*/(void)0;
32063                                     }
32064                                     ;
32065                                     /*epilog*/
32066                                 }
32067
32068 #endif /*MELT_HAVE_DEBUG*/
32069                                 ;
32070
32071                                 MELT_CHECK_SIGNAL();
32072                                 ;
32073                                 MELT_LOCATION("warmelt-normal.melt:2829:/ quasiblock");
32074
32075
32076                                 /*^multimsend*/
32077                                 /*multimsend*/
32078                                 {
32079                                     union meltparam_un argtab[3];
32080                                     union meltparam_un restab[1];
32081                                     memset(&argtab, 0, sizeof(argtab));
32082                                     memset(&restab, 0, sizeof(restab));
32083                                     /*^multimsend.arg*/
32084                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~NEWENV*/ meltfclos->tabval[0]);/*^multimsend.arg*/
32085                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~NCX*/ meltfclos->tabval[1]);/*^multimsend.arg*/
32086                                     argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*~SLOC*/ meltfclos->tabval[2]);
32087                                     /*^multimsend.xres*/
32088                                     restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V11*/ meltfptr[10];/*^multimsend.send*/
32089                                     /*_.NEXP__V10*/
32090                                     meltfptr[5] =  meltgc_send ((melt_ptr_t)(/*_.CURCOMP__V2*/ meltfptr[1]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[2]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
32091                                 }
32092                                 ;
32093                                 /*^quasiblock*/
32094
32095
32096
32097 #if MELT_HAVE_DEBUG
32098                                 MELT_LOCATION("warmelt-normal.melt:2832:/ cppif.then");
32099                                 /*^block*/
32100                                 /*anyblock*/
32101                                 {
32102
32103
32104                                     {
32105                                         /*^locexp*/
32106                                         /*melt_increment_dbgcounter*/
32107 #if MELT_HAVE_DEBUG
32108                                         melt_dbgcounter++;
32109 #endif
32110                                         ;
32111                                     }
32112                                     ;
32113
32114                                     MELT_CHECK_SIGNAL();
32115                                     ;
32116                                     /*_#MELT_NEED_DBG__L6*/
32117                                     meltfnum[4] =
32118                                         /*MELT_NEED_DBG*/
32119 #if MELT_HAVE_DEBUG
32120                                         (/*melt_need_dbg*/ melt_need_debug ((int) 0))
32121 #else
32122                                         0 /* no melt_need_dbg */
32123 #endif /*MELT_HAVE_DEBUG*/
32124                                         ;;
32125                                     MELT_LOCATION("warmelt-normal.melt:2832:/ cond");
32126                                     /*cond*/
32127                                     if (/*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then*/
32128                                         {
32129                                             /*^cond.then*/
32130                                             /*^block*/
32131                                             /*anyblock*/
32132                                             {
32133
32134                                                 /*_#MELT_CALLCOUNT__L7*/ meltfnum[3] =
32135                                                     /* for melt_callcount */
32136 #if MELT_HAVE_DEBUG && defined (meltcallcount)
32137                                                     meltcallcount  /* melt_callcount debugging */
32138 #else
32139                                                     0L  /* melt_callcount without debug */
32140 #endif /* MELT_HAVE_DEBUG melt_callcount */
32141                                                     ;;
32142
32143                                                 MELT_CHECK_SIGNAL();
32144                                                 ;
32145                                                 MELT_LOCATION("warmelt-normal.melt:2832:/ apply");
32146                                                 /*apply*/
32147                                                 {
32148                                                     union meltparam_un argtab[7];
32149                                                     memset(&argtab, 0, sizeof(argtab));
32150                                                     /*^apply.arg*/
32151                                                     argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L7*/ meltfnum[3];
32152                                                     /*^apply.arg*/
32153                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
32154                                                     /*^apply.arg*/
32155                                                     argtab[2].meltbp_long = 2832;
32156                                                     /*^apply.arg*/
32157                                                     argtab[3].meltbp_cstring =  "normexp_code_chunk nexp=";
32158                                                     /*^apply.arg*/
32159                                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEXP__V10*/ meltfptr[5];
32160                                                     /*^apply.arg*/
32161                                                     argtab[5].meltbp_cstring =  "\n.. nbind=";
32162                                                     /*^apply.arg*/
32163                                                     argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V11*/ meltfptr[10];
32164                                                     /*_.MELT_DEBUG_FUN__V13*/
32165                                                     meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
32166                                                 }
32167                                                 ;
32168                                                 /*_._IF___V12*/
32169                                                 meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];;
32170                                                 /*epilog*/
32171
32172                                                 MELT_LOCATION("warmelt-normal.melt:2832:/ clear");
32173                                                 /*clear*/ /*_#MELT_CALLCOUNT__L7*/
32174                                                 meltfnum[3] = 0 ;
32175                                                 /*^clear*/
32176                                                 /*clear*/ /*_.MELT_DEBUG_FUN__V13*/
32177                                                 meltfptr[12] = 0 ;
32178                                             }
32179                                             ;
32180                                         }
32181                                     else    /*^cond.else*/
32182                                         {
32183
32184                                             /*_._IF___V12*/ meltfptr[11] =  /*reallynil*/ NULL ;;
32185                                         }
32186                                     ;
32187
32188                                     {
32189                                         MELT_LOCATION("warmelt-normal.melt:2832:/ locexp");
32190                                         /*void*/
32191                                         (void)0;
32192                                     }
32193                                     ;
32194                                     /*^quasiblock*/
32195
32196
32197                                     /*epilog*/
32198
32199                                     /*^clear*/
32200                                     /*clear*/ /*_#MELT_NEED_DBG__L6*/
32201                                     meltfnum[4] = 0 ;
32202                                     /*^clear*/
32203                                     /*clear*/ /*_._IF___V12*/
32204                                     meltfptr[11] = 0 ;
32205                                 }
32206
32207 #else /*MELT_HAVE_DEBUG*/
32208                                 /*^cppif.else*/
32209                                 /*^block*/
32210                                 /*anyblock*/
32211                                 {
32212
32213
32214                                     {
32215                                         /*^locexp*/
32216                                         /*void*/(void)0;
32217                                     }
32218                                     ;
32219                                     /*epilog*/
32220                                 }
32221
32222 #endif /*MELT_HAVE_DEBUG*/
32223                                 ;
32224
32225 #if MELT_HAVE_DEBUG
32226                                 MELT_LOCATION("warmelt-normal.melt:2833:/ cppif.then");
32227                                 /*^block*/
32228                                 /*anyblock*/
32229                                 {
32230
32231
32232                                     MELT_CHECK_SIGNAL();
32233                                     ;
32234                                     /*_#IS_LIST_OR_NULL__L8*/
32235                                     meltfnum[3] =
32236                                         ((/*_.NBIND__V11*/ meltfptr[10]) == NULL
32237                                          || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBIND__V11*/ meltfptr[10])) == MELTOBMAG_LIST));;
32238                                     MELT_LOCATION("warmelt-normal.melt:2833:/ cond");
32239                                     /*cond*/
32240                                     if (/*_#IS_LIST_OR_NULL__L8*/ meltfnum[3]) /*then*/
32241                                         {
32242                                             /*^cond.then*/
32243                                             /*_._IFELSE___V15*/ meltfptr[11] = (/*nil*/NULL);;
32244                                         }
32245                                     else
32246                                         {
32247                                             MELT_LOCATION("warmelt-normal.melt:2833:/ cond.else");
32248
32249                                             /*^block*/
32250                                             /*anyblock*/
32251                                             {
32252
32253
32254                                                 MELT_CHECK_SIGNAL();
32255                                                 ;
32256                                                 /*^apply*/
32257                                                 /*apply*/
32258                                                 {
32259                                                     union meltparam_un argtab[4];
32260                                                     memset(&argtab, 0, sizeof(argtab));
32261                                                     /*^apply.arg*/
32262                                                     argtab[0].meltbp_cstring =  "check nbind";
32263                                                     /*^apply.arg*/
32264                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
32265                                                     /*^apply.arg*/
32266                                                     argtab[2].meltbp_long = 2833;
32267                                                     /*^apply.arg*/
32268                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V11*/ meltfptr[10];
32269                                                     /*_.MELT_ASSERT_FAILURE_FUN__V16*/
32270                                                     meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
32271                                                 }
32272                                                 ;
32273                                                 /*_._IFELSE___V15*/
32274                                                 meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];;
32275                                                 /*epilog*/
32276
32277                                                 MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
32278                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/
32279                                                 meltfptr[15] = 0 ;
32280                                             }
32281                                             ;
32282                                         }
32283                                     ;
32284                                     /*_.IFCPP___V14*/
32285                                     meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[11];;
32286                                     /*epilog*/
32287
32288                                     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
32289                                     /*clear*/ /*_#IS_LIST_OR_NULL__L8*/
32290                                     meltfnum[3] = 0 ;
32291                                     /*^clear*/
32292                                     /*clear*/ /*_._IFELSE___V15*/
32293                                     meltfptr[11] = 0 ;
32294                                 }
32295
32296 #else /*MELT_HAVE_DEBUG*/
32297                                 /*^cppif.else*/
32298                                 /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL);
32299 #endif /*MELT_HAVE_DEBUG*/
32300                                 ;
32301                                 MELT_LOCATION("warmelt-normal.melt:2834:/ quasiblock");
32302
32303
32304
32305                                 MELT_CHECK_SIGNAL();
32306                                 ;
32307                                 /*^msend*/
32308                                 /*msend*/
32309                                 {
32310                                     union meltparam_un argtab[1];
32311                                     memset(&argtab, 0, sizeof(argtab));
32312                                     /*^ojbmsend.arg*/
32313                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~NEWENV*/ meltfclos->tabval[0]);
32314                                     /*_.COMPCTYP__V18*/
32315                                     meltfptr[11] = meltgc_send((melt_ptr_t)(/*_.NEXP__V10*/ meltfptr[5]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
32316                                 }
32317                                 ;
32318                                 MELT_LOCATION("warmelt-normal.melt:2835:/ cond");
32319                                 /*cond*/
32320                                 if (
32321                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V2*/ meltfptr[1]),
32322                                                                   (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[6])))
32323                                 ) /*then*/
32324                                     {
32325                                         /*^cond.then*/
32326                                         /*^getslot*/
32327                                         {
32328                                             melt_ptr_t slot=NULL, obj=NULL;
32329                                             obj = (melt_ptr_t)(/*_.CURCOMP__V2*/ meltfptr[1]) /*=obj*/;
32330                                             melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
32331                                             /*_.LOCA_LOCATION__V19*/
32332                                             meltfptr[18] = slot;
32333                                         };
32334                                         ;
32335                                     }
32336                                 else    /*^cond.else*/
32337                                     {
32338
32339                                         /*_.LOCA_LOCATION__V19*/ meltfptr[18] =  /*reallynil*/ NULL ;;
32340                                     }
32341                                 ;
32342                                 MELT_LOCATION("warmelt-normal.melt:2835:/ cond");
32343                                 /*cond*/
32344                                 if (/*_.LOCA_LOCATION__V19*/ meltfptr[18]) /*then*/
32345                                     {
32346                                         /*^cond.then*/
32347                                         /*_.CLOC__V20*/ meltfptr[19] = /*_.LOCA_LOCATION__V19*/ meltfptr[18];;
32348                                     }
32349                                 else
32350                                     {
32351                                         MELT_LOCATION("warmelt-normal.melt:2835:/ cond.else");
32352
32353                                         /*_.CLOC__V20*/
32354                                         meltfptr[19] = (/*~SLOC*/ meltfclos->tabval[2]);;
32355                                     }
32356                                 ;
32357
32358 #if MELT_HAVE_DEBUG
32359                                 MELT_LOCATION("warmelt-normal.melt:2837:/ cppif.then");
32360                                 /*^block*/
32361                                 /*anyblock*/
32362                                 {
32363
32364
32365                                     {
32366                                         /*^locexp*/
32367                                         /*melt_increment_dbgcounter*/
32368 #if MELT_HAVE_DEBUG
32369                                         melt_dbgcounter++;
32370 #endif
32371                                         ;
32372                                     }
32373                                     ;
32374
32375                                     MELT_CHECK_SIGNAL();
32376                                     ;
32377                                     /*_#MELT_NEED_DBG__L9*/
32378                                     meltfnum[4] =
32379                                         /*MELT_NEED_DBG*/
32380 #if MELT_HAVE_DEBUG
32381                                         (/*melt_need_dbg*/ melt_need_debug ((int) 0))
32382 #else
32383                                         0 /* no melt_need_dbg */
32384 #endif /*MELT_HAVE_DEBUG*/
32385                                         ;;
32386                                     MELT_LOCATION("warmelt-normal.melt:2837:/ cond");
32387                                     /*cond*/
32388                                     if (/*_#MELT_NEED_DBG__L9*/ meltfnum[4]) /*then*/
32389                                         {
32390                                             /*^cond.then*/
32391                                             /*^block*/
32392                                             /*anyblock*/
32393                                             {
32394
32395                                                 /*_#MELT_CALLCOUNT__L10*/ meltfnum[3] =
32396                                                     /* for melt_callcount */
32397 #if MELT_HAVE_DEBUG && defined (meltcallcount)
32398                                                     meltcallcount  /* melt_callcount debugging */
32399 #else
32400                                                     0L  /* melt_callcount without debug */
32401 #endif /* MELT_HAVE_DEBUG melt_callcount */
32402                                                     ;;
32403
32404                                                 MELT_CHECK_SIGNAL();
32405                                                 ;
32406                                                 MELT_LOCATION("warmelt-normal.melt:2837:/ apply");
32407                                                 /*apply*/
32408                                                 {
32409                                                     union meltparam_un argtab[5];
32410                                                     memset(&argtab, 0, sizeof(argtab));
32411                                                     /*^apply.arg*/
32412                                                     argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L10*/ meltfnum[3];
32413                                                     /*^apply.arg*/
32414                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
32415                                                     /*^apply.arg*/
32416                                                     argtab[2].meltbp_long = 2837;
32417                                                     /*^apply.arg*/
32418                                                     argtab[3].meltbp_cstring =  "normexp_code_chunk compctyp=";
32419                                                     /*^apply.arg*/
32420                                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.COMPCTYP__V18*/ meltfptr[11];
32421                                                     /*_.MELT_DEBUG_FUN__V22*/
32422                                                     meltfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
32423                                                 }
32424                                                 ;
32425                                                 /*_._IF___V21*/
32426                                                 meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];;
32427                                                 /*epilog*/
32428
32429                                                 MELT_LOCATION("warmelt-normal.melt:2837:/ clear");
32430                                                 /*clear*/ /*_#MELT_CALLCOUNT__L10*/
32431                                                 meltfnum[3] = 0 ;
32432                                                 /*^clear*/
32433                                                 /*clear*/ /*_.MELT_DEBUG_FUN__V22*/
32434                                                 meltfptr[21] = 0 ;
32435                                             }
32436                                             ;
32437                                         }
32438                                     else    /*^cond.else*/
32439                                         {
32440
32441                                             /*_._IF___V21*/ meltfptr[20] =  /*reallynil*/ NULL ;;
32442                                         }
32443                                     ;
32444
32445                                     {
32446                                         MELT_LOCATION("warmelt-normal.melt:2837:/ locexp");
32447                                         /*void*/
32448                                         (void)0;
32449                                     }
32450                                     ;
32451                                     /*^quasiblock*/
32452
32453
32454                                     /*epilog*/
32455
32456                                     /*^clear*/
32457                                     /*clear*/ /*_#MELT_NEED_DBG__L9*/
32458                                     meltfnum[4] = 0 ;
32459                                     /*^clear*/
32460                                     /*clear*/ /*_._IF___V21*/
32461                                     meltfptr[20] = 0 ;
32462                                 }
32463
32464 #else /*MELT_HAVE_DEBUG*/
32465                                 /*^cppif.else*/
32466                                 /*^block*/
32467                                 /*anyblock*/
32468                                 {
32469
32470
32471                                     {
32472                                         /*^locexp*/
32473                                         /*void*/(void)0;
32474                                     }
32475                                     ;
32476                                     /*epilog*/
32477                                 }
32478
32479 #endif /*MELT_HAVE_DEBUG*/
32480                                 ;
32481
32482                                 MELT_CHECK_SIGNAL();
32483                                 ;
32484                                 /*_#exeq__L11*/
32485                                 meltfnum[3] =
32486                                     ((/*_.COMPCTYP__V18*/ meltfptr[11]) != ((/*!CTYPE_VOID*/ meltfrout->tabval[7])));;
32487                                 MELT_LOCATION("warmelt-normal.melt:2838:/ cond");
32488                                 /*cond*/
32489                                 if (/*_#exeq__L11*/ meltfnum[3]) /*then*/
32490                                     {
32491                                         /*^cond.then*/
32492                                         /*^block*/
32493                                         /*anyblock*/
32494                                         {
32495
32496                                             MELT_LOCATION("warmelt-normal.melt:2841:/ cond");
32497                                             /*cond*/
32498                                             if (
32499                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.COMPCTYP__V18*/ meltfptr[11]),
32500                                                                               (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[9])))
32501                                             ) /*then*/
32502                                                 {
32503                                                     /*^cond.then*/
32504                                                     /*^getslot*/
32505                                                     {
32506                                                         melt_ptr_t slot=NULL, obj=NULL;
32507                                                         obj = (melt_ptr_t)(/*_.COMPCTYP__V18*/ meltfptr[11]) /*=obj*/;
32508                                                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
32509                                                         /*_.NAMED_NAME__V24*/
32510                                                         meltfptr[20] = slot;
32511                                                     };
32512                                                     ;
32513                                                 }
32514                                             else    /*^cond.else*/
32515                                                 {
32516
32517                                                     /*_.NAMED_NAME__V24*/ meltfptr[20] =  /*reallynil*/ NULL ;;
32518                                                 }
32519                                             ;
32520
32521                                             MELT_CHECK_SIGNAL();
32522                                             ;
32523                                             MELT_LOCATION("warmelt-normal.melt:2839:/ apply");
32524                                             /*apply*/
32525                                             {
32526                                                 union meltparam_un argtab[2];
32527                                                 memset(&argtab, 0, sizeof(argtab));
32528                                                 /*^apply.arg*/
32529                                                 argtab[0].meltbp_cstring =  "composite CODE_CHUNK element should be :void, got $1";
32530                                                 /*^apply.arg*/
32531                                                 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V24*/ meltfptr[20];
32532                                                 /*_.ERROR_AT__V25*/
32533                                                 meltfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.CLOC__V20*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
32534                                             }
32535                                             ;
32536
32537                                             MELT_CHECK_SIGNAL();
32538                                             ;
32539                                             MELT_LOCATION("warmelt-normal.melt:2842:/ quasiblock");
32540
32541
32542                                             /*_._RETVAL___V1*/
32543                                             meltfptr[0] = (/*nil*/NULL);;
32544
32545                                             {
32546                                                 MELT_LOCATION("warmelt-normal.melt:2842:/ locexp");
32547                                                 /*ochecknores compilobj_nrep_return*/
32548 #if MELT_HAVE_DEBUG
32549                                                 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
32550                                                     melt_warn_for_no_expected_secondary_results();
32551                                                 /* we warned when secondary results are expected but not returned. */
32552 #endif /*MELT_HAVE_DEBUG*/
32553                                                 ;
32554                                             }
32555                                             ;
32556                                             /*^finalreturn*/
32557                                             ;
32558                                             /*finalret*/
32559                                             goto meltlabend_rout ;
32560                                             MELT_LOCATION("warmelt-normal.melt:2838:/ quasiblock");
32561
32562
32563                                             /*_.PROGN___V27*/
32564                                             meltfptr[26] = /*_.RETURN___V26*/ meltfptr[25];;
32565                                             /*^compute*/
32566                                             /*_._IF___V23*/
32567                                             meltfptr[21] = /*_.PROGN___V27*/ meltfptr[26];;
32568                                             /*epilog*/
32569
32570                                             MELT_LOCATION("warmelt-normal.melt:2838:/ clear");
32571                                             /*clear*/ /*_.NAMED_NAME__V24*/
32572                                             meltfptr[20] = 0 ;
32573                                             /*^clear*/
32574                                             /*clear*/ /*_.ERROR_AT__V25*/
32575                                             meltfptr[24] = 0 ;
32576                                             /*^clear*/
32577                                             /*clear*/ /*_.RETURN___V26*/
32578                                             meltfptr[25] = 0 ;
32579                                             /*^clear*/
32580                                             /*clear*/ /*_.PROGN___V27*/
32581                                             meltfptr[26] = 0 ;
32582                                         }
32583                                         ;
32584                                     }
32585                                 else    /*^cond.else*/
32586                                     {
32587
32588                                         /*_._IF___V23*/ meltfptr[21] =  /*reallynil*/ NULL ;;
32589                                     }
32590                                 ;
32591                                 MELT_LOCATION("warmelt-normal.melt:2844:/ quasiblock");
32592
32593
32594
32595                                 MELT_CHECK_SIGNAL();
32596                                 ;
32597                                 /*^apply*/
32598                                 /*apply*/
32599                                 {
32600                                     union meltparam_un argtab[2];
32601                                     memset(&argtab, 0, sizeof(argtab));
32602                                     /*^apply.arg*/
32603                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V11*/ meltfptr[10];
32604                                     /*^apply.arg*/
32605                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~SLOC*/ meltfclos->tabval[2]);
32606                                     /*_.WL__V29*/
32607                                     meltfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.NEXP__V10*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
32608                                 }
32609                                 ;
32610
32611 #if MELT_HAVE_DEBUG
32612                                 MELT_LOCATION("warmelt-normal.melt:2846:/ cppif.then");
32613                                 /*^block*/
32614                                 /*anyblock*/
32615                                 {
32616
32617
32618                                     {
32619                                         /*^locexp*/
32620                                         /*melt_increment_dbgcounter*/
32621 #if MELT_HAVE_DEBUG
32622                                         melt_dbgcounter++;
32623 #endif
32624                                         ;
32625                                     }
32626                                     ;
32627
32628                                     MELT_CHECK_SIGNAL();
32629                                     ;
32630                                     /*_#MELT_NEED_DBG__L12*/
32631                                     meltfnum[4] =
32632                                         /*MELT_NEED_DBG*/
32633 #if MELT_HAVE_DEBUG
32634                                         (/*melt_need_dbg*/ melt_need_debug ((int) 0))
32635 #else
32636                                         0 /* no melt_need_dbg */
32637 #endif /*MELT_HAVE_DEBUG*/
32638                                         ;;
32639                                     MELT_LOCATION("warmelt-normal.melt:2846:/ cond");
32640                                     /*cond*/
32641                                     if (/*_#MELT_NEED_DBG__L12*/ meltfnum[4]) /*then*/
32642                                         {
32643                                             /*^cond.then*/
32644                                             /*^block*/
32645                                             /*anyblock*/
32646                                             {
32647
32648                                                 /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] =
32649                                                     /* for melt_callcount */
32650 #if MELT_HAVE_DEBUG && defined (meltcallcount)
32651                                                     meltcallcount  /* melt_callcount debugging */
32652 #else
32653                                                     0L  /* melt_callcount without debug */
32654 #endif /* MELT_HAVE_DEBUG melt_callcount */
32655                                                     ;;
32656
32657                                                 MELT_CHECK_SIGNAL();
32658                                                 ;
32659                                                 MELT_LOCATION("warmelt-normal.melt:2846:/ apply");
32660                                                 /*apply*/
32661                                                 {
32662                                                     union meltparam_un argtab[7];
32663                                                     memset(&argtab, 0, sizeof(argtab));
32664                                                     /*^apply.arg*/
32665                                                     argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L13*/ meltfnum[12];
32666                                                     /*^apply.arg*/
32667                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
32668                                                     /*^apply.arg*/
32669                                                     argtab[2].meltbp_long = 2846;
32670                                                     /*^apply.arg*/
32671                                                     argtab[3].meltbp_cstring =  "normexp_code_chunk wl=";
32672                                                     /*^apply.arg*/
32673                                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.WL__V29*/ meltfptr[24];
32674                                                     /*^apply.arg*/
32675                                                     argtab[5].meltbp_cstring =  " curix#";
32676                                                     /*^apply.arg*/
32677                                                     argtab[6].meltbp_long = /*_#CURIX__L1*/ meltfnum[0];
32678                                                     /*_.MELT_DEBUG_FUN__V31*/
32679                                                     meltfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
32680                                                 }
32681                                                 ;
32682                                                 /*_._IF___V30*/
32683                                                 meltfptr[25] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[26];;
32684                                                 /*epilog*/
32685
32686                                                 MELT_LOCATION("warmelt-normal.melt:2846:/ clear");
32687                                                 /*clear*/ /*_#MELT_CALLCOUNT__L13*/
32688                                                 meltfnum[12] = 0 ;
32689                                                 /*^clear*/
32690                                                 /*clear*/ /*_.MELT_DEBUG_FUN__V31*/
32691                                                 meltfptr[26] = 0 ;
32692                                             }
32693                                             ;
32694                                         }
32695                                     else    /*^cond.else*/
32696                                         {
32697
32698                                             /*_._IF___V30*/ meltfptr[25] =  /*reallynil*/ NULL ;;
32699                                         }
32700                                     ;
32701
32702                                     {
32703                                         MELT_LOCATION("warmelt-normal.melt:2846:/ locexp");
32704                                         /*void*/
32705                                         (void)0;
32706                                     }
32707                                     ;
32708                                     /*^quasiblock*/
32709
32710
32711                                     /*epilog*/
32712
32713                                     /*^clear*/
32714                                     /*clear*/ /*_#MELT_NEED_DBG__L12*/
32715                                     meltfnum[4] = 0 ;
32716                                     /*^clear*/
32717                                     /*clear*/ /*_._IF___V30*/
32718                                     meltfptr[25] = 0 ;
32719                                 }
32720
32721 #else /*MELT_HAVE_DEBUG*/
32722                                 /*^cppif.else*/
32723                                 /*^block*/
32724                                 /*anyblock*/
32725                                 {
32726
32727
32728                                     {
32729                                         /*^locexp*/
32730                                         /*void*/(void)0;
32731                                     }
32732                                     ;
32733                                     /*epilog*/
32734                                 }
32735
32736 #endif /*MELT_HAVE_DEBUG*/
32737                                 ;
32738                                 /*_.LET___V28*/
32739                                 meltfptr[20] = /*_.WL__V29*/ meltfptr[24];;
32740
32741                                 MELT_LOCATION("warmelt-normal.melt:2844:/ clear");
32742                                 /*clear*/ /*_.WL__V29*/
32743                                 meltfptr[24] = 0 ;
32744                                 /*_.LET___V17*/
32745                                 meltfptr[15] = /*_.LET___V28*/ meltfptr[20];;
32746
32747                                 MELT_LOCATION("warmelt-normal.melt:2834:/ clear");
32748                                 /*clear*/ /*_.COMPCTYP__V18*/
32749                                 meltfptr[11] = 0 ;
32750                                 /*^clear*/
32751                                 /*clear*/ /*_.LOCA_LOCATION__V19*/
32752                                 meltfptr[18] = 0 ;
32753                                 /*^clear*/
32754                                 /*clear*/ /*_.CLOC__V20*/
32755                                 meltfptr[19] = 0 ;
32756                                 /*^clear*/
32757                                 /*clear*/ /*_#exeq__L11*/
32758                                 meltfnum[3] = 0 ;
32759                                 /*^clear*/
32760                                 /*clear*/ /*_._IF___V23*/
32761                                 meltfptr[21] = 0 ;
32762                                 /*^clear*/
32763                                 /*clear*/ /*_.LET___V28*/
32764                                 meltfptr[20] = 0 ;
32765
32766                                 MELT_CHECK_SIGNAL();
32767                                 ;
32768                                 /*_.MULTI___V9*/
32769                                 meltfptr[7] = /*_.LET___V17*/ meltfptr[15];;
32770
32771                                 MELT_LOCATION("warmelt-normal.melt:2829:/ clear");
32772                                 /*clear*/ /*_.IFCPP___V14*/
32773                                 meltfptr[12] = 0 ;
32774                                 /*^clear*/
32775                                 /*clear*/ /*_.LET___V17*/
32776                                 meltfptr[15] = 0 ;
32777
32778                                 /*^clear*/
32779                                 /*clear*/ /*_.NBIND__V11*/
32780                                 meltfptr[10] = 0 ;
32781                                 MELT_LOCATION("warmelt-normal.melt:2827:/ quasiblock");
32782
32783
32784                                 /*_.PROGN___V32*/
32785                                 meltfptr[26] = /*_.MULTI___V9*/ meltfptr[7];;
32786                                 /*^compute*/
32787                                 /*_._IFELSE___V5*/
32788                                 meltfptr[3] = /*_.PROGN___V32*/ meltfptr[26];;
32789                                 /*epilog*/
32790
32791                                 MELT_LOCATION("warmelt-normal.melt:2825:/ clear");
32792                                 /*clear*/ /*_.MULTI___V9*/
32793                                 meltfptr[7] = 0 ;
32794                                 /*^clear*/
32795                                 /*clear*/ /*_.PROGN___V32*/
32796                                 meltfptr[26] = 0 ;
32797                             }
32798                             ;
32799                         }
32800                     ;
32801                     /*_._IFELSE___V3*/
32802                     meltfptr[2] = /*_._IFELSE___V5*/ meltfptr[3];;
32803                     /*epilog*/
32804
32805                     MELT_LOCATION("warmelt-normal.melt:2823:/ clear");
32806                     /*clear*/ /*_#IS_A__L3*/
32807                     meltfnum[2] = 0 ;
32808                     /*^clear*/
32809                     /*clear*/ /*_._IFELSE___V5*/
32810                     meltfptr[3] = 0 ;
32811                 }
32812                 ;
32813             }
32814         ;
32815         MELT_LOCATION("warmelt-normal.melt:2821:/ quasiblock");
32816
32817
32818         /*_._RETVAL___V1*/
32819         meltfptr[0] = /*_._IFELSE___V3*/ meltfptr[2];;
32820
32821         {
32822             MELT_LOCATION("warmelt-normal.melt:2821:/ locexp");
32823             /*ochecknores compilobj_nrep_return*/
32824 #if MELT_HAVE_DEBUG
32825             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
32826                 melt_warn_for_no_expected_secondary_results();
32827             /* we warned when secondary results are expected but not returned. */
32828 #endif /*MELT_HAVE_DEBUG*/
32829             ;
32830         }
32831         ;
32832         /*^finalreturn*/
32833         ;
32834         /*finalret*/
32835         goto meltlabend_rout ;
32836         /*epilog*/
32837
32838         /*^clear*/
32839         /*clear*/ /*_#IS_STRING__L2*/
32840         meltfnum[1] = 0 ;
32841         /*^clear*/
32842         /*clear*/ /*_._IFELSE___V3*/
32843         meltfptr[2] = 0 ;
32844     }
32845
32846     ;
32847     goto meltlabend_rout;
32848 meltlabend_rout:
32849     melt_trace_end("LAMBDA_cl3", meltcallcount);
32850     melt_blocklevel_signals = current_blocklevel_signals_meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3_melt;
32851     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
32852 #undef meltcallcount
32853 #undef meltfram__
32854 #undef MELTFRAM_NBVARNUM
32855 #undef MELTFRAM_NBVARPTR
32856 } /*end meltrout_42_WARMELTmiNORMAL_LAMBDA_cl3*/
32857
32858
32859
32860
32861
32862
32863 melt_ptr_t MELT_MODULE_VISIBILITY
32864 meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
32865         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
32866 {
32867     long current_blocklevel_signals_meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK_melt =  melt_blocklevel_signals;
32868
32869 #if MELT_HAVE_DEBUG
32870     static long melt_call_counter__;
32871     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
32872 #undef meltcallcount
32873 #define meltcallcount melt_thiscallcounter__
32874 #else
32875 #undef meltcallcount
32876 #define meltcallcount 0L
32877 #endif
32878 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
32879
32880     /* start of frame for routine meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK fromline 1752 */
32881
32882     /** start of frame for meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK of CLASS_PROCROUTINEOBJ from 1555**/
32883
32884     /*curframdeclclassy*/ class MeltFrame_meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK// fromline 1568
32885         : public Melt_CallFrameWithValues<85>
32886     {
32887     public: /* fromline 1572*/
32888         long mcfr_varnum[30];
32889         /*classy others*/
32890         long _meltsparel;
32891         void melt_mark_stuff (void)
32892         {
32893         } /*end melt_mark_stuff*/
32894         virtual void melt_mark_ggc_data (void)
32895         {
32896             melt_mark_values ();
32897             melt_mark_stuff ();
32898         }; /*end melt_mark_ggc_data*/
32899         MeltFrame_meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK(meltclosure_ptr_t clos) //the closure constructor fromline 1630
32900             : Melt_CallFrameWithValues<85> (
32901 #if ENABLE_CHECKING /*fromline 1634*/
32902                 __FILE__, __LINE__,
32903 #endif /* ENABLE_CHECKING fromline 1638*/
32904                 sizeof(MeltFrame_meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK), clos) {};
32905         MeltFrame_meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK() //the constructor fromline 1642
32906             : Melt_CallFrameWithValues<85> (
32907 #if ENABLE_CHECKING /*fromline 1646*/
32908                 __FILE__, __LINE__,
32909 #endif /* ENABLE_CHECKING fromline 1650*/
32910                 sizeof(MeltFrame_meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK)) {};
32911 #if ENABLE_CHECKING /*fromline 1654*/
32912         MeltFrame_meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK(const char*fil, int lin) //the constructor fromline 1656
32913             : Melt_CallFrameWithValues<85> (fil,lin, sizeof(MeltFrame_meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK)) {};
32914         MeltFrame_meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
32915             : Melt_CallFrameWithValues<85> (fil,lin, sizeof(MeltFrame_meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK), clos) {};
32916 #endif /* ENABLE_CHECKING fromline 1666*/
32917
32918     }; // end  class MeltFrame_meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK
32919
32920
32921     /** end of frame for meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK fromline 1697**/
32922
32923     /* end of frame for routine meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK fromline 1756 */
32924
32925     /* classy proc frame meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK */
32926     MeltFrame_meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK
32927     meltfram__ /*declfrastruct fromline 1780*/
32928     /*classyprocarg meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK fromline 1785*/
32929 #if ENABLE_CHECKING
32930     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
32931 #else /*ENABLE_CHECKING */
32932     (meltclosp_) /* fromline 1793*/
32933 #endif /*ENABLE_CHECKING */
32934
32935     ;
32936 #define meltframe meltfram__
32937
32938     melt_trace_start("NORMEXP_EXPR_CHUNK", meltcallcount);
32939     /*use arguments*/
32940     (void) meltclosp_;
32941     (void)meltfirstargp_;
32942     (void)meltxargdescr_;
32943     (void)meltxargtab_;
32944     (void)meltxresdescr_;
32945     (void)meltxrestab_;
32946     /*getargs*/
32947
32948     /*getarg#0*/
32949     MELT_LOCATION("warmelt-normal.melt:2877:/ getarg");
32950     /*_.RECV__V2*/
32951     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
32952
32953     /*getarg#1*/
32954     /*^getarg*/
32955     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
32956     /*_.ENV__V3*/
32957     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
32958     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
32959
32960
32961     /*getarg#2*/
32962     /*^getarg*/
32963     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
32964     /*_.NCX__V4*/
32965     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
32966     gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL);
32967
32968
32969     /*getarg#3*/
32970     /*^getarg*/
32971     if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
32972     /*_.PSLOC__V5*/
32973     meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
32974     gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL);
32975
32976     ;
32977     goto meltlab_endgetargs;
32978 meltlab_endgetargs:
32979     ;
32980     /*body*/
32981     /*^block*/
32982     /*anyblock*/
32983     {
32984
32985
32986 #if MELT_HAVE_DEBUG
32987         MELT_LOCATION("warmelt-normal.melt:2878:/ cppif.then");
32988         /*^block*/
32989         /*anyblock*/
32990         {
32991
32992
32993             {
32994                 /*^locexp*/
32995                 /*melt_increment_dbgcounter*/
32996 #if MELT_HAVE_DEBUG
32997                 melt_dbgcounter++;
32998 #endif
32999                 ;
33000             }
33001             ;
33002
33003             MELT_CHECK_SIGNAL();
33004             ;
33005             /*_#MELT_NEED_DBG__L1*/
33006             meltfnum[0] =
33007                 /*MELT_NEED_DBG*/
33008 #if MELT_HAVE_DEBUG
33009                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
33010 #else
33011                 0 /* no melt_need_dbg */
33012 #endif /*MELT_HAVE_DEBUG*/
33013                 ;;
33014             MELT_LOCATION("warmelt-normal.melt:2878:/ cond");
33015             /*cond*/
33016             if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
33017                 {
33018                     /*^cond.then*/
33019                     /*^block*/
33020                     /*anyblock*/
33021                     {
33022
33023                         /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
33024                             /* for melt_callcount */
33025 #if MELT_HAVE_DEBUG && defined (meltcallcount)
33026                             meltcallcount  /* melt_callcount debugging */
33027 #else
33028                             0L  /* melt_callcount without debug */
33029 #endif /* MELT_HAVE_DEBUG melt_callcount */
33030                             ;;
33031
33032                         MELT_CHECK_SIGNAL();
33033                         ;
33034                         MELT_LOCATION("warmelt-normal.melt:2878:/ apply");
33035                         /*apply*/
33036                         {
33037                             union meltparam_un argtab[5];
33038                             memset(&argtab, 0, sizeof(argtab));
33039                             /*^apply.arg*/
33040                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
33041                             /*^apply.arg*/
33042                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
33043                             /*^apply.arg*/
33044                             argtab[2].meltbp_long = 2878;
33045                             /*^apply.arg*/
33046                             argtab[3].meltbp_cstring =  "normexp_expr_chunk recv=";
33047                             /*^apply.arg*/
33048                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
33049                             /*_.MELT_DEBUG_FUN__V7*/
33050                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
33051                         }
33052                         ;
33053                         /*_._IF___V6*/
33054                         meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];;
33055                         /*epilog*/
33056
33057                         MELT_LOCATION("warmelt-normal.melt:2878:/ clear");
33058                         /*clear*/ /*_#MELT_CALLCOUNT__L2*/
33059                         meltfnum[1] = 0 ;
33060                         /*^clear*/
33061                         /*clear*/ /*_.MELT_DEBUG_FUN__V7*/
33062                         meltfptr[6] = 0 ;
33063                     }
33064                     ;
33065                 }
33066             else    /*^cond.else*/
33067                 {
33068
33069                     /*_._IF___V6*/ meltfptr[5] =  /*reallynil*/ NULL ;;
33070                 }
33071             ;
33072
33073             {
33074                 MELT_LOCATION("warmelt-normal.melt:2878:/ locexp");
33075                 /*void*/
33076                 (void)0;
33077             }
33078             ;
33079             /*^quasiblock*/
33080
33081
33082             /*epilog*/
33083
33084             /*^clear*/
33085             /*clear*/ /*_#MELT_NEED_DBG__L1*/
33086             meltfnum[0] = 0 ;
33087             /*^clear*/
33088             /*clear*/ /*_._IF___V6*/
33089             meltfptr[5] = 0 ;
33090         }
33091
33092 #else /*MELT_HAVE_DEBUG*/
33093         /*^cppif.else*/
33094         /*^block*/
33095         /*anyblock*/
33096         {
33097
33098
33099             {
33100                 /*^locexp*/
33101                 /*void*/(void)0;
33102             }
33103             ;
33104             /*epilog*/
33105         }
33106
33107 #endif /*MELT_HAVE_DEBUG*/
33108         ;
33109
33110 #if MELT_HAVE_DEBUG
33111         MELT_LOCATION("warmelt-normal.melt:2879:/ cppif.then");
33112         /*^block*/
33113         /*anyblock*/
33114         {
33115
33116
33117             MELT_CHECK_SIGNAL();
33118             ;
33119             /*_#IS_A__L3*/
33120             meltfnum[1] =
33121                 melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPRCHUNK*/ meltfrout->tabval[1])));;
33122             MELT_LOCATION("warmelt-normal.melt:2879:/ cond");
33123             /*cond*/
33124             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
33125                 {
33126                     /*^cond.then*/
33127                     /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);;
33128                 }
33129             else
33130                 {
33131                     MELT_LOCATION("warmelt-normal.melt:2879:/ cond.else");
33132
33133                     /*^block*/
33134                     /*anyblock*/
33135                     {
33136
33137
33138                         MELT_CHECK_SIGNAL();
33139                         ;
33140                         /*^apply*/
33141                         /*apply*/
33142                         {
33143                             union meltparam_un argtab[4];
33144                             memset(&argtab, 0, sizeof(argtab));
33145                             /*^apply.arg*/
33146                             argtab[0].meltbp_cstring =  "check expr_chunk recv";
33147                             /*^apply.arg*/
33148                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
33149                             /*^apply.arg*/
33150                             argtab[2].meltbp_long = 2879;
33151                             /*^apply.arg*/
33152                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
33153                             /*_.MELT_ASSERT_FAILURE_FUN__V10*/
33154                             meltfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
33155                         }
33156                         ;
33157                         /*_._IFELSE___V9*/
33158                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];;
33159                         /*epilog*/
33160
33161                         MELT_LOCATION("warmelt-normal.melt:2879:/ clear");
33162                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/
33163                         meltfptr[9] = 0 ;
33164                     }
33165                     ;
33166                 }
33167             ;
33168             /*_.IFCPP___V8*/
33169             meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];;
33170             /*epilog*/
33171
33172             MELT_LOCATION("warmelt-normal.melt:2879:/ clear");
33173             /*clear*/ /*_#IS_A__L3*/
33174             meltfnum[1] = 0 ;
33175             /*^clear*/
33176             /*clear*/ /*_._IFELSE___V9*/
33177             meltfptr[5] = 0 ;
33178         }
33179
33180 #else /*MELT_HAVE_DEBUG*/
33181         /*^cppif.else*/
33182         /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL);
33183 #endif /*MELT_HAVE_DEBUG*/
33184         ;
33185
33186 #if MELT_HAVE_DEBUG
33187         MELT_LOCATION("warmelt-normal.melt:2880:/ cppif.then");
33188         /*^block*/
33189         /*anyblock*/
33190         {
33191
33192
33193             MELT_CHECK_SIGNAL();
33194             ;
33195             /*_#IS_A__L4*/
33196             meltfnum[0] =
33197                 melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));;
33198             MELT_LOCATION("warmelt-normal.melt:2880:/ cond");
33199             /*cond*/
33200             if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/
33201                 {
33202                     /*^cond.then*/
33203                     /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);;
33204                 }
33205             else
33206                 {
33207                     MELT_LOCATION("warmelt-normal.melt:2880:/ cond.else");
33208
33209                     /*^block*/
33210                     /*anyblock*/
33211                     {
33212
33213
33214                         MELT_CHECK_SIGNAL();
33215                         ;
33216                         /*^apply*/
33217                         /*apply*/
33218                         {
33219                             union meltparam_un argtab[4];
33220                             memset(&argtab, 0, sizeof(argtab));
33221                             /*^apply.arg*/
33222                             argtab[0].meltbp_cstring =  "check env";
33223                             /*^apply.arg*/
33224                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
33225                             /*^apply.arg*/
33226                             argtab[2].meltbp_long = 2880;
33227                             /*^apply.arg*/
33228                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
33229                             /*_.MELT_ASSERT_FAILURE_FUN__V13*/
33230                             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
33231                         }
33232                         ;
33233                         /*_._IFELSE___V12*/
33234                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];;
33235                         /*epilog*/
33236
33237                         MELT_LOCATION("warmelt-normal.melt:2880:/ clear");
33238                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/
33239                         meltfptr[12] = 0 ;
33240                     }
33241                     ;
33242                 }
33243             ;
33244             /*_.IFCPP___V11*/
33245             meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];;
33246             /*epilog*/
33247
33248             MELT_LOCATION("warmelt-normal.melt:2880:/ clear");
33249             /*clear*/ /*_#IS_A__L4*/
33250             meltfnum[0] = 0 ;
33251             /*^clear*/
33252             /*clear*/ /*_._IFELSE___V12*/
33253             meltfptr[5] = 0 ;
33254         }
33255
33256 #else /*MELT_HAVE_DEBUG*/
33257         /*^cppif.else*/
33258         /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL);
33259 #endif /*MELT_HAVE_DEBUG*/
33260         ;
33261
33262 #if MELT_HAVE_DEBUG
33263         MELT_LOCATION("warmelt-normal.melt:2881:/ cppif.then");
33264         /*^block*/
33265         /*anyblock*/
33266         {
33267
33268
33269             MELT_CHECK_SIGNAL();
33270             ;
33271             /*_#IS_A__L5*/
33272             meltfnum[1] =
33273                 melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));;
33274             MELT_LOCATION("warmelt-normal.melt:2881:/ cond");
33275             /*cond*/
33276             if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/
33277                 {
33278                     /*^cond.then*/
33279                     /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);;
33280                 }
33281             else
33282                 {
33283                     MELT_LOCATION("warmelt-normal.melt:2881:/ cond.else");
33284
33285                     /*^block*/
33286                     /*anyblock*/
33287                     {
33288
33289
33290                         MELT_CHECK_SIGNAL();
33291                         ;
33292                         /*^apply*/
33293                         /*apply*/
33294                         {
33295                             union meltparam_un argtab[4];
33296                             memset(&argtab, 0, sizeof(argtab));
33297                             /*^apply.arg*/
33298                             argtab[0].meltbp_cstring =  "check ncx";
33299                             /*^apply.arg*/
33300                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
33301                             /*^apply.arg*/
33302                             argtab[2].meltbp_long = 2881;
33303                             /*^apply.arg*/
33304                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
33305                             /*_.MELT_ASSERT_FAILURE_FUN__V16*/
33306                             meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
33307                         }
33308                         ;
33309                         /*_._IFELSE___V15*/
33310                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];;
33311                         /*epilog*/
33312
33313                         MELT_LOCATION("warmelt-normal.melt:2881:/ clear");
33314                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/
33315                         meltfptr[15] = 0 ;
33316                     }
33317                     ;
33318                 }
33319             ;
33320             /*_.IFCPP___V14*/
33321             meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];;
33322             /*epilog*/
33323
33324             MELT_LOCATION("warmelt-normal.melt:2881:/ clear");
33325             /*clear*/ /*_#IS_A__L5*/
33326             meltfnum[1] = 0 ;
33327             /*^clear*/
33328             /*clear*/ /*_._IFELSE___V15*/
33329             meltfptr[5] = 0 ;
33330         }
33331
33332 #else /*MELT_HAVE_DEBUG*/
33333         /*^cppif.else*/
33334         /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL);
33335 #endif /*MELT_HAVE_DEBUG*/
33336         ;
33337         MELT_LOCATION("warmelt-normal.melt:2882:/ quasiblock");
33338
33339
33340         /*^getslot*/
33341         {
33342             melt_ptr_t slot=NULL, obj=NULL;
33343             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
33344             melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
33345             /*_.SLOC__V18*/
33346             meltfptr[5] = slot;
33347         };
33348         ;
33349         MELT_LOCATION("warmelt-normal.melt:2883:/ getslot");
33350         {
33351             melt_ptr_t slot=NULL, obj=NULL;
33352             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
33353             melt_object_get_field(slot,obj, 3, "SCH_CHUNKS");
33354             /*_.SCHK__V19*/
33355             meltfptr[18] = slot;
33356         };
33357         ;
33358         MELT_LOCATION("warmelt-normal.melt:2884:/ getslot");
33359         {
33360             melt_ptr_t slot=NULL, obj=NULL;
33361             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
33362             melt_object_get_field(slot,obj, 2, "SCH_GENSYM");
33363             /*_.GSYM__V20*/
33364             meltfptr[19] = slot;
33365         };
33366         ;
33367         MELT_LOCATION("warmelt-normal.melt:2885:/ getslot");
33368         {
33369             melt_ptr_t slot=NULL, obj=NULL;
33370             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
33371             melt_object_get_field(slot,obj, 4, "SXCH_CTYPE");
33372             /*_.CTYP__V21*/
33373             meltfptr[20] = slot;
33374         };
33375         ;
33376
33377         MELT_CHECK_SIGNAL();
33378         ;
33379         MELT_LOCATION("warmelt-normal.melt:2886:/ apply");
33380         /*apply*/
33381         {
33382             /*_.CSYM__V22*/ meltfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.GSYM__V20*/ meltfptr[19]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
33383         }
33384         ;
33385         /*_.BINDLIST__V23*/
33386         meltfptr[22] =
33387             (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[6]))));;
33388
33389         MELT_CHECK_SIGNAL();
33390         ;
33391         MELT_LOCATION("warmelt-normal.melt:2888:/ apply");
33392         /*apply*/
33393         {
33394             /*_.NEWENV__V24*/ meltfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
33395         }
33396         ;
33397         MELT_LOCATION("warmelt-normal.melt:2890:/ quasiblock");
33398
33399
33400         /*_.SBUF__V26*/
33401         meltfptr[25] =
33402             (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[8])), (const char*)0);;
33403         MELT_LOCATION("warmelt-normal.melt:2891:/ cond");
33404         /*cond*/
33405         if (
33406             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CSYM__V22*/ meltfptr[21]),
33407                                           (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[9])))
33408         ) /*then*/
33409             {
33410                 /*^cond.then*/
33411                 /*^getslot*/
33412                 {
33413                     melt_ptr_t slot=NULL, obj=NULL;
33414                     obj = (melt_ptr_t)(/*_.CSYM__V22*/ meltfptr[21]) /*=obj*/;
33415                     melt_object_get_field(slot,obj, 1, "NAMED_NAME");
33416                     /*_.NAMED_NAME__V27*/
33417                     meltfptr[26] = slot;
33418                 };
33419                 ;
33420             }
33421         else    /*^cond.else*/
33422             {
33423
33424                 /*_.NAMED_NAME__V27*/ meltfptr[26] =  /*reallynil*/ NULL ;;
33425             }
33426         ;
33427
33428         {
33429             MELT_LOCATION("warmelt-normal.melt:2891:/ locexp");
33430             meltgc_add_strbuf_cident((melt_ptr_t)(/*_.SBUF__V26*/ meltfptr[25]),
33431                                      melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V27*/ meltfptr[26])));
33432         }
33433         ;
33434
33435         {
33436             MELT_LOCATION("warmelt-normal.melt:2892:/ locexp");
33437             /*add2sbuf_strconst*/
33438             meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V26*/ meltfptr[25]), ( "__"));
33439         }
33440         ;
33441         MELT_LOCATION("warmelt-normal.melt:2893:/ cond");
33442         /*cond*/
33443         if (
33444             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CSYM__V22*/ meltfptr[21]),
33445                                           (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[10])))
33446         ) /*then*/
33447             {
33448                 /*^cond.then*/
33449                 /*^getslot*/
33450                 {
33451                     melt_ptr_t slot=NULL, obj=NULL;
33452                     obj = (melt_ptr_t)(/*_.CSYM__V22*/ meltfptr[21]) /*=obj*/;
33453                     melt_object_get_field(slot,obj, 3, "CSYM_URANK");
33454                     /*_.CSYM_URANK__V28*/
33455                     meltfptr[27] = slot;
33456                 };
33457                 ;
33458             }
33459         else    /*^cond.else*/
33460             {
33461
33462                 /*_.CSYM_URANK__V28*/ meltfptr[27] =  /*reallynil*/ NULL ;;
33463             }
33464         ;
33465         /*^compute*/
33466         /*_#GET_INT__L6*/
33467         meltfnum[0] =
33468             (melt_get_int((melt_ptr_t)(/*_.CSYM_URANK__V28*/ meltfptr[27])));;
33469
33470         {
33471             MELT_LOCATION("warmelt-normal.melt:2893:/ locexp");
33472             meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V26*/ meltfptr[25]), (/*_#GET_INT__L6*/ meltfnum[0]));
33473         }
33474         ;
33475         /*_.STRBUF2STRING__V29*/
33476         meltfptr[28] =
33477             (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[11])), melt_strbuf_str((melt_ptr_t)(/*_.SBUF__V26*/ meltfptr[25]))));;
33478         /*^compute*/
33479         /*_.LET___V25*/
33480         meltfptr[24] = /*_.STRBUF2STRING__V29*/ meltfptr[28];;
33481
33482         MELT_LOCATION("warmelt-normal.melt:2890:/ clear");
33483         /*clear*/ /*_.SBUF__V26*/
33484         meltfptr[25] = 0 ;
33485         /*^clear*/
33486         /*clear*/ /*_.NAMED_NAME__V27*/
33487         meltfptr[26] = 0 ;
33488         /*^clear*/
33489         /*clear*/ /*_.CSYM_URANK__V28*/
33490         meltfptr[27] = 0 ;
33491         /*^clear*/
33492         /*clear*/ /*_#GET_INT__L6*/
33493         meltfnum[0] = 0 ;
33494         /*^clear*/
33495         /*clear*/ /*_.STRBUF2STRING__V29*/
33496         meltfptr[28] = 0 ;
33497         /*_.CSYMSTR__V30*/
33498         meltfptr[25] = /*_.LET___V25*/ meltfptr[24];;
33499         MELT_LOCATION("warmelt-normal.melt:2896:/ quasiblock");
33500
33501
33502
33503         MELT_CHECK_SIGNAL();
33504         ;
33505         /*^quasiblock*/
33506
33507
33508         /*^rawallocobj*/
33509         /*rawallocobj*/
33510         {
33511             melt_ptr_t newobj = 0;
33512             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_MAGIC_BINDING*/ meltfrout->tabval[12])), (2), "CLASS_NORMAL_MAGIC_BINDING");
33513             /*_.INST__V33*/
33514             meltfptr[28] =
33515                 newobj;
33516         };
33517         ;
33518         /*^putslot*/
33519         /*putslot*/
33520         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ meltfptr[28])) == MELTOBMAG_OBJECT);
33521         melt_putfield_object((/*_.INST__V33*/ meltfptr[28]), (0), (/*_.GSYM__V20*/ meltfptr[19]), "BINDER");
33522         ;
33523         /*^putslot*/
33524         /*putslot*/
33525         melt_assertmsg("checkobj putslot  _ @NMAGIC_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ meltfptr[28])) == MELTOBMAG_OBJECT);
33526         melt_putfield_object((/*_.INST__V33*/ meltfptr[28]), (1), (/*_.CSYMSTR__V30*/ meltfptr[25]), "NMAGIC_VALUE");
33527         ;
33528         /*^touchobj*/
33529
33530         melt_dbgtrace_written_object (/*_.INST__V33*/ meltfptr[28], "newly made instance");
33531         ;
33532         /*_.MB__V32*/
33533         meltfptr[27] = /*_.INST__V33*/ meltfptr[28];;
33534
33535         MELT_CHECK_SIGNAL();
33536         ;
33537         MELT_LOCATION("warmelt-normal.melt:2900:/ apply");
33538         /*apply*/
33539         {
33540             union meltparam_un argtab[1];
33541             memset(&argtab, 0, sizeof(argtab));
33542             /*^apply.arg*/
33543             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MB__V32*/ meltfptr[27];
33544             /*_.PUT_ENV__V34*/
33545             meltfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.NEWENV__V24*/ meltfptr[23]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
33546         }
33547         ;
33548
33549 #if MELT_HAVE_DEBUG
33550         MELT_LOCATION("warmelt-normal.melt:2901:/ cppif.then");
33551         /*^block*/
33552         /*anyblock*/
33553         {
33554
33555
33556             {
33557                 /*^locexp*/
33558                 /*melt_increment_dbgcounter*/
33559 #if MELT_HAVE_DEBUG
33560                 melt_dbgcounter++;
33561 #endif
33562                 ;
33563             }
33564             ;
33565
33566             MELT_CHECK_SIGNAL();
33567             ;
33568             /*_#MELT_NEED_DBG__L7*/
33569             meltfnum[1] =
33570                 /*MELT_NEED_DBG*/
33571 #if MELT_HAVE_DEBUG
33572                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
33573 #else
33574                 0 /* no melt_need_dbg */
33575 #endif /*MELT_HAVE_DEBUG*/
33576                 ;;
33577             MELT_LOCATION("warmelt-normal.melt:2901:/ cond");
33578             /*cond*/
33579             if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/
33580                 {
33581                     /*^cond.then*/
33582                     /*^block*/
33583                     /*anyblock*/
33584                     {
33585
33586                         /*_#MELT_CALLCOUNT__L8*/ meltfnum[0] =
33587                             /* for melt_callcount */
33588 #if MELT_HAVE_DEBUG && defined (meltcallcount)
33589                             meltcallcount  /* melt_callcount debugging */
33590 #else
33591                             0L  /* melt_callcount without debug */
33592 #endif /* MELT_HAVE_DEBUG melt_callcount */
33593                             ;;
33594
33595                         MELT_CHECK_SIGNAL();
33596                         ;
33597                         MELT_LOCATION("warmelt-normal.melt:2901:/ apply");
33598                         /*apply*/
33599                         {
33600                             union meltparam_un argtab[5];
33601                             memset(&argtab, 0, sizeof(argtab));
33602                             /*^apply.arg*/
33603                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[0];
33604                             /*^apply.arg*/
33605                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
33606                             /*^apply.arg*/
33607                             argtab[2].meltbp_long = 2901;
33608                             /*^apply.arg*/
33609                             argtab[3].meltbp_cstring =  "normexp_expr_chunk magicbind=";
33610                             /*^apply.arg*/
33611                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MB__V32*/ meltfptr[27];
33612                             /*_.MELT_DEBUG_FUN__V36*/
33613                             meltfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
33614                         }
33615                         ;
33616                         /*_._IF___V35*/
33617                         meltfptr[34] = /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];;
33618                         /*epilog*/
33619
33620                         MELT_LOCATION("warmelt-normal.melt:2901:/ clear");
33621                         /*clear*/ /*_#MELT_CALLCOUNT__L8*/
33622                         meltfnum[0] = 0 ;
33623                         /*^clear*/
33624                         /*clear*/ /*_.MELT_DEBUG_FUN__V36*/
33625                         meltfptr[35] = 0 ;
33626                     }
33627                     ;
33628                 }
33629             else    /*^cond.else*/
33630                 {
33631
33632                     /*_._IF___V35*/ meltfptr[34] =  /*reallynil*/ NULL ;;
33633                 }
33634             ;
33635
33636             {
33637                 MELT_LOCATION("warmelt-normal.melt:2901:/ locexp");
33638                 /*void*/
33639                 (void)0;
33640             }
33641             ;
33642             /*^quasiblock*/
33643
33644
33645             /*epilog*/
33646
33647             /*^clear*/
33648             /*clear*/ /*_#MELT_NEED_DBG__L7*/
33649             meltfnum[1] = 0 ;
33650             /*^clear*/
33651             /*clear*/ /*_._IF___V35*/
33652             meltfptr[34] = 0 ;
33653         }
33654
33655 #else /*MELT_HAVE_DEBUG*/
33656         /*^cppif.else*/
33657         /*^block*/
33658         /*anyblock*/
33659         {
33660
33661
33662             {
33663                 /*^locexp*/
33664                 /*void*/(void)0;
33665             }
33666             ;
33667             /*epilog*/
33668         }
33669
33670 #endif /*MELT_HAVE_DEBUG*/
33671         ;
33672         /*_.LET___V31*/
33673         meltfptr[26] = /*_.MB__V32*/ meltfptr[27];;
33674
33675         MELT_LOCATION("warmelt-normal.melt:2896:/ clear");
33676         /*clear*/ /*_.MB__V32*/
33677         meltfptr[27] = 0 ;
33678         /*^clear*/
33679         /*clear*/ /*_.PUT_ENV__V34*/
33680         meltfptr[33] = 0 ;
33681         /*_.MAGICBIND__V37*/
33682         meltfptr[35] = /*_.LET___V31*/ meltfptr[26];;
33683         /*^compute*/
33684         /*_.LISTBINDS__V38*/
33685         meltfptr[34] =
33686             (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[6]))));;
33687         /*^compute*/
33688         /*_.LISTNCHUNKS__V39*/
33689         meltfptr[27] =
33690             (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[6]))));;
33691         /*^compute*/
33692         /*_#MULTIPLE_LENGTH__L9*/
33693         meltfnum[0] =
33694             (melt_multiple_length((melt_ptr_t)(/*_.SCHK__V19*/ meltfptr[18])));;
33695         /*^compute*/
33696         /*_.NCHK__V40*/
33697         meltfptr[33] =
33698             (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[14])), (/*_#MULTIPLE_LENGTH__L9*/ meltfnum[0])));;
33699
33700 #if MELT_HAVE_DEBUG
33701         MELT_LOCATION("warmelt-normal.melt:2907:/ cppif.then");
33702         /*^block*/
33703         /*anyblock*/
33704         {
33705
33706
33707             {
33708                 /*^locexp*/
33709                 /*melt_increment_dbgcounter*/
33710 #if MELT_HAVE_DEBUG
33711                 melt_dbgcounter++;
33712 #endif
33713                 ;
33714             }
33715             ;
33716
33717             MELT_CHECK_SIGNAL();
33718             ;
33719             /*_#MELT_NEED_DBG__L10*/
33720             meltfnum[1] =
33721                 /*MELT_NEED_DBG*/
33722 #if MELT_HAVE_DEBUG
33723                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
33724 #else
33725                 0 /* no melt_need_dbg */
33726 #endif /*MELT_HAVE_DEBUG*/
33727                 ;;
33728             MELT_LOCATION("warmelt-normal.melt:2907:/ cond");
33729             /*cond*/
33730             if (/*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then*/
33731                 {
33732                     /*^cond.then*/
33733                     /*^block*/
33734                     /*anyblock*/
33735                     {
33736
33737                         /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] =
33738                             /* for melt_callcount */
33739 #if MELT_HAVE_DEBUG && defined (meltcallcount)
33740                             meltcallcount  /* melt_callcount debugging */
33741 #else
33742                             0L  /* melt_callcount without debug */
33743 #endif /* MELT_HAVE_DEBUG melt_callcount */
33744                             ;;
33745
33746                         MELT_CHECK_SIGNAL();
33747                         ;
33748                         MELT_LOCATION("warmelt-normal.melt:2907:/ apply");
33749                         /*apply*/
33750                         {
33751                             union meltparam_un argtab[7];
33752                             memset(&argtab, 0, sizeof(argtab));
33753                             /*^apply.arg*/
33754                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L11*/ meltfnum[10];
33755                             /*^apply.arg*/
33756                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
33757                             /*^apply.arg*/
33758                             argtab[2].meltbp_long = 2907;
33759                             /*^apply.arg*/
33760                             argtab[3].meltbp_cstring =  "normexp_expr_chunk ctyp=";
33761                             /*^apply.arg*/
33762                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CTYP__V21*/ meltfptr[20];
33763                             /*^apply.arg*/
33764                             argtab[5].meltbp_cstring =  "\n schk=";
33765                             /*^apply.arg*/
33766                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SCHK__V19*/ meltfptr[18];
33767                             /*_.MELT_DEBUG_FUN__V42*/
33768                             meltfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
33769                         }
33770                         ;
33771                         /*_._IF___V41*/
33772                         meltfptr[40] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41];;
33773                         /*epilog*/
33774
33775                         MELT_LOCATION("warmelt-normal.melt:2907:/ clear");
33776                         /*clear*/ /*_#MELT_CALLCOUNT__L11*/
33777                         meltfnum[10] = 0 ;
33778                         /*^clear*/
33779                         /*clear*/ /*_.MELT_DEBUG_FUN__V42*/
33780                         meltfptr[41] = 0 ;
33781                     }
33782                     ;
33783                 }
33784             else    /*^cond.else*/
33785                 {
33786
33787                     /*_._IF___V41*/ meltfptr[40] =  /*reallynil*/ NULL ;;
33788                 }
33789             ;
33790
33791             {
33792                 MELT_LOCATION("warmelt-normal.melt:2907:/ locexp");
33793                 /*void*/
33794                 (void)0;
33795             }
33796             ;
33797             /*^quasiblock*/
33798
33799
33800             /*epilog*/
33801
33802             /*^clear*/
33803             /*clear*/ /*_#MELT_NEED_DBG__L10*/
33804             meltfnum[1] = 0 ;
33805             /*^clear*/
33806             /*clear*/ /*_._IF___V41*/
33807             meltfptr[40] = 0 ;
33808         }
33809
33810 #else /*MELT_HAVE_DEBUG*/
33811         /*^cppif.else*/
33812         /*^block*/
33813         /*anyblock*/
33814         {
33815
33816
33817             {
33818                 /*^locexp*/
33819                 /*void*/(void)0;
33820             }
33821             ;
33822             /*epilog*/
33823         }
33824
33825 #endif /*MELT_HAVE_DEBUG*/
33826         ;
33827
33828 #if MELT_HAVE_DEBUG
33829         MELT_LOCATION("warmelt-normal.melt:2908:/ cppif.then");
33830         /*^block*/
33831         /*anyblock*/
33832         {
33833
33834
33835             MELT_CHECK_SIGNAL();
33836             ;
33837             /*_#IS_MULTIPLE__L12*/
33838             meltfnum[10] =
33839                 (melt_magic_discr((melt_ptr_t)(/*_.SCHK__V19*/ meltfptr[18])) == MELTOBMAG_MULTIPLE);;
33840             MELT_LOCATION("warmelt-normal.melt:2908:/ cond");
33841             /*cond*/
33842             if (/*_#IS_MULTIPLE__L12*/ meltfnum[10]) /*then*/
33843                 {
33844                     /*^cond.then*/
33845                     /*_._IFELSE___V44*/ meltfptr[40] = (/*nil*/NULL);;
33846                 }
33847             else
33848                 {
33849                     MELT_LOCATION("warmelt-normal.melt:2908:/ cond.else");
33850
33851                     /*^block*/
33852                     /*anyblock*/
33853                     {
33854
33855
33856                         MELT_CHECK_SIGNAL();
33857                         ;
33858                         /*^apply*/
33859                         /*apply*/
33860                         {
33861                             union meltparam_un argtab[4];
33862                             memset(&argtab, 0, sizeof(argtab));
33863                             /*^apply.arg*/
33864                             argtab[0].meltbp_cstring =  "check schk";
33865                             /*^apply.arg*/
33866                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
33867                             /*^apply.arg*/
33868                             argtab[2].meltbp_long = 2908;
33869                             /*^apply.arg*/
33870                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SCHK__V19*/ meltfptr[18];
33871                             /*_.MELT_ASSERT_FAILURE_FUN__V45*/
33872                             meltfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
33873                         }
33874                         ;
33875                         /*_._IFELSE___V44*/
33876                         meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V45*/ meltfptr[44];;
33877                         /*epilog*/
33878
33879                         MELT_LOCATION("warmelt-normal.melt:2908:/ clear");
33880                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V45*/
33881                         meltfptr[44] = 0 ;
33882                     }
33883                     ;
33884                 }
33885             ;
33886             /*_.IFCPP___V43*/
33887             meltfptr[41] = /*_._IFELSE___V44*/ meltfptr[40];;
33888             /*epilog*/
33889
33890             MELT_LOCATION("warmelt-normal.melt:2908:/ clear");
33891             /*clear*/ /*_#IS_MULTIPLE__L12*/
33892             meltfnum[10] = 0 ;
33893             /*^clear*/
33894             /*clear*/ /*_._IFELSE___V44*/
33895             meltfptr[40] = 0 ;
33896         }
33897
33898 #else /*MELT_HAVE_DEBUG*/
33899         /*^cppif.else*/
33900         /*_.IFCPP___V43*/ meltfptr[41] = (/*nil*/NULL);
33901 #endif /*MELT_HAVE_DEBUG*/
33902         ;
33903
33904 #if MELT_HAVE_DEBUG
33905         MELT_LOCATION("warmelt-normal.melt:2909:/ cppif.then");
33906         /*^block*/
33907         /*anyblock*/
33908         {
33909
33910
33911             MELT_CHECK_SIGNAL();
33912             ;
33913             /*_#IS_A__L13*/
33914             meltfnum[1] =
33915                 melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[15])));;
33916             MELT_LOCATION("warmelt-normal.melt:2909:/ cond");
33917             /*cond*/
33918             if (/*_#IS_A__L13*/ meltfnum[1]) /*then*/
33919                 {
33920                     /*^cond.then*/
33921                     /*_._IFELSE___V47*/ meltfptr[40] = (/*nil*/NULL);;
33922                 }
33923             else
33924                 {
33925                     MELT_LOCATION("warmelt-normal.melt:2909:/ cond.else");
33926
33927                     /*^block*/
33928                     /*anyblock*/
33929                     {
33930
33931
33932                         MELT_CHECK_SIGNAL();
33933                         ;
33934                         /*^apply*/
33935                         /*apply*/
33936                         {
33937                             union meltparam_un argtab[4];
33938                             memset(&argtab, 0, sizeof(argtab));
33939                             /*^apply.arg*/
33940                             argtab[0].meltbp_cstring =  "check ctyp";
33941                             /*^apply.arg*/
33942                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
33943                             /*^apply.arg*/
33944                             argtab[2].meltbp_long = 2909;
33945                             /*^apply.arg*/
33946                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYP__V21*/ meltfptr[20];
33947                             /*_.MELT_ASSERT_FAILURE_FUN__V48*/
33948                             meltfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
33949                         }
33950                         ;
33951                         /*_._IFELSE___V47*/
33952                         meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V48*/ meltfptr[47];;
33953                         /*epilog*/
33954
33955                         MELT_LOCATION("warmelt-normal.melt:2909:/ clear");
33956                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V48*/
33957                         meltfptr[47] = 0 ;
33958                     }
33959                     ;
33960                 }
33961             ;
33962             /*_.IFCPP___V46*/
33963             meltfptr[44] = /*_._IFELSE___V47*/ meltfptr[40];;
33964             /*epilog*/
33965
33966             MELT_LOCATION("warmelt-normal.melt:2909:/ clear");
33967             /*clear*/ /*_#IS_A__L13*/
33968             meltfnum[1] = 0 ;
33969             /*^clear*/
33970             /*clear*/ /*_._IFELSE___V47*/
33971             meltfptr[40] = 0 ;
33972         }
33973
33974 #else /*MELT_HAVE_DEBUG*/
33975         /*^cppif.else*/
33976         /*_.IFCPP___V46*/ meltfptr[44] = (/*nil*/NULL);
33977 #endif /*MELT_HAVE_DEBUG*/
33978         ;
33979         /*citerblock FOREACH_IN_MULTIPLE*/
33980         {
33981             /* start foreach_in_multiple meltcit1__EACHTUP */
33982             long  meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SCHK__V19*/ meltfptr[18]);
33983             for (/*_#SIX__L14*/ meltfnum[10] = 0;
33984                                 (/*_#SIX__L14*/ meltfnum[10] >= 0) && (/*_#SIX__L14*/ meltfnum[10] <  meltcit1__EACHTUP_ln);
33985                                 /*_#SIX__L14*/ meltfnum[10]++)
33986                 {
33987                     /*_.SRCOMP__V49*/ meltfptr[47] = melt_multiple_nth((melt_ptr_t)(/*_.SCHK__V19*/ meltfptr[18]),  /*_#SIX__L14*/ meltfnum[10]);
33988
33989
33990
33991
33992 #if MELT_HAVE_DEBUG
33993                     MELT_LOCATION("warmelt-normal.melt:2913:/ cppif.then");
33994                     /*^block*/
33995                     /*anyblock*/
33996                     {
33997
33998
33999                         {
34000                             /*^locexp*/
34001                             /*melt_increment_dbgcounter*/
34002 #if MELT_HAVE_DEBUG
34003                             melt_dbgcounter++;
34004 #endif
34005                             ;
34006                         }
34007                         ;
34008
34009                         MELT_CHECK_SIGNAL();
34010                         ;
34011                         /*_#MELT_NEED_DBG__L15*/
34012                         meltfnum[1] =
34013                             /*MELT_NEED_DBG*/
34014 #if MELT_HAVE_DEBUG
34015                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
34016 #else
34017                             0 /* no melt_need_dbg */
34018 #endif /*MELT_HAVE_DEBUG*/
34019                             ;;
34020                         MELT_LOCATION("warmelt-normal.melt:2913:/ cond");
34021                         /*cond*/
34022                         if (/*_#MELT_NEED_DBG__L15*/ meltfnum[1]) /*then*/
34023                             {
34024                                 /*^cond.then*/
34025                                 /*^block*/
34026                                 /*anyblock*/
34027                                 {
34028
34029                                     /*_#MELT_CALLCOUNT__L16*/ meltfnum[15] =
34030                                         /* for melt_callcount */
34031 #if MELT_HAVE_DEBUG && defined (meltcallcount)
34032                                         meltcallcount  /* melt_callcount debugging */
34033 #else
34034                                         0L  /* melt_callcount without debug */
34035 #endif /* MELT_HAVE_DEBUG melt_callcount */
34036                                         ;;
34037
34038                                     MELT_CHECK_SIGNAL();
34039                                     ;
34040                                     MELT_LOCATION("warmelt-normal.melt:2913:/ apply");
34041                                     /*apply*/
34042                                     {
34043                                         union meltparam_un argtab[7];
34044                                         memset(&argtab, 0, sizeof(argtab));
34045                                         /*^apply.arg*/
34046                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L16*/ meltfnum[15];
34047                                         /*^apply.arg*/
34048                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
34049                                         /*^apply.arg*/
34050                                         argtab[2].meltbp_long = 2913;
34051                                         /*^apply.arg*/
34052                                         argtab[3].meltbp_cstring =  "normexp_expr_chunk six#";
34053                                         /*^apply.arg*/
34054                                         argtab[4].meltbp_long = /*_#SIX__L14*/ meltfnum[10];
34055                                         /*^apply.arg*/
34056                                         argtab[5].meltbp_cstring =  " srcomp=";
34057                                         /*^apply.arg*/
34058                                         argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SRCOMP__V49*/ meltfptr[47];
34059                                         /*_.MELT_DEBUG_FUN__V51*/
34060                                         meltfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
34061                                     }
34062                                     ;
34063                                     /*_._IF___V50*/
34064                                     meltfptr[40] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];;
34065                                     /*epilog*/
34066
34067                                     MELT_LOCATION("warmelt-normal.melt:2913:/ clear");
34068                                     /*clear*/ /*_#MELT_CALLCOUNT__L16*/
34069                                     meltfnum[15] = 0 ;
34070                                     /*^clear*/
34071                                     /*clear*/ /*_.MELT_DEBUG_FUN__V51*/
34072                                     meltfptr[50] = 0 ;
34073                                 }
34074                                 ;
34075                             }
34076                         else    /*^cond.else*/
34077                             {
34078
34079                                 /*_._IF___V50*/ meltfptr[40] =  /*reallynil*/ NULL ;;
34080                             }
34081                         ;
34082
34083                         {
34084                             MELT_LOCATION("warmelt-normal.melt:2913:/ locexp");
34085                             /*void*/
34086                             (void)0;
34087                         }
34088                         ;
34089                         /*^quasiblock*/
34090
34091
34092                         /*epilog*/
34093
34094                         /*^clear*/
34095                         /*clear*/ /*_#MELT_NEED_DBG__L15*/
34096                         meltfnum[1] = 0 ;
34097                         /*^clear*/
34098                         /*clear*/ /*_._IF___V50*/
34099                         meltfptr[40] = 0 ;
34100                     }
34101
34102 #else /*MELT_HAVE_DEBUG*/
34103                     /*^cppif.else*/
34104                     /*^block*/
34105                     /*anyblock*/
34106                     {
34107
34108
34109                         {
34110                             /*^locexp*/
34111                             /*void*/(void)0;
34112                         }
34113                         ;
34114                         /*epilog*/
34115                     }
34116
34117 #endif /*MELT_HAVE_DEBUG*/
34118                     ;
34119
34120                     MELT_CHECK_SIGNAL();
34121                     ;
34122                     /*_#IS_A__L17*/
34123                     meltfnum[15] =
34124                         melt_is_instance_of((melt_ptr_t)(/*_.SRCOMP__V49*/ meltfptr[47]), (melt_ptr_t)((/*!CLASS_SOURCE*/ meltfrout->tabval[16])));;
34125                     MELT_LOCATION("warmelt-normal.melt:2914:/ cond");
34126                     /*cond*/
34127                     if (/*_#IS_A__L17*/ meltfnum[15]) /*then*/
34128                         {
34129                             /*^cond.then*/
34130                             /*^block*/
34131                             /*anyblock*/
34132                             {
34133
34134
34135                                 MELT_CHECK_SIGNAL();
34136                                 ;
34137                                 MELT_LOCATION("warmelt-normal.melt:2915:/ quasiblock");
34138
34139
34140                                 /*^multimsend*/
34141                                 /*multimsend*/
34142                                 {
34143                                     union meltparam_un argtab[3];
34144                                     union meltparam_un restab[1];
34145                                     memset(&argtab, 0, sizeof(argtab));
34146                                     memset(&restab, 0, sizeof(restab));
34147                                     /*^multimsend.arg*/
34148                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V24*/ meltfptr[23];/*^multimsend.arg*/
34149                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multimsend.arg*/
34150                                     argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
34151                                     /*^multimsend.xres*/
34152                                     restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCBIND__V55*/ meltfptr[54];/*^multimsend.send*/
34153                                     /*_.NCOMP__V54*/
34154                                     meltfptr[53] =  meltgc_send ((melt_ptr_t)(/*_.SRCOMP__V49*/ meltfptr[47]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[17]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
34155                                 }
34156                                 ;
34157                                 /*^quasiblock*/
34158
34159
34160
34161 #if MELT_HAVE_DEBUG
34162                                 MELT_LOCATION("warmelt-normal.melt:2918:/ cppif.then");
34163                                 /*^block*/
34164                                 /*anyblock*/
34165                                 {
34166
34167
34168                                     {
34169                                         /*^locexp*/
34170                                         /*melt_increment_dbgcounter*/
34171 #if MELT_HAVE_DEBUG
34172                                         melt_dbgcounter++;
34173 #endif
34174                                         ;
34175                                     }
34176                                     ;
34177
34178                                     MELT_CHECK_SIGNAL();
34179                                     ;
34180                                     /*_#MELT_NEED_DBG__L18*/
34181                                     meltfnum[1] =
34182                                         /*MELT_NEED_DBG*/
34183 #if MELT_HAVE_DEBUG
34184                                         (/*melt_need_dbg*/ melt_need_debug ((int) 0))
34185 #else
34186                                         0 /* no melt_need_dbg */
34187 #endif /*MELT_HAVE_DEBUG*/
34188                                         ;;
34189                                     MELT_LOCATION("warmelt-normal.melt:2918:/ cond");
34190                                     /*cond*/
34191                                     if (/*_#MELT_NEED_DBG__L18*/ meltfnum[1]) /*then*/
34192                                         {
34193                                             /*^cond.then*/
34194                                             /*^block*/
34195                                             /*anyblock*/
34196                                             {
34197
34198                                                 /*_#MELT_CALLCOUNT__L19*/ meltfnum[18] =
34199                                                     /* for melt_callcount */
34200 #if MELT_HAVE_DEBUG && defined (meltcallcount)
34201                                                     meltcallcount  /* melt_callcount debugging */
34202 #else
34203                                                     0L  /* melt_callcount without debug */
34204 #endif /* MELT_HAVE_DEBUG melt_callcount */
34205                                                     ;;
34206
34207                                                 MELT_CHECK_SIGNAL();
34208                                                 ;
34209                                                 MELT_LOCATION("warmelt-normal.melt:2918:/ apply");
34210                                                 /*apply*/
34211                                                 {
34212                                                     union meltparam_un argtab[9];
34213                                                     memset(&argtab, 0, sizeof(argtab));
34214                                                     /*^apply.arg*/
34215                                                     argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L19*/ meltfnum[18];
34216                                                     /*^apply.arg*/
34217                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
34218                                                     /*^apply.arg*/
34219                                                     argtab[2].meltbp_long = 2918;
34220                                                     /*^apply.arg*/
34221                                                     argtab[3].meltbp_cstring =  "normexp_expr_chunk six#";
34222                                                     /*^apply.arg*/
34223                                                     argtab[4].meltbp_long = /*_#SIX__L14*/ meltfnum[10];
34224                                                     /*^apply.arg*/
34225                                                     argtab[5].meltbp_cstring =  " ncomp=";
34226                                                     /*^apply.arg*/
34227                                                     argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NCOMP__V54*/ meltfptr[53];
34228                                                     /*^apply.arg*/
34229                                                     argtab[7].meltbp_cstring =  "\n.. ncbind=";
34230                                                     /*^apply.arg*/
34231                                                     argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NCBIND__V55*/ meltfptr[54];
34232                                                     /*_.MELT_DEBUG_FUN__V57*/
34233                                                     meltfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
34234                                                 }
34235                                                 ;
34236                                                 /*_._IF___V56*/
34237                                                 meltfptr[55] = /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56];;
34238                                                 /*epilog*/
34239
34240                                                 MELT_LOCATION("warmelt-normal.melt:2918:/ clear");
34241                                                 /*clear*/ /*_#MELT_CALLCOUNT__L19*/
34242                                                 meltfnum[18] = 0 ;
34243                                                 /*^clear*/
34244                                                 /*clear*/ /*_.MELT_DEBUG_FUN__V57*/
34245                                                 meltfptr[56] = 0 ;
34246                                             }
34247                                             ;
34248                                         }
34249                                     else    /*^cond.else*/
34250                                         {
34251
34252                                             /*_._IF___V56*/ meltfptr[55] =  /*reallynil*/ NULL ;;
34253                                         }
34254                                     ;
34255
34256                                     {
34257                                         MELT_LOCATION("warmelt-normal.melt:2918:/ locexp");
34258                                         /*void*/
34259                                         (void)0;
34260                                     }
34261                                     ;
34262                                     /*^quasiblock*/
34263
34264
34265                                     /*epilog*/
34266
34267                                     /*^clear*/
34268                                     /*clear*/ /*_#MELT_NEED_DBG__L18*/
34269                                     meltfnum[1] = 0 ;
34270                                     /*^clear*/
34271                                     /*clear*/ /*_._IF___V56*/
34272                                     meltfptr[55] = 0 ;
34273                                 }
34274
34275 #else /*MELT_HAVE_DEBUG*/
34276                                 /*^cppif.else*/
34277                                 /*^block*/
34278                                 /*anyblock*/
34279                                 {
34280
34281
34282                                     {
34283                                         /*^locexp*/
34284                                         /*void*/(void)0;
34285                                     }
34286                                     ;
34287                                     /*epilog*/
34288                                 }
34289
34290 #endif /*MELT_HAVE_DEBUG*/
34291                                 ;
34292
34293 #if MELT_HAVE_DEBUG
34294                                 MELT_LOCATION("warmelt-normal.melt:2919:/ cppif.then");
34295                                 /*^block*/
34296                                 /*anyblock*/
34297                                 {
34298
34299
34300                                     MELT_CHECK_SIGNAL();
34301                                     ;
34302                                     /*_#IS_LIST_OR_NULL__L20*/
34303                                     meltfnum[18] =
34304                                         ((/*_.NCBIND__V55*/ meltfptr[54]) == NULL
34305                                          || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NCBIND__V55*/ meltfptr[54])) == MELTOBMAG_LIST));;
34306                                     MELT_LOCATION("warmelt-normal.melt:2919:/ cond");
34307                                     /*cond*/
34308                                     if (/*_#IS_LIST_OR_NULL__L20*/ meltfnum[18]) /*then*/
34309                                         {
34310                                             /*^cond.then*/
34311                                             /*_._IFELSE___V59*/ meltfptr[55] = (/*nil*/NULL);;
34312                                         }
34313                                     else
34314                                         {
34315                                             MELT_LOCATION("warmelt-normal.melt:2919:/ cond.else");
34316
34317                                             /*^block*/
34318                                             /*anyblock*/
34319                                             {
34320
34321
34322                                                 MELT_CHECK_SIGNAL();
34323                                                 ;
34324                                                 /*^apply*/
34325                                                 /*apply*/
34326                                                 {
34327                                                     union meltparam_un argtab[4];
34328                                                     memset(&argtab, 0, sizeof(argtab));
34329                                                     /*^apply.arg*/
34330                                                     argtab[0].meltbp_cstring =  "check ncbind";
34331                                                     /*^apply.arg*/
34332                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
34333                                                     /*^apply.arg*/
34334                                                     argtab[2].meltbp_long = 2919;
34335                                                     /*^apply.arg*/
34336                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCBIND__V55*/ meltfptr[54];
34337                                                     /*_.MELT_ASSERT_FAILURE_FUN__V60*/
34338                                                     meltfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
34339                                                 }
34340                                                 ;
34341                                                 /*_._IFELSE___V59*/
34342                                                 meltfptr[55] = /*_.MELT_ASSERT_FAILURE_FUN__V60*/ meltfptr[59];;
34343                                                 /*epilog*/
34344
34345                                                 MELT_LOCATION("warmelt-normal.melt:2919:/ clear");
34346                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V60*/
34347                                                 meltfptr[59] = 0 ;
34348                                             }
34349                                             ;
34350                                         }
34351                                     ;
34352                                     /*_.IFCPP___V58*/
34353                                     meltfptr[56] = /*_._IFELSE___V59*/ meltfptr[55];;
34354                                     /*epilog*/
34355
34356                                     MELT_LOCATION("warmelt-normal.melt:2919:/ clear");
34357                                     /*clear*/ /*_#IS_LIST_OR_NULL__L20*/
34358                                     meltfnum[18] = 0 ;
34359                                     /*^clear*/
34360                                     /*clear*/ /*_._IFELSE___V59*/
34361                                     meltfptr[55] = 0 ;
34362                                 }
34363
34364 #else /*MELT_HAVE_DEBUG*/
34365                                 /*^cppif.else*/
34366                                 /*_.IFCPP___V58*/ meltfptr[56] = (/*nil*/NULL);
34367 #endif /*MELT_HAVE_DEBUG*/
34368                                 ;
34369
34370                                 MELT_CHECK_SIGNAL();
34371                                 ;
34372                                 MELT_LOCATION("warmelt-normal.melt:2920:/ cond");
34373                                 /*cond*/
34374                                 if (/*_.NCBIND__V55*/ meltfptr[54]) /*then*/
34375                                     {
34376                                         /*^cond.then*/
34377                                         /*^block*/
34378                                         /*anyblock*/
34379                                         {
34380
34381
34382                                             MELT_CHECK_SIGNAL();
34383                                             ;
34384                                             /*^apply*/
34385                                             /*apply*/
34386                                             {
34387                                                 union meltparam_un argtab[1];
34388                                                 memset(&argtab, 0, sizeof(argtab));
34389                                                 /*^apply.arg*/
34390                                                 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCBIND__V55*/ meltfptr[54];
34391                                                 /*_.LIST_APPEND2LIST__V62*/
34392                                                 meltfptr[55] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.LISTBINDS__V38*/ meltfptr[34]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
34393                                             }
34394                                             ;
34395                                             /*_._IF___V61*/
34396                                             meltfptr[59] = /*_.LIST_APPEND2LIST__V62*/ meltfptr[55];;
34397                                             /*epilog*/
34398
34399                                             MELT_LOCATION("warmelt-normal.melt:2920:/ clear");
34400                                             /*clear*/ /*_.LIST_APPEND2LIST__V62*/
34401                                             meltfptr[55] = 0 ;
34402                                         }
34403                                         ;
34404                                     }
34405                                 else    /*^cond.else*/
34406                                     {
34407
34408                                         /*_._IF___V61*/ meltfptr[59] =  /*reallynil*/ NULL ;;
34409                                     }
34410                                 ;
34411
34412                                 MELT_CHECK_SIGNAL();
34413                                 ;
34414                                 /*^compute*/
34415                                 /*_#IS_LIST__L21*/
34416                                 meltfnum[1] =
34417                                     (melt_magic_discr((melt_ptr_t)(/*_.NCOMP__V54*/ meltfptr[53])) == MELTOBMAG_LIST);;
34418                                 MELT_LOCATION("warmelt-normal.melt:2921:/ cond");
34419                                 /*cond*/
34420                                 if (/*_#IS_LIST__L21*/ meltfnum[1]) /*then*/
34421                                     {
34422                                         /*^cond.then*/
34423                                         /*^block*/
34424                                         /*anyblock*/
34425                                         {
34426
34427
34428                                             MELT_CHECK_SIGNAL();
34429                                             ;
34430                                             MELT_LOCATION("warmelt-normal.melt:2922:/ apply");
34431                                             /*apply*/
34432                                             {
34433                                                 union meltparam_un argtab[1];
34434                                                 memset(&argtab, 0, sizeof(argtab));
34435                                                 /*^apply.arg*/
34436                                                 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NCOMP__V54*/ meltfptr[53];
34437                                                 /*_.LIST_APPEND2LIST__V64*/
34438                                                 meltfptr[63] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.LISTNCHUNKS__V39*/ meltfptr[27]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
34439                                             }
34440                                             ;
34441                                             /*_._IFELSE___V63*/
34442                                             meltfptr[55] = /*_.LIST_APPEND2LIST__V64*/ meltfptr[63];;
34443                                             /*epilog*/
34444
34445                                             MELT_LOCATION("warmelt-normal.melt:2921:/ clear");
34446                                             /*clear*/ /*_.LIST_APPEND2LIST__V64*/
34447                                             meltfptr[63] = 0 ;
34448                                         }
34449                                         ;
34450                                     }
34451                                 else    /*^cond.else*/
34452                                     {
34453
34454                                         /*^block*/
34455                                         /*anyblock*/
34456                                         {
34457
34458
34459
34460
34461                                             {
34462                                                 MELT_LOCATION("warmelt-normal.melt:2923:/ locexp");
34463                                                 meltgc_append_list((melt_ptr_t)(/*_.LISTNCHUNKS__V39*/ meltfptr[27]), (melt_ptr_t)(/*_.NCOMP__V54*/ meltfptr[53]));
34464                                             }
34465                                             ;
34466                                             /*clear*/ /*_._IFELSE___V63*/
34467                                             meltfptr[55] = 0 ;
34468                                             /*epilog*/
34469                                         }
34470                                         ;
34471                                     }
34472                                 ;
34473
34474                                 MELT_CHECK_SIGNAL();
34475                                 ;
34476                                 /*^compute*/
34477                                 /*_.MULTI___V53*/
34478                                 meltfptr[40] = /*_._IFELSE___V63*/ meltfptr[55];;
34479
34480                                 MELT_LOCATION("warmelt-normal.melt:2915:/ clear");
34481                                 /*clear*/ /*_.IFCPP___V58*/
34482                                 meltfptr[56] = 0 ;
34483                                 /*^clear*/
34484                                 /*clear*/ /*_._IF___V61*/
34485                                 meltfptr[59] = 0 ;
34486                                 /*^clear*/
34487                                 /*clear*/ /*_#IS_LIST__L21*/
34488                                 meltfnum[1] = 0 ;
34489                                 /*^clear*/
34490                                 /*clear*/ /*_._IFELSE___V63*/
34491                                 meltfptr[55] = 0 ;
34492
34493                                 /*^clear*/
34494                                 /*clear*/ /*_.NCBIND__V55*/
34495                                 meltfptr[54] = 0 ;
34496                                 /*_._IFELSE___V52*/
34497                                 meltfptr[50] = /*_.MULTI___V53*/ meltfptr[40];;
34498                                 /*epilog*/
34499
34500                                 MELT_LOCATION("warmelt-normal.melt:2914:/ clear");
34501                                 /*clear*/ /*_.MULTI___V53*/
34502                                 meltfptr[40] = 0 ;
34503                             }
34504                             ;
34505                         }
34506                     else    /*^cond.else*/
34507                         {
34508
34509                             /*^block*/
34510                             /*anyblock*/
34511                             {
34512
34513
34514                                 MELT_CHECK_SIGNAL();
34515                                 ;
34516                                 /*_#IS_A__L22*/
34517                                 meltfnum[18] =
34518                                     melt_is_instance_of((melt_ptr_t)(/*_.SRCOMP__V49*/ meltfptr[47]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[19])));;
34519                                 MELT_LOCATION("warmelt-normal.melt:2925:/ cond");
34520                                 /*cond*/
34521                                 if (/*_#IS_A__L22*/ meltfnum[18]) /*then*/
34522                                     {
34523                                         /*^cond.then*/
34524                                         /*^block*/
34525                                         /*anyblock*/
34526                                         {
34527
34528
34529                                             MELT_CHECK_SIGNAL();
34530                                             ;
34531                                             MELT_LOCATION("warmelt-normal.melt:2926:/ quasiblock");
34532
34533
34534                                             /*^multimsend*/
34535                                             /*multimsend*/
34536                                             {
34537                                                 union meltparam_un argtab[3];
34538                                                 union meltparam_un restab[1];
34539                                                 memset(&argtab, 0, sizeof(argtab));
34540                                                 memset(&restab, 0, sizeof(restab));
34541                                                 /*^multimsend.arg*/
34542                                                 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V24*/ meltfptr[23];/*^multimsend.arg*/
34543                                                 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multimsend.arg*/
34544                                                 argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
34545                                                 /*^multimsend.xres*/
34546                                                 restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NSBIND__V66*/ meltfptr[56];/*^multimsend.send*/
34547                                                 /*_.NSYMB__V65*/
34548                                                 meltfptr[63] =  meltgc_send ((melt_ptr_t)(/*_.SRCOMP__V49*/ meltfptr[47]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[17]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
34549                                             }
34550                                             ;
34551                                             /*^quasiblock*/
34552
34553
34554
34555 #if MELT_HAVE_DEBUG
34556                                             MELT_LOCATION("warmelt-normal.melt:2929:/ cppif.then");
34557                                             /*^block*/
34558                                             /*anyblock*/
34559                                             {
34560
34561
34562                                                 {
34563                                                     /*^locexp*/
34564                                                     /*melt_increment_dbgcounter*/
34565 #if MELT_HAVE_DEBUG
34566                                                     melt_dbgcounter++;
34567 #endif
34568                                                     ;
34569                                                 }
34570                                                 ;
34571
34572                                                 MELT_CHECK_SIGNAL();
34573                                                 ;
34574                                                 /*_#MELT_NEED_DBG__L23*/
34575                                                 meltfnum[1] =
34576                                                     /*MELT_NEED_DBG*/
34577 #if MELT_HAVE_DEBUG
34578                                                     (/*melt_need_dbg*/ melt_need_debug ((int) 0))
34579 #else
34580                                                     0 /* no melt_need_dbg */
34581 #endif /*MELT_HAVE_DEBUG*/
34582                                                     ;;
34583                                                 MELT_LOCATION("warmelt-normal.melt:2929:/ cond");
34584                                                 /*cond*/
34585                                                 if (/*_#MELT_NEED_DBG__L23*/ meltfnum[1]) /*then*/
34586                                                     {
34587                                                         /*^cond.then*/
34588                                                         /*^block*/
34589                                                         /*anyblock*/
34590                                                         {
34591
34592                                                             /*_#MELT_CALLCOUNT__L24*/ meltfnum[23] =
34593                                                                 /* for melt_callcount */
34594 #if MELT_HAVE_DEBUG && defined (meltcallcount)
34595                                                                 meltcallcount  /* melt_callcount debugging */
34596 #else
34597                                                                 0L  /* melt_callcount without debug */
34598 #endif /* MELT_HAVE_DEBUG melt_callcount */
34599                                                                 ;;
34600
34601                                                             MELT_CHECK_SIGNAL();
34602                                                             ;
34603                                                             MELT_LOCATION("warmelt-normal.melt:2929:/ apply");
34604                                                             /*apply*/
34605                                                             {
34606                                                                 union meltparam_un argtab[7];
34607                                                                 memset(&argtab, 0, sizeof(argtab));
34608                                                                 /*^apply.arg*/
34609                                                                 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L24*/ meltfnum[23];
34610                                                                 /*^apply.arg*/
34611                                                                 argtab[1].meltbp_cstring =  "warmelt-normal.melt";
34612                                                                 /*^apply.arg*/
34613                                                                 argtab[2].meltbp_long = 2929;
34614                                                                 /*^apply.arg*/
34615                                                                 argtab[3].meltbp_cstring =  "normexp_expr_chunk nsymb=";
34616                                                                 /*^apply.arg*/
34617                                                                 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NSYMB__V65*/ meltfptr[63];
34618                                                                 /*^apply.arg*/
34619                                                                 argtab[5].meltbp_cstring =  " nsbind=";
34620                                                                 /*^apply.arg*/
34621                                                                 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NSBIND__V66*/ meltfptr[56];
34622                                                                 /*_.MELT_DEBUG_FUN__V68*/
34623                                                                 meltfptr[55] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
34624                                                             }
34625                                                             ;
34626                                                             /*_._IF___V67*/
34627                                                             meltfptr[59] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[55];;
34628                                                             /*epilog*/
34629
34630                                                             MELT_LOCATION("warmelt-normal.melt:2929:/ clear");
34631                                                             /*clear*/ /*_#MELT_CALLCOUNT__L24*/
34632                                                             meltfnum[23] = 0 ;
34633                                                             /*^clear*/
34634                                                             /*clear*/ /*_.MELT_DEBUG_FUN__V68*/
34635                                                             meltfptr[55] = 0 ;
34636                                                         }
34637                                                         ;
34638                                                     }
34639                                                 else    /*^cond.else*/
34640                                                     {
34641
34642                                                         /*_._IF___V67*/ meltfptr[59] =  /*reallynil*/ NULL ;;
34643                                                     }
34644                                                 ;
34645
34646                                                 {
34647                                                     MELT_LOCATION("warmelt-normal.melt:2929:/ locexp");
34648                                                     /*void*/
34649                                                     (void)0;
34650                                                 }
34651                                                 ;
34652                                                 /*^quasiblock*/
34653
34654
34655                                                 /*epilog*/
34656
34657                                                 /*^clear*/
34658                                                 /*clear*/ /*_#MELT_NEED_DBG__L23*/
34659                                                 meltfnum[1] = 0 ;
34660                                                 /*^clear*/
34661                                                 /*clear*/ /*_._IF___V67*/
34662                                                 meltfptr[59] = 0 ;
34663                                             }
34664
34665 #else /*MELT_HAVE_DEBUG*/
34666                                             /*^cppif.else*/
34667                                             /*^block*/
34668                                             /*anyblock*/
34669                                             {
34670
34671
34672                                                 {
34673                                                     /*^locexp*/
34674                                                     /*void*/(void)0;
34675                                                 }
34676                                                 ;
34677                                                 /*epilog*/
34678                                             }
34679
34680 #endif /*MELT_HAVE_DEBUG*/
34681                                             ;
34682
34683 #if MELT_HAVE_DEBUG
34684                                             MELT_LOCATION("warmelt-normal.melt:2930:/ cppif.then");
34685                                             /*^block*/
34686                                             /*anyblock*/
34687                                             {
34688
34689
34690                                                 MELT_CHECK_SIGNAL();
34691                                                 ;
34692                                                 /*_#NULL__L25*/
34693                                                 meltfnum[23] =
34694                                                     (/*null*/(/*_.NSBIND__V66*/ meltfptr[56]) == NULL);;
34695                                                 MELT_LOCATION("warmelt-normal.melt:2930:/ cond");
34696                                                 /*cond*/
34697                                                 if (/*_#NULL__L25*/ meltfnum[23]) /*then*/
34698                                                     {
34699                                                         /*^cond.then*/
34700                                                         /*_._IFELSE___V70*/ meltfptr[54] = (/*nil*/NULL);;
34701                                                     }
34702                                                 else
34703                                                     {
34704                                                         MELT_LOCATION("warmelt-normal.melt:2930:/ cond.else");
34705
34706                                                         /*^block*/
34707                                                         /*anyblock*/
34708                                                         {
34709
34710
34711                                                             MELT_CHECK_SIGNAL();
34712                                                             ;
34713                                                             /*^apply*/
34714                                                             /*apply*/
34715                                                             {
34716                                                                 union meltparam_un argtab[4];
34717                                                                 memset(&argtab, 0, sizeof(argtab));
34718                                                                 /*^apply.arg*/
34719                                                                 argtab[0].meltbp_cstring =  "nsbind null";
34720                                                                 /*^apply.arg*/
34721                                                                 argtab[1].meltbp_cstring =  "warmelt-normal.melt";
34722                                                                 /*^apply.arg*/
34723                                                                 argtab[2].meltbp_long = 2930;
34724                                                                 /*^apply.arg*/
34725                                                                 argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NSBIND__V66*/ meltfptr[56];
34726                                                                 /*_.MELT_ASSERT_FAILURE_FUN__V71*/
34727                                                                 meltfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
34728                                                             }
34729                                                             ;
34730                                                             /*_._IFELSE___V70*/
34731                                                             meltfptr[54] = /*_.MELT_ASSERT_FAILURE_FUN__V71*/ meltfptr[40];;
34732                                                             /*epilog*/
34733
34734                                                             MELT_LOCATION("warmelt-normal.melt:2930:/ clear");
34735                                                             /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V71*/
34736                                                             meltfptr[40] = 0 ;
34737                                                         }
34738                                                         ;
34739                                                     }
34740                                                 ;
34741                                                 /*_.IFCPP___V69*/
34742                                                 meltfptr[53] = /*_._IFELSE___V70*/ meltfptr[54];;
34743                                                 /*epilog*/
34744
34745                                                 MELT_LOCATION("warmelt-normal.melt:2930:/ clear");
34746                                                 /*clear*/ /*_#NULL__L25*/
34747                                                 meltfnum[23] = 0 ;
34748                                                 /*^clear*/
34749                                                 /*clear*/ /*_._IFELSE___V70*/
34750                                                 meltfptr[54] = 0 ;
34751                                             }
34752
34753 #else /*MELT_HAVE_DEBUG*/
34754                                             /*^cppif.else*/
34755                                             /*_.IFCPP___V69*/ meltfptr[53] = (/*nil*/NULL);
34756 #endif /*MELT_HAVE_DEBUG*/
34757                                             ;
34758
34759                                             {
34760                                                 MELT_LOCATION("warmelt-normal.melt:2931:/ locexp");
34761                                                 meltgc_append_list((melt_ptr_t)(/*_.LISTNCHUNKS__V39*/ meltfptr[27]), (melt_ptr_t)(/*_.NSYMB__V65*/ meltfptr[63]));
34762                                             }
34763                                             ;
34764
34765                                             MELT_CHECK_SIGNAL();
34766                                             ;
34767                                             /*_._IFELSE___V52*/
34768                                             meltfptr[50] = /*_.IFCPP___V69*/ meltfptr[53];;
34769
34770                                             MELT_LOCATION("warmelt-normal.melt:2926:/ clear");
34771                                             /*clear*/ /*_.IFCPP___V69*/
34772                                             meltfptr[53] = 0 ;
34773
34774                                             /*^clear*/
34775                                             /*clear*/ /*_.NSBIND__V66*/
34776                                             meltfptr[56] = 0 ;
34777                                             /*epilog*/
34778                                         }
34779                                         ;
34780                                     }
34781                                 else
34782                                     {
34783                                         MELT_LOCATION("warmelt-normal.melt:2925:/ cond.else");
34784
34785                                         /*^block*/
34786                                         /*anyblock*/
34787                                         {
34788
34789
34790                                             MELT_CHECK_SIGNAL();
34791                                             ;
34792                                             /*_#IS_STRING__L26*/
34793                                             meltfnum[1] =
34794                                                 (melt_magic_discr((melt_ptr_t)(/*_.SRCOMP__V49*/ meltfptr[47])) == MELTOBMAG_STRING);;
34795                                             MELT_LOCATION("warmelt-normal.melt:2933:/ cond");
34796                                             /*cond*/
34797                                             if (/*_#IS_STRING__L26*/ meltfnum[1]) /*then*/
34798                                                 {
34799                                                     /*^cond.then*/
34800                                                     /*^block*/
34801                                                     /*anyblock*/
34802                                                     {
34803
34804                                                         /*_.MAKE_STRING__V72*/ meltfptr[55] =
34805                                                             (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[11])),
34806                                                                                   melt_string_str((melt_ptr_t)(/*_.SRCOMP__V49*/ meltfptr[47]))));;
34807
34808
34809
34810                                                         {
34811                                                             MELT_LOCATION("warmelt-normal.melt:2934:/ locexp");
34812                                                             meltgc_append_list((melt_ptr_t)(/*_.LISTNCHUNKS__V39*/ meltfptr[27]), (melt_ptr_t)(/*_.MAKE_STRING__V72*/ meltfptr[55]));
34813                                                         }
34814                                                         ;
34815                                                         /*clear*/ /*_._IFELSE___V52*/
34816                                                         meltfptr[50] = 0 ;
34817                                                         /*epilog*/
34818
34819                                                         MELT_LOCATION("warmelt-normal.melt:2933:/ clear");
34820                                                         /*clear*/ /*_.MAKE_STRING__V72*/
34821                                                         meltfptr[55] = 0 ;
34822                                                     }
34823                                                     ;
34824                                                 }
34825                                             else    /*^cond.else*/
34826                                                 {
34827
34828                                                     /*^block*/
34829                                                     /*anyblock*/
34830                                                     {
34831
34832
34833                                                         {
34834                                                             MELT_LOCATION("warmelt-normal.melt:2937:/ locexp");
34835                                                             meltgc_append_list((melt_ptr_t)(/*_.LISTNCHUNKS__V39*/ meltfptr[27]), (melt_ptr_t)(/*_.SRCOMP__V49*/ meltfptr[47]));
34836                                                         }
34837                                                         ;
34838                                                         MELT_LOCATION("warmelt-normal.melt:2936:/ quasiblock");
34839
34840
34841                                                         /*epilog*/
34842                                                     }
34843                                                     ;
34844                                                 }
34845                                             ;
34846                                             /*epilog*/
34847
34848                                             MELT_LOCATION("warmelt-normal.melt:2925:/ clear");
34849                                             /*clear*/ /*_#IS_STRING__L26*/
34850                                             meltfnum[1] = 0 ;
34851                                         }
34852                                         ;
34853                                     }
34854                                 ;
34855                                 /*epilog*/
34856
34857                                 MELT_LOCATION("warmelt-normal.melt:2914:/ clear");
34858                                 /*clear*/ /*_#IS_A__L22*/
34859                                 meltfnum[18] = 0 ;
34860                             }
34861                             ;
34862                         }
34863                     ;
34864
34865 #if MELT_HAVE_DEBUG
34866                     MELT_LOCATION("warmelt-normal.melt:2939:/ cppif.then");
34867                     /*^block*/
34868                     /*anyblock*/
34869                     {
34870
34871
34872                         {
34873                             /*^locexp*/
34874                             /*melt_increment_dbgcounter*/
34875 #if MELT_HAVE_DEBUG
34876                             melt_dbgcounter++;
34877 #endif
34878                             ;
34879                         }
34880                         ;
34881
34882                         MELT_CHECK_SIGNAL();
34883                         ;
34884                         /*_#MELT_NEED_DBG__L27*/
34885                         meltfnum[23] =
34886                             /*MELT_NEED_DBG*/
34887 #if MELT_HAVE_DEBUG
34888                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
34889 #else
34890                             0 /* no melt_need_dbg */
34891 #endif /*MELT_HAVE_DEBUG*/
34892                             ;;
34893                         MELT_LOCATION("warmelt-normal.melt:2939:/ cond");
34894                         /*cond*/
34895                         if (/*_#MELT_NEED_DBG__L27*/ meltfnum[23]) /*then*/
34896                             {
34897                                 /*^cond.then*/
34898                                 /*^block*/
34899                                 /*anyblock*/
34900                                 {
34901
34902                                     /*_#MELT_CALLCOUNT__L28*/ meltfnum[1] =
34903                                         /* for melt_callcount */
34904 #if MELT_HAVE_DEBUG && defined (meltcallcount)
34905                                         meltcallcount  /* melt_callcount debugging */
34906 #else
34907                                         0L  /* melt_callcount without debug */
34908 #endif /* MELT_HAVE_DEBUG melt_callcount */
34909                                         ;;
34910
34911                                     MELT_CHECK_SIGNAL();
34912                                     ;
34913                                     MELT_LOCATION("warmelt-normal.melt:2939:/ apply");
34914                                     /*apply*/
34915                                     {
34916                                         union meltparam_un argtab[9];
34917                                         memset(&argtab, 0, sizeof(argtab));
34918                                         /*^apply.arg*/
34919                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L28*/ meltfnum[1];
34920                                         /*^apply.arg*/
34921                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
34922                                         /*^apply.arg*/
34923                                         argtab[2].meltbp_long = 2939;
34924                                         /*^apply.arg*/
34925                                         argtab[3].meltbp_cstring =  "normexp_expr_chunk six#";
34926                                         /*^apply.arg*/
34927                                         argtab[4].meltbp_long = /*_#SIX__L14*/ meltfnum[10];
34928                                         /*^apply.arg*/
34929                                         argtab[5].meltbp_cstring =  "\n updated listbinds=";
34930                                         /*^apply.arg*/
34931                                         argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.LISTBINDS__V38*/ meltfptr[34];
34932                                         /*^apply.arg*/
34933                                         argtab[7].meltbp_cstring =  "\n updated listnchunks=";
34934                                         /*^apply.arg*/
34935                                         argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.LISTNCHUNKS__V39*/ meltfptr[27];
34936                                         /*_.MELT_DEBUG_FUN__V74*/
34937                                         meltfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
34938                                     }
34939                                     ;
34940                                     /*_._IF___V73*/
34941                                     meltfptr[59] = /*_.MELT_DEBUG_FUN__V74*/ meltfptr[40];;
34942                                     /*epilog*/
34943
34944                                     MELT_LOCATION("warmelt-normal.melt:2939:/ clear");
34945                                     /*clear*/ /*_#MELT_CALLCOUNT__L28*/
34946                                     meltfnum[1] = 0 ;
34947                                     /*^clear*/
34948                                     /*clear*/ /*_.MELT_DEBUG_FUN__V74*/
34949                                     meltfptr[40] = 0 ;
34950                                 }
34951                                 ;
34952                             }
34953                         else    /*^cond.else*/
34954                             {
34955
34956                                 /*_._IF___V73*/ meltfptr[59] =  /*reallynil*/ NULL ;;
34957                             }
34958                         ;
34959
34960                         {
34961                             MELT_LOCATION("warmelt-normal.melt:2939:/ locexp");
34962                             /*void*/
34963                             (void)0;
34964                         }
34965                         ;
34966                         /*^quasiblock*/
34967
34968
34969                         /*epilog*/
34970
34971                         /*^clear*/
34972                         /*clear*/ /*_#MELT_NEED_DBG__L27*/
34973                         meltfnum[23] = 0 ;
34974                         /*^clear*/
34975                         /*clear*/ /*_._IF___V73*/
34976                         meltfptr[59] = 0 ;
34977                     }
34978
34979 #else /*MELT_HAVE_DEBUG*/
34980                     /*^cppif.else*/
34981                     /*^block*/
34982                     /*anyblock*/
34983                     {
34984
34985
34986                         {
34987                             /*^locexp*/
34988                             /*void*/(void)0;
34989                         }
34990                         ;
34991                         /*epilog*/
34992                     }
34993
34994 #endif /*MELT_HAVE_DEBUG*/
34995                     ;
34996                     if (/*_#SIX__L14*/ meltfnum[10]<0) break;
34997                 } /* end  foreach_in_multiple meltcit1__EACHTUP */
34998
34999             /*citerepilog*/
35000
35001             MELT_LOCATION("warmelt-normal.melt:2910:/ clear");
35002             /*clear*/ /*_.SRCOMP__V49*/
35003             meltfptr[47] = 0 ;
35004             /*^clear*/
35005             /*clear*/ /*_#SIX__L14*/
35006             meltfnum[10] = 0 ;
35007             /*^clear*/
35008             /*clear*/ /*_#IS_A__L17*/
35009             meltfnum[15] = 0 ;
35010             /*^clear*/
35011             /*clear*/ /*_._IFELSE___V52*/
35012             meltfptr[50] = 0 ;
35013         } /*endciterblock FOREACH_IN_MULTIPLE*/
35014         ;
35015         MELT_LOCATION("warmelt-normal.melt:2943:/ quasiblock");
35016
35017
35018
35019         MELT_CHECK_SIGNAL();
35020         ;
35021         /*^apply*/
35022         /*apply*/
35023         {
35024             union meltparam_un argtab[1];
35025             memset(&argtab, 0, sizeof(argtab));
35026             /*^apply.arg*/
35027             argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[14]);
35028             /*_.TUPNCHUNK__V76*/
35029             meltfptr[53] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.LISTNCHUNKS__V39*/ meltfptr[27]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
35030         }
35031         ;
35032
35033         MELT_CHECK_SIGNAL();
35034         ;
35035         MELT_LOCATION("warmelt-normal.melt:2944:/ quasiblock");
35036
35037
35038         /*^rawallocobj*/
35039         /*rawallocobj*/
35040         {
35041             melt_ptr_t newobj = 0;
35042             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ meltfrout->tabval[21])), (4), "CLASS_NREP_CHUNK");
35043             /*_.INST__V78*/
35044             meltfptr[56] =
35045                 newobj;
35046         };
35047         ;
35048         /*^putslot*/
35049         /*putslot*/
35050         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ meltfptr[56])) == MELTOBMAG_OBJECT);
35051         melt_putfield_object((/*_.INST__V78*/ meltfptr[56]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
35052         ;
35053         /*^putslot*/
35054         /*putslot*/
35055         melt_assertmsg("checkobj putslot  _ @NCHUNK_EXPANSION", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ meltfptr[56])) == MELTOBMAG_OBJECT);
35056         melt_putfield_object((/*_.INST__V78*/ meltfptr[56]), (2), (/*_.TUPNCHUNK__V76*/ meltfptr[53]), "NCHUNK_EXPANSION");
35057         ;
35058         /*^putslot*/
35059         /*putslot*/
35060         melt_assertmsg("checkobj putslot  _ @NCHUNK_OPER", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ meltfptr[56])) == MELTOBMAG_OBJECT);
35061         melt_putfield_object((/*_.INST__V78*/ meltfptr[56]), (3), (/*_.CSYM__V22*/ meltfptr[21]), "NCHUNK_OPER");
35062         ;
35063         /*^putslot*/
35064         /*putslot*/
35065         melt_assertmsg("checkobj putslot  _ @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ meltfptr[56])) == MELTOBMAG_OBJECT);
35066         melt_putfield_object((/*_.INST__V78*/ meltfptr[56]), (1), (/*_.CTYP__V21*/ meltfptr[20]), "NEXPR_CTYP");
35067         ;
35068         /*^touchobj*/
35069
35070         melt_dbgtrace_written_object (/*_.INST__V78*/ meltfptr[56], "newly made instance");
35071         ;
35072         /*_.NCHUNK__V77*/
35073         meltfptr[63] = /*_.INST__V78*/ meltfptr[56];;
35074
35075         MELT_CHECK_SIGNAL();
35076         ;
35077         MELT_LOCATION("warmelt-normal.melt:2949:/ quasiblock");
35078
35079
35080         /*^rawallocobj*/
35081         /*rawallocobj*/
35082         {
35083             melt_ptr_t newobj = 0;
35084             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[22])), (4), "CLASS_NORMAL_LET_BINDING");
35085             /*_.INST__V80*/
35086             meltfptr[40] =
35087                 newobj;
35088         };
35089         ;
35090         /*^putslot*/
35091         /*putslot*/
35092         melt_assertmsg("checkobj putslot  _ @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V80*/ meltfptr[40])) == MELTOBMAG_OBJECT);
35093         melt_putfield_object((/*_.INST__V80*/ meltfptr[40]), (3), (/*_.SLOC__V18*/ meltfptr[5]), "LETBIND_LOC");
35094         ;
35095         /*^putslot*/
35096         /*putslot*/
35097         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V80*/ meltfptr[40])) == MELTOBMAG_OBJECT);
35098         melt_putfield_object((/*_.INST__V80*/ meltfptr[40]), (0), (/*_.CSYM__V22*/ meltfptr[21]), "BINDER");
35099         ;
35100         /*^putslot*/
35101         /*putslot*/
35102         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V80*/ meltfptr[40])) == MELTOBMAG_OBJECT);
35103         melt_putfield_object((/*_.INST__V80*/ meltfptr[40]), (1), (/*_.CTYP__V21*/ meltfptr[20]), "LETBIND_TYPE");
35104         ;
35105         /*^putslot*/
35106         /*putslot*/
35107         melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V80*/ meltfptr[40])) == MELTOBMAG_OBJECT);
35108         melt_putfield_object((/*_.INST__V80*/ meltfptr[40]), (2), (/*_.NCHUNK__V77*/ meltfptr[63]), "LETBIND_EXPR");
35109         ;
35110         /*^touchobj*/
35111
35112         melt_dbgtrace_written_object (/*_.INST__V80*/ meltfptr[40], "newly made instance");
35113         ;
35114         /*_.CBIND__V79*/
35115         meltfptr[55] = /*_.INST__V80*/ meltfptr[40];;
35116
35117         MELT_CHECK_SIGNAL();
35118         ;
35119         MELT_LOCATION("warmelt-normal.melt:2954:/ quasiblock");
35120
35121
35122         /*^rawallocobj*/
35123         /*rawallocobj*/
35124         {
35125             melt_ptr_t newobj = 0;
35126             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[23])), (4), "CLASS_NREP_LOCSYMOCC");
35127             /*_.INST__V82*/
35128             meltfptr[81] =
35129                 newobj;
35130         };
35131         ;
35132         /*^putslot*/
35133         /*putslot*/
35134         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[81])) == MELTOBMAG_OBJECT);
35135         melt_putfield_object((/*_.INST__V82*/ meltfptr[81]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
35136         ;
35137         /*^putslot*/
35138         /*putslot*/
35139         melt_assertmsg("checkobj putslot  _ @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[81])) == MELTOBMAG_OBJECT);
35140         melt_putfield_object((/*_.INST__V82*/ meltfptr[81]), (2), (/*_.CTYP__V21*/ meltfptr[20]), "NOCC_CTYP");
35141         ;
35142         /*^putslot*/
35143         /*putslot*/
35144         melt_assertmsg("checkobj putslot  _ @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[81])) == MELTOBMAG_OBJECT);
35145         melt_putfield_object((/*_.INST__V82*/ meltfptr[81]), (1), (/*_.CSYM__V22*/ meltfptr[21]), "NOCC_SYMB");
35146         ;
35147         /*^putslot*/
35148         /*putslot*/
35149         melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[81])) == MELTOBMAG_OBJECT);
35150         melt_putfield_object((/*_.INST__V82*/ meltfptr[81]), (3), (/*_.CBIND__V79*/ meltfptr[55]), "NOCC_BIND");
35151         ;
35152         /*^touchobj*/
35153
35154         melt_dbgtrace_written_object (/*_.INST__V82*/ meltfptr[81], "newly made instance");
35155         ;
35156         /*_.CLOCC__V81*/
35157         meltfptr[59] = /*_.INST__V82*/ meltfptr[81];;
35158
35159         {
35160             MELT_LOCATION("warmelt-normal.melt:2960:/ locexp");
35161             meltgc_append_list((melt_ptr_t)(/*_.LISTBINDS__V38*/ meltfptr[34]), (melt_ptr_t)(/*_.CBIND__V79*/ meltfptr[55]));
35162         }
35163         ;
35164
35165 #if MELT_HAVE_DEBUG
35166         MELT_LOCATION("warmelt-normal.melt:2961:/ cppif.then");
35167         /*^block*/
35168         /*anyblock*/
35169         {
35170
35171
35172             {
35173                 /*^locexp*/
35174                 /*melt_increment_dbgcounter*/
35175 #if MELT_HAVE_DEBUG
35176                 melt_dbgcounter++;
35177 #endif
35178                 ;
35179             }
35180             ;
35181
35182             MELT_CHECK_SIGNAL();
35183             ;
35184             /*_#MELT_NEED_DBG__L29*/
35185             meltfnum[18] =
35186                 /*MELT_NEED_DBG*/
35187 #if MELT_HAVE_DEBUG
35188                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
35189 #else
35190                 0 /* no melt_need_dbg */
35191 #endif /*MELT_HAVE_DEBUG*/
35192                 ;;
35193             MELT_LOCATION("warmelt-normal.melt:2961:/ cond");
35194             /*cond*/
35195             if (/*_#MELT_NEED_DBG__L29*/ meltfnum[18]) /*then*/
35196                 {
35197                     /*^cond.then*/
35198                     /*^block*/
35199                     /*anyblock*/
35200                     {
35201
35202                         /*_#MELT_CALLCOUNT__L30*/ meltfnum[1] =
35203                             /* for melt_callcount */
35204 #if MELT_HAVE_DEBUG && defined (meltcallcount)
35205                             meltcallcount  /* melt_callcount debugging */
35206 #else
35207                             0L  /* melt_callcount without debug */
35208 #endif /* MELT_HAVE_DEBUG melt_callcount */
35209                             ;;
35210
35211                         MELT_CHECK_SIGNAL();
35212                         ;
35213                         MELT_LOCATION("warmelt-normal.melt:2961:/ apply");
35214                         /*apply*/
35215                         {
35216                             union meltparam_un argtab[9];
35217                             memset(&argtab, 0, sizeof(argtab));
35218                             /*^apply.arg*/
35219                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L30*/ meltfnum[1];
35220                             /*^apply.arg*/
35221                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
35222                             /*^apply.arg*/
35223                             argtab[2].meltbp_long = 2961;
35224                             /*^apply.arg*/
35225                             argtab[3].meltbp_cstring =  "normexp_expr_chunk with nchunk=";
35226                             /*^apply.arg*/
35227                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NCHUNK__V77*/ meltfptr[63];
35228                             /*^apply.arg*/
35229                             argtab[5].meltbp_cstring =  " gives clocc=";
35230                             /*^apply.arg*/
35231                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V81*/ meltfptr[59];
35232                             /*^apply.arg*/
35233                             argtab[7].meltbp_cstring =  " listbinds=";
35234                             /*^apply.arg*/
35235                             argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.LISTBINDS__V38*/ meltfptr[34];
35236                             /*_.MELT_DEBUG_FUN__V84*/
35237                             meltfptr[83] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
35238                         }
35239                         ;
35240                         /*_._IF___V83*/
35241                         meltfptr[82] = /*_.MELT_DEBUG_FUN__V84*/ meltfptr[83];;
35242                         /*epilog*/
35243
35244                         MELT_LOCATION("warmelt-normal.melt:2961:/ clear");
35245                         /*clear*/ /*_#MELT_CALLCOUNT__L30*/
35246                         meltfnum[1] = 0 ;
35247                         /*^clear*/
35248                         /*clear*/ /*_.MELT_DEBUG_FUN__V84*/
35249                         meltfptr[83] = 0 ;
35250                     }
35251                     ;
35252                 }
35253             else    /*^cond.else*/
35254                 {
35255
35256                     /*_._IF___V83*/ meltfptr[82] =  /*reallynil*/ NULL ;;
35257                 }
35258             ;
35259
35260             {
35261                 MELT_LOCATION("warmelt-normal.melt:2961:/ locexp");
35262                 /*void*/
35263                 (void)0;
35264             }
35265             ;
35266             /*^quasiblock*/
35267
35268
35269             /*epilog*/
35270
35271             /*^clear*/
35272             /*clear*/ /*_#MELT_NEED_DBG__L29*/
35273             meltfnum[18] = 0 ;
35274             /*^clear*/
35275             /*clear*/ /*_._IF___V83*/
35276             meltfptr[82] = 0 ;
35277         }
35278
35279 #else /*MELT_HAVE_DEBUG*/
35280         /*^cppif.else*/
35281         /*^block*/
35282         /*anyblock*/
35283         {
35284
35285
35286             {
35287                 /*^locexp*/
35288                 /*void*/(void)0;
35289             }
35290             ;
35291             /*epilog*/
35292         }
35293
35294 #endif /*MELT_HAVE_DEBUG*/
35295         ;
35296
35297         MELT_CHECK_SIGNAL();
35298         ;
35299         MELT_LOCATION("warmelt-normal.melt:2962:/ quasiblock");
35300
35301
35302         /*_._RETVAL___V1*/
35303         meltfptr[0] = /*_.CLOCC__V81*/ meltfptr[59];;
35304         MELT_LOCATION("warmelt-normal.melt:2962:/ putxtraresult");
35305         if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
35306         if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
35307         if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.LISTBINDS__V38*/ meltfptr[34]);
35308         ;
35309         /*^finalreturn*/
35310         ;
35311         /*finalret*/
35312         goto meltlabend_rout ;
35313         /*_.LET___V75*/
35314         meltfptr[54] = /*_.RETURN___V85*/ meltfptr[83];;
35315
35316         MELT_LOCATION("warmelt-normal.melt:2943:/ clear");
35317         /*clear*/ /*_.TUPNCHUNK__V76*/
35318         meltfptr[53] = 0 ;
35319         /*^clear*/
35320         /*clear*/ /*_.NCHUNK__V77*/
35321         meltfptr[63] = 0 ;
35322         /*^clear*/
35323         /*clear*/ /*_.CBIND__V79*/
35324         meltfptr[55] = 0 ;
35325         /*^clear*/
35326         /*clear*/ /*_.CLOCC__V81*/
35327         meltfptr[59] = 0 ;
35328         /*^clear*/
35329         /*clear*/ /*_.RETURN___V85*/
35330         meltfptr[83] = 0 ;
35331         /*_.LET___V17*/
35332         meltfptr[15] = /*_.LET___V75*/ meltfptr[54];;
35333
35334         MELT_LOCATION("warmelt-normal.melt:2882:/ clear");
35335         /*clear*/ /*_.SLOC__V18*/
35336         meltfptr[5] = 0 ;
35337         /*^clear*/
35338         /*clear*/ /*_.SCHK__V19*/
35339         meltfptr[18] = 0 ;
35340         /*^clear*/
35341         /*clear*/ /*_.GSYM__V20*/
35342         meltfptr[19] = 0 ;
35343         /*^clear*/
35344         /*clear*/ /*_.CTYP__V21*/
35345         meltfptr[20] = 0 ;
35346         /*^clear*/
35347         /*clear*/ /*_.CSYM__V22*/
35348         meltfptr[21] = 0 ;
35349         /*^clear*/
35350         /*clear*/ /*_.BINDLIST__V23*/
35351         meltfptr[22] = 0 ;
35352         /*^clear*/
35353         /*clear*/ /*_.NEWENV__V24*/
35354         meltfptr[23] = 0 ;
35355         /*^clear*/
35356         /*clear*/ /*_.LET___V25*/
35357         meltfptr[24] = 0 ;
35358         /*^clear*/
35359         /*clear*/ /*_.CSYMSTR__V30*/
35360         meltfptr[25] = 0 ;
35361         /*^clear*/
35362         /*clear*/ /*_.LET___V31*/
35363         meltfptr[26] = 0 ;
35364         /*^clear*/
35365         /*clear*/ /*_.MAGICBIND__V37*/
35366         meltfptr[35] = 0 ;
35367         /*^clear*/
35368         /*clear*/ /*_.LISTBINDS__V38*/
35369         meltfptr[34] = 0 ;
35370         /*^clear*/
35371         /*clear*/ /*_.LISTNCHUNKS__V39*/
35372         meltfptr[27] = 0 ;
35373         /*^clear*/
35374         /*clear*/ /*_#MULTIPLE_LENGTH__L9*/
35375         meltfnum[0] = 0 ;
35376         /*^clear*/
35377         /*clear*/ /*_.NCHK__V40*/
35378         meltfptr[33] = 0 ;
35379         /*^clear*/
35380         /*clear*/ /*_.IFCPP___V43*/
35381         meltfptr[41] = 0 ;
35382         /*^clear*/
35383         /*clear*/ /*_.IFCPP___V46*/
35384         meltfptr[44] = 0 ;
35385         /*^clear*/
35386         /*clear*/ /*_.LET___V75*/
35387         meltfptr[54] = 0 ;
35388
35389         MELT_CHECK_SIGNAL();
35390         ;
35391         MELT_LOCATION("warmelt-normal.melt:2877:/ quasiblock");
35392
35393
35394         /*_._RETVAL___V1*/
35395         meltfptr[0] = /*_.LET___V17*/ meltfptr[15];;
35396
35397         {
35398             MELT_LOCATION("warmelt-normal.melt:2877:/ locexp");
35399             /*ochecknores compilobj_nrep_return*/
35400 #if MELT_HAVE_DEBUG
35401             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
35402                 melt_warn_for_no_expected_secondary_results();
35403             /* we warned when secondary results are expected but not returned. */
35404 #endif /*MELT_HAVE_DEBUG*/
35405             ;
35406         }
35407         ;
35408         /*^finalreturn*/
35409         ;
35410         /*finalret*/
35411         goto meltlabend_rout ;
35412         /*epilog*/
35413
35414         /*^clear*/
35415         /*clear*/ /*_.IFCPP___V8*/
35416         meltfptr[6] = 0 ;
35417         /*^clear*/
35418         /*clear*/ /*_.IFCPP___V11*/
35419         meltfptr[9] = 0 ;
35420         /*^clear*/
35421         /*clear*/ /*_.IFCPP___V14*/
35422         meltfptr[12] = 0 ;
35423         /*^clear*/
35424         /*clear*/ /*_.LET___V17*/
35425         meltfptr[15] = 0 ;
35426     }
35427
35428     ;
35429     goto meltlabend_rout;
35430 meltlabend_rout:
35431     melt_trace_end("NORMEXP_EXPR_CHUNK", meltcallcount);
35432     melt_blocklevel_signals = current_blocklevel_signals_meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK_melt;
35433     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
35434 #undef meltcallcount
35435 #undef meltfram__
35436 #undef MELTFRAM_NBVARNUM
35437 #undef MELTFRAM_NBVARPTR
35438 } /*end meltrout_43_WARMELTmiNORMAL_NORMEXP_EXPR_CHUNK*/
35439
35440
35441
35442
35443
35444
35445 melt_ptr_t MELT_MODULE_VISIBILITY
35446 meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
35447         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
35448 {
35449     long current_blocklevel_signals_meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR_melt =  melt_blocklevel_signals;
35450
35451 #if MELT_HAVE_DEBUG
35452     static long melt_call_counter__;
35453     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
35454 #undef meltcallcount
35455 #define meltcallcount melt_thiscallcounter__
35456 #else
35457 #undef meltcallcount
35458 #define meltcallcount 0L
35459 #endif
35460 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
35461
35462     /* start of frame for routine meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR fromline 1752 */
35463
35464     /** start of frame for meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR of CLASS_PROCROUTINEOBJ from 1555**/
35465
35466     /*curframdeclclassy*/ class MeltFrame_meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR// fromline 1568
35467         : public Melt_CallFrameWithValues<68>
35468     {
35469     public: /* fromline 1572*/
35470         long mcfr_varnum[20];
35471         /*classy others*/
35472         long _meltsparel;
35473         void melt_mark_stuff (void)
35474         {
35475         } /*end melt_mark_stuff*/
35476         virtual void melt_mark_ggc_data (void)
35477         {
35478             melt_mark_values ();
35479             melt_mark_stuff ();
35480         }; /*end melt_mark_ggc_data*/
35481         MeltFrame_meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR(meltclosure_ptr_t clos) //the closure constructor fromline 1630
35482             : Melt_CallFrameWithValues<68> (
35483 #if ENABLE_CHECKING /*fromline 1634*/
35484                 __FILE__, __LINE__,
35485 #endif /* ENABLE_CHECKING fromline 1638*/
35486                 sizeof(MeltFrame_meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR), clos) {};
35487         MeltFrame_meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR() //the constructor fromline 1642
35488             : Melt_CallFrameWithValues<68> (
35489 #if ENABLE_CHECKING /*fromline 1646*/
35490                 __FILE__, __LINE__,
35491 #endif /* ENABLE_CHECKING fromline 1650*/
35492                 sizeof(MeltFrame_meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR)) {};
35493 #if ENABLE_CHECKING /*fromline 1654*/
35494         MeltFrame_meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR(const char*fil, int lin) //the constructor fromline 1656
35495             : Melt_CallFrameWithValues<68> (fil,lin, sizeof(MeltFrame_meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR)) {};
35496         MeltFrame_meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
35497             : Melt_CallFrameWithValues<68> (fil,lin, sizeof(MeltFrame_meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR), clos) {};
35498 #endif /* ENABLE_CHECKING fromline 1666*/
35499
35500     }; // end  class MeltFrame_meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR
35501
35502
35503     /** end of frame for meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR fromline 1697**/
35504
35505     /* end of frame for routine meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR fromline 1756 */
35506
35507     /* classy proc frame meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR */
35508     MeltFrame_meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR
35509     meltfram__ /*declfrastruct fromline 1780*/
35510     /*classyprocarg meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR fromline 1785*/
35511 #if ENABLE_CHECKING
35512     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
35513 #else /*ENABLE_CHECKING */
35514     (meltclosp_) /* fromline 1793*/
35515 #endif /*ENABLE_CHECKING */
35516
35517     ;
35518 #define meltframe meltfram__
35519
35520     melt_trace_start("NORMEXP_CMATCHEXPR", meltcallcount);
35521     /*use arguments*/
35522     (void) meltclosp_;
35523     (void)meltfirstargp_;
35524     (void)meltxargdescr_;
35525     (void)meltxargtab_;
35526     (void)meltxresdescr_;
35527     (void)meltxrestab_;
35528     /*getargs*/
35529
35530     /*getarg#0*/
35531     MELT_LOCATION("warmelt-normal.melt:2968:/ getarg");
35532     /*_.RECV__V2*/
35533     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
35534
35535     /*getarg#1*/
35536     /*^getarg*/
35537     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
35538     /*_.ENV__V3*/
35539     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
35540     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
35541
35542
35543     /*getarg#2*/
35544     /*^getarg*/
35545     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
35546     /*_.NCX__V4*/
35547     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
35548     gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL);
35549
35550
35551     /*getarg#3*/
35552     /*^getarg*/
35553     if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
35554     /*_.PSLOC__V5*/
35555     meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
35556     gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL);
35557
35558     ;
35559     goto meltlab_endgetargs;
35560 meltlab_endgetargs:
35561     ;
35562     /*body*/
35563     /*^block*/
35564     /*anyblock*/
35565     {
35566
35567
35568 #if MELT_HAVE_DEBUG
35569         MELT_LOCATION("warmelt-normal.melt:2969:/ cppif.then");
35570         /*^block*/
35571         /*anyblock*/
35572         {
35573
35574
35575             {
35576                 /*^locexp*/
35577                 /*melt_increment_dbgcounter*/
35578 #if MELT_HAVE_DEBUG
35579                 melt_dbgcounter++;
35580 #endif
35581                 ;
35582             }
35583             ;
35584
35585             MELT_CHECK_SIGNAL();
35586             ;
35587             /*_#MELT_NEED_DBG__L1*/
35588             meltfnum[0] =
35589                 /*MELT_NEED_DBG*/
35590 #if MELT_HAVE_DEBUG
35591                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
35592 #else
35593                 0 /* no melt_need_dbg */
35594 #endif /*MELT_HAVE_DEBUG*/
35595                 ;;
35596             MELT_LOCATION("warmelt-normal.melt:2969:/ cond");
35597             /*cond*/
35598             if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
35599                 {
35600                     /*^cond.then*/
35601                     /*^block*/
35602                     /*anyblock*/
35603                     {
35604
35605                         /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
35606                             /* for melt_callcount */
35607 #if MELT_HAVE_DEBUG && defined (meltcallcount)
35608                             meltcallcount  /* melt_callcount debugging */
35609 #else
35610                             0L  /* melt_callcount without debug */
35611 #endif /* MELT_HAVE_DEBUG melt_callcount */
35612                             ;;
35613
35614                         MELT_CHECK_SIGNAL();
35615                         ;
35616                         MELT_LOCATION("warmelt-normal.melt:2969:/ apply");
35617                         /*apply*/
35618                         {
35619                             union meltparam_un argtab[5];
35620                             memset(&argtab, 0, sizeof(argtab));
35621                             /*^apply.arg*/
35622                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
35623                             /*^apply.arg*/
35624                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
35625                             /*^apply.arg*/
35626                             argtab[2].meltbp_long = 2969;
35627                             /*^apply.arg*/
35628                             argtab[3].meltbp_cstring =  "normexp_cmatchexpr recv";
35629                             /*^apply.arg*/
35630                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
35631                             /*_.MELT_DEBUG_FUN__V7*/
35632                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
35633                         }
35634                         ;
35635                         /*_._IF___V6*/
35636                         meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];;
35637                         /*epilog*/
35638
35639                         MELT_LOCATION("warmelt-normal.melt:2969:/ clear");
35640                         /*clear*/ /*_#MELT_CALLCOUNT__L2*/
35641                         meltfnum[1] = 0 ;
35642                         /*^clear*/
35643                         /*clear*/ /*_.MELT_DEBUG_FUN__V7*/
35644                         meltfptr[6] = 0 ;
35645                     }
35646                     ;
35647                 }
35648             else    /*^cond.else*/
35649                 {
35650
35651                     /*_._IF___V6*/ meltfptr[5] =  /*reallynil*/ NULL ;;
35652                 }
35653             ;
35654
35655             {
35656                 MELT_LOCATION("warmelt-normal.melt:2969:/ locexp");
35657                 /*void*/
35658                 (void)0;
35659             }
35660             ;
35661             /*^quasiblock*/
35662
35663
35664             /*epilog*/
35665
35666             /*^clear*/
35667             /*clear*/ /*_#MELT_NEED_DBG__L1*/
35668             meltfnum[0] = 0 ;
35669             /*^clear*/
35670             /*clear*/ /*_._IF___V6*/
35671             meltfptr[5] = 0 ;
35672         }
35673
35674 #else /*MELT_HAVE_DEBUG*/
35675         /*^cppif.else*/
35676         /*^block*/
35677         /*anyblock*/
35678         {
35679
35680
35681             {
35682                 /*^locexp*/
35683                 /*void*/(void)0;
35684             }
35685             ;
35686             /*epilog*/
35687         }
35688
35689 #endif /*MELT_HAVE_DEBUG*/
35690         ;
35691
35692 #if MELT_HAVE_DEBUG
35693         MELT_LOCATION("warmelt-normal.melt:2970:/ cppif.then");
35694         /*^block*/
35695         /*anyblock*/
35696         {
35697
35698
35699             MELT_CHECK_SIGNAL();
35700             ;
35701             /*_#IS_A__L3*/
35702             meltfnum[1] =
35703                 melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_CMATCHEXPR*/ meltfrout->tabval[1])));;
35704             MELT_LOCATION("warmelt-normal.melt:2970:/ cond");
35705             /*cond*/
35706             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
35707                 {
35708                     /*^cond.then*/
35709                     /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);;
35710                 }
35711             else
35712                 {
35713                     MELT_LOCATION("warmelt-normal.melt:2970:/ cond.else");
35714
35715                     /*^block*/
35716                     /*anyblock*/
35717                     {
35718
35719
35720                         MELT_CHECK_SIGNAL();
35721                         ;
35722                         /*^apply*/
35723                         /*apply*/
35724                         {
35725                             union meltparam_un argtab[4];
35726                             memset(&argtab, 0, sizeof(argtab));
35727                             /*^apply.arg*/
35728                             argtab[0].meltbp_cstring =  "check recv";
35729                             /*^apply.arg*/
35730                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
35731                             /*^apply.arg*/
35732                             argtab[2].meltbp_long = 2970;
35733                             /*^apply.arg*/
35734                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
35735                             /*_.MELT_ASSERT_FAILURE_FUN__V10*/
35736                             meltfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
35737                         }
35738                         ;
35739                         /*_._IFELSE___V9*/
35740                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];;
35741                         /*epilog*/
35742
35743                         MELT_LOCATION("warmelt-normal.melt:2970:/ clear");
35744                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/
35745                         meltfptr[9] = 0 ;
35746                     }
35747                     ;
35748                 }
35749             ;
35750             /*_.IFCPP___V8*/
35751             meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];;
35752             /*epilog*/
35753
35754             MELT_LOCATION("warmelt-normal.melt:2970:/ clear");
35755             /*clear*/ /*_#IS_A__L3*/
35756             meltfnum[1] = 0 ;
35757             /*^clear*/
35758             /*clear*/ /*_._IFELSE___V9*/
35759             meltfptr[5] = 0 ;
35760         }
35761
35762 #else /*MELT_HAVE_DEBUG*/
35763         /*^cppif.else*/
35764         /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL);
35765 #endif /*MELT_HAVE_DEBUG*/
35766         ;
35767
35768 #if MELT_HAVE_DEBUG
35769         MELT_LOCATION("warmelt-normal.melt:2971:/ cppif.then");
35770         /*^block*/
35771         /*anyblock*/
35772         {
35773
35774
35775             MELT_CHECK_SIGNAL();
35776             ;
35777             /*_#IS_A__L4*/
35778             meltfnum[0] =
35779                 melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));;
35780             MELT_LOCATION("warmelt-normal.melt:2971:/ cond");
35781             /*cond*/
35782             if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/
35783                 {
35784                     /*^cond.then*/
35785                     /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);;
35786                 }
35787             else
35788                 {
35789                     MELT_LOCATION("warmelt-normal.melt:2971:/ cond.else");
35790
35791                     /*^block*/
35792                     /*anyblock*/
35793                     {
35794
35795
35796                         MELT_CHECK_SIGNAL();
35797                         ;
35798                         /*^apply*/
35799                         /*apply*/
35800                         {
35801                             union meltparam_un argtab[4];
35802                             memset(&argtab, 0, sizeof(argtab));
35803                             /*^apply.arg*/
35804                             argtab[0].meltbp_cstring =  "check env";
35805                             /*^apply.arg*/
35806                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
35807                             /*^apply.arg*/
35808                             argtab[2].meltbp_long = 2971;
35809                             /*^apply.arg*/
35810                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
35811                             /*_.MELT_ASSERT_FAILURE_FUN__V13*/
35812                             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
35813                         }
35814                         ;
35815                         /*_._IFELSE___V12*/
35816                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];;
35817                         /*epilog*/
35818
35819                         MELT_LOCATION("warmelt-normal.melt:2971:/ clear");
35820                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/
35821                         meltfptr[12] = 0 ;
35822                     }
35823                     ;
35824                 }
35825             ;
35826             /*_.IFCPP___V11*/
35827             meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];;
35828             /*epilog*/
35829
35830             MELT_LOCATION("warmelt-normal.melt:2971:/ clear");
35831             /*clear*/ /*_#IS_A__L4*/
35832             meltfnum[0] = 0 ;
35833             /*^clear*/
35834             /*clear*/ /*_._IFELSE___V12*/
35835             meltfptr[5] = 0 ;
35836         }
35837
35838 #else /*MELT_HAVE_DEBUG*/
35839         /*^cppif.else*/
35840         /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL);
35841 #endif /*MELT_HAVE_DEBUG*/
35842         ;
35843
35844 #if MELT_HAVE_DEBUG
35845         MELT_LOCATION("warmelt-normal.melt:2972:/ cppif.then");
35846         /*^block*/
35847         /*anyblock*/
35848         {
35849
35850
35851             MELT_CHECK_SIGNAL();
35852             ;
35853             /*_#IS_A__L5*/
35854             meltfnum[1] =
35855                 melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));;
35856             MELT_LOCATION("warmelt-normal.melt:2972:/ cond");
35857             /*cond*/
35858             if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/
35859                 {
35860                     /*^cond.then*/
35861                     /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);;
35862                 }
35863             else
35864                 {
35865                     MELT_LOCATION("warmelt-normal.melt:2972:/ cond.else");
35866
35867                     /*^block*/
35868                     /*anyblock*/
35869                     {
35870
35871
35872                         MELT_CHECK_SIGNAL();
35873                         ;
35874                         /*^apply*/
35875                         /*apply*/
35876                         {
35877                             union meltparam_un argtab[4];
35878                             memset(&argtab, 0, sizeof(argtab));
35879                             /*^apply.arg*/
35880                             argtab[0].meltbp_cstring =  "check ncx";
35881                             /*^apply.arg*/
35882                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
35883                             /*^apply.arg*/
35884                             argtab[2].meltbp_long = 2972;
35885                             /*^apply.arg*/
35886                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
35887                             /*_.MELT_ASSERT_FAILURE_FUN__V16*/
35888                             meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
35889                         }
35890                         ;
35891                         /*_._IFELSE___V15*/
35892                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];;
35893                         /*epilog*/
35894
35895                         MELT_LOCATION("warmelt-normal.melt:2972:/ clear");
35896                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/
35897                         meltfptr[15] = 0 ;
35898                     }
35899                     ;
35900                 }
35901             ;
35902             /*_.IFCPP___V14*/
35903             meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];;
35904             /*epilog*/
35905
35906             MELT_LOCATION("warmelt-normal.melt:2972:/ clear");
35907             /*clear*/ /*_#IS_A__L5*/
35908             meltfnum[1] = 0 ;
35909             /*^clear*/
35910             /*clear*/ /*_._IFELSE___V15*/
35911             meltfptr[5] = 0 ;
35912         }
35913
35914 #else /*MELT_HAVE_DEBUG*/
35915         /*^cppif.else*/
35916         /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL);
35917 #endif /*MELT_HAVE_DEBUG*/
35918         ;
35919         MELT_LOCATION("warmelt-normal.melt:2973:/ quasiblock");
35920
35921
35922         /*^getslot*/
35923         {
35924             melt_ptr_t slot=NULL, obj=NULL;
35925             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
35926             melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
35927             /*_.SLOC__V18*/
35928             meltfptr[5] = slot;
35929         };
35930         ;
35931         MELT_LOCATION("warmelt-normal.melt:2974:/ getslot");
35932         {
35933             melt_ptr_t slot=NULL, obj=NULL;
35934             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
35935             melt_object_get_field(slot,obj, 3, "SCMATX_CMATCHER");
35936             /*_.SCMAT__V19*/
35937             meltfptr[18] = slot;
35938         };
35939         ;
35940         MELT_LOCATION("warmelt-normal.melt:2975:/ getslot");
35941         {
35942             melt_ptr_t slot=NULL, obj=NULL;
35943             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
35944             melt_object_get_field(slot,obj, 2, "SARGOP_ARGS");
35945             /*_.SARGS__V20*/
35946             meltfptr[19] = slot;
35947         };
35948         ;
35949
35950 #if MELT_HAVE_DEBUG
35951         MELT_LOCATION("warmelt-normal.melt:2977:/ cppif.then");
35952         /*^block*/
35953         /*anyblock*/
35954         {
35955
35956
35957             MELT_CHECK_SIGNAL();
35958             ;
35959             /*_#IS_A__L6*/
35960             meltfnum[0] =
35961                 melt_is_instance_of((melt_ptr_t)(/*_.SCMAT__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_CMATCHER*/ meltfrout->tabval[5])));;
35962             MELT_LOCATION("warmelt-normal.melt:2977:/ cond");
35963             /*cond*/
35964             if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/
35965                 {
35966                     /*^cond.then*/
35967                     /*_._IFELSE___V22*/ meltfptr[21] = (/*nil*/NULL);;
35968                 }
35969             else
35970                 {
35971                     MELT_LOCATION("warmelt-normal.melt:2977:/ cond.else");
35972
35973                     /*^block*/
35974                     /*anyblock*/
35975                     {
35976
35977
35978                         MELT_CHECK_SIGNAL();
35979                         ;
35980                         /*^apply*/
35981                         /*apply*/
35982                         {
35983                             union meltparam_un argtab[4];
35984                             memset(&argtab, 0, sizeof(argtab));
35985                             /*^apply.arg*/
35986                             argtab[0].meltbp_cstring =  "check scmat";
35987                             /*^apply.arg*/
35988                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
35989                             /*^apply.arg*/
35990                             argtab[2].meltbp_long = 2977;
35991                             /*^apply.arg*/
35992                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SCMAT__V19*/ meltfptr[18];
35993                             /*_.MELT_ASSERT_FAILURE_FUN__V23*/
35994                             meltfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
35995                         }
35996                         ;
35997                         /*_._IFELSE___V22*/
35998                         meltfptr[21] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];;
35999                         /*epilog*/
36000
36001                         MELT_LOCATION("warmelt-normal.melt:2977:/ clear");
36002                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/
36003                         meltfptr[22] = 0 ;
36004                     }
36005                     ;
36006                 }
36007             ;
36008             /*_.IFCPP___V21*/
36009             meltfptr[20] = /*_._IFELSE___V22*/ meltfptr[21];;
36010             /*epilog*/
36011
36012             MELT_LOCATION("warmelt-normal.melt:2977:/ clear");
36013             /*clear*/ /*_#IS_A__L6*/
36014             meltfnum[0] = 0 ;
36015             /*^clear*/
36016             /*clear*/ /*_._IFELSE___V22*/
36017             meltfptr[21] = 0 ;
36018         }
36019
36020 #else /*MELT_HAVE_DEBUG*/
36021         /*^cppif.else*/
36022         /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL);
36023 #endif /*MELT_HAVE_DEBUG*/
36024         ;
36025
36026         MELT_CHECK_SIGNAL();
36027         ;
36028         MELT_LOCATION("warmelt-normal.melt:2978:/ quasiblock");
36029
36030
36031         /*^multiapply*/
36032         /*multiapply 4args, 1x.res*/
36033         {
36034             union meltparam_un argtab[3];
36035
36036             union meltparam_un restab[1];
36037             memset(&restab, 0, sizeof(restab));
36038             memset(&argtab, 0, sizeof(argtab));
36039             /*^multiapply.arg*/
36040             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multiapply.arg*/
36041             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multiapply.arg*/
36042             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
36043             /*^multiapply.xres*/
36044             restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V26*/ meltfptr[25];
36045             /*^multiapply.appl*/
36046             /*_.NARGS__V25*/
36047             meltfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
36048         }
36049         ;
36050         /*^quasiblock*/
36051
36052
36053         MELT_LOCATION("warmelt-normal.melt:2981:/ quasiblock");
36054
36055
36056         /*^getslot*/
36057         {
36058             melt_ptr_t slot=NULL, obj=NULL;
36059             obj = (melt_ptr_t)(/*_.SCMAT__V19*/ meltfptr[18]) /*=obj*/;
36060             melt_object_get_field(slot,obj, 1, "NAMED_NAME");
36061             /*_.CMANAMSTR__V28*/
36062             meltfptr[27] = slot;
36063         };
36064         ;
36065         MELT_LOCATION("warmelt-normal.melt:2983:/ getslot");
36066         {
36067             melt_ptr_t slot=NULL, obj=NULL;
36068             obj = (melt_ptr_t)(/*_.SCMAT__V19*/ meltfptr[18]) /*=obj*/;
36069             melt_object_get_field(slot,obj, 4, "AMATCH_OUT");
36070             /*_.OFORMALS__V29*/
36071             meltfptr[28] = slot;
36072         };
36073         ;
36074         MELT_LOCATION("warmelt-normal.melt:2985:/ quasiblock");
36075
36076
36077         /*^getslot*/
36078         {
36079             melt_ptr_t slot=NULL, obj=NULL;
36080             obj = (melt_ptr_t)(/*_.SCMAT__V19*/ meltfptr[18]) /*=obj*/;
36081             melt_object_get_field(slot,obj, 3, "AMATCH_MATCHBIND");
36082             /*_.MB__V31*/
36083             meltfptr[30] = slot;
36084         };
36085         ;
36086
36087 #if MELT_HAVE_DEBUG
36088         MELT_LOCATION("warmelt-normal.melt:2986:/ cppif.then");
36089         /*^block*/
36090         /*anyblock*/
36091         {
36092
36093
36094             MELT_CHECK_SIGNAL();
36095             ;
36096             /*_#IS_A__L7*/
36097             meltfnum[1] =
36098                 melt_is_instance_of((melt_ptr_t)(/*_.MB__V31*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[7])));;
36099             MELT_LOCATION("warmelt-normal.melt:2986:/ cond");
36100             /*cond*/
36101             if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/
36102                 {
36103                     /*^cond.then*/
36104                     /*_._IFELSE___V33*/ meltfptr[32] = (/*nil*/NULL);;
36105                 }
36106             else
36107                 {
36108                     MELT_LOCATION("warmelt-normal.melt:2986:/ cond.else");
36109
36110                     /*^block*/
36111                     /*anyblock*/
36112                     {
36113
36114
36115                         MELT_CHECK_SIGNAL();
36116                         ;
36117                         /*^apply*/
36118                         /*apply*/
36119                         {
36120                             union meltparam_un argtab[4];
36121                             memset(&argtab, 0, sizeof(argtab));
36122                             /*^apply.arg*/
36123                             argtab[0].meltbp_cstring =  "check mabind";
36124                             /*^apply.arg*/
36125                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
36126                             /*^apply.arg*/
36127                             argtab[2].meltbp_long = 2986;
36128                             /*^apply.arg*/
36129                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MB__V31*/ meltfptr[30];
36130                             /*_.MELT_ASSERT_FAILURE_FUN__V34*/
36131                             meltfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
36132                         }
36133                         ;
36134                         /*_._IFELSE___V33*/
36135                         meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];;
36136                         /*epilog*/
36137
36138                         MELT_LOCATION("warmelt-normal.melt:2986:/ clear");
36139                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/
36140                         meltfptr[33] = 0 ;
36141                     }
36142                     ;
36143                 }
36144             ;
36145             /*_.IFCPP___V32*/
36146             meltfptr[31] = /*_._IFELSE___V33*/ meltfptr[32];;
36147             /*epilog*/
36148
36149             MELT_LOCATION("warmelt-normal.melt:2986:/ clear");
36150             /*clear*/ /*_#IS_A__L7*/
36151             meltfnum[1] = 0 ;
36152             /*^clear*/
36153             /*clear*/ /*_._IFELSE___V33*/
36154             meltfptr[32] = 0 ;
36155         }
36156
36157 #else /*MELT_HAVE_DEBUG*/
36158         /*^cppif.else*/
36159         /*_.IFCPP___V32*/ meltfptr[31] = (/*nil*/NULL);
36160 #endif /*MELT_HAVE_DEBUG*/
36161         ;
36162         /*^compute*/
36163         /*_.LET___V30*/
36164         meltfptr[29] = /*_.MB__V31*/ meltfptr[30];;
36165
36166         MELT_LOCATION("warmelt-normal.melt:2985:/ clear");
36167         /*clear*/ /*_.MB__V31*/
36168         meltfptr[30] = 0 ;
36169         /*^clear*/
36170         /*clear*/ /*_.IFCPP___V32*/
36171         meltfptr[31] = 0 ;
36172         /*_.MABIND__V35*/
36173         meltfptr[33] = /*_.LET___V30*/ meltfptr[29];;
36174         MELT_LOCATION("warmelt-normal.melt:2989:/ getslot");
36175         {
36176             melt_ptr_t slot=NULL, obj=NULL;
36177             obj = (melt_ptr_t)(/*_.MABIND__V35*/ meltfptr[33]) /*=obj*/;
36178             melt_object_get_field(slot,obj, 1, "FBIND_TYPE");
36179             /*_.OTYPE__V36*/
36180             meltfptr[32] = slot;
36181         };
36182         ;
36183         MELT_LOCATION("warmelt-normal.melt:2990:/ getslot");
36184         {
36185             melt_ptr_t slot=NULL, obj=NULL;
36186             obj = (melt_ptr_t)(/*_.SCMAT__V19*/ meltfptr[18]) /*=obj*/;
36187             melt_object_get_field(slot,obj, 8, "CMATCH_EXPOPER");
36188             /*_.SOPEXP__V37*/
36189             meltfptr[30] = slot;
36190         };
36191         ;
36192         /*_#NBARG__L8*/
36193         meltfnum[0] =
36194             (melt_multiple_length((melt_ptr_t)(/*_.NARGS__V25*/ meltfptr[21])));;
36195         /*^compute*/
36196         /*_#NBEXP__L9*/
36197         meltfnum[1] =
36198             (melt_multiple_length((melt_ptr_t)(/*_.SOPEXP__V37*/ meltfptr[30])));;
36199
36200 #if MELT_HAVE_DEBUG
36201         MELT_LOCATION("warmelt-normal.melt:2994:/ cppif.then");
36202         /*^block*/
36203         /*anyblock*/
36204         {
36205
36206
36207             MELT_CHECK_SIGNAL();
36208             ;
36209             /*_#IS_A__L10*/
36210             meltfnum[9] =
36211                 melt_is_instance_of((melt_ptr_t)(/*_.OTYPE__V36*/ meltfptr[32]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8])));;
36212             MELT_LOCATION("warmelt-normal.melt:2994:/ cond");
36213             /*cond*/
36214             if (/*_#IS_A__L10*/ meltfnum[9]) /*then*/
36215                 {
36216                     /*^cond.then*/
36217                     /*_._IFELSE___V39*/ meltfptr[38] = (/*nil*/NULL);;
36218                 }
36219             else
36220                 {
36221                     MELT_LOCATION("warmelt-normal.melt:2994:/ cond.else");
36222
36223                     /*^block*/
36224                     /*anyblock*/
36225                     {
36226
36227
36228                         MELT_CHECK_SIGNAL();
36229                         ;
36230                         /*^apply*/
36231                         /*apply*/
36232                         {
36233                             union meltparam_un argtab[4];
36234                             memset(&argtab, 0, sizeof(argtab));
36235                             /*^apply.arg*/
36236                             argtab[0].meltbp_cstring =  "check otype";
36237                             /*^apply.arg*/
36238                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
36239                             /*^apply.arg*/
36240                             argtab[2].meltbp_long = 2994;
36241                             /*^apply.arg*/
36242                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OTYPE__V36*/ meltfptr[32];
36243                             /*_.MELT_ASSERT_FAILURE_FUN__V40*/
36244                             meltfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
36245                         }
36246                         ;
36247                         /*_._IFELSE___V39*/
36248                         meltfptr[38] = /*_.MELT_ASSERT_FAILURE_FUN__V40*/ meltfptr[39];;
36249                         /*epilog*/
36250
36251                         MELT_LOCATION("warmelt-normal.melt:2994:/ clear");
36252                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V40*/
36253                         meltfptr[39] = 0 ;
36254                     }
36255                     ;
36256                 }
36257             ;
36258             /*_.IFCPP___V38*/
36259             meltfptr[31] = /*_._IFELSE___V39*/ meltfptr[38];;
36260             /*epilog*/
36261
36262             MELT_LOCATION("warmelt-normal.melt:2994:/ clear");
36263             /*clear*/ /*_#IS_A__L10*/
36264             meltfnum[9] = 0 ;
36265             /*^clear*/
36266             /*clear*/ /*_._IFELSE___V39*/
36267             meltfptr[38] = 0 ;
36268         }
36269
36270 #else /*MELT_HAVE_DEBUG*/
36271         /*^cppif.else*/
36272         /*_.IFCPP___V38*/ meltfptr[31] = (/*nil*/NULL);
36273 #endif /*MELT_HAVE_DEBUG*/
36274         ;
36275
36276         MELT_CHECK_SIGNAL();
36277         ;
36278         /*^compute*/
36279         /*_#MULTIPLE_LENGTH__L11*/
36280         meltfnum[9] =
36281             (melt_multiple_length((melt_ptr_t)(/*_.OFORMALS__V29*/ meltfptr[28])));;
36282         /*^compute*/
36283         /*_#exeqI__L12*/
36284         meltfnum[11] =
36285             ((/*_#NBARG__L8*/ meltfnum[0]) != (/*_#MULTIPLE_LENGTH__L11*/ meltfnum[9]));;
36286         MELT_LOCATION("warmelt-normal.melt:2995:/ cond");
36287         /*cond*/
36288         if (/*_#exeqI__L12*/ meltfnum[11]) /*then*/
36289             {
36290                 /*^cond.then*/
36291                 /*^block*/
36292                 /*anyblock*/
36293                 {
36294
36295
36296                     MELT_CHECK_SIGNAL();
36297                     ;
36298                     MELT_LOCATION("warmelt-normal.melt:2997:/ apply");
36299                     /*apply*/
36300                     {
36301                         union meltparam_un argtab[2];
36302                         memset(&argtab, 0, sizeof(argtab));
36303                         /*^apply.arg*/
36304                         argtab[0].meltbp_cstring =  "length mismatch between formals & actuals in cmatch $1 expr";
36305                         /*^apply.arg*/
36306                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CMANAMSTR__V28*/ meltfptr[27];
36307                         /*_.ERROR_AT__V42*/
36308                         meltfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
36309                     }
36310                     ;
36311                     MELT_LOCATION("warmelt-normal.melt:2999:/ quasiblock");
36312
36313
36314                     /*_._RETVAL___V1*/
36315                     meltfptr[0] =  /*reallynil*/ NULL ;;
36316
36317                     {
36318                         MELT_LOCATION("warmelt-normal.melt:2999:/ locexp");
36319                         /*ochecknores compilobj_nrep_return*/
36320 #if MELT_HAVE_DEBUG
36321                         if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
36322                             melt_warn_for_no_expected_secondary_results();
36323                         /* we warned when secondary results are expected but not returned. */
36324 #endif /*MELT_HAVE_DEBUG*/
36325                         ;
36326                     }
36327                     ;
36328                     /*^finalreturn*/
36329                     ;
36330                     /*finalret*/
36331                     goto meltlabend_rout ;
36332                     MELT_LOCATION("warmelt-normal.melt:2996:/ quasiblock");
36333
36334
36335                     /*_.PROGN___V44*/
36336                     meltfptr[43] = /*_.RETURN___V43*/ meltfptr[42];;
36337                     /*^compute*/
36338                     /*_._IF___V41*/
36339                     meltfptr[39] = /*_.PROGN___V44*/ meltfptr[43];;
36340                     /*epilog*/
36341
36342                     MELT_LOCATION("warmelt-normal.melt:2995:/ clear");
36343                     /*clear*/ /*_.ERROR_AT__V42*/
36344                     meltfptr[38] = 0 ;
36345                     /*^clear*/
36346                     /*clear*/ /*_.RETURN___V43*/
36347                     meltfptr[42] = 0 ;
36348                     /*^clear*/
36349                     /*clear*/ /*_.PROGN___V44*/
36350                     meltfptr[43] = 0 ;
36351                 }
36352                 ;
36353             }
36354         else    /*^cond.else*/
36355             {
36356
36357                 /*_._IF___V41*/ meltfptr[39] =  /*reallynil*/ NULL ;;
36358             }
36359         ;
36360         MELT_LOCATION("warmelt-normal.melt:3001:/ quasiblock");
36361
36362
36363         /*_#stI__L13*/
36364         meltfnum[12] =
36365             ((3) * (/*_#NBARG__L8*/ meltfnum[0]));;
36366         /*^compute*/
36367         /*_#diIRAW__L14*/
36368         meltfnum[13] =
36369             ((/*_#stI__L13*/ meltfnum[12]) / (2));;
36370         /*^compute*/
36371         /*_#plI__L15*/
36372         meltfnum[14] =
36373             ((5) + (/*_#diIRAW__L14*/ meltfnum[13]));;
36374         /*^compute*/
36375         /*_.BMAP__V46*/
36376         meltfptr[42] =
36377             (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[10])), (/*_#plI__L15*/ meltfnum[14])));;
36378         /*^compute*/
36379         /*_.EXPARGS__V47*/
36380         meltfptr[43] =
36381             (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[11])), (/*_#NBEXP__L9*/ meltfnum[1])));;
36382         MELT_LOCATION("warmelt-normal.melt:3006:/ quasiblock");
36383
36384
36385         /*^newclosure*/
36386         /*newclosure*/ /*_.LAMBDA___V49*/
36387         meltfptr[48] =
36388             (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_19*/ meltfrout->tabval[19])), (5));
36389         ;
36390         /*^putclosedv*/
36391         /*putclosv*/
36392         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V49*/ meltfptr[48])) == MELTOBMAG_CLOSURE);
36393         melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V49*/ meltfptr[48])));
36394         ((meltclosure_ptr_t)/*_.LAMBDA___V49*/ meltfptr[48])->tabval[0] = (melt_ptr_t)(/*_.NARGS__V25*/ meltfptr[21]);
36395         ;
36396         /*^putclosedv*/
36397         /*putclosv*/
36398         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V49*/ meltfptr[48])) == MELTOBMAG_CLOSURE);
36399         melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V49*/ meltfptr[48])));
36400         ((meltclosure_ptr_t)/*_.LAMBDA___V49*/ meltfptr[48])->tabval[1] = (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]);
36401         ;
36402         /*^putclosedv*/
36403         /*putclosv*/
36404         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V49*/ meltfptr[48])) == MELTOBMAG_CLOSURE);
36405         melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V49*/ meltfptr[48])));
36406         ((meltclosure_ptr_t)/*_.LAMBDA___V49*/ meltfptr[48])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]);
36407         ;
36408         /*^putclosedv*/
36409         /*putclosv*/
36410         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V49*/ meltfptr[48])) == MELTOBMAG_CLOSURE);
36411         melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V49*/ meltfptr[48])));
36412         ((meltclosure_ptr_t)/*_.LAMBDA___V49*/ meltfptr[48])->tabval[3] = (melt_ptr_t)(/*_.CMANAMSTR__V28*/ meltfptr[27]);
36413         ;
36414         /*^putclosedv*/
36415         /*putclosv*/
36416         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V49*/ meltfptr[48])) == MELTOBMAG_CLOSURE);
36417         melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V49*/ meltfptr[48])));
36418         ((meltclosure_ptr_t)/*_.LAMBDA___V49*/ meltfptr[48])->tabval[4] = (melt_ptr_t)(/*_.BMAP__V46*/ meltfptr[42]);
36419         ;
36420         /*_.LAMBDA___V48*/
36421         meltfptr[47] = /*_.LAMBDA___V49*/ meltfptr[48];;
36422
36423         MELT_CHECK_SIGNAL();
36424         ;
36425         MELT_LOCATION("warmelt-normal.melt:3004:/ apply");
36426         /*apply*/
36427         {
36428             union meltparam_un argtab[1];
36429             memset(&argtab, 0, sizeof(argtab));
36430             /*^apply.arg*/
36431             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V48*/ meltfptr[47];
36432             /*_.MULTIPLE_EVERY__V50*/
36433             meltfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.OFORMALS__V29*/ meltfptr[28]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
36434         }
36435         ;
36436
36437 #if MELT_HAVE_DEBUG
36438         MELT_LOCATION("warmelt-normal.melt:3028:/ cppif.then");
36439         /*^block*/
36440         /*anyblock*/
36441         {
36442
36443
36444             {
36445                 /*^locexp*/
36446                 /*melt_increment_dbgcounter*/
36447 #if MELT_HAVE_DEBUG
36448                 melt_dbgcounter++;
36449 #endif
36450                 ;
36451             }
36452             ;
36453
36454             MELT_CHECK_SIGNAL();
36455             ;
36456             /*_#MELT_NEED_DBG__L16*/
36457             meltfnum[15] =
36458                 /*MELT_NEED_DBG*/
36459 #if MELT_HAVE_DEBUG
36460                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
36461 #else
36462                 0 /* no melt_need_dbg */
36463 #endif /*MELT_HAVE_DEBUG*/
36464                 ;;
36465             MELT_LOCATION("warmelt-normal.melt:3028:/ cond");
36466             /*cond*/
36467             if (/*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then*/
36468                 {
36469                     /*^cond.then*/
36470                     /*^block*/
36471                     /*anyblock*/
36472                     {
36473
36474                         /*_#MELT_CALLCOUNT__L17*/ meltfnum[16] =
36475                             /* for melt_callcount */
36476 #if MELT_HAVE_DEBUG && defined (meltcallcount)
36477                             meltcallcount  /* melt_callcount debugging */
36478 #else
36479                             0L  /* melt_callcount without debug */
36480 #endif /* MELT_HAVE_DEBUG melt_callcount */
36481                             ;;
36482
36483                         MELT_CHECK_SIGNAL();
36484                         ;
36485                         MELT_LOCATION("warmelt-normal.melt:3028:/ apply");
36486                         /*apply*/
36487                         {
36488                             union meltparam_un argtab[5];
36489                             memset(&argtab, 0, sizeof(argtab));
36490                             /*^apply.arg*/
36491                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L17*/ meltfnum[16];
36492                             /*^apply.arg*/
36493                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
36494                             /*^apply.arg*/
36495                             argtab[2].meltbp_long = 3028;
36496                             /*^apply.arg*/
36497                             argtab[3].meltbp_cstring =  "normexp_cmatchexpr bmap in sopexp";
36498                             /*^apply.arg*/
36499                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BMAP__V46*/ meltfptr[42];
36500                             /*_.MELT_DEBUG_FUN__V52*/
36501                             meltfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
36502                         }
36503                         ;
36504                         /*_._IF___V51*/
36505                         meltfptr[50] = /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51];;
36506                         /*epilog*/
36507
36508                         MELT_LOCATION("warmelt-normal.melt:3028:/ clear");
36509                         /*clear*/ /*_#MELT_CALLCOUNT__L17*/
36510                         meltfnum[16] = 0 ;
36511                         /*^clear*/
36512                         /*clear*/ /*_.MELT_DEBUG_FUN__V52*/
36513                         meltfptr[51] = 0 ;
36514                     }
36515                     ;
36516                 }
36517             else    /*^cond.else*/
36518                 {
36519
36520                     /*_._IF___V51*/ meltfptr[50] =  /*reallynil*/ NULL ;;
36521                 }
36522             ;
36523
36524             {
36525                 MELT_LOCATION("warmelt-normal.melt:3028:/ locexp");
36526                 /*void*/
36527                 (void)0;
36528             }
36529             ;
36530             /*^quasiblock*/
36531
36532
36533             /*epilog*/
36534
36535             /*^clear*/
36536             /*clear*/ /*_#MELT_NEED_DBG__L16*/
36537             meltfnum[15] = 0 ;
36538             /*^clear*/
36539             /*clear*/ /*_._IF___V51*/
36540             meltfptr[50] = 0 ;
36541         }
36542
36543 #else /*MELT_HAVE_DEBUG*/
36544         /*^cppif.else*/
36545         /*^block*/
36546         /*anyblock*/
36547         {
36548
36549
36550             {
36551                 /*^locexp*/
36552                 /*void*/(void)0;
36553             }
36554             ;
36555             /*epilog*/
36556         }
36557
36558 #endif /*MELT_HAVE_DEBUG*/
36559         ;
36560         MELT_LOCATION("warmelt-normal.melt:3031:/ quasiblock");
36561
36562
36563         /*^newclosure*/
36564         /*newclosure*/ /*_.LAMBDA___V54*/
36565         meltfptr[50] =
36566             (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_24*/ meltfrout->tabval[24])), (5));
36567         ;
36568         /*^putclosedv*/
36569         /*putclosv*/
36570         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V54*/ meltfptr[50])) == MELTOBMAG_CLOSURE);
36571         melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V54*/ meltfptr[50])));
36572         ((meltclosure_ptr_t)/*_.LAMBDA___V54*/ meltfptr[50])->tabval[0] = (melt_ptr_t)(/*_.BMAP__V46*/ meltfptr[42]);
36573         ;
36574         /*^putclosedv*/
36575         /*putclosv*/
36576         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V54*/ meltfptr[50])) == MELTOBMAG_CLOSURE);
36577         melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V54*/ meltfptr[50])));
36578         ((meltclosure_ptr_t)/*_.LAMBDA___V54*/ meltfptr[50])->tabval[1] = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]);
36579         ;
36580         /*^putclosedv*/
36581         /*putclosv*/
36582         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V54*/ meltfptr[50])) == MELTOBMAG_CLOSURE);
36583         melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V54*/ meltfptr[50])));
36584         ((meltclosure_ptr_t)/*_.LAMBDA___V54*/ meltfptr[50])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]);
36585         ;
36586         /*^putclosedv*/
36587         /*putclosv*/
36588         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V54*/ meltfptr[50])) == MELTOBMAG_CLOSURE);
36589         melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V54*/ meltfptr[50])));
36590         ((meltclosure_ptr_t)/*_.LAMBDA___V54*/ meltfptr[50])->tabval[3] = (melt_ptr_t)(/*_.CMANAMSTR__V28*/ meltfptr[27]);
36591         ;
36592         /*^putclosedv*/
36593         /*putclosv*/
36594         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V54*/ meltfptr[50])) == MELTOBMAG_CLOSURE);
36595         melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V54*/ meltfptr[50])));
36596         ((meltclosure_ptr_t)/*_.LAMBDA___V54*/ meltfptr[50])->tabval[4] = (melt_ptr_t)(/*_.EXPARGS__V47*/ meltfptr[43]);
36597         ;
36598         /*_.LAMBDA___V53*/
36599         meltfptr[51] = /*_.LAMBDA___V54*/ meltfptr[50];;
36600
36601         MELT_CHECK_SIGNAL();
36602         ;
36603         MELT_LOCATION("warmelt-normal.melt:3029:/ apply");
36604         /*apply*/
36605         {
36606             union meltparam_un argtab[1];
36607             memset(&argtab, 0, sizeof(argtab));
36608             /*^apply.arg*/
36609             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V53*/ meltfptr[51];
36610             /*_.MULTIPLE_EVERY__V55*/
36611             meltfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.SOPEXP__V37*/ meltfptr[30]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
36612         }
36613         ;
36614         MELT_LOCATION("warmelt-normal.melt:3062:/ quasiblock");
36615
36616
36617
36618         MELT_CHECK_SIGNAL();
36619         ;
36620         /*^apply*/
36621         /*apply*/
36622         {
36623             /*_.CSYM__V57*/ meltfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[25])), (melt_ptr_t)(/*_.CMANAMSTR__V28*/ meltfptr[27]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
36624         }
36625         ;
36626
36627         MELT_CHECK_SIGNAL();
36628         ;
36629
36630         MELT_CHECK_SIGNAL();
36631         ;
36632         MELT_LOCATION("warmelt-normal.melt:3068:/ quasiblock");
36633
36634
36635         /*^rawallocobj*/
36636         /*rawallocobj*/
36637         {
36638             melt_ptr_t newobj = 0;
36639             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ meltfrout->tabval[27])), (4), "CLASS_NREP_CHUNK");
36640             /*_.INST__V59*/
36641             meltfptr[58] =
36642                 newobj;
36643         };
36644         ;
36645         /*^putslot*/
36646         /*putslot*/
36647         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ meltfptr[58])) == MELTOBMAG_OBJECT);
36648         melt_putfield_object((/*_.INST__V59*/ meltfptr[58]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
36649         ;
36650         /*^putslot*/
36651         /*putslot*/
36652         melt_assertmsg("checkobj putslot  _ @NCHUNK_EXPANSION", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ meltfptr[58])) == MELTOBMAG_OBJECT);
36653         melt_putfield_object((/*_.INST__V59*/ meltfptr[58]), (2), (/*_.EXPARGS__V47*/ meltfptr[43]), "NCHUNK_EXPANSION");
36654         ;
36655         /*^putslot*/
36656         /*putslot*/
36657         melt_assertmsg("checkobj putslot  _ @NCHUNK_OPER", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ meltfptr[58])) == MELTOBMAG_OBJECT);
36658         melt_putfield_object((/*_.INST__V59*/ meltfptr[58]), (3), (/*_.SCMAT__V19*/ meltfptr[18]), "NCHUNK_OPER");
36659         ;
36660         /*^putslot*/
36661         /*putslot*/
36662         melt_assertmsg("checkobj putslot  _ @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ meltfptr[58])) == MELTOBMAG_OBJECT);
36663         melt_putfield_object((/*_.INST__V59*/ meltfptr[58]), (1), (/*_.OTYPE__V36*/ meltfptr[32]), "NEXPR_CTYP");
36664         ;
36665         /*^touchobj*/
36666
36667         melt_dbgtrace_written_object (/*_.INST__V59*/ meltfptr[58], "newly made instance");
36668         ;
36669         /*_.INST___V58*/
36670         meltfptr[57] = /*_.INST__V59*/ meltfptr[58];;
36671         MELT_LOCATION("warmelt-normal.melt:3063:/ quasiblock");
36672
36673
36674         /*^rawallocobj*/
36675         /*rawallocobj*/
36676         {
36677             melt_ptr_t newobj = 0;
36678             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[26])), (4), "CLASS_NORMAL_LET_BINDING");
36679             /*_.INST__V61*/
36680             meltfptr[60] =
36681                 newobj;
36682         };
36683         ;
36684         /*^putslot*/
36685         /*putslot*/
36686         melt_assertmsg("checkobj putslot  _ @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[60])) == MELTOBMAG_OBJECT);
36687         melt_putfield_object((/*_.INST__V61*/ meltfptr[60]), (3), (/*_.SLOC__V18*/ meltfptr[5]), "LETBIND_LOC");
36688         ;
36689         /*^putslot*/
36690         /*putslot*/
36691         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[60])) == MELTOBMAG_OBJECT);
36692         melt_putfield_object((/*_.INST__V61*/ meltfptr[60]), (0), (/*_.CSYM__V57*/ meltfptr[56]), "BINDER");
36693         ;
36694         /*^putslot*/
36695         /*putslot*/
36696         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[60])) == MELTOBMAG_OBJECT);
36697         melt_putfield_object((/*_.INST__V61*/ meltfptr[60]), (1), (/*_.OTYPE__V36*/ meltfptr[32]), "LETBIND_TYPE");
36698         ;
36699         /*^putslot*/
36700         /*putslot*/
36701         melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[60])) == MELTOBMAG_OBJECT);
36702         melt_putfield_object((/*_.INST__V61*/ meltfptr[60]), (2), (/*_.INST___V58*/ meltfptr[57]), "LETBIND_EXPR");
36703         ;
36704         /*^touchobj*/
36705
36706         melt_dbgtrace_written_object (/*_.INST__V61*/ meltfptr[60], "newly made instance");
36707         ;
36708         /*_.CBIND__V60*/
36709         meltfptr[59] = /*_.INST__V61*/ meltfptr[60];;
36710
36711         MELT_CHECK_SIGNAL();
36712         ;
36713         MELT_LOCATION("warmelt-normal.melt:3074:/ quasiblock");
36714
36715
36716         /*^rawallocobj*/
36717         /*rawallocobj*/
36718         {
36719             melt_ptr_t newobj = 0;
36720             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[28])), (4), "CLASS_NREP_LOCSYMOCC");
36721             /*_.INST__V63*/
36722             meltfptr[62] =
36723                 newobj;
36724         };
36725         ;
36726         /*^putslot*/
36727         /*putslot*/
36728         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ meltfptr[62])) == MELTOBMAG_OBJECT);
36729         melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
36730         ;
36731         /*^putslot*/
36732         /*putslot*/
36733         melt_assertmsg("checkobj putslot  _ @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ meltfptr[62])) == MELTOBMAG_OBJECT);
36734         melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (2), (/*_.OTYPE__V36*/ meltfptr[32]), "NOCC_CTYP");
36735         ;
36736         /*^putslot*/
36737         /*putslot*/
36738         melt_assertmsg("checkobj putslot  _ @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ meltfptr[62])) == MELTOBMAG_OBJECT);
36739         melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (1), (/*_.CSYM__V57*/ meltfptr[56]), "NOCC_SYMB");
36740         ;
36741         /*^putslot*/
36742         /*putslot*/
36743         melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ meltfptr[62])) == MELTOBMAG_OBJECT);
36744         melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (3), (/*_.CBIND__V60*/ meltfptr[59]), "NOCC_BIND");
36745         ;
36746         /*^touchobj*/
36747
36748         melt_dbgtrace_written_object (/*_.INST__V63*/ meltfptr[62], "newly made instance");
36749         ;
36750         /*_.CLOCC__V62*/
36751         meltfptr[61] = /*_.INST__V63*/ meltfptr[62];;
36752
36753         MELT_CHECK_SIGNAL();
36754         ;
36755         /*^compute*/
36756         /*_#IS_LIST__L18*/
36757         meltfnum[16] =
36758             (melt_magic_discr((melt_ptr_t)(/*_.NBIND__V26*/ meltfptr[25])) == MELTOBMAG_LIST);;
36759         MELT_LOCATION("warmelt-normal.melt:3080:/ cond");
36760         /*cond*/
36761         if (/*_#IS_LIST__L18*/ meltfnum[16]) /*then*/
36762             {
36763                 /*^cond.then*/
36764                 /*^block*/
36765                 /*anyblock*/
36766                 {
36767
36768
36769                     {
36770                         MELT_LOCATION("warmelt-normal.melt:3081:/ locexp");
36771                         meltgc_append_list((melt_ptr_t)(/*_.NBIND__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CBIND__V60*/ meltfptr[59]));
36772                     }
36773                     ;
36774                     /*epilog*/
36775                 }
36776                 ;
36777             }
36778         else
36779             {
36780                 MELT_LOCATION("warmelt-normal.melt:3080:/ cond.else");
36781
36782                 /*^block*/
36783                 /*anyblock*/
36784                 {
36785
36786                     /*_.MAKE_LIST__V64*/ meltfptr[63] =
36787                         (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[29]))));;
36788                     MELT_LOCATION("warmelt-normal.melt:3083:/ compute");
36789                     /*_.NBIND__V26*/
36790                     meltfptr[25] = /*_.SETQ___V65*/ meltfptr[64] = /*_.MAKE_LIST__V64*/ meltfptr[63];;
36791
36792                     {
36793                         MELT_LOCATION("warmelt-normal.melt:3084:/ locexp");
36794                         meltgc_append_list((melt_ptr_t)(/*_.NBIND__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CBIND__V60*/ meltfptr[59]));
36795                     }
36796                     ;
36797                     MELT_LOCATION("warmelt-normal.melt:3082:/ quasiblock");
36798
36799
36800                     /*epilog*/
36801
36802                     MELT_LOCATION("warmelt-normal.melt:3080:/ clear");
36803                     /*clear*/ /*_.MAKE_LIST__V64*/
36804                     meltfptr[63] = 0 ;
36805                     /*^clear*/
36806                     /*clear*/ /*_.SETQ___V65*/
36807                     meltfptr[64] = 0 ;
36808                 }
36809                 ;
36810             }
36811         ;
36812
36813 #if MELT_HAVE_DEBUG
36814         MELT_LOCATION("warmelt-normal.melt:3086:/ cppif.then");
36815         /*^block*/
36816         /*anyblock*/
36817         {
36818
36819
36820             {
36821                 /*^locexp*/
36822                 /*melt_increment_dbgcounter*/
36823 #if MELT_HAVE_DEBUG
36824                 melt_dbgcounter++;
36825 #endif
36826                 ;
36827             }
36828             ;
36829
36830             MELT_CHECK_SIGNAL();
36831             ;
36832             /*_#MELT_NEED_DBG__L19*/
36833             meltfnum[15] =
36834                 /*MELT_NEED_DBG*/
36835 #if MELT_HAVE_DEBUG
36836                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
36837 #else
36838                 0 /* no melt_need_dbg */
36839 #endif /*MELT_HAVE_DEBUG*/
36840                 ;;
36841             MELT_LOCATION("warmelt-normal.melt:3086:/ cond");
36842             /*cond*/
36843             if (/*_#MELT_NEED_DBG__L19*/ meltfnum[15]) /*then*/
36844                 {
36845                     /*^cond.then*/
36846                     /*^block*/
36847                     /*anyblock*/
36848                     {
36849
36850                         /*_#MELT_CALLCOUNT__L20*/ meltfnum[19] =
36851                             /* for melt_callcount */
36852 #if MELT_HAVE_DEBUG && defined (meltcallcount)
36853                             meltcallcount  /* melt_callcount debugging */
36854 #else
36855                             0L  /* melt_callcount without debug */
36856 #endif /* MELT_HAVE_DEBUG melt_callcount */
36857                             ;;
36858
36859                         MELT_CHECK_SIGNAL();
36860                         ;
36861                         MELT_LOCATION("warmelt-normal.melt:3086:/ apply");
36862                         /*apply*/
36863                         {
36864                             union meltparam_un argtab[5];
36865                             memset(&argtab, 0, sizeof(argtab));
36866                             /*^apply.arg*/
36867                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L20*/ meltfnum[19];
36868                             /*^apply.arg*/
36869                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
36870                             /*^apply.arg*/
36871                             argtab[2].meltbp_long = 3086;
36872                             /*^apply.arg*/
36873                             argtab[3].meltbp_cstring =  "normexp_cmatchexpr result clocc";
36874                             /*^apply.arg*/
36875                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V62*/ meltfptr[61];
36876                             /*_.MELT_DEBUG_FUN__V67*/
36877                             meltfptr[64] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
36878                         }
36879                         ;
36880                         /*_._IF___V66*/
36881                         meltfptr[63] = /*_.MELT_DEBUG_FUN__V67*/ meltfptr[64];;
36882                         /*epilog*/
36883
36884                         MELT_LOCATION("warmelt-normal.melt:3086:/ clear");
36885                         /*clear*/ /*_#MELT_CALLCOUNT__L20*/
36886                         meltfnum[19] = 0 ;
36887                         /*^clear*/
36888                         /*clear*/ /*_.MELT_DEBUG_FUN__V67*/
36889                         meltfptr[64] = 0 ;
36890                     }
36891                     ;
36892                 }
36893             else    /*^cond.else*/
36894                 {
36895
36896                     /*_._IF___V66*/ meltfptr[63] =  /*reallynil*/ NULL ;;
36897                 }
36898             ;
36899
36900             {
36901                 MELT_LOCATION("warmelt-normal.melt:3086:/ locexp");
36902                 /*void*/
36903                 (void)0;
36904             }
36905             ;
36906             /*^quasiblock*/
36907
36908
36909             /*epilog*/
36910
36911             /*^clear*/
36912             /*clear*/ /*_#MELT_NEED_DBG__L19*/
36913             meltfnum[15] = 0 ;
36914             /*^clear*/
36915             /*clear*/ /*_._IF___V66*/
36916             meltfptr[63] = 0 ;
36917         }
36918
36919 #else /*MELT_HAVE_DEBUG*/
36920         /*^cppif.else*/
36921         /*^block*/
36922         /*anyblock*/
36923         {
36924
36925
36926             {
36927                 /*^locexp*/
36928                 /*void*/(void)0;
36929             }
36930             ;
36931             /*epilog*/
36932         }
36933
36934 #endif /*MELT_HAVE_DEBUG*/
36935         ;
36936
36937         MELT_CHECK_SIGNAL();
36938         ;
36939         MELT_LOCATION("warmelt-normal.melt:3087:/ quasiblock");
36940
36941
36942         /*_._RETVAL___V1*/
36943         meltfptr[0] = /*_.CLOCC__V62*/ meltfptr[61];;
36944         MELT_LOCATION("warmelt-normal.melt:3087:/ putxtraresult");
36945         if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
36946         if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
36947         if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.NBIND__V26*/ meltfptr[25]);
36948         ;
36949         /*^finalreturn*/
36950         ;
36951         /*finalret*/
36952         goto meltlabend_rout ;
36953         /*_.LET___V56*/
36954         meltfptr[55] = /*_.RETURN___V68*/ meltfptr[64];;
36955
36956         MELT_LOCATION("warmelt-normal.melt:3062:/ clear");
36957         /*clear*/ /*_.CSYM__V57*/
36958         meltfptr[56] = 0 ;
36959         /*^clear*/
36960         /*clear*/ /*_.INST___V58*/
36961         meltfptr[57] = 0 ;
36962         /*^clear*/
36963         /*clear*/ /*_.CBIND__V60*/
36964         meltfptr[59] = 0 ;
36965         /*^clear*/
36966         /*clear*/ /*_.CLOCC__V62*/
36967         meltfptr[61] = 0 ;
36968         /*^clear*/
36969         /*clear*/ /*_#IS_LIST__L18*/
36970         meltfnum[16] = 0 ;
36971         /*^clear*/
36972         /*clear*/ /*_.RETURN___V68*/
36973         meltfptr[64] = 0 ;
36974         /*_.LET___V45*/
36975         meltfptr[38] = /*_.LET___V56*/ meltfptr[55];;
36976
36977         MELT_LOCATION("warmelt-normal.melt:3001:/ clear");
36978         /*clear*/ /*_#stI__L13*/
36979         meltfnum[12] = 0 ;
36980         /*^clear*/
36981         /*clear*/ /*_#diIRAW__L14*/
36982         meltfnum[13] = 0 ;
36983         /*^clear*/
36984         /*clear*/ /*_#plI__L15*/
36985         meltfnum[14] = 0 ;
36986         /*^clear*/
36987         /*clear*/ /*_.BMAP__V46*/
36988         meltfptr[42] = 0 ;
36989         /*^clear*/
36990         /*clear*/ /*_.EXPARGS__V47*/
36991         meltfptr[43] = 0 ;
36992         /*^clear*/
36993         /*clear*/ /*_.LAMBDA___V48*/
36994         meltfptr[47] = 0 ;
36995         /*^clear*/
36996         /*clear*/ /*_.MULTIPLE_EVERY__V50*/
36997         meltfptr[49] = 0 ;
36998         /*^clear*/
36999         /*clear*/ /*_.LAMBDA___V53*/
37000         meltfptr[51] = 0 ;
37001         /*^clear*/
37002         /*clear*/ /*_.MULTIPLE_EVERY__V55*/
37003         meltfptr[54] = 0 ;
37004         /*^clear*/
37005         /*clear*/ /*_.LET___V56*/
37006         meltfptr[55] = 0 ;
37007         /*_.LET___V27*/
37008         meltfptr[26] = /*_.LET___V45*/ meltfptr[38];;
37009
37010         MELT_LOCATION("warmelt-normal.melt:2981:/ clear");
37011         /*clear*/ /*_.CMANAMSTR__V28*/
37012         meltfptr[27] = 0 ;
37013         /*^clear*/
37014         /*clear*/ /*_.OFORMALS__V29*/
37015         meltfptr[28] = 0 ;
37016         /*^clear*/
37017         /*clear*/ /*_.LET___V30*/
37018         meltfptr[29] = 0 ;
37019         /*^clear*/
37020         /*clear*/ /*_.MABIND__V35*/
37021         meltfptr[33] = 0 ;
37022         /*^clear*/
37023         /*clear*/ /*_.OTYPE__V36*/
37024         meltfptr[32] = 0 ;
37025         /*^clear*/
37026         /*clear*/ /*_.SOPEXP__V37*/
37027         meltfptr[30] = 0 ;
37028         /*^clear*/
37029         /*clear*/ /*_#NBARG__L8*/
37030         meltfnum[0] = 0 ;
37031         /*^clear*/
37032         /*clear*/ /*_#NBEXP__L9*/
37033         meltfnum[1] = 0 ;
37034         /*^clear*/
37035         /*clear*/ /*_.IFCPP___V38*/
37036         meltfptr[31] = 0 ;
37037         /*^clear*/
37038         /*clear*/ /*_#MULTIPLE_LENGTH__L11*/
37039         meltfnum[9] = 0 ;
37040         /*^clear*/
37041         /*clear*/ /*_#exeqI__L12*/
37042         meltfnum[11] = 0 ;
37043         /*^clear*/
37044         /*clear*/ /*_._IF___V41*/
37045         meltfptr[39] = 0 ;
37046         /*^clear*/
37047         /*clear*/ /*_.LET___V45*/
37048         meltfptr[38] = 0 ;
37049         /*_.MULTI___V24*/
37050         meltfptr[22] = /*_.LET___V27*/ meltfptr[26];;
37051
37052         MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
37053         /*clear*/ /*_.LET___V27*/
37054         meltfptr[26] = 0 ;
37055
37056         /*^clear*/
37057         /*clear*/ /*_.NBIND__V26*/
37058         meltfptr[25] = 0 ;
37059         /*_.LET___V17*/
37060         meltfptr[15] = /*_.MULTI___V24*/ meltfptr[22];;
37061
37062         MELT_LOCATION("warmelt-normal.melt:2973:/ clear");
37063         /*clear*/ /*_.SLOC__V18*/
37064         meltfptr[5] = 0 ;
37065         /*^clear*/
37066         /*clear*/ /*_.SCMAT__V19*/
37067         meltfptr[18] = 0 ;
37068         /*^clear*/
37069         /*clear*/ /*_.SARGS__V20*/
37070         meltfptr[19] = 0 ;
37071         /*^clear*/
37072         /*clear*/ /*_.IFCPP___V21*/
37073         meltfptr[20] = 0 ;
37074         /*^clear*/
37075         /*clear*/ /*_.MULTI___V24*/
37076         meltfptr[22] = 0 ;
37077
37078         MELT_CHECK_SIGNAL();
37079         ;
37080         MELT_LOCATION("warmelt-normal.melt:2968:/ quasiblock");
37081
37082
37083         /*_._RETVAL___V1*/
37084         meltfptr[0] = /*_.LET___V17*/ meltfptr[15];;
37085
37086         {
37087             MELT_LOCATION("warmelt-normal.melt:2968:/ locexp");
37088             /*ochecknores compilobj_nrep_return*/
37089 #if MELT_HAVE_DEBUG
37090             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
37091                 melt_warn_for_no_expected_secondary_results();
37092             /* we warned when secondary results are expected but not returned. */
37093 #endif /*MELT_HAVE_DEBUG*/
37094             ;
37095         }
37096         ;
37097         /*^finalreturn*/
37098         ;
37099         /*finalret*/
37100         goto meltlabend_rout ;
37101         /*epilog*/
37102
37103         /*^clear*/
37104         /*clear*/ /*_.IFCPP___V8*/
37105         meltfptr[6] = 0 ;
37106         /*^clear*/
37107         /*clear*/ /*_.IFCPP___V11*/
37108         meltfptr[9] = 0 ;
37109         /*^clear*/
37110         /*clear*/ /*_.IFCPP___V14*/
37111         meltfptr[12] = 0 ;
37112         /*^clear*/
37113         /*clear*/ /*_.LET___V17*/
37114         meltfptr[15] = 0 ;
37115     }
37116
37117     ;
37118     goto meltlabend_rout;
37119 meltlabend_rout:
37120     melt_trace_end("NORMEXP_CMATCHEXPR", meltcallcount);
37121     melt_blocklevel_signals = current_blocklevel_signals_meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR_melt;
37122     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
37123 #undef meltcallcount
37124 #undef meltfram__
37125 #undef MELTFRAM_NBVARNUM
37126 #undef MELTFRAM_NBVARPTR
37127 } /*end meltrout_44_WARMELTmiNORMAL_NORMEXP_CMATCHEXPR*/
37128
37129
37130
37131
37132
37133
37134 melt_ptr_t MELT_MODULE_VISIBILITY
37135 meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
37136                                        const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
37137 {
37138     long current_blocklevel_signals_meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4_melt =  melt_blocklevel_signals;
37139
37140 #if MELT_HAVE_DEBUG
37141     static long melt_call_counter__;
37142     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
37143 #undef meltcallcount
37144 #define meltcallcount melt_thiscallcounter__
37145 #else
37146 #undef meltcallcount
37147 #define meltcallcount 0L
37148 #endif
37149 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
37150
37151     /* start of frame for routine meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4 fromline 1752 */
37152
37153     /** start of frame for meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4 of CLASS_PROCROUTINEOBJ from 1555**/
37154
37155     /*curframdeclclassy*/ class MeltFrame_meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4// fromline 1568
37156         : public Melt_CallFrameWithValues<19>
37157     {
37158     public: /* fromline 1572*/
37159         long mcfr_varnum[11];
37160         /*classy others*/
37161         long _meltsparel;
37162         void melt_mark_stuff (void)
37163         {
37164         } /*end melt_mark_stuff*/
37165         virtual void melt_mark_ggc_data (void)
37166         {
37167             melt_mark_values ();
37168             melt_mark_stuff ();
37169         }; /*end melt_mark_ggc_data*/
37170         MeltFrame_meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4(meltclosure_ptr_t clos) //the closure constructor fromline 1630
37171             : Melt_CallFrameWithValues<19> (
37172 #if ENABLE_CHECKING /*fromline 1634*/
37173                 __FILE__, __LINE__,
37174 #endif /* ENABLE_CHECKING fromline 1638*/
37175                 sizeof(MeltFrame_meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4), clos) {};
37176         MeltFrame_meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4() //the constructor fromline 1642
37177             : Melt_CallFrameWithValues<19> (
37178 #if ENABLE_CHECKING /*fromline 1646*/
37179                 __FILE__, __LINE__,
37180 #endif /* ENABLE_CHECKING fromline 1650*/
37181                 sizeof(MeltFrame_meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4)) {};
37182 #if ENABLE_CHECKING /*fromline 1654*/
37183         MeltFrame_meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4(const char*fil, int lin) //the constructor fromline 1656
37184             : Melt_CallFrameWithValues<19> (fil,lin, sizeof(MeltFrame_meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4)) {};
37185         MeltFrame_meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
37186             : Melt_CallFrameWithValues<19> (fil,lin, sizeof(MeltFrame_meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4), clos) {};
37187 #endif /* ENABLE_CHECKING fromline 1666*/
37188
37189     }; // end  class MeltFrame_meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4
37190
37191
37192     /** end of frame for meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4 fromline 1697**/
37193
37194     /* end of frame for routine meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4 fromline 1756 */
37195
37196     /* classy proc frame meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4 */
37197     MeltFrame_meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4
37198     meltfram__ /*declfrastruct fromline 1780*/
37199     /*classyprocarg meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4 fromline 1785*/
37200 #if ENABLE_CHECKING
37201     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
37202 #else /*ENABLE_CHECKING */
37203     (meltclosp_) /* fromline 1793*/
37204 #endif /*ENABLE_CHECKING */
37205
37206     ;
37207 #define meltframe meltfram__
37208
37209     melt_trace_start("LAMBDA_cl4", meltcallcount);
37210     /*use arguments*/
37211     (void) meltclosp_;
37212     (void)meltfirstargp_;
37213     (void)meltxargdescr_;
37214     (void)meltxargtab_;
37215     (void)meltxresdescr_;
37216     (void)meltxrestab_;
37217     /*getargs*/
37218
37219     /*getarg#0*/
37220     MELT_LOCATION("warmelt-normal.melt:3006:/ getarg");
37221     /*_.FORB__V2*/
37222     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
37223
37224     /*getarg#1*/
37225     /*^getarg*/
37226     if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs;
37227     /*_#IX__L1*/
37228     meltfnum[0] = meltxargtab_[0].meltbp_long;
37229     ;
37230     goto meltlab_endgetargs;
37231 meltlab_endgetargs:
37232     ;
37233     /*body*/
37234     /*^block*/
37235     /*anyblock*/
37236     {
37237
37238
37239 #if MELT_HAVE_DEBUG
37240         MELT_LOCATION("warmelt-normal.melt:3007:/ cppif.then");
37241         /*^block*/
37242         /*anyblock*/
37243         {
37244
37245
37246             MELT_CHECK_SIGNAL();
37247             ;
37248             /*_#IS_A__L2*/
37249             meltfnum[1] =
37250                 melt_is_instance_of((melt_ptr_t)(/*_.FORB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[0])));;
37251             MELT_LOCATION("warmelt-normal.melt:3007:/ cond");
37252             /*cond*/
37253             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
37254                 {
37255                     /*^cond.then*/
37256                     /*_._IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);;
37257                 }
37258             else
37259                 {
37260                     MELT_LOCATION("warmelt-normal.melt:3007:/ cond.else");
37261
37262                     /*^block*/
37263                     /*anyblock*/
37264                     {
37265
37266
37267                         MELT_CHECK_SIGNAL();
37268                         ;
37269                         /*^apply*/
37270                         /*apply*/
37271                         {
37272                             union meltparam_un argtab[4];
37273                             memset(&argtab, 0, sizeof(argtab));
37274                             /*^apply.arg*/
37275                             argtab[0].meltbp_cstring =  "check forb";
37276                             /*^apply.arg*/
37277                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
37278                             /*^apply.arg*/
37279                             argtab[2].meltbp_long = 3007;
37280                             /*^apply.arg*/
37281                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FORB__V2*/ meltfptr[1];
37282                             /*_.MELT_ASSERT_FAILURE_FUN__V5*/
37283                             meltfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
37284                         }
37285                         ;
37286                         /*_._IFELSE___V4*/
37287                         meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4];;
37288                         /*epilog*/
37289
37290                         MELT_LOCATION("warmelt-normal.melt:3007:/ clear");
37291                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V5*/
37292                         meltfptr[4] = 0 ;
37293                     }
37294                     ;
37295                 }
37296             ;
37297             /*_.IFCPP___V3*/
37298             meltfptr[2] = /*_._IFELSE___V4*/ meltfptr[3];;
37299             /*epilog*/
37300
37301             MELT_LOCATION("warmelt-normal.melt:3007:/ clear");
37302             /*clear*/ /*_#IS_A__L2*/
37303             meltfnum[1] = 0 ;
37304             /*^clear*/
37305             /*clear*/ /*_._IFELSE___V4*/
37306             meltfptr[3] = 0 ;
37307         }
37308
37309 #else /*MELT_HAVE_DEBUG*/
37310         /*^cppif.else*/
37311         /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL);
37312 #endif /*MELT_HAVE_DEBUG*/
37313         ;
37314
37315 #if MELT_HAVE_DEBUG
37316         MELT_LOCATION("warmelt-normal.melt:3008:/ cppif.then");
37317         /*^block*/
37318         /*anyblock*/
37319         {
37320
37321
37322             {
37323                 /*^locexp*/
37324                 /*melt_increment_dbgcounter*/
37325 #if MELT_HAVE_DEBUG
37326                 melt_dbgcounter++;
37327 #endif
37328                 ;
37329             }
37330             ;
37331
37332             MELT_CHECK_SIGNAL();
37333             ;
37334             /*_#MELT_NEED_DBG__L3*/
37335             meltfnum[1] =
37336                 /*MELT_NEED_DBG*/
37337 #if MELT_HAVE_DEBUG
37338                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
37339 #else
37340                 0 /* no melt_need_dbg */
37341 #endif /*MELT_HAVE_DEBUG*/
37342                 ;;
37343             MELT_LOCATION("warmelt-normal.melt:3008:/ cond");
37344             /*cond*/
37345             if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/
37346                 {
37347                     /*^cond.then*/
37348                     /*^block*/
37349                     /*anyblock*/
37350                     {
37351
37352                         /*_#MELT_CALLCOUNT__L4*/ meltfnum[3] =
37353                             /* for melt_callcount */
37354 #if MELT_HAVE_DEBUG && defined (meltcallcount)
37355                             meltcallcount  /* melt_callcount debugging */
37356 #else
37357                             0L  /* melt_callcount without debug */
37358 #endif /* MELT_HAVE_DEBUG melt_callcount */
37359                             ;;
37360
37361                         MELT_CHECK_SIGNAL();
37362                         ;
37363                         MELT_LOCATION("warmelt-normal.melt:3008:/ apply");
37364                         /*apply*/
37365                         {
37366                             union meltparam_un argtab[5];
37367                             memset(&argtab, 0, sizeof(argtab));
37368                             /*^apply.arg*/
37369                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L4*/ meltfnum[3];
37370                             /*^apply.arg*/
37371                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
37372                             /*^apply.arg*/
37373                             argtab[2].meltbp_long = 3008;
37374                             /*^apply.arg*/
37375                             argtab[3].meltbp_cstring =  "normexp_cmatchexpr forb";
37376                             /*^apply.arg*/
37377                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FORB__V2*/ meltfptr[1];
37378                             /*_.MELT_DEBUG_FUN__V7*/
37379                             meltfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
37380                         }
37381                         ;
37382                         /*_._IF___V6*/
37383                         meltfptr[4] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[3];;
37384                         /*epilog*/
37385
37386                         MELT_LOCATION("warmelt-normal.melt:3008:/ clear");
37387                         /*clear*/ /*_#MELT_CALLCOUNT__L4*/
37388                         meltfnum[3] = 0 ;
37389                         /*^clear*/
37390                         /*clear*/ /*_.MELT_DEBUG_FUN__V7*/
37391                         meltfptr[3] = 0 ;
37392                     }
37393                     ;
37394                 }
37395             else    /*^cond.else*/
37396                 {
37397
37398                     /*_._IF___V6*/ meltfptr[4] =  /*reallynil*/ NULL ;;
37399                 }
37400             ;
37401
37402             {
37403                 MELT_LOCATION("warmelt-normal.melt:3008:/ locexp");
37404                 /*void*/
37405                 (void)0;
37406             }
37407             ;
37408             /*^quasiblock*/
37409
37410
37411             /*epilog*/
37412
37413             /*^clear*/
37414             /*clear*/ /*_#MELT_NEED_DBG__L3*/
37415             meltfnum[1] = 0 ;
37416             /*^clear*/
37417             /*clear*/ /*_._IF___V6*/
37418             meltfptr[4] = 0 ;
37419         }
37420
37421 #else /*MELT_HAVE_DEBUG*/
37422         /*^cppif.else*/
37423         /*^block*/
37424         /*anyblock*/
37425         {
37426
37427
37428             {
37429                 /*^locexp*/
37430                 /*void*/(void)0;
37431             }
37432             ;
37433             /*epilog*/
37434         }
37435
37436 #endif /*MELT_HAVE_DEBUG*/
37437         ;
37438         MELT_LOCATION("warmelt-normal.melt:3009:/ quasiblock");
37439
37440
37441         /*^getslot*/
37442         {
37443             melt_ptr_t slot=NULL, obj=NULL;
37444             obj = (melt_ptr_t)(/*_.FORB__V2*/ meltfptr[1]) /*=obj*/;
37445             melt_object_get_field(slot,obj, 0, "BINDER");
37446             /*_.FORARG__V8*/
37447             meltfptr[3] = slot;
37448         };
37449         ;
37450         /*_.ACTARG__V9*/
37451         meltfptr[4] =
37452             (melt_multiple_nth((melt_ptr_t)((/*~NARGS*/ meltfclos->tabval[0])), (/*_#IX__L1*/ meltfnum[0])));;
37453         MELT_LOCATION("warmelt-normal.melt:3011:/ getslot");
37454         {
37455             melt_ptr_t slot=NULL, obj=NULL;
37456             obj = (melt_ptr_t)(/*_.FORB__V2*/ meltfptr[1]) /*=obj*/;
37457             melt_object_get_field(slot,obj, 1, "FBIND_TYPE");
37458             /*_.FORTYPE__V10*/
37459             meltfptr[9] = slot;
37460         };
37461         ;
37462
37463         MELT_CHECK_SIGNAL();
37464         ;
37465         MELT_LOCATION("warmelt-normal.melt:3012:/ msend");
37466         /*msend*/
37467         {
37468             union meltparam_un argtab[1];
37469             memset(&argtab, 0, sizeof(argtab));
37470             /*^ojbmsend.arg*/
37471             argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~ENV*/ meltfclos->tabval[1]);
37472             /*_.ACTYPE__V11*/
37473             meltfptr[10] = meltgc_send((melt_ptr_t)(/*_.ACTARG__V9*/ meltfptr[4]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
37474         }
37475         ;
37476
37477 #if MELT_HAVE_DEBUG
37478         MELT_LOCATION("warmelt-normal.melt:3014:/ cppif.then");
37479         /*^block*/
37480         /*anyblock*/
37481         {
37482
37483
37484             {
37485                 /*^locexp*/
37486                 /*melt_increment_dbgcounter*/
37487 #if MELT_HAVE_DEBUG
37488                 melt_dbgcounter++;
37489 #endif
37490                 ;
37491             }
37492             ;
37493
37494             MELT_CHECK_SIGNAL();
37495             ;
37496             /*_#MELT_NEED_DBG__L5*/
37497             meltfnum[3] =
37498                 /*MELT_NEED_DBG*/
37499 #if MELT_HAVE_DEBUG
37500                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
37501 #else
37502                 0 /* no melt_need_dbg */
37503 #endif /*MELT_HAVE_DEBUG*/
37504                 ;;
37505             MELT_LOCATION("warmelt-normal.melt:3014:/ cond");
37506             /*cond*/
37507             if (/*_#MELT_NEED_DBG__L5*/ meltfnum[3]) /*then*/
37508                 {
37509                     /*^cond.then*/
37510                     /*^block*/
37511                     /*anyblock*/
37512                     {
37513
37514                         /*_#MELT_CALLCOUNT__L6*/ meltfnum[1] =
37515                             /* for melt_callcount */
37516 #if MELT_HAVE_DEBUG && defined (meltcallcount)
37517                             meltcallcount  /* melt_callcount debugging */
37518 #else
37519                             0L  /* melt_callcount without debug */
37520 #endif /* MELT_HAVE_DEBUG melt_callcount */
37521                             ;;
37522
37523                         MELT_CHECK_SIGNAL();
37524                         ;
37525                         MELT_LOCATION("warmelt-normal.melt:3014:/ apply");
37526                         /*apply*/
37527                         {
37528                             union meltparam_un argtab[7];
37529                             memset(&argtab, 0, sizeof(argtab));
37530                             /*^apply.arg*/
37531                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[1];
37532                             /*^apply.arg*/
37533                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
37534                             /*^apply.arg*/
37535                             argtab[2].meltbp_long = 3014;
37536                             /*^apply.arg*/
37537                             argtab[3].meltbp_cstring =  "normexp_cmatchexpr actarg=";
37538                             /*^apply.arg*/
37539                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ACTARG__V9*/ meltfptr[4];
37540                             /*^apply.arg*/
37541                             argtab[5].meltbp_cstring =  " actype=";
37542                             /*^apply.arg*/
37543                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.ACTYPE__V11*/ meltfptr[10];
37544                             /*_.MELT_DEBUG_FUN__V13*/
37545                             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
37546                         }
37547                         ;
37548                         /*_._IF___V12*/
37549                         meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];;
37550                         /*epilog*/
37551
37552                         MELT_LOCATION("warmelt-normal.melt:3014:/ clear");
37553                         /*clear*/ /*_#MELT_CALLCOUNT__L6*/
37554                         meltfnum[1] = 0 ;
37555                         /*^clear*/
37556                         /*clear*/ /*_.MELT_DEBUG_FUN__V13*/
37557                         meltfptr[12] = 0 ;
37558                     }
37559                     ;
37560                 }
37561             else    /*^cond.else*/
37562                 {
37563
37564                     /*_._IF___V12*/ meltfptr[11] =  /*reallynil*/ NULL ;;
37565                 }
37566             ;
37567
37568             {
37569                 MELT_LOCATION("warmelt-normal.melt:3014:/ locexp");
37570                 /*void*/
37571                 (void)0;
37572             }
37573             ;
37574             /*^quasiblock*/
37575
37576
37577             /*epilog*/
37578
37579             /*^clear*/
37580             /*clear*/ /*_#MELT_NEED_DBG__L5*/
37581             meltfnum[3] = 0 ;
37582             /*^clear*/
37583             /*clear*/ /*_._IF___V12*/
37584             meltfptr[11] = 0 ;
37585         }
37586
37587 #else /*MELT_HAVE_DEBUG*/
37588         /*^cppif.else*/
37589         /*^block*/
37590         /*anyblock*/
37591         {
37592
37593
37594             {
37595                 /*^locexp*/
37596                 /*void*/(void)0;
37597             }
37598             ;
37599             /*epilog*/
37600         }
37601
37602 #endif /*MELT_HAVE_DEBUG*/
37603         ;
37604
37605         MELT_CHECK_SIGNAL();
37606         ;
37607
37608         MELT_CHECK_SIGNAL();
37609         ;
37610         /*_#IS_A__L7*/
37611         meltfnum[1] =
37612             melt_is_instance_of((melt_ptr_t)(/*_.FORTYPE__V10*/ meltfptr[9]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[4])));;
37613         MELT_LOCATION("warmelt-normal.melt:3015:/ cond");
37614         /*cond*/
37615         if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/
37616             {
37617                 /*^cond.then*/
37618                 /*^block*/
37619                 /*anyblock*/
37620                 {
37621
37622
37623                     MELT_CHECK_SIGNAL();
37624                     ;
37625                     /*_#IS_A__L9*/
37626                     meltfnum[8] =
37627                         melt_is_instance_of((melt_ptr_t)(/*_.ACTYPE__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[4])));;
37628                     MELT_LOCATION("warmelt-normal.melt:3015:/ cond");
37629                     /*cond*/
37630                     if (/*_#IS_A__L9*/ meltfnum[8]) /*then*/
37631                         {
37632                             /*^cond.then*/
37633                             /*^block*/
37634                             /*anyblock*/
37635                             {
37636
37637                                 /*_#exeq__L11*/ meltfnum[10] =
37638                                     ((/*_.FORTYPE__V10*/ meltfptr[9]) != (/*_.ACTYPE__V11*/ meltfptr[10]));;
37639                                 /*^compute*/
37640                                 /*_#_IF___L10*/
37641                                 meltfnum[9] = /*_#exeq__L11*/ meltfnum[10];;
37642                                 /*epilog*/
37643
37644                                 MELT_LOCATION("warmelt-normal.melt:3015:/ clear");
37645                                 /*clear*/ /*_#exeq__L11*/
37646                                 meltfnum[10] = 0 ;
37647                             }
37648                             ;
37649                         }
37650                     else    /*^cond.else*/
37651                         {
37652
37653                             /*_#_IF___L10*/ meltfnum[9] = 0;;
37654                         }
37655                     ;
37656                     /*^compute*/
37657                     /*_#_IF___L8*/
37658                     meltfnum[3] = /*_#_IF___L10*/ meltfnum[9];;
37659                     /*epilog*/
37660
37661                     MELT_LOCATION("warmelt-normal.melt:3015:/ clear");
37662                     /*clear*/ /*_#IS_A__L9*/
37663                     meltfnum[8] = 0 ;
37664                     /*^clear*/
37665                     /*clear*/ /*_#_IF___L10*/
37666                     meltfnum[9] = 0 ;
37667                 }
37668                 ;
37669             }
37670         else    /*^cond.else*/
37671             {
37672
37673                 /*_#_IF___L8*/ meltfnum[3] = 0;;
37674             }
37675         ;
37676         MELT_LOCATION("warmelt-normal.melt:3015:/ cond");
37677         /*cond*/
37678         if (/*_#_IF___L8*/ meltfnum[3]) /*then*/
37679             {
37680                 /*^cond.then*/
37681                 /*^block*/
37682                 /*anyblock*/
37683                 {
37684
37685                     MELT_LOCATION("warmelt-normal.melt:3022:/ getslot");
37686                     {
37687                         melt_ptr_t slot=NULL, obj=NULL;
37688                         obj = (melt_ptr_t)(/*_.FORARG__V8*/ meltfptr[3]) /*=obj*/;
37689                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
37690                         /*_.NAMED_NAME__V15*/
37691                         meltfptr[11] = slot;
37692                     };
37693                     ;
37694                     MELT_LOCATION("warmelt-normal.melt:3023:/ getslot");
37695                     {
37696                         melt_ptr_t slot=NULL, obj=NULL;
37697                         obj = (melt_ptr_t)(/*_.ACTYPE__V11*/ meltfptr[10]) /*=obj*/;
37698                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
37699                         /*_.NAMED_NAME__V16*/
37700                         meltfptr[15] = slot;
37701                     };
37702                     ;
37703                     MELT_LOCATION("warmelt-normal.melt:3024:/ getslot");
37704                     {
37705                         melt_ptr_t slot=NULL, obj=NULL;
37706                         obj = (melt_ptr_t)(/*_.FORTYPE__V10*/ meltfptr[9]) /*=obj*/;
37707                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
37708                         /*_.NAMED_NAME__V17*/
37709                         meltfptr[16] = slot;
37710                     };
37711                     ;
37712
37713                     MELT_CHECK_SIGNAL();
37714                     ;
37715                     MELT_LOCATION("warmelt-normal.melt:3019:/ apply");
37716                     /*apply*/
37717                     {
37718                         union meltparam_un argtab[5];
37719                         memset(&argtab, 0, sizeof(argtab));
37720                         /*^apply.arg*/
37721                         argtab[0].meltbp_cstring =  "type mismatch between formals & actuals in cmatch $1 operator formal\
37722  $2 actual ctype $3 expected ctype $4";
37723                         /*^apply.arg*/
37724                         argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~CMANAMSTR*/ meltfclos->tabval[3]);
37725                         /*^apply.arg*/
37726                         argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V15*/ meltfptr[11];
37727                         /*^apply.arg*/
37728                         argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V16*/ meltfptr[15];
37729                         /*^apply.arg*/
37730                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V17*/ meltfptr[16];
37731                         /*_.ERROR_AT__V18*/
37732                         meltfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[5])), (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[2])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
37733                     }
37734                     ;
37735                     MELT_LOCATION("warmelt-normal.melt:3018:/ quasiblock");
37736
37737
37738                     /*_.PROGN___V19*/
37739                     meltfptr[18] = /*_.ERROR_AT__V18*/ meltfptr[17];;
37740                     /*^compute*/
37741                     /*_._IF___V14*/
37742                     meltfptr[12] = /*_.PROGN___V19*/ meltfptr[18];;
37743                     /*epilog*/
37744
37745                     MELT_LOCATION("warmelt-normal.melt:3015:/ clear");
37746                     /*clear*/ /*_.NAMED_NAME__V15*/
37747                     meltfptr[11] = 0 ;
37748                     /*^clear*/
37749                     /*clear*/ /*_.NAMED_NAME__V16*/
37750                     meltfptr[15] = 0 ;
37751                     /*^clear*/
37752                     /*clear*/ /*_.NAMED_NAME__V17*/
37753                     meltfptr[16] = 0 ;
37754                     /*^clear*/
37755                     /*clear*/ /*_.ERROR_AT__V18*/
37756                     meltfptr[17] = 0 ;
37757                     /*^clear*/
37758                     /*clear*/ /*_.PROGN___V19*/
37759                     meltfptr[18] = 0 ;
37760                 }
37761                 ;
37762             }
37763         else    /*^cond.else*/
37764             {
37765
37766                 /*_._IF___V14*/ meltfptr[12] =  /*reallynil*/ NULL ;;
37767             }
37768         ;
37769
37770         {
37771             MELT_LOCATION("warmelt-normal.melt:3026:/ locexp");
37772             meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~BMAP*/ meltfclos->tabval[4])),
37773                                    (meltobject_ptr_t) (/*_.FORARG__V8*/ meltfptr[3]),
37774                                    (melt_ptr_t)(/*_.ACTARG__V9*/ meltfptr[4]));
37775         }
37776         ;
37777
37778         MELT_LOCATION("warmelt-normal.melt:3009:/ clear");
37779         /*clear*/ /*_.FORARG__V8*/
37780         meltfptr[3] = 0 ;
37781         /*^clear*/
37782         /*clear*/ /*_.ACTARG__V9*/
37783         meltfptr[4] = 0 ;
37784         /*^clear*/
37785         /*clear*/ /*_.FORTYPE__V10*/
37786         meltfptr[9] = 0 ;
37787         /*^clear*/
37788         /*clear*/ /*_.ACTYPE__V11*/
37789         meltfptr[10] = 0 ;
37790         /*^clear*/
37791         /*clear*/ /*_#IS_A__L7*/
37792         meltfnum[1] = 0 ;
37793         /*^clear*/
37794         /*clear*/ /*_#_IF___L8*/
37795         meltfnum[3] = 0 ;
37796         /*^clear*/
37797         /*clear*/ /*_._IF___V14*/
37798         meltfptr[12] = 0 ;
37799
37800         MELT_CHECK_SIGNAL();
37801         ;
37802         /*epilog*/
37803
37804         MELT_LOCATION("warmelt-normal.melt:3006:/ clear");
37805         /*clear*/ /*_.IFCPP___V3*/
37806         meltfptr[2] = 0 ;
37807     }
37808
37809     ;
37810     goto meltlabend_rout;
37811 meltlabend_rout:
37812     melt_trace_end("LAMBDA_cl4", meltcallcount);
37813     melt_blocklevel_signals = current_blocklevel_signals_meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4_melt;
37814     return (melt_ptr_t)(/*noretval*/ NULL);
37815 #undef meltcallcount
37816 #undef meltfram__
37817 #undef MELTFRAM_NBVARNUM
37818 #undef MELTFRAM_NBVARPTR
37819 } /*end meltrout_45_WARMELTmiNORMAL_LAMBDA_cl4*/
37820
37821
37822
37823
37824
37825
37826 melt_ptr_t MELT_MODULE_VISIBILITY
37827 meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
37828                                        const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
37829 {
37830     long current_blocklevel_signals_meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5_melt =  melt_blocklevel_signals;
37831
37832 #if MELT_HAVE_DEBUG
37833     static long melt_call_counter__;
37834     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
37835 #undef meltcallcount
37836 #define meltcallcount melt_thiscallcounter__
37837 #else
37838 #undef meltcallcount
37839 #define meltcallcount 0L
37840 #endif
37841 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
37842
37843     /* start of frame for routine meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5 fromline 1752 */
37844
37845     /** start of frame for meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5 of CLASS_PROCROUTINEOBJ from 1555**/
37846
37847     /*curframdeclclassy*/ class MeltFrame_meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5// fromline 1568
37848         : public Melt_CallFrameWithValues<12>
37849     {
37850     public: /* fromline 1572*/
37851         long mcfr_varnum[7];
37852         /*classy others*/
37853         long _meltsparel;
37854         void melt_mark_stuff (void)
37855         {
37856         } /*end melt_mark_stuff*/
37857         virtual void melt_mark_ggc_data (void)
37858         {
37859             melt_mark_values ();
37860             melt_mark_stuff ();
37861         }; /*end melt_mark_ggc_data*/
37862         MeltFrame_meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5(meltclosure_ptr_t clos) //the closure constructor fromline 1630
37863             : Melt_CallFrameWithValues<12> (
37864 #if ENABLE_CHECKING /*fromline 1634*/
37865                 __FILE__, __LINE__,
37866 #endif /* ENABLE_CHECKING fromline 1638*/
37867                 sizeof(MeltFrame_meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5), clos) {};
37868         MeltFrame_meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5() //the constructor fromline 1642
37869             : Melt_CallFrameWithValues<12> (
37870 #if ENABLE_CHECKING /*fromline 1646*/
37871                 __FILE__, __LINE__,
37872 #endif /* ENABLE_CHECKING fromline 1650*/
37873                 sizeof(MeltFrame_meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5)) {};
37874 #if ENABLE_CHECKING /*fromline 1654*/
37875         MeltFrame_meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5(const char*fil, int lin) //the constructor fromline 1656
37876             : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5)) {};
37877         MeltFrame_meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
37878             : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5), clos) {};
37879 #endif /* ENABLE_CHECKING fromline 1666*/
37880
37881     }; // end  class MeltFrame_meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5
37882
37883
37884     /** end of frame for meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5 fromline 1697**/
37885
37886     /* end of frame for routine meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5 fromline 1756 */
37887
37888     /* classy proc frame meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5 */
37889     MeltFrame_meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5
37890     meltfram__ /*declfrastruct fromline 1780*/
37891     /*classyprocarg meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5 fromline 1785*/
37892 #if ENABLE_CHECKING
37893     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
37894 #else /*ENABLE_CHECKING */
37895     (meltclosp_) /* fromline 1793*/
37896 #endif /*ENABLE_CHECKING */
37897
37898     ;
37899 #define meltframe meltfram__
37900
37901     melt_trace_start("LAMBDA_cl5", meltcallcount);
37902     /*use arguments*/
37903     (void) meltclosp_;
37904     (void)meltfirstargp_;
37905     (void)meltxargdescr_;
37906     (void)meltxargtab_;
37907     (void)meltxresdescr_;
37908     (void)meltxrestab_;
37909     /*getargs*/
37910
37911     /*getarg#0*/
37912     MELT_LOCATION("warmelt-normal.melt:3031:/ getarg");
37913     /*_.EXCU__V2*/
37914     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
37915
37916     /*getarg#1*/
37917     /*^getarg*/
37918     if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs;
37919     /*_#JX__L1*/
37920     meltfnum[0] = meltxargtab_[0].meltbp_long;
37921     ;
37922     goto meltlab_endgetargs;
37923 meltlab_endgetargs:
37924     ;
37925     /*body*/
37926     /*^block*/
37927     /*anyblock*/
37928     {
37929
37930         MELT_LOCATION("warmelt-normal.melt:3033:/ quasiblock");
37931
37932
37933
37934         MELT_CHECK_SIGNAL();
37935         ;
37936         /*_#IS_A__L2*/
37937         meltfnum[1] =
37938             melt_is_instance_of((melt_ptr_t)(/*_.EXCU__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[0])));;
37939         MELT_LOCATION("warmelt-normal.melt:3034:/ cond");
37940         /*cond*/
37941         if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
37942             {
37943                 /*^cond.then*/
37944                 /*^block*/
37945                 /*anyblock*/
37946                 {
37947
37948                     MELT_LOCATION("warmelt-normal.melt:3035:/ quasiblock");
37949
37950
37951                     /*_.BVAL__V5*/
37952                     meltfptr[4] =
37953                         /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)((/*~BMAP*/ meltfclos->tabval[0])),
37954                                 (meltobject_ptr_t)(/*_.EXCU__V2*/ meltfptr[1]));;
37955
37956                     MELT_CHECK_SIGNAL();
37957                     ;
37958                     /*^compute*/
37959                     /*_#NULL__L3*/
37960                     meltfnum[2] =
37961                         (/*null*/(/*_.BVAL__V5*/ meltfptr[4]) == NULL);;
37962                     MELT_LOCATION("warmelt-normal.melt:3036:/ cond");
37963                     /*cond*/
37964                     if (/*_#NULL__L3*/ meltfnum[2]) /*then*/
37965                         {
37966                             /*^cond.then*/
37967                             /*^block*/
37968                             /*anyblock*/
37969                             {
37970
37971
37972 #if MELT_HAVE_DEBUG
37973                                 MELT_LOCATION("warmelt-normal.melt:3043:/ cppif.then");
37974                                 /*^block*/
37975                                 /*anyblock*/
37976                                 {
37977
37978
37979                                     {
37980                                         /*^locexp*/
37981                                         /*melt_increment_dbgcounter*/
37982 #if MELT_HAVE_DEBUG
37983                                         melt_dbgcounter++;
37984 #endif
37985                                         ;
37986                                     }
37987                                     ;
37988
37989                                     MELT_CHECK_SIGNAL();
37990                                     ;
37991                                     /*_#MELT_NEED_DBG__L4*/
37992                                     meltfnum[3] =
37993                                         /*MELT_NEED_DBG*/
37994 #if MELT_HAVE_DEBUG
37995                                         (/*melt_need_dbg*/ melt_need_debug ((int) 0))
37996 #else
37997                                         0 /* no melt_need_dbg */
37998 #endif /*MELT_HAVE_DEBUG*/
37999                                         ;;
38000                                     MELT_LOCATION("warmelt-normal.melt:3043:/ cond");
38001                                     /*cond*/
38002                                     if (/*_#MELT_NEED_DBG__L4*/ meltfnum[3]) /*then*/
38003                                         {
38004                                             /*^cond.then*/
38005                                             /*^block*/
38006                                             /*anyblock*/
38007                                             {
38008
38009                                                 /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] =
38010                                                     /* for melt_callcount */
38011 #if MELT_HAVE_DEBUG && defined (meltcallcount)
38012                                                     meltcallcount  /* melt_callcount debugging */
38013 #else
38014                                                     0L  /* melt_callcount without debug */
38015 #endif /* MELT_HAVE_DEBUG melt_callcount */
38016                                                     ;;
38017
38018                                                 MELT_CHECK_SIGNAL();
38019                                                 ;
38020                                                 MELT_LOCATION("warmelt-normal.melt:3043:/ apply");
38021                                                 /*apply*/
38022                                                 {
38023                                                     union meltparam_un argtab[7];
38024                                                     memset(&argtab, 0, sizeof(argtab));
38025                                                     /*^apply.arg*/
38026                                                     argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L5*/ meltfnum[4];
38027                                                     /*^apply.arg*/
38028                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
38029                                                     /*^apply.arg*/
38030                                                     argtab[2].meltbp_long = 3043;
38031                                                     /*^apply.arg*/
38032                                                     argtab[3].meltbp_cstring =  "normexp_cmatchexpr unexpected symbol in expansion recv=";
38033                                                     /*^apply.arg*/
38034                                                     argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*~RECV*/ meltfclos->tabval[1]);
38035                                                     /*^apply.arg*/
38036                                                     argtab[5].meltbp_cstring =  " excu=";
38037                                                     /*^apply.arg*/
38038                                                     argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.EXCU__V2*/ meltfptr[1];
38039                                                     /*_.MELT_DEBUG_FUN__V8*/
38040                                                     meltfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
38041                                                 }
38042                                                 ;
38043                                                 /*_._IF___V7*/
38044                                                 meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];;
38045                                                 /*epilog*/
38046
38047                                                 MELT_LOCATION("warmelt-normal.melt:3043:/ clear");
38048                                                 /*clear*/ /*_#MELT_CALLCOUNT__L5*/
38049                                                 meltfnum[4] = 0 ;
38050                                                 /*^clear*/
38051                                                 /*clear*/ /*_.MELT_DEBUG_FUN__V8*/
38052                                                 meltfptr[7] = 0 ;
38053                                             }
38054                                             ;
38055                                         }
38056                                     else    /*^cond.else*/
38057                                         {
38058
38059                                             /*_._IF___V7*/ meltfptr[6] =  /*reallynil*/ NULL ;;
38060                                         }
38061                                     ;
38062
38063                                     {
38064                                         MELT_LOCATION("warmelt-normal.melt:3043:/ locexp");
38065                                         /*void*/
38066                                         (void)0;
38067                                     }
38068                                     ;
38069                                     /*^quasiblock*/
38070
38071
38072                                     /*epilog*/
38073
38074                                     /*^clear*/
38075                                     /*clear*/ /*_#MELT_NEED_DBG__L4*/
38076                                     meltfnum[3] = 0 ;
38077                                     /*^clear*/
38078                                     /*clear*/ /*_._IF___V7*/
38079                                     meltfptr[6] = 0 ;
38080                                 }
38081
38082 #else /*MELT_HAVE_DEBUG*/
38083                                 /*^cppif.else*/
38084                                 /*^block*/
38085                                 /*anyblock*/
38086                                 {
38087
38088
38089                                     {
38090                                         /*^locexp*/
38091                                         /*void*/(void)0;
38092                                     }
38093                                     ;
38094                                     /*epilog*/
38095                                 }
38096
38097 #endif /*MELT_HAVE_DEBUG*/
38098                                 ;
38099                                 MELT_LOCATION("warmelt-normal.melt:3046:/ getslot");
38100                                 {
38101                                     melt_ptr_t slot=NULL, obj=NULL;
38102                                     obj = (melt_ptr_t)(/*_.EXCU__V2*/ meltfptr[1]) /*=obj*/;
38103                                     melt_object_get_field(slot,obj, 1, "NAMED_NAME");
38104                                     /*_.NAMED_NAME__V9*/
38105                                     meltfptr[7] = slot;
38106                                 };
38107                                 ;
38108
38109                                 MELT_CHECK_SIGNAL();
38110                                 ;
38111                                 MELT_LOCATION("warmelt-normal.melt:3044:/ apply");
38112                                 /*apply*/
38113                                 {
38114                                     union meltparam_un argtab[3];
38115                                     memset(&argtab, 0, sizeof(argtab));
38116                                     /*^apply.arg*/
38117                                     argtab[0].meltbp_cstring =  "unexpected symbol in cmatch expression expansion $1 for $2";
38118                                     /*^apply.arg*/
38119                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V9*/ meltfptr[7];
38120                                     /*^apply.arg*/
38121                                     argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*~CMANAMSTR*/ meltfclos->tabval[3]);
38122                                     /*_.ERROR_AT__V10*/
38123                                     meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[2])), (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[2])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
38124                                 }
38125                                 ;
38126                                 MELT_LOCATION("warmelt-normal.melt:3037:/ quasiblock");
38127
38128
38129                                 /*_.PROGN___V11*/
38130                                 meltfptr[10] = /*_.ERROR_AT__V10*/ meltfptr[6];;
38131                                 /*^compute*/
38132                                 /*_._IF___V6*/
38133                                 meltfptr[5] = /*_.PROGN___V11*/ meltfptr[10];;
38134                                 /*epilog*/
38135
38136                                 MELT_LOCATION("warmelt-normal.melt:3036:/ clear");
38137                                 /*clear*/ /*_.NAMED_NAME__V9*/
38138                                 meltfptr[7] = 0 ;
38139                                 /*^clear*/
38140                                 /*clear*/ /*_.ERROR_AT__V10*/
38141                                 meltfptr[6] = 0 ;
38142                                 /*^clear*/
38143                                 /*clear*/ /*_.PROGN___V11*/
38144                                 meltfptr[10] = 0 ;
38145                             }
38146                             ;
38147                         }
38148                     else    /*^cond.else*/
38149                         {
38150
38151                             /*_._IF___V6*/ meltfptr[5] =  /*reallynil*/ NULL ;;
38152                         }
38153                     ;
38154                     /*^compute*/
38155                     /*_.LET___V4*/
38156                     meltfptr[3] = /*_.BVAL__V5*/ meltfptr[4];;
38157
38158                     MELT_LOCATION("warmelt-normal.melt:3035:/ clear");
38159                     /*clear*/ /*_.BVAL__V5*/
38160                     meltfptr[4] = 0 ;
38161                     /*^clear*/
38162                     /*clear*/ /*_#NULL__L3*/
38163                     meltfnum[2] = 0 ;
38164                     /*^clear*/
38165                     /*clear*/ /*_._IF___V6*/
38166                     meltfptr[5] = 0 ;
38167                     /*_.EXVAL__V3*/
38168                     meltfptr[2] = /*_.LET___V4*/ meltfptr[3];;
38169                     /*epilog*/
38170
38171                     MELT_LOCATION("warmelt-normal.melt:3034:/ clear");
38172                     /*clear*/ /*_.LET___V4*/
38173                     meltfptr[3] = 0 ;
38174                 }
38175                 ;
38176             }
38177         else    /*^cond.else*/
38178             {
38179
38180                 /*_.EXVAL__V3*/ meltfptr[2] = /*_.EXCU__V2*/ meltfptr[1];;
38181             }
38182         ;
38183
38184         MELT_CHECK_SIGNAL();
38185         ;
38186         /*^compute*/
38187         /*_#NULL__L6*/
38188         meltfnum[4] =
38189             (/*null*/(/*_.EXVAL__V3*/ meltfptr[2]) == NULL);;
38190         MELT_LOCATION("warmelt-normal.melt:3051:/ cond");
38191         /*cond*/
38192         if (/*_#NULL__L6*/ meltfnum[4]) /*then*/
38193             {
38194                 /*^cond.then*/
38195                 /*^block*/
38196                 /*anyblock*/
38197                 {
38198
38199
38200                     {
38201                         MELT_LOCATION("warmelt-normal.melt:3053:/ locexp");
38202                         melt_warning_str(0, (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[2])), ( "null expansion of cmatch expression argument for"), (melt_ptr_t)((/*~CMANAMSTR*/ meltfclos->tabval[3])));
38203                     }
38204                     ;
38205
38206                     MELT_CHECK_SIGNAL();
38207                     ;
38208                     /*_#IS_A__L7*/
38209                     meltfnum[3] =
38210                         melt_is_instance_of((melt_ptr_t)(/*_.EXCU__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])));;
38211                     MELT_LOCATION("warmelt-normal.melt:3055:/ cond");
38212                     /*cond*/
38213                     if (/*_#IS_A__L7*/ meltfnum[3]) /*then*/
38214                         {
38215                             /*^cond.then*/
38216                             /*^block*/
38217                             /*anyblock*/
38218                             {
38219
38220                                 MELT_LOCATION("warmelt-normal.melt:3057:/ getslot");
38221                                 {
38222                                     melt_ptr_t slot=NULL, obj=NULL;
38223                                     obj = (melt_ptr_t)(/*_.EXCU__V2*/ meltfptr[1]) /*=obj*/;
38224                                     melt_object_get_field(slot,obj, 1, "NAMED_NAME");
38225                                     /*_.NAMED_NAME__V12*/
38226                                     meltfptr[7] = slot;
38227                                 };
38228                                 ;
38229
38230                                 {
38231                                     MELT_LOCATION("warmelt-normal.melt:3056:/ locexp");
38232                                     melt_warning_str(0, (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[2])), ( "null cmatch expression original piece is"), (melt_ptr_t)(/*_.NAMED_NAME__V12*/ meltfptr[7]));
38233                                 }
38234                                 ;
38235                                 /*epilog*/
38236
38237                                 MELT_LOCATION("warmelt-normal.melt:3055:/ clear");
38238                                 /*clear*/ /*_.NAMED_NAME__V12*/
38239                                 meltfptr[7] = 0 ;
38240                             }
38241                             ;
38242                         } /*noelse*/
38243                     ;
38244                     MELT_LOCATION("warmelt-normal.melt:3052:/ quasiblock");
38245
38246
38247                     /*epilog*/
38248
38249                     MELT_LOCATION("warmelt-normal.melt:3051:/ clear");
38250                     /*clear*/ /*_#IS_A__L7*/
38251                     meltfnum[3] = 0 ;
38252                 }
38253                 ;
38254             } /*noelse*/
38255         ;
38256
38257         {
38258             MELT_LOCATION("warmelt-normal.melt:3060:/ locexp");
38259             meltgc_multiple_put_nth((melt_ptr_t)((/*~EXPARGS*/ meltfclos->tabval[4])), (/*_#JX__L1*/ meltfnum[0]), (melt_ptr_t)(/*_.EXVAL__V3*/ meltfptr[2]));
38260         }
38261         ;
38262
38263         MELT_LOCATION("warmelt-normal.melt:3033:/ clear");
38264         /*clear*/ /*_#IS_A__L2*/
38265         meltfnum[1] = 0 ;
38266         /*^clear*/
38267         /*clear*/ /*_.EXVAL__V3*/
38268         meltfptr[2] = 0 ;
38269         /*^clear*/
38270         /*clear*/ /*_#NULL__L6*/
38271         meltfnum[4] = 0 ;
38272         /*epilog*/
38273     }
38274
38275     ;
38276     goto meltlabend_rout;
38277 meltlabend_rout:
38278     melt_trace_end("LAMBDA_cl5", meltcallcount);
38279     melt_blocklevel_signals = current_blocklevel_signals_meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5_melt;
38280     return (melt_ptr_t)(/*noretval*/ NULL);
38281 #undef meltcallcount
38282 #undef meltfram__
38283 #undef MELTFRAM_NBVARNUM
38284 #undef MELTFRAM_NBVARPTR
38285 } /*end meltrout_46_WARMELTmiNORMAL_LAMBDA_cl5*/
38286
38287
38288
38289
38290
38291
38292 melt_ptr_t MELT_MODULE_VISIBILITY
38293 meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
38294         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
38295 {
38296     long current_blocklevel_signals_meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR_melt =  melt_blocklevel_signals;
38297
38298 #if MELT_HAVE_DEBUG
38299     static long melt_call_counter__;
38300     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
38301 #undef meltcallcount
38302 #define meltcallcount melt_thiscallcounter__
38303 #else
38304 #undef meltcallcount
38305 #define meltcallcount 0L
38306 #endif
38307 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
38308
38309     /* start of frame for routine meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR fromline 1752 */
38310
38311     /** start of frame for meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR of CLASS_PROCROUTINEOBJ from 1555**/
38312
38313     /*curframdeclclassy*/ class MeltFrame_meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR// fromline 1568
38314         : public Melt_CallFrameWithValues<68>
38315     {
38316     public: /* fromline 1572*/
38317         long mcfr_varnum[17];
38318         /*classy others*/
38319         long _meltsparel;
38320         void melt_mark_stuff (void)
38321         {
38322         } /*end melt_mark_stuff*/
38323         virtual void melt_mark_ggc_data (void)
38324         {
38325             melt_mark_values ();
38326             melt_mark_stuff ();
38327         }; /*end melt_mark_ggc_data*/
38328         MeltFrame_meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR(meltclosure_ptr_t clos) //the closure constructor fromline 1630
38329             : Melt_CallFrameWithValues<68> (
38330 #if ENABLE_CHECKING /*fromline 1634*/
38331                 __FILE__, __LINE__,
38332 #endif /* ENABLE_CHECKING fromline 1638*/
38333                 sizeof(MeltFrame_meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR), clos) {};
38334         MeltFrame_meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR() //the constructor fromline 1642
38335             : Melt_CallFrameWithValues<68> (
38336 #if ENABLE_CHECKING /*fromline 1646*/
38337                 __FILE__, __LINE__,
38338 #endif /* ENABLE_CHECKING fromline 1650*/
38339                 sizeof(MeltFrame_meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR)) {};
38340 #if ENABLE_CHECKING /*fromline 1654*/
38341         MeltFrame_meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR(const char*fil, int lin) //the constructor fromline 1656
38342             : Melt_CallFrameWithValues<68> (fil,lin, sizeof(MeltFrame_meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR)) {};
38343         MeltFrame_meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
38344             : Melt_CallFrameWithValues<68> (fil,lin, sizeof(MeltFrame_meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR), clos) {};
38345 #endif /* ENABLE_CHECKING fromline 1666*/
38346
38347     }; // end  class MeltFrame_meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR
38348
38349
38350     /** end of frame for meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR fromline 1697**/
38351
38352     /* end of frame for routine meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR fromline 1756 */
38353
38354     /* classy proc frame meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR */
38355     MeltFrame_meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR
38356     meltfram__ /*declfrastruct fromline 1780*/
38357     /*classyprocarg meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR fromline 1785*/
38358 #if ENABLE_CHECKING
38359     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
38360 #else /*ENABLE_CHECKING */
38361     (meltclosp_) /* fromline 1793*/
38362 #endif /*ENABLE_CHECKING */
38363
38364     ;
38365 #define meltframe meltfram__
38366
38367     melt_trace_start("NORMEXP_FUNMATCHEXPR", meltcallcount);
38368     /*use arguments*/
38369     (void) meltclosp_;
38370     (void)meltfirstargp_;
38371     (void)meltxargdescr_;
38372     (void)meltxargtab_;
38373     (void)meltxresdescr_;
38374     (void)meltxrestab_;
38375     /*getargs*/
38376
38377     /*getarg#0*/
38378     MELT_LOCATION("warmelt-normal.melt:3097:/ getarg");
38379     /*_.RECV__V2*/
38380     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
38381
38382     /*getarg#1*/
38383     /*^getarg*/
38384     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
38385     /*_.ENV__V3*/
38386     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
38387     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
38388
38389
38390     /*getarg#2*/
38391     /*^getarg*/
38392     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
38393     /*_.NCX__V4*/
38394     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
38395     gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL);
38396
38397
38398     /*getarg#3*/
38399     /*^getarg*/
38400     if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
38401     /*_.PSLOC__V5*/
38402     meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
38403     gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL);
38404
38405     ;
38406     goto meltlab_endgetargs;
38407 meltlab_endgetargs:
38408     ;
38409     /*body*/
38410     /*^block*/
38411     /*anyblock*/
38412     {
38413
38414
38415 #if MELT_HAVE_DEBUG
38416         MELT_LOCATION("warmelt-normal.melt:3098:/ cppif.then");
38417         /*^block*/
38418         /*anyblock*/
38419         {
38420
38421
38422             {
38423                 /*^locexp*/
38424                 /*melt_increment_dbgcounter*/
38425 #if MELT_HAVE_DEBUG
38426                 melt_dbgcounter++;
38427 #endif
38428                 ;
38429             }
38430             ;
38431
38432             MELT_CHECK_SIGNAL();
38433             ;
38434             /*_#MELT_NEED_DBG__L1*/
38435             meltfnum[0] =
38436                 /*MELT_NEED_DBG*/
38437 #if MELT_HAVE_DEBUG
38438                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
38439 #else
38440                 0 /* no melt_need_dbg */
38441 #endif /*MELT_HAVE_DEBUG*/
38442                 ;;
38443             MELT_LOCATION("warmelt-normal.melt:3098:/ cond");
38444             /*cond*/
38445             if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
38446                 {
38447                     /*^cond.then*/
38448                     /*^block*/
38449                     /*anyblock*/
38450                     {
38451
38452                         /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
38453                             /* for melt_callcount */
38454 #if MELT_HAVE_DEBUG && defined (meltcallcount)
38455                             meltcallcount  /* melt_callcount debugging */
38456 #else
38457                             0L  /* melt_callcount without debug */
38458 #endif /* MELT_HAVE_DEBUG melt_callcount */
38459                             ;;
38460
38461                         MELT_CHECK_SIGNAL();
38462                         ;
38463                         MELT_LOCATION("warmelt-normal.melt:3098:/ apply");
38464                         /*apply*/
38465                         {
38466                             union meltparam_un argtab[5];
38467                             memset(&argtab, 0, sizeof(argtab));
38468                             /*^apply.arg*/
38469                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
38470                             /*^apply.arg*/
38471                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
38472                             /*^apply.arg*/
38473                             argtab[2].meltbp_long = 3098;
38474                             /*^apply.arg*/
38475                             argtab[3].meltbp_cstring =  "normexp_funmatchexpr recv";
38476                             /*^apply.arg*/
38477                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
38478                             /*_.MELT_DEBUG_FUN__V7*/
38479                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
38480                         }
38481                         ;
38482                         /*_._IF___V6*/
38483                         meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];;
38484                         /*epilog*/
38485
38486                         MELT_LOCATION("warmelt-normal.melt:3098:/ clear");
38487                         /*clear*/ /*_#MELT_CALLCOUNT__L2*/
38488                         meltfnum[1] = 0 ;
38489                         /*^clear*/
38490                         /*clear*/ /*_.MELT_DEBUG_FUN__V7*/
38491                         meltfptr[6] = 0 ;
38492                     }
38493                     ;
38494                 }
38495             else    /*^cond.else*/
38496                 {
38497
38498                     /*_._IF___V6*/ meltfptr[5] =  /*reallynil*/ NULL ;;
38499                 }
38500             ;
38501
38502             {
38503                 MELT_LOCATION("warmelt-normal.melt:3098:/ locexp");
38504                 /*void*/
38505                 (void)0;
38506             }
38507             ;
38508             /*^quasiblock*/
38509
38510
38511             /*epilog*/
38512
38513             /*^clear*/
38514             /*clear*/ /*_#MELT_NEED_DBG__L1*/
38515             meltfnum[0] = 0 ;
38516             /*^clear*/
38517             /*clear*/ /*_._IF___V6*/
38518             meltfptr[5] = 0 ;
38519         }
38520
38521 #else /*MELT_HAVE_DEBUG*/
38522         /*^cppif.else*/
38523         /*^block*/
38524         /*anyblock*/
38525         {
38526
38527
38528             {
38529                 /*^locexp*/
38530                 /*void*/(void)0;
38531             }
38532             ;
38533             /*epilog*/
38534         }
38535
38536 #endif /*MELT_HAVE_DEBUG*/
38537         ;
38538
38539 #if MELT_HAVE_DEBUG
38540         MELT_LOCATION("warmelt-normal.melt:3099:/ cppif.then");
38541         /*^block*/
38542         /*anyblock*/
38543         {
38544
38545
38546             MELT_CHECK_SIGNAL();
38547             ;
38548             /*_#IS_A__L3*/
38549             meltfnum[1] =
38550                 melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FUNMATCHEXPR*/ meltfrout->tabval[1])));;
38551             MELT_LOCATION("warmelt-normal.melt:3099:/ cond");
38552             /*cond*/
38553             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
38554                 {
38555                     /*^cond.then*/
38556                     /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);;
38557                 }
38558             else
38559                 {
38560                     MELT_LOCATION("warmelt-normal.melt:3099:/ cond.else");
38561
38562                     /*^block*/
38563                     /*anyblock*/
38564                     {
38565
38566
38567                         MELT_CHECK_SIGNAL();
38568                         ;
38569                         /*^apply*/
38570                         /*apply*/
38571                         {
38572                             union meltparam_un argtab[4];
38573                             memset(&argtab, 0, sizeof(argtab));
38574                             /*^apply.arg*/
38575                             argtab[0].meltbp_cstring =  "check recv";
38576                             /*^apply.arg*/
38577                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
38578                             /*^apply.arg*/
38579                             argtab[2].meltbp_long = 3099;
38580                             /*^apply.arg*/
38581                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
38582                             /*_.MELT_ASSERT_FAILURE_FUN__V10*/
38583                             meltfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
38584                         }
38585                         ;
38586                         /*_._IFELSE___V9*/
38587                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];;
38588                         /*epilog*/
38589
38590                         MELT_LOCATION("warmelt-normal.melt:3099:/ clear");
38591                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/
38592                         meltfptr[9] = 0 ;
38593                     }
38594                     ;
38595                 }
38596             ;
38597             /*_.IFCPP___V8*/
38598             meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];;
38599             /*epilog*/
38600
38601             MELT_LOCATION("warmelt-normal.melt:3099:/ clear");
38602             /*clear*/ /*_#IS_A__L3*/
38603             meltfnum[1] = 0 ;
38604             /*^clear*/
38605             /*clear*/ /*_._IFELSE___V9*/
38606             meltfptr[5] = 0 ;
38607         }
38608
38609 #else /*MELT_HAVE_DEBUG*/
38610         /*^cppif.else*/
38611         /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL);
38612 #endif /*MELT_HAVE_DEBUG*/
38613         ;
38614
38615 #if MELT_HAVE_DEBUG
38616         MELT_LOCATION("warmelt-normal.melt:3100:/ cppif.then");
38617         /*^block*/
38618         /*anyblock*/
38619         {
38620
38621
38622             MELT_CHECK_SIGNAL();
38623             ;
38624             /*_#IS_A__L4*/
38625             meltfnum[0] =
38626                 melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));;
38627             MELT_LOCATION("warmelt-normal.melt:3100:/ cond");
38628             /*cond*/
38629             if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/
38630                 {
38631                     /*^cond.then*/
38632                     /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);;
38633                 }
38634             else
38635                 {
38636                     MELT_LOCATION("warmelt-normal.melt:3100:/ cond.else");
38637
38638                     /*^block*/
38639                     /*anyblock*/
38640                     {
38641
38642
38643                         MELT_CHECK_SIGNAL();
38644                         ;
38645                         /*^apply*/
38646                         /*apply*/
38647                         {
38648                             union meltparam_un argtab[4];
38649                             memset(&argtab, 0, sizeof(argtab));
38650                             /*^apply.arg*/
38651                             argtab[0].meltbp_cstring =  "check env";
38652                             /*^apply.arg*/
38653                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
38654                             /*^apply.arg*/
38655                             argtab[2].meltbp_long = 3100;
38656                             /*^apply.arg*/
38657                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
38658                             /*_.MELT_ASSERT_FAILURE_FUN__V13*/
38659                             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
38660                         }
38661                         ;
38662                         /*_._IFELSE___V12*/
38663                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];;
38664                         /*epilog*/
38665
38666                         MELT_LOCATION("warmelt-normal.melt:3100:/ clear");
38667                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/
38668                         meltfptr[12] = 0 ;
38669                     }
38670                     ;
38671                 }
38672             ;
38673             /*_.IFCPP___V11*/
38674             meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];;
38675             /*epilog*/
38676
38677             MELT_LOCATION("warmelt-normal.melt:3100:/ clear");
38678             /*clear*/ /*_#IS_A__L4*/
38679             meltfnum[0] = 0 ;
38680             /*^clear*/
38681             /*clear*/ /*_._IFELSE___V12*/
38682             meltfptr[5] = 0 ;
38683         }
38684
38685 #else /*MELT_HAVE_DEBUG*/
38686         /*^cppif.else*/
38687         /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL);
38688 #endif /*MELT_HAVE_DEBUG*/
38689         ;
38690
38691 #if MELT_HAVE_DEBUG
38692         MELT_LOCATION("warmelt-normal.melt:3101:/ cppif.then");
38693         /*^block*/
38694         /*anyblock*/
38695         {
38696
38697
38698             MELT_CHECK_SIGNAL();
38699             ;
38700             /*_#IS_A__L5*/
38701             meltfnum[1] =
38702                 melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));;
38703             MELT_LOCATION("warmelt-normal.melt:3101:/ cond");
38704             /*cond*/
38705             if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/
38706                 {
38707                     /*^cond.then*/
38708                     /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);;
38709                 }
38710             else
38711                 {
38712                     MELT_LOCATION("warmelt-normal.melt:3101:/ cond.else");
38713
38714                     /*^block*/
38715                     /*anyblock*/
38716                     {
38717
38718
38719                         MELT_CHECK_SIGNAL();
38720                         ;
38721                         /*^apply*/
38722                         /*apply*/
38723                         {
38724                             union meltparam_un argtab[4];
38725                             memset(&argtab, 0, sizeof(argtab));
38726                             /*^apply.arg*/
38727                             argtab[0].meltbp_cstring =  "check ncx";
38728                             /*^apply.arg*/
38729                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
38730                             /*^apply.arg*/
38731                             argtab[2].meltbp_long = 3101;
38732                             /*^apply.arg*/
38733                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
38734                             /*_.MELT_ASSERT_FAILURE_FUN__V16*/
38735                             meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
38736                         }
38737                         ;
38738                         /*_._IFELSE___V15*/
38739                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];;
38740                         /*epilog*/
38741
38742                         MELT_LOCATION("warmelt-normal.melt:3101:/ clear");
38743                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/
38744                         meltfptr[15] = 0 ;
38745                     }
38746                     ;
38747                 }
38748             ;
38749             /*_.IFCPP___V14*/
38750             meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];;
38751             /*epilog*/
38752
38753             MELT_LOCATION("warmelt-normal.melt:3101:/ clear");
38754             /*clear*/ /*_#IS_A__L5*/
38755             meltfnum[1] = 0 ;
38756             /*^clear*/
38757             /*clear*/ /*_._IFELSE___V15*/
38758             meltfptr[5] = 0 ;
38759         }
38760
38761 #else /*MELT_HAVE_DEBUG*/
38762         /*^cppif.else*/
38763         /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL);
38764 #endif /*MELT_HAVE_DEBUG*/
38765         ;
38766         MELT_LOCATION("warmelt-normal.melt:3102:/ quasiblock");
38767
38768
38769         /*^getslot*/
38770         {
38771             melt_ptr_t slot=NULL, obj=NULL;
38772             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
38773             melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
38774             /*_.SLOC__V18*/
38775             meltfptr[5] = slot;
38776         };
38777         ;
38778         MELT_LOCATION("warmelt-normal.melt:3103:/ getslot");
38779         {
38780             melt_ptr_t slot=NULL, obj=NULL;
38781             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
38782             melt_object_get_field(slot,obj, 3, "SFMATX_FMATCHER");
38783             /*_.SFMAT__V19*/
38784             meltfptr[18] = slot;
38785         };
38786         ;
38787         MELT_LOCATION("warmelt-normal.melt:3104:/ getslot");
38788         {
38789             melt_ptr_t slot=NULL, obj=NULL;
38790             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
38791             melt_object_get_field(slot,obj, 4, "SFMATX_FMATBIND");
38792             /*_.SFBIND__V20*/
38793             meltfptr[19] = slot;
38794         };
38795         ;
38796         MELT_LOCATION("warmelt-normal.melt:3105:/ getslot");
38797         {
38798             melt_ptr_t slot=NULL, obj=NULL;
38799             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
38800             melt_object_get_field(slot,obj, 2, "SARGOP_ARGS");
38801             /*_.SARGS__V21*/
38802             meltfptr[20] = slot;
38803         };
38804         ;
38805         /*_.NBIND__V22*/
38806         meltfptr[21] =
38807             (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));;
38808
38809 #if MELT_HAVE_DEBUG
38810         MELT_LOCATION("warmelt-normal.melt:3108:/ cppif.then");
38811         /*^block*/
38812         /*anyblock*/
38813         {
38814
38815
38816             MELT_CHECK_SIGNAL();
38817             ;
38818             /*_#IS_A__L6*/
38819             meltfnum[0] =
38820                 melt_is_instance_of((melt_ptr_t)(/*_.SFMAT__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_FUNMATCHER*/ meltfrout->tabval[6])));;
38821             MELT_LOCATION("warmelt-normal.melt:3108:/ cond");
38822             /*cond*/
38823             if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/
38824                 {
38825                     /*^cond.then*/
38826                     /*_._IFELSE___V24*/ meltfptr[23] = (/*nil*/NULL);;
38827                 }
38828             else
38829                 {
38830                     MELT_LOCATION("warmelt-normal.melt:3108:/ cond.else");
38831
38832                     /*^block*/
38833                     /*anyblock*/
38834                     {
38835
38836
38837                         MELT_CHECK_SIGNAL();
38838                         ;
38839                         /*^apply*/
38840                         /*apply*/
38841                         {
38842                             union meltparam_un argtab[4];
38843                             memset(&argtab, 0, sizeof(argtab));
38844                             /*^apply.arg*/
38845                             argtab[0].meltbp_cstring =  "check sfmat";
38846                             /*^apply.arg*/
38847                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
38848                             /*^apply.arg*/
38849                             argtab[2].meltbp_long = 3108;
38850                             /*^apply.arg*/
38851                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SFMAT__V19*/ meltfptr[18];
38852                             /*_.MELT_ASSERT_FAILURE_FUN__V25*/
38853                             meltfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
38854                         }
38855                         ;
38856                         /*_._IFELSE___V24*/
38857                         meltfptr[23] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];;
38858                         /*epilog*/
38859
38860                         MELT_LOCATION("warmelt-normal.melt:3108:/ clear");
38861                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/
38862                         meltfptr[24] = 0 ;
38863                     }
38864                     ;
38865                 }
38866             ;
38867             /*_.IFCPP___V23*/
38868             meltfptr[22] = /*_._IFELSE___V24*/ meltfptr[23];;
38869             /*epilog*/
38870
38871             MELT_LOCATION("warmelt-normal.melt:3108:/ clear");
38872             /*clear*/ /*_#IS_A__L6*/
38873             meltfnum[0] = 0 ;
38874             /*^clear*/
38875             /*clear*/ /*_._IFELSE___V24*/
38876             meltfptr[23] = 0 ;
38877         }
38878
38879 #else /*MELT_HAVE_DEBUG*/
38880         /*^cppif.else*/
38881         /*_.IFCPP___V23*/ meltfptr[22] = (/*nil*/NULL);
38882 #endif /*MELT_HAVE_DEBUG*/
38883         ;
38884
38885 #if MELT_HAVE_DEBUG
38886         MELT_LOCATION("warmelt-normal.melt:3109:/ cppif.then");
38887         /*^block*/
38888         /*anyblock*/
38889         {
38890
38891
38892             MELT_CHECK_SIGNAL();
38893             ;
38894             /*_#IS_A__L7*/
38895             meltfnum[1] =
38896                 melt_is_instance_of((melt_ptr_t)(/*_.SFBIND__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[7])));;
38897             MELT_LOCATION("warmelt-normal.melt:3109:/ cond");
38898             /*cond*/
38899             if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/
38900                 {
38901                     /*^cond.then*/
38902                     /*_._IFELSE___V27*/ meltfptr[23] = (/*nil*/NULL);;
38903                 }
38904             else
38905                 {
38906                     MELT_LOCATION("warmelt-normal.melt:3109:/ cond.else");
38907
38908                     /*^block*/
38909                     /*anyblock*/
38910                     {
38911
38912
38913                         MELT_CHECK_SIGNAL();
38914                         ;
38915                         /*^apply*/
38916                         /*apply*/
38917                         {
38918                             union meltparam_un argtab[4];
38919                             memset(&argtab, 0, sizeof(argtab));
38920                             /*^apply.arg*/
38921                             argtab[0].meltbp_cstring =  "check sfbind";
38922                             /*^apply.arg*/
38923                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
38924                             /*^apply.arg*/
38925                             argtab[2].meltbp_long = 3109;
38926                             /*^apply.arg*/
38927                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SFBIND__V20*/ meltfptr[19];
38928                             /*_.MELT_ASSERT_FAILURE_FUN__V28*/
38929                             meltfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
38930                         }
38931                         ;
38932                         /*_._IFELSE___V27*/
38933                         meltfptr[23] = /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27];;
38934                         /*epilog*/
38935
38936                         MELT_LOCATION("warmelt-normal.melt:3109:/ clear");
38937                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V28*/
38938                         meltfptr[27] = 0 ;
38939                     }
38940                     ;
38941                 }
38942             ;
38943             /*_.IFCPP___V26*/
38944             meltfptr[24] = /*_._IFELSE___V27*/ meltfptr[23];;
38945             /*epilog*/
38946
38947             MELT_LOCATION("warmelt-normal.melt:3109:/ clear");
38948             /*clear*/ /*_#IS_A__L7*/
38949             meltfnum[1] = 0 ;
38950             /*^clear*/
38951             /*clear*/ /*_._IFELSE___V27*/
38952             meltfptr[23] = 0 ;
38953         }
38954
38955 #else /*MELT_HAVE_DEBUG*/
38956         /*^cppif.else*/
38957         /*_.IFCPP___V26*/ meltfptr[24] = (/*nil*/NULL);
38958 #endif /*MELT_HAVE_DEBUG*/
38959         ;
38960
38961 #if MELT_HAVE_DEBUG
38962         MELT_LOCATION("warmelt-normal.melt:3110:/ cppif.then");
38963         /*^block*/
38964         /*anyblock*/
38965         {
38966
38967
38968             {
38969                 /*^locexp*/
38970                 /*melt_increment_dbgcounter*/
38971 #if MELT_HAVE_DEBUG
38972                 melt_dbgcounter++;
38973 #endif
38974                 ;
38975             }
38976             ;
38977
38978             MELT_CHECK_SIGNAL();
38979             ;
38980             /*_#MELT_NEED_DBG__L8*/
38981             meltfnum[0] =
38982                 /*MELT_NEED_DBG*/
38983 #if MELT_HAVE_DEBUG
38984                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
38985 #else
38986                 0 /* no melt_need_dbg */
38987 #endif /*MELT_HAVE_DEBUG*/
38988                 ;;
38989             MELT_LOCATION("warmelt-normal.melt:3110:/ cond");
38990             /*cond*/
38991             if (/*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then*/
38992                 {
38993                     /*^cond.then*/
38994                     /*^block*/
38995                     /*anyblock*/
38996                     {
38997
38998                         /*_#MELT_CALLCOUNT__L9*/ meltfnum[1] =
38999                             /* for melt_callcount */
39000 #if MELT_HAVE_DEBUG && defined (meltcallcount)
39001                             meltcallcount  /* melt_callcount debugging */
39002 #else
39003                             0L  /* melt_callcount without debug */
39004 #endif /* MELT_HAVE_DEBUG melt_callcount */
39005                             ;;
39006
39007                         MELT_CHECK_SIGNAL();
39008                         ;
39009                         MELT_LOCATION("warmelt-normal.melt:3110:/ apply");
39010                         /*apply*/
39011                         {
39012                             union meltparam_un argtab[5];
39013                             memset(&argtab, 0, sizeof(argtab));
39014                             /*^apply.arg*/
39015                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L9*/ meltfnum[1];
39016                             /*^apply.arg*/
39017                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
39018                             /*^apply.arg*/
39019                             argtab[2].meltbp_long = 3110;
39020                             /*^apply.arg*/
39021                             argtab[3].meltbp_cstring =  "normexp_funmatchexpr sfbind";
39022                             /*^apply.arg*/
39023                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SFBIND__V20*/ meltfptr[19];
39024                             /*_.MELT_DEBUG_FUN__V30*/
39025                             meltfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
39026                         }
39027                         ;
39028                         /*_._IF___V29*/
39029                         meltfptr[27] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[23];;
39030                         /*epilog*/
39031
39032                         MELT_LOCATION("warmelt-normal.melt:3110:/ clear");
39033                         /*clear*/ /*_#MELT_CALLCOUNT__L9*/
39034                         meltfnum[1] = 0 ;
39035                         /*^clear*/
39036                         /*clear*/ /*_.MELT_DEBUG_FUN__V30*/
39037                         meltfptr[23] = 0 ;
39038                     }
39039                     ;
39040                 }
39041             else    /*^cond.else*/
39042                 {
39043
39044                     /*_._IF___V29*/ meltfptr[27] =  /*reallynil*/ NULL ;;
39045                 }
39046             ;
39047
39048             {
39049                 MELT_LOCATION("warmelt-normal.melt:3110:/ locexp");
39050                 /*void*/
39051                 (void)0;
39052             }
39053             ;
39054             /*^quasiblock*/
39055
39056
39057             /*epilog*/
39058
39059             /*^clear*/
39060             /*clear*/ /*_#MELT_NEED_DBG__L8*/
39061             meltfnum[0] = 0 ;
39062             /*^clear*/
39063             /*clear*/ /*_._IF___V29*/
39064             meltfptr[27] = 0 ;
39065         }
39066
39067 #else /*MELT_HAVE_DEBUG*/
39068         /*^cppif.else*/
39069         /*^block*/
39070         /*anyblock*/
39071         {
39072
39073
39074             {
39075                 /*^locexp*/
39076                 /*void*/(void)0;
39077             }
39078             ;
39079             /*epilog*/
39080         }
39081
39082 #endif /*MELT_HAVE_DEBUG*/
39083         ;
39084         MELT_LOCATION("warmelt-normal.melt:3111:/ quasiblock");
39085
39086
39087         /*^getslot*/
39088         {
39089             melt_ptr_t slot=NULL, obj=NULL;
39090             obj = (melt_ptr_t)(/*_.SFBIND__V20*/ meltfptr[19]) /*=obj*/;
39091             melt_object_get_field(slot,obj, 0, "BINDER");
39092             /*_.FMATSYM__V32*/
39093             meltfptr[27] = slot;
39094         };
39095         ;
39096
39097 #if MELT_HAVE_DEBUG
39098         MELT_LOCATION("warmelt-normal.melt:3112:/ cppif.then");
39099         /*^block*/
39100         /*anyblock*/
39101         {
39102
39103
39104             MELT_CHECK_SIGNAL();
39105             ;
39106             /*_#IS_A__L10*/
39107             meltfnum[1] =
39108                 melt_is_instance_of((melt_ptr_t)(/*_.FMATSYM__V32*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[8])));;
39109             MELT_LOCATION("warmelt-normal.melt:3112:/ cond");
39110             /*cond*/
39111             if (/*_#IS_A__L10*/ meltfnum[1]) /*then*/
39112                 {
39113                     /*^cond.then*/
39114                     /*_._IFELSE___V34*/ meltfptr[33] = (/*nil*/NULL);;
39115                 }
39116             else
39117                 {
39118                     MELT_LOCATION("warmelt-normal.melt:3112:/ cond.else");
39119
39120                     /*^block*/
39121                     /*anyblock*/
39122                     {
39123
39124
39125                         MELT_CHECK_SIGNAL();
39126                         ;
39127                         /*^apply*/
39128                         /*apply*/
39129                         {
39130                             union meltparam_un argtab[4];
39131                             memset(&argtab, 0, sizeof(argtab));
39132                             /*^apply.arg*/
39133                             argtab[0].meltbp_cstring =  "check fmatsym";
39134                             /*^apply.arg*/
39135                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
39136                             /*^apply.arg*/
39137                             argtab[2].meltbp_long = 3112;
39138                             /*^apply.arg*/
39139                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FMATSYM__V32*/ meltfptr[27];
39140                             /*_.MELT_ASSERT_FAILURE_FUN__V35*/
39141                             meltfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
39142                         }
39143                         ;
39144                         /*_._IFELSE___V34*/
39145                         meltfptr[33] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];;
39146                         /*epilog*/
39147
39148                         MELT_LOCATION("warmelt-normal.melt:3112:/ clear");
39149                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/
39150                         meltfptr[34] = 0 ;
39151                     }
39152                     ;
39153                 }
39154             ;
39155             /*_.IFCPP___V33*/
39156             meltfptr[32] = /*_._IFELSE___V34*/ meltfptr[33];;
39157             /*epilog*/
39158
39159             MELT_LOCATION("warmelt-normal.melt:3112:/ clear");
39160             /*clear*/ /*_#IS_A__L10*/
39161             meltfnum[1] = 0 ;
39162             /*^clear*/
39163             /*clear*/ /*_._IFELSE___V34*/
39164             meltfptr[33] = 0 ;
39165         }
39166
39167 #else /*MELT_HAVE_DEBUG*/
39168         /*^cppif.else*/
39169         /*_.IFCPP___V33*/ meltfptr[32] = (/*nil*/NULL);
39170 #endif /*MELT_HAVE_DEBUG*/
39171         ;
39172
39173 #if MELT_HAVE_DEBUG
39174         MELT_LOCATION("warmelt-normal.melt:3113:/ cppif.then");
39175         /*^block*/
39176         /*anyblock*/
39177         {
39178
39179
39180             MELT_CHECK_SIGNAL();
39181             ;
39182
39183             MELT_CHECK_SIGNAL();
39184             ;
39185             /*^apply*/
39186             /*apply*/
39187             {
39188                 union meltparam_un argtab[1];
39189                 memset(&argtab, 0, sizeof(argtab));
39190                 /*^apply.arg*/
39191                 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.FMATSYM__V32*/ meltfptr[27];
39192                 /*_.FIND_ENV__V37*/
39193                 meltfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
39194             }
39195             ;
39196             /*_#eqeq__L11*/
39197             meltfnum[0] =
39198                 ((/*_.SFBIND__V20*/ meltfptr[19]) == (/*_.FIND_ENV__V37*/ meltfptr[33]));;
39199             MELT_LOCATION("warmelt-normal.melt:3113:/ cond");
39200             /*cond*/
39201             if (/*_#eqeq__L11*/ meltfnum[0]) /*then*/
39202                 {
39203                     /*^cond.then*/
39204                     /*_._IFELSE___V38*/ meltfptr[37] = (/*nil*/NULL);;
39205                 }
39206             else
39207                 {
39208                     MELT_LOCATION("warmelt-normal.melt:3113:/ cond.else");
39209
39210                     /*^block*/
39211                     /*anyblock*/
39212                     {
39213
39214
39215                         MELT_CHECK_SIGNAL();
39216                         ;
39217                         /*^apply*/
39218                         /*apply*/
39219                         {
39220                             union meltparam_un argtab[5];
39221                             memset(&argtab, 0, sizeof(argtab));
39222                             /*^apply.arg*/
39223                             argtab[0].meltbp_cstring =  "check good sfbind";
39224                             /*^apply.arg*/
39225                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
39226                             /*^apply.arg*/
39227                             argtab[2].meltbp_long = 3113;
39228                             /*^apply.arg*/
39229                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SFBIND__V20*/ meltfptr[19];
39230                             /*^apply.arg*/
39231                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FMATSYM__V32*/ meltfptr[27];
39232                             /*_.MELT_ASSERT_FAILURE_FUN__V39*/
39233                             meltfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
39234                         }
39235                         ;
39236                         /*_._IFELSE___V38*/
39237                         meltfptr[37] = /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38];;
39238                         /*epilog*/
39239
39240                         MELT_LOCATION("warmelt-normal.melt:3113:/ clear");
39241                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V39*/
39242                         meltfptr[38] = 0 ;
39243                     }
39244                     ;
39245                 }
39246             ;
39247             /*_.IFCPP___V36*/
39248             meltfptr[34] = /*_._IFELSE___V38*/ meltfptr[37];;
39249             /*epilog*/
39250
39251             MELT_LOCATION("warmelt-normal.melt:3113:/ clear");
39252             /*clear*/ /*_.FIND_ENV__V37*/
39253             meltfptr[33] = 0 ;
39254             /*^clear*/
39255             /*clear*/ /*_#eqeq__L11*/
39256             meltfnum[0] = 0 ;
39257             /*^clear*/
39258             /*clear*/ /*_._IFELSE___V38*/
39259             meltfptr[37] = 0 ;
39260         }
39261
39262 #else /*MELT_HAVE_DEBUG*/
39263         /*^cppif.else*/
39264         /*_.IFCPP___V36*/ meltfptr[34] = (/*nil*/NULL);
39265 #endif /*MELT_HAVE_DEBUG*/
39266         ;
39267         MELT_LOCATION("warmelt-normal.melt:3114:/ quasiblock");
39268
39269
39270
39271         MELT_CHECK_SIGNAL();
39272         ;
39273         /*^msend*/
39274         /*msend*/
39275         {
39276             union meltparam_un argtab[3];
39277             memset(&argtab, 0, sizeof(argtab));
39278             /*^ojbmsend.arg*/
39279             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
39280             /*^ojbmsend.arg*/
39281             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
39282             /*^ojbmsend.arg*/
39283             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4];
39284             /*_.NFMAT__V41*/
39285             meltfptr[33] = meltgc_send((melt_ptr_t)(/*_.FMATSYM__V32*/ meltfptr[27]), (melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
39286         }
39287         ;
39288
39289 #if MELT_HAVE_DEBUG
39290         MELT_LOCATION("warmelt-normal.melt:3115:/ cppif.then");
39291         /*^block*/
39292         /*anyblock*/
39293         {
39294
39295
39296             {
39297                 /*^locexp*/
39298                 /*melt_increment_dbgcounter*/
39299 #if MELT_HAVE_DEBUG
39300                 melt_dbgcounter++;
39301 #endif
39302                 ;
39303             }
39304             ;
39305
39306             MELT_CHECK_SIGNAL();
39307             ;
39308             /*_#MELT_NEED_DBG__L12*/
39309             meltfnum[1] =
39310                 /*MELT_NEED_DBG*/
39311 #if MELT_HAVE_DEBUG
39312                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
39313 #else
39314                 0 /* no melt_need_dbg */
39315 #endif /*MELT_HAVE_DEBUG*/
39316                 ;;
39317             MELT_LOCATION("warmelt-normal.melt:3115:/ cond");
39318             /*cond*/
39319             if (/*_#MELT_NEED_DBG__L12*/ meltfnum[1]) /*then*/
39320                 {
39321                     /*^cond.then*/
39322                     /*^block*/
39323                     /*anyblock*/
39324                     {
39325
39326                         /*_#MELT_CALLCOUNT__L13*/ meltfnum[0] =
39327                             /* for melt_callcount */
39328 #if MELT_HAVE_DEBUG && defined (meltcallcount)
39329                             meltcallcount  /* melt_callcount debugging */
39330 #else
39331                             0L  /* melt_callcount without debug */
39332 #endif /* MELT_HAVE_DEBUG melt_callcount */
39333                             ;;
39334
39335                         MELT_CHECK_SIGNAL();
39336                         ;
39337                         MELT_LOCATION("warmelt-normal.melt:3115:/ apply");
39338                         /*apply*/
39339                         {
39340                             union meltparam_un argtab[5];
39341                             memset(&argtab, 0, sizeof(argtab));
39342                             /*^apply.arg*/
39343                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L13*/ meltfnum[0];
39344                             /*^apply.arg*/
39345                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
39346                             /*^apply.arg*/
39347                             argtab[2].meltbp_long = 3115;
39348                             /*^apply.arg*/
39349                             argtab[3].meltbp_cstring =  "normexp_funmatchexpr nfmat";
39350                             /*^apply.arg*/
39351                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NFMAT__V41*/ meltfptr[33];
39352                             /*_.MELT_DEBUG_FUN__V43*/
39353                             meltfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
39354                         }
39355                         ;
39356                         /*_._IF___V42*/
39357                         meltfptr[37] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42];;
39358                         /*epilog*/
39359
39360                         MELT_LOCATION("warmelt-normal.melt:3115:/ clear");
39361                         /*clear*/ /*_#MELT_CALLCOUNT__L13*/
39362                         meltfnum[0] = 0 ;
39363                         /*^clear*/
39364                         /*clear*/ /*_.MELT_DEBUG_FUN__V43*/
39365                         meltfptr[42] = 0 ;
39366                     }
39367                     ;
39368                 }
39369             else    /*^cond.else*/
39370                 {
39371
39372                     /*_._IF___V42*/ meltfptr[37] =  /*reallynil*/ NULL ;;
39373                 }
39374             ;
39375
39376             {
39377                 MELT_LOCATION("warmelt-normal.melt:3115:/ locexp");
39378                 /*void*/
39379                 (void)0;
39380             }
39381             ;
39382             /*^quasiblock*/
39383
39384
39385             /*epilog*/
39386
39387             /*^clear*/
39388             /*clear*/ /*_#MELT_NEED_DBG__L12*/
39389             meltfnum[1] = 0 ;
39390             /*^clear*/
39391             /*clear*/ /*_._IF___V42*/
39392             meltfptr[37] = 0 ;
39393         }
39394
39395 #else /*MELT_HAVE_DEBUG*/
39396         /*^cppif.else*/
39397         /*^block*/
39398         /*anyblock*/
39399         {
39400
39401
39402             {
39403                 /*^locexp*/
39404                 /*void*/(void)0;
39405             }
39406             ;
39407             /*epilog*/
39408         }
39409
39410 #endif /*MELT_HAVE_DEBUG*/
39411         ;
39412         MELT_LOCATION("warmelt-normal.melt:3118:/ quasiblock");
39413
39414
39415
39416         MELT_CHECK_SIGNAL();
39417         ;
39418         /*^apply*/
39419         /*apply*/
39420         {
39421             /*_.CSYM__V45*/ meltfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.FMATSYM__V32*/ meltfptr[27]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
39422         }
39423         ;
39424
39425         MELT_CHECK_SIGNAL();
39426         ;
39427
39428         MELT_CHECK_SIGNAL();
39429         ;
39430         MELT_LOCATION("warmelt-normal.melt:3124:/ quasiblock");
39431
39432
39433         /*^rawallocobj*/
39434         /*rawallocobj*/
39435         {
39436             melt_ptr_t newobj = 0;
39437             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ meltfrout->tabval[14])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");
39438             /*_.INST__V47*/
39439             meltfptr[46] =
39440                 newobj;
39441         };
39442         ;
39443         /*^putslot*/
39444         /*putslot*/
39445         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ meltfptr[46])) == MELTOBMAG_OBJECT);
39446         melt_putfield_object((/*_.INST__V47*/ meltfptr[46]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
39447         ;
39448         /*^putslot*/
39449         /*putslot*/
39450         melt_assertmsg("checkobj putslot  _ @NUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ meltfptr[46])) == MELTOBMAG_OBJECT);
39451         melt_putfield_object((/*_.INST__V47*/ meltfptr[46]), (1), (/*_.NFMAT__V41*/ meltfptr[33]), "NUGET_OBJ");
39452         ;
39453         /*^putslot*/
39454         /*putslot*/
39455         melt_assertmsg("checkobj putslot  _ @NUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ meltfptr[46])) == MELTOBMAG_OBJECT);
39456         melt_putfield_object((/*_.INST__V47*/ meltfptr[46]), (2), ((/*!FMATCH_APPLYF*/ meltfrout->tabval[15])), "NUGET_FIELD");
39457         ;
39458         /*^touchobj*/
39459
39460         melt_dbgtrace_written_object (/*_.INST__V47*/ meltfptr[46], "newly made instance");
39461         ;
39462         /*_.INST___V46*/
39463         meltfptr[45] = /*_.INST__V47*/ meltfptr[46];;
39464         MELT_LOCATION("warmelt-normal.melt:3119:/ quasiblock");
39465
39466
39467         /*^rawallocobj*/
39468         /*rawallocobj*/
39469         {
39470             melt_ptr_t newobj = 0;
39471             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[12])), (4), "CLASS_NORMAL_LET_BINDING");
39472             /*_.INST__V49*/
39473             meltfptr[48] =
39474                 newobj;
39475         };
39476         ;
39477         /*^putslot*/
39478         /*putslot*/
39479         melt_assertmsg("checkobj putslot  _ @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ meltfptr[48])) == MELTOBMAG_OBJECT);
39480         melt_putfield_object((/*_.INST__V49*/ meltfptr[48]), (3), (/*_.SLOC__V18*/ meltfptr[5]), "LETBIND_LOC");
39481         ;
39482         /*^putslot*/
39483         /*putslot*/
39484         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ meltfptr[48])) == MELTOBMAG_OBJECT);
39485         melt_putfield_object((/*_.INST__V49*/ meltfptr[48]), (0), (/*_.CSYM__V45*/ meltfptr[37]), "BINDER");
39486         ;
39487         /*^putslot*/
39488         /*putslot*/
39489         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ meltfptr[48])) == MELTOBMAG_OBJECT);
39490         melt_putfield_object((/*_.INST__V49*/ meltfptr[48]), (1), ((/*!CTYPE_VALUE*/ meltfrout->tabval[13])), "LETBIND_TYPE");
39491         ;
39492         /*^putslot*/
39493         /*putslot*/
39494         melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ meltfptr[48])) == MELTOBMAG_OBJECT);
39495         melt_putfield_object((/*_.INST__V49*/ meltfptr[48]), (2), (/*_.INST___V46*/ meltfptr[45]), "LETBIND_EXPR");
39496         ;
39497         /*^touchobj*/
39498
39499         melt_dbgtrace_written_object (/*_.INST__V49*/ meltfptr[48], "newly made instance");
39500         ;
39501         /*_.CBIND__V48*/
39502         meltfptr[47] = /*_.INST__V49*/ meltfptr[48];;
39503
39504         MELT_CHECK_SIGNAL();
39505         ;
39506         MELT_LOCATION("warmelt-normal.melt:3129:/ quasiblock");
39507
39508
39509         /*^rawallocobj*/
39510         /*rawallocobj*/
39511         {
39512             melt_ptr_t newobj = 0;
39513             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[16])), (4), "CLASS_NREP_LOCSYMOCC");
39514             /*_.INST__V51*/
39515             meltfptr[50] =
39516                 newobj;
39517         };
39518         ;
39519         /*^putslot*/
39520         /*putslot*/
39521         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ meltfptr[50])) == MELTOBMAG_OBJECT);
39522         melt_putfield_object((/*_.INST__V51*/ meltfptr[50]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
39523         ;
39524         /*^putslot*/
39525         /*putslot*/
39526         melt_assertmsg("checkobj putslot  _ @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ meltfptr[50])) == MELTOBMAG_OBJECT);
39527         melt_putfield_object((/*_.INST__V51*/ meltfptr[50]), (2), ((/*!CTYPE_VALUE*/ meltfrout->tabval[13])), "NOCC_CTYP");
39528         ;
39529         /*^putslot*/
39530         /*putslot*/
39531         melt_assertmsg("checkobj putslot  _ @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ meltfptr[50])) == MELTOBMAG_OBJECT);
39532         melt_putfield_object((/*_.INST__V51*/ meltfptr[50]), (1), (/*_.CSYM__V45*/ meltfptr[37]), "NOCC_SYMB");
39533         ;
39534         /*^putslot*/
39535         /*putslot*/
39536         melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ meltfptr[50])) == MELTOBMAG_OBJECT);
39537         melt_putfield_object((/*_.INST__V51*/ meltfptr[50]), (3), (/*_.CBIND__V48*/ meltfptr[47]), "NOCC_BIND");
39538         ;
39539         /*^touchobj*/
39540
39541         melt_dbgtrace_written_object (/*_.INST__V51*/ meltfptr[50], "newly made instance");
39542         ;
39543         /*_.CLOCC__V50*/
39544         meltfptr[49] = /*_.INST__V51*/ meltfptr[50];;
39545
39546         {
39547             MELT_LOCATION("warmelt-normal.melt:3135:/ locexp");
39548             meltgc_append_list((melt_ptr_t)(/*_.NBIND__V22*/ meltfptr[21]), (melt_ptr_t)(/*_.CBIND__V48*/ meltfptr[47]));
39549         }
39550         ;
39551
39552         MELT_CHECK_SIGNAL();
39553         ;
39554         MELT_LOCATION("warmelt-normal.melt:3136:/ quasiblock");
39555
39556
39557         /*^multiapply*/
39558         /*multiapply 4args, 1x.res*/
39559         {
39560             union meltparam_un argtab[3];
39561
39562             union meltparam_un restab[1];
39563             memset(&restab, 0, sizeof(restab));
39564             memset(&argtab, 0, sizeof(argtab));
39565             /*^multiapply.arg*/
39566             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multiapply.arg*/
39567             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multiapply.arg*/
39568             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
39569             /*^multiapply.xres*/
39570             restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NARGBIND__V54*/ meltfptr[53];
39571             /*^multiapply.appl*/
39572             /*_.NARGS__V53*/
39573             meltfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.SARGS__V21*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
39574         }
39575         ;
39576         /*^quasiblock*/
39577
39578
39579
39580 #if MELT_HAVE_DEBUG
39581         MELT_LOCATION("warmelt-normal.melt:3139:/ cppif.then");
39582         /*^block*/
39583         /*anyblock*/
39584         {
39585
39586
39587             {
39588                 /*^locexp*/
39589                 /*melt_increment_dbgcounter*/
39590 #if MELT_HAVE_DEBUG
39591                 melt_dbgcounter++;
39592 #endif
39593                 ;
39594             }
39595             ;
39596
39597             MELT_CHECK_SIGNAL();
39598             ;
39599             /*_#MELT_NEED_DBG__L14*/
39600             meltfnum[0] =
39601                 /*MELT_NEED_DBG*/
39602 #if MELT_HAVE_DEBUG
39603                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
39604 #else
39605                 0 /* no melt_need_dbg */
39606 #endif /*MELT_HAVE_DEBUG*/
39607                 ;;
39608             MELT_LOCATION("warmelt-normal.melt:3139:/ cond");
39609             /*cond*/
39610             if (/*_#MELT_NEED_DBG__L14*/ meltfnum[0]) /*then*/
39611                 {
39612                     /*^cond.then*/
39613                     /*^block*/
39614                     /*anyblock*/
39615                     {
39616
39617                         /*_#MELT_CALLCOUNT__L15*/ meltfnum[1] =
39618                             /* for melt_callcount */
39619 #if MELT_HAVE_DEBUG && defined (meltcallcount)
39620                             meltcallcount  /* melt_callcount debugging */
39621 #else
39622                             0L  /* melt_callcount without debug */
39623 #endif /* MELT_HAVE_DEBUG melt_callcount */
39624                             ;;
39625
39626                         MELT_CHECK_SIGNAL();
39627                         ;
39628                         MELT_LOCATION("warmelt-normal.melt:3139:/ apply");
39629                         /*apply*/
39630                         {
39631                             union meltparam_un argtab[7];
39632                             memset(&argtab, 0, sizeof(argtab));
39633                             /*^apply.arg*/
39634                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L15*/ meltfnum[1];
39635                             /*^apply.arg*/
39636                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
39637                             /*^apply.arg*/
39638                             argtab[2].meltbp_long = 3139;
39639                             /*^apply.arg*/
39640                             argtab[3].meltbp_cstring =  "normexp_funmatchexpr nargs=";
39641                             /*^apply.arg*/
39642                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NARGS__V53*/ meltfptr[52];
39643                             /*^apply.arg*/
39644                             argtab[5].meltbp_cstring =  " nargbind=";
39645                             /*^apply.arg*/
39646                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NARGBIND__V54*/ meltfptr[53];
39647                             /*_.MELT_DEBUG_FUN__V56*/
39648                             meltfptr[55] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
39649                         }
39650                         ;
39651                         /*_._IF___V55*/
39652                         meltfptr[54] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55];;
39653                         /*epilog*/
39654
39655                         MELT_LOCATION("warmelt-normal.melt:3139:/ clear");
39656                         /*clear*/ /*_#MELT_CALLCOUNT__L15*/
39657                         meltfnum[1] = 0 ;
39658                         /*^clear*/
39659                         /*clear*/ /*_.MELT_DEBUG_FUN__V56*/
39660                         meltfptr[55] = 0 ;
39661                     }
39662                     ;
39663                 }
39664             else    /*^cond.else*/
39665                 {
39666
39667                     /*_._IF___V55*/ meltfptr[54] =  /*reallynil*/ NULL ;;
39668                 }
39669             ;
39670
39671             {
39672                 MELT_LOCATION("warmelt-normal.melt:3139:/ locexp");
39673                 /*void*/
39674                 (void)0;
39675             }
39676             ;
39677             /*^quasiblock*/
39678
39679
39680             /*epilog*/
39681
39682             /*^clear*/
39683             /*clear*/ /*_#MELT_NEED_DBG__L14*/
39684             meltfnum[0] = 0 ;
39685             /*^clear*/
39686             /*clear*/ /*_._IF___V55*/
39687             meltfptr[54] = 0 ;
39688         }
39689
39690 #else /*MELT_HAVE_DEBUG*/
39691         /*^cppif.else*/
39692         /*^block*/
39693         /*anyblock*/
39694         {
39695
39696
39697             {
39698                 /*^locexp*/
39699                 /*void*/(void)0;
39700             }
39701             ;
39702             /*epilog*/
39703         }
39704
39705 #endif /*MELT_HAVE_DEBUG*/
39706         ;
39707
39708         MELT_CHECK_SIGNAL();
39709         ;
39710         MELT_LOCATION("warmelt-normal.melt:3140:/ apply");
39711         /*apply*/
39712         {
39713             union meltparam_un argtab[1];
39714             memset(&argtab, 0, sizeof(argtab));
39715             /*^apply.arg*/
39716             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NARGBIND__V54*/ meltfptr[53];
39717             /*_.LIST_APPEND2LIST__V57*/
39718             meltfptr[55] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NBIND__V22*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
39719         }
39720         ;
39721         MELT_LOCATION("warmelt-normal.melt:3141:/ quasiblock");
39722
39723
39724
39725         MELT_CHECK_SIGNAL();
39726         ;
39727         MELT_LOCATION("warmelt-normal.melt:3142:/ apply");
39728         /*apply*/
39729         {
39730             /*_.ASYM__V59*/ meltfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.FMATSYM__V32*/ meltfptr[27]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
39731         }
39732         ;
39733
39734         MELT_CHECK_SIGNAL();
39735         ;
39736
39737         MELT_CHECK_SIGNAL();
39738         ;
39739         MELT_LOCATION("warmelt-normal.melt:3148:/ quasiblock");
39740
39741
39742         /*^rawallocobj*/
39743         /*rawallocobj*/
39744         {
39745             melt_ptr_t newobj = 0;
39746             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_APPLY*/ meltfrout->tabval[19])), (4), "CLASS_NREP_APPLY");
39747             /*_.INST__V61*/
39748             meltfptr[60] =
39749                 newobj;
39750         };
39751         ;
39752         /*^putslot*/
39753         /*putslot*/
39754         melt_assertmsg("checkobj putslot  _ @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[60])) == MELTOBMAG_OBJECT);
39755         melt_putfield_object((/*_.INST__V61*/ meltfptr[60]), (1), ((/*!CTYPE_VALUE*/ meltfrout->tabval[13])), "NEXPR_CTYP");
39756         ;
39757         /*^putslot*/
39758         /*putslot*/
39759         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[60])) == MELTOBMAG_OBJECT);
39760         melt_putfield_object((/*_.INST__V61*/ meltfptr[60]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
39761         ;
39762         /*^putslot*/
39763         /*putslot*/
39764         melt_assertmsg("checkobj putslot  _ @NAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[60])) == MELTOBMAG_OBJECT);
39765         melt_putfield_object((/*_.INST__V61*/ meltfptr[60]), (3), (/*_.CLOCC__V50*/ meltfptr[49]), "NAPP_FUN");
39766         ;
39767         /*^putslot*/
39768         /*putslot*/
39769         melt_assertmsg("checkobj putslot  _ @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[60])) == MELTOBMAG_OBJECT);
39770         melt_putfield_object((/*_.INST__V61*/ meltfptr[60]), (2), (/*_.NARGS__V53*/ meltfptr[52]), "NEXPR_ARGS");
39771         ;
39772         /*^touchobj*/
39773
39774         melt_dbgtrace_written_object (/*_.INST__V61*/ meltfptr[60], "newly made instance");
39775         ;
39776         /*_.INST___V60*/
39777         meltfptr[59] = /*_.INST__V61*/ meltfptr[60];;
39778         MELT_LOCATION("warmelt-normal.melt:3143:/ quasiblock");
39779
39780
39781         /*^rawallocobj*/
39782         /*rawallocobj*/
39783         {
39784             melt_ptr_t newobj = 0;
39785             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[12])), (4), "CLASS_NORMAL_LET_BINDING");
39786             /*_.INST__V63*/
39787             meltfptr[62] =
39788                 newobj;
39789         };
39790         ;
39791         /*^putslot*/
39792         /*putslot*/
39793         melt_assertmsg("checkobj putslot  _ @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ meltfptr[62])) == MELTOBMAG_OBJECT);
39794         melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (3), (/*_.SLOC__V18*/ meltfptr[5]), "LETBIND_LOC");
39795         ;
39796         /*^putslot*/
39797         /*putslot*/
39798         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ meltfptr[62])) == MELTOBMAG_OBJECT);
39799         melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (0), (/*_.ASYM__V59*/ meltfptr[58]), "BINDER");
39800         ;
39801         /*^putslot*/
39802         /*putslot*/
39803         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ meltfptr[62])) == MELTOBMAG_OBJECT);
39804         melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (1), ((/*!CTYPE_VALUE*/ meltfrout->tabval[13])), "LETBIND_TYPE");
39805         ;
39806         /*^putslot*/
39807         /*putslot*/
39808         melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ meltfptr[62])) == MELTOBMAG_OBJECT);
39809         melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (2), (/*_.INST___V60*/ meltfptr[59]), "LETBIND_EXPR");
39810         ;
39811         /*^touchobj*/
39812
39813         melt_dbgtrace_written_object (/*_.INST__V63*/ meltfptr[62], "newly made instance");
39814         ;
39815         /*_.ABIND__V62*/
39816         meltfptr[61] = /*_.INST__V63*/ meltfptr[62];;
39817
39818         MELT_CHECK_SIGNAL();
39819         ;
39820         MELT_LOCATION("warmelt-normal.melt:3154:/ quasiblock");
39821
39822
39823         /*^rawallocobj*/
39824         /*rawallocobj*/
39825         {
39826             melt_ptr_t newobj = 0;
39827             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[16])), (4), "CLASS_NREP_LOCSYMOCC");
39828             /*_.INST__V65*/
39829             meltfptr[64] =
39830                 newobj;
39831         };
39832         ;
39833         /*^putslot*/
39834         /*putslot*/
39835         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ meltfptr[64])) == MELTOBMAG_OBJECT);
39836         melt_putfield_object((/*_.INST__V65*/ meltfptr[64]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
39837         ;
39838         /*^putslot*/
39839         /*putslot*/
39840         melt_assertmsg("checkobj putslot  _ @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ meltfptr[64])) == MELTOBMAG_OBJECT);
39841         melt_putfield_object((/*_.INST__V65*/ meltfptr[64]), (2), ((/*!CTYPE_VALUE*/ meltfrout->tabval[13])), "NOCC_CTYP");
39842         ;
39843         /*^putslot*/
39844         /*putslot*/
39845         melt_assertmsg("checkobj putslot  _ @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ meltfptr[64])) == MELTOBMAG_OBJECT);
39846         melt_putfield_object((/*_.INST__V65*/ meltfptr[64]), (1), (/*_.ASYM__V59*/ meltfptr[58]), "NOCC_SYMB");
39847         ;
39848         /*^putslot*/
39849         /*putslot*/
39850         melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ meltfptr[64])) == MELTOBMAG_OBJECT);
39851         melt_putfield_object((/*_.INST__V65*/ meltfptr[64]), (3), (/*_.ABIND__V62*/ meltfptr[61]), "NOCC_BIND");
39852         ;
39853         /*^touchobj*/
39854
39855         melt_dbgtrace_written_object (/*_.INST__V65*/ meltfptr[64], "newly made instance");
39856         ;
39857         /*_.CALOCC__V64*/
39858         meltfptr[63] = /*_.INST__V65*/ meltfptr[64];;
39859
39860         {
39861             MELT_LOCATION("warmelt-normal.melt:3161:/ locexp");
39862             meltgc_append_list((melt_ptr_t)(/*_.NBIND__V22*/ meltfptr[21]), (melt_ptr_t)(/*_.ABIND__V62*/ meltfptr[61]));
39863         }
39864         ;
39865
39866 #if MELT_HAVE_DEBUG
39867         MELT_LOCATION("warmelt-normal.melt:3162:/ cppif.then");
39868         /*^block*/
39869         /*anyblock*/
39870         {
39871
39872
39873             {
39874                 /*^locexp*/
39875                 /*melt_increment_dbgcounter*/
39876 #if MELT_HAVE_DEBUG
39877                 melt_dbgcounter++;
39878 #endif
39879                 ;
39880             }
39881             ;
39882
39883             MELT_CHECK_SIGNAL();
39884             ;
39885             /*_#MELT_NEED_DBG__L16*/
39886             meltfnum[1] =
39887                 /*MELT_NEED_DBG*/
39888 #if MELT_HAVE_DEBUG
39889                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
39890 #else
39891                 0 /* no melt_need_dbg */
39892 #endif /*MELT_HAVE_DEBUG*/
39893                 ;;
39894             MELT_LOCATION("warmelt-normal.melt:3162:/ cond");
39895             /*cond*/
39896             if (/*_#MELT_NEED_DBG__L16*/ meltfnum[1]) /*then*/
39897                 {
39898                     /*^cond.then*/
39899                     /*^block*/
39900                     /*anyblock*/
39901                     {
39902
39903                         /*_#MELT_CALLCOUNT__L17*/ meltfnum[0] =
39904                             /* for melt_callcount */
39905 #if MELT_HAVE_DEBUG && defined (meltcallcount)
39906                             meltcallcount  /* melt_callcount debugging */
39907 #else
39908                             0L  /* melt_callcount without debug */
39909 #endif /* MELT_HAVE_DEBUG melt_callcount */
39910                             ;;
39911
39912                         MELT_CHECK_SIGNAL();
39913                         ;
39914                         MELT_LOCATION("warmelt-normal.melt:3162:/ apply");
39915                         /*apply*/
39916                         {
39917                             union meltparam_un argtab[7];
39918                             memset(&argtab, 0, sizeof(argtab));
39919                             /*^apply.arg*/
39920                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L17*/ meltfnum[0];
39921                             /*^apply.arg*/
39922                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
39923                             /*^apply.arg*/
39924                             argtab[2].meltbp_long = 3162;
39925                             /*^apply.arg*/
39926                             argtab[3].meltbp_cstring =  "normexp_funmatchexpr final calocc=";
39927                             /*^apply.arg*/
39928                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CALOCC__V64*/ meltfptr[63];
39929                             /*^apply.arg*/
39930                             argtab[5].meltbp_cstring =  " nbind=";
39931                             /*^apply.arg*/
39932                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ meltfptr[21];
39933                             /*_.MELT_DEBUG_FUN__V67*/
39934                             meltfptr[66] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
39935                         }
39936                         ;
39937                         /*_._IF___V66*/
39938                         meltfptr[65] = /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66];;
39939                         /*epilog*/
39940
39941                         MELT_LOCATION("warmelt-normal.melt:3162:/ clear");
39942                         /*clear*/ /*_#MELT_CALLCOUNT__L17*/
39943                         meltfnum[0] = 0 ;
39944                         /*^clear*/
39945                         /*clear*/ /*_.MELT_DEBUG_FUN__V67*/
39946                         meltfptr[66] = 0 ;
39947                     }
39948                     ;
39949                 }
39950             else    /*^cond.else*/
39951                 {
39952
39953                     /*_._IF___V66*/ meltfptr[65] =  /*reallynil*/ NULL ;;
39954                 }
39955             ;
39956
39957             {
39958                 MELT_LOCATION("warmelt-normal.melt:3162:/ locexp");
39959                 /*void*/
39960                 (void)0;
39961             }
39962             ;
39963             /*^quasiblock*/
39964
39965
39966             /*epilog*/
39967
39968             /*^clear*/
39969             /*clear*/ /*_#MELT_NEED_DBG__L16*/
39970             meltfnum[1] = 0 ;
39971             /*^clear*/
39972             /*clear*/ /*_._IF___V66*/
39973             meltfptr[65] = 0 ;
39974         }
39975
39976 #else /*MELT_HAVE_DEBUG*/
39977         /*^cppif.else*/
39978         /*^block*/
39979         /*anyblock*/
39980         {
39981
39982
39983             {
39984                 /*^locexp*/
39985                 /*void*/(void)0;
39986             }
39987             ;
39988             /*epilog*/
39989         }
39990
39991 #endif /*MELT_HAVE_DEBUG*/
39992         ;
39993
39994         MELT_CHECK_SIGNAL();
39995         ;
39996         MELT_LOCATION("warmelt-normal.melt:3163:/ quasiblock");
39997
39998
39999         /*_._RETVAL___V1*/
40000         meltfptr[0] = /*_.CALOCC__V64*/ meltfptr[63];;
40001         MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult");
40002         if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
40003         if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
40004         if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.NBIND__V22*/ meltfptr[21]);
40005         ;
40006         /*^finalreturn*/
40007         ;
40008         /*finalret*/
40009         goto meltlabend_rout ;
40010         /*_.LET___V58*/
40011         meltfptr[54] = /*_.RETURN___V68*/ meltfptr[66];;
40012
40013         MELT_LOCATION("warmelt-normal.melt:3141:/ clear");
40014         /*clear*/ /*_.ASYM__V59*/
40015         meltfptr[58] = 0 ;
40016         /*^clear*/
40017         /*clear*/ /*_.INST___V60*/
40018         meltfptr[59] = 0 ;
40019         /*^clear*/
40020         /*clear*/ /*_.ABIND__V62*/
40021         meltfptr[61] = 0 ;
40022         /*^clear*/
40023         /*clear*/ /*_.CALOCC__V64*/
40024         meltfptr[63] = 0 ;
40025         /*^clear*/
40026         /*clear*/ /*_.RETURN___V68*/
40027         meltfptr[66] = 0 ;
40028
40029         MELT_CHECK_SIGNAL();
40030         ;
40031         /*_.MULTI___V52*/
40032         meltfptr[51] = /*_.LET___V58*/ meltfptr[54];;
40033
40034         MELT_LOCATION("warmelt-normal.melt:3136:/ clear");
40035         /*clear*/ /*_.LIST_APPEND2LIST__V57*/
40036         meltfptr[55] = 0 ;
40037         /*^clear*/
40038         /*clear*/ /*_.LET___V58*/
40039         meltfptr[54] = 0 ;
40040
40041         /*^clear*/
40042         /*clear*/ /*_.NARGBIND__V54*/
40043         meltfptr[53] = 0 ;
40044         /*_.LET___V44*/
40045         meltfptr[42] = /*_.MULTI___V52*/ meltfptr[51];;
40046
40047         MELT_LOCATION("warmelt-normal.melt:3118:/ clear");
40048         /*clear*/ /*_.CSYM__V45*/
40049         meltfptr[37] = 0 ;
40050         /*^clear*/
40051         /*clear*/ /*_.INST___V46*/
40052         meltfptr[45] = 0 ;
40053         /*^clear*/
40054         /*clear*/ /*_.CBIND__V48*/
40055         meltfptr[47] = 0 ;
40056         /*^clear*/
40057         /*clear*/ /*_.CLOCC__V50*/
40058         meltfptr[49] = 0 ;
40059         /*^clear*/
40060         /*clear*/ /*_.MULTI___V52*/
40061         meltfptr[51] = 0 ;
40062         /*_.LET___V40*/
40063         meltfptr[38] = /*_.LET___V44*/ meltfptr[42];;
40064
40065         MELT_LOCATION("warmelt-normal.melt:3114:/ clear");
40066         /*clear*/ /*_.NFMAT__V41*/
40067         meltfptr[33] = 0 ;
40068         /*^clear*/
40069         /*clear*/ /*_.LET___V44*/
40070         meltfptr[42] = 0 ;
40071         /*_.LET___V31*/
40072         meltfptr[23] = /*_.LET___V40*/ meltfptr[38];;
40073
40074         MELT_LOCATION("warmelt-normal.melt:3111:/ clear");
40075         /*clear*/ /*_.FMATSYM__V32*/
40076         meltfptr[27] = 0 ;
40077         /*^clear*/
40078         /*clear*/ /*_.IFCPP___V33*/
40079         meltfptr[32] = 0 ;
40080         /*^clear*/
40081         /*clear*/ /*_.IFCPP___V36*/
40082         meltfptr[34] = 0 ;
40083         /*^clear*/
40084         /*clear*/ /*_.LET___V40*/
40085         meltfptr[38] = 0 ;
40086         /*_.LET___V17*/
40087         meltfptr[15] = /*_.LET___V31*/ meltfptr[23];;
40088
40089         MELT_LOCATION("warmelt-normal.melt:3102:/ clear");
40090         /*clear*/ /*_.SLOC__V18*/
40091         meltfptr[5] = 0 ;
40092         /*^clear*/
40093         /*clear*/ /*_.SFMAT__V19*/
40094         meltfptr[18] = 0 ;
40095         /*^clear*/
40096         /*clear*/ /*_.SFBIND__V20*/
40097         meltfptr[19] = 0 ;
40098         /*^clear*/
40099         /*clear*/ /*_.SARGS__V21*/
40100         meltfptr[20] = 0 ;
40101         /*^clear*/
40102         /*clear*/ /*_.NBIND__V22*/
40103         meltfptr[21] = 0 ;
40104         /*^clear*/
40105         /*clear*/ /*_.IFCPP___V23*/
40106         meltfptr[22] = 0 ;
40107         /*^clear*/
40108         /*clear*/ /*_.IFCPP___V26*/
40109         meltfptr[24] = 0 ;
40110         /*^clear*/
40111         /*clear*/ /*_.LET___V31*/
40112         meltfptr[23] = 0 ;
40113
40114         MELT_CHECK_SIGNAL();
40115         ;
40116         MELT_LOCATION("warmelt-normal.melt:3097:/ quasiblock");
40117
40118
40119         /*_._RETVAL___V1*/
40120         meltfptr[0] = /*_.LET___V17*/ meltfptr[15];;
40121
40122         {
40123             MELT_LOCATION("warmelt-normal.melt:3097:/ locexp");
40124             /*ochecknores compilobj_nrep_return*/
40125 #if MELT_HAVE_DEBUG
40126             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
40127                 melt_warn_for_no_expected_secondary_results();
40128             /* we warned when secondary results are expected but not returned. */
40129 #endif /*MELT_HAVE_DEBUG*/
40130             ;
40131         }
40132         ;
40133         /*^finalreturn*/
40134         ;
40135         /*finalret*/
40136         goto meltlabend_rout ;
40137         /*epilog*/
40138
40139         /*^clear*/
40140         /*clear*/ /*_.IFCPP___V8*/
40141         meltfptr[6] = 0 ;
40142         /*^clear*/
40143         /*clear*/ /*_.IFCPP___V11*/
40144         meltfptr[9] = 0 ;
40145         /*^clear*/
40146         /*clear*/ /*_.IFCPP___V14*/
40147         meltfptr[12] = 0 ;
40148         /*^clear*/
40149         /*clear*/ /*_.LET___V17*/
40150         meltfptr[15] = 0 ;
40151     }
40152
40153     ;
40154     goto meltlabend_rout;
40155 meltlabend_rout:
40156     melt_trace_end("NORMEXP_FUNMATCHEXPR", meltcallcount);
40157     melt_blocklevel_signals = current_blocklevel_signals_meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR_melt;
40158     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
40159 #undef meltcallcount
40160 #undef meltfram__
40161 #undef MELTFRAM_NBVARNUM
40162 #undef MELTFRAM_NBVARPTR
40163 } /*end meltrout_47_WARMELTmiNORMAL_NORMEXP_FUNMATCHEXPR*/
40164
40165
40166
40167
40168
40169
40170 melt_ptr_t MELT_MODULE_VISIBILITY
40171 meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
40172         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
40173 {
40174     long current_blocklevel_signals_meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY_melt =  melt_blocklevel_signals;
40175
40176 #if MELT_HAVE_DEBUG
40177     static long melt_call_counter__;
40178     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
40179 #undef meltcallcount
40180 #define meltcallcount melt_thiscallcounter__
40181 #else
40182 #undef meltcallcount
40183 #define meltcallcount 0L
40184 #endif
40185 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
40186
40187     /* start of frame for routine meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY fromline 1752 */
40188
40189     /** start of frame for meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY of CLASS_PROCROUTINEOBJ from 1555**/
40190
40191     /*curframdeclclassy*/ class MeltFrame_meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY// fromline 1568
40192         : public Melt_CallFrameWithValues<101>
40193     {
40194     public: /* fromline 1572*/
40195         long mcfr_varnum[35];
40196         /*classy others*/
40197         long _meltsparel;
40198         void melt_mark_stuff (void)
40199         {
40200         } /*end melt_mark_stuff*/
40201         virtual void melt_mark_ggc_data (void)
40202         {
40203             melt_mark_values ();
40204             melt_mark_stuff ();
40205         }; /*end melt_mark_ggc_data*/
40206         MeltFrame_meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY(meltclosure_ptr_t clos) //the closure constructor fromline 1630
40207             : Melt_CallFrameWithValues<101> (
40208 #if ENABLE_CHECKING /*fromline 1634*/
40209                 __FILE__, __LINE__,
40210 #endif /* ENABLE_CHECKING fromline 1638*/
40211                 sizeof(MeltFrame_meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY), clos) {};
40212         MeltFrame_meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY() //the constructor fromline 1642
40213             : Melt_CallFrameWithValues<101> (
40214 #if ENABLE_CHECKING /*fromline 1646*/
40215                 __FILE__, __LINE__,
40216 #endif /* ENABLE_CHECKING fromline 1650*/
40217                 sizeof(MeltFrame_meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY)) {};
40218 #if ENABLE_CHECKING /*fromline 1654*/
40219         MeltFrame_meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY(const char*fil, int lin) //the constructor fromline 1656
40220             : Melt_CallFrameWithValues<101> (fil,lin, sizeof(MeltFrame_meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY)) {};
40221         MeltFrame_meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
40222             : Melt_CallFrameWithValues<101> (fil,lin, sizeof(MeltFrame_meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY), clos) {};
40223 #endif /* ENABLE_CHECKING fromline 1666*/
40224
40225     }; // end  class MeltFrame_meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY
40226
40227
40228     /** end of frame for meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY fromline 1697**/
40229
40230     /* end of frame for routine meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY fromline 1756 */
40231
40232     /* classy proc frame meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY */
40233     MeltFrame_meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY
40234     meltfram__ /*declfrastruct fromline 1780*/
40235     /*classyprocarg meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY fromline 1785*/
40236 #if ENABLE_CHECKING
40237     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
40238 #else /*ENABLE_CHECKING */
40239     (meltclosp_) /* fromline 1793*/
40240 #endif /*ENABLE_CHECKING */
40241
40242     ;
40243 #define meltframe meltfram__
40244
40245     melt_trace_start("NORMEXP_APPLY", meltcallcount);
40246     /*use arguments*/
40247     (void) meltclosp_;
40248     (void)meltfirstargp_;
40249     (void)meltxargdescr_;
40250     (void)meltxargtab_;
40251     (void)meltxresdescr_;
40252     (void)meltxrestab_;
40253     /*getargs*/
40254
40255     /*getarg#0*/
40256     MELT_LOCATION("warmelt-normal.melt:3169:/ getarg");
40257     /*_.RECV__V2*/
40258     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
40259
40260     /*getarg#1*/
40261     /*^getarg*/
40262     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
40263     /*_.ENV__V3*/
40264     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
40265     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
40266
40267
40268     /*getarg#2*/
40269     /*^getarg*/
40270     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
40271     /*_.NCX__V4*/
40272     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
40273     gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL);
40274
40275
40276     /*getarg#3*/
40277     /*^getarg*/
40278     if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
40279     /*_.PSLOC__V5*/
40280     meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
40281     gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL);
40282
40283     ;
40284     goto meltlab_endgetargs;
40285 meltlab_endgetargs:
40286     ;
40287     /*body*/
40288     /*^block*/
40289     /*anyblock*/
40290     {
40291
40292
40293 #if MELT_HAVE_DEBUG
40294         MELT_LOCATION("warmelt-normal.melt:3170:/ cppif.then");
40295         /*^block*/
40296         /*anyblock*/
40297         {
40298
40299
40300             {
40301                 /*^locexp*/
40302                 /*melt_increment_dbgcounter*/
40303 #if MELT_HAVE_DEBUG
40304                 melt_dbgcounter++;
40305 #endif
40306                 ;
40307             }
40308             ;
40309
40310             MELT_CHECK_SIGNAL();
40311             ;
40312             /*_#MELT_NEED_DBG__L1*/
40313             meltfnum[0] =
40314                 /*MELT_NEED_DBG*/
40315 #if MELT_HAVE_DEBUG
40316                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
40317 #else
40318                 0 /* no melt_need_dbg */
40319 #endif /*MELT_HAVE_DEBUG*/
40320                 ;;
40321             MELT_LOCATION("warmelt-normal.melt:3170:/ cond");
40322             /*cond*/
40323             if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
40324                 {
40325                     /*^cond.then*/
40326                     /*^block*/
40327                     /*anyblock*/
40328                     {
40329
40330                         /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
40331                             /* for melt_callcount */
40332 #if MELT_HAVE_DEBUG && defined (meltcallcount)
40333                             meltcallcount  /* melt_callcount debugging */
40334 #else
40335                             0L  /* melt_callcount without debug */
40336 #endif /* MELT_HAVE_DEBUG melt_callcount */
40337                             ;;
40338
40339                         MELT_CHECK_SIGNAL();
40340                         ;
40341                         MELT_LOCATION("warmelt-normal.melt:3170:/ apply");
40342                         /*apply*/
40343                         {
40344                             union meltparam_un argtab[12];
40345                             memset(&argtab, 0, sizeof(argtab));
40346                             /*^apply.arg*/
40347                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
40348                             /*^apply.arg*/
40349                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
40350                             /*^apply.arg*/
40351                             argtab[2].meltbp_long = 3170;
40352                             /*^apply.arg*/
40353                             argtab[3].meltbp_cstring =  "normexp_apply";
40354                             /*^apply.arg*/
40355                             argtab[4].meltbp_cstring =  " recv=";
40356                             /*^apply.arg*/
40357                             argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
40358                             /*^apply.arg*/
40359                             argtab[6].meltbp_cstring =  "\n.. env=";
40360                             /*^apply.arg*/
40361                             argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
40362                             /*^apply.arg*/
40363                             argtab[8].meltbp_cstring =  "\n.. ncx=";
40364                             /*^apply.arg*/
40365                             argtab[9].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
40366                             /*^apply.arg*/
40367                             argtab[10].meltbp_cstring =  "\n.. psloc=";
40368                             /*^apply.arg*/
40369                             argtab[11].meltbp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ meltfptr[4];
40370                             /*_.MELT_DEBUG_FUN__V7*/
40371                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
40372                         }
40373                         ;
40374                         /*_._IF___V6*/
40375                         meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];;
40376                         /*epilog*/
40377
40378                         MELT_LOCATION("warmelt-normal.melt:3170:/ clear");
40379                         /*clear*/ /*_#MELT_CALLCOUNT__L2*/
40380                         meltfnum[1] = 0 ;
40381                         /*^clear*/
40382                         /*clear*/ /*_.MELT_DEBUG_FUN__V7*/
40383                         meltfptr[6] = 0 ;
40384                     }
40385                     ;
40386                 }
40387             else    /*^cond.else*/
40388                 {
40389
40390                     /*_._IF___V6*/ meltfptr[5] =  /*reallynil*/ NULL ;;
40391                 }
40392             ;
40393
40394             {
40395                 MELT_LOCATION("warmelt-normal.melt:3170:/ locexp");
40396                 /*void*/
40397                 (void)0;
40398             }
40399             ;
40400             /*^quasiblock*/
40401
40402
40403             /*epilog*/
40404
40405             /*^clear*/
40406             /*clear*/ /*_#MELT_NEED_DBG__L1*/
40407             meltfnum[0] = 0 ;
40408             /*^clear*/
40409             /*clear*/ /*_._IF___V6*/
40410             meltfptr[5] = 0 ;
40411         }
40412
40413 #else /*MELT_HAVE_DEBUG*/
40414         /*^cppif.else*/
40415         /*^block*/
40416         /*anyblock*/
40417         {
40418
40419
40420             {
40421                 /*^locexp*/
40422                 /*void*/(void)0;
40423             }
40424             ;
40425             /*epilog*/
40426         }
40427
40428 #endif /*MELT_HAVE_DEBUG*/
40429         ;
40430
40431         {
40432             MELT_LOCATION("warmelt-normal.melt:3171:/ locexp");
40433
40434 #if MELT_HAVE_DEBUG
40435             if (melt_need_debug (0))
40436                 melt_dbgshortbacktrace(( "normexp_apply"), (18));
40437 #endif
40438             ;
40439         }
40440         ;
40441
40442 #if MELT_HAVE_DEBUG
40443         MELT_LOCATION("warmelt-normal.melt:3172:/ cppif.then");
40444         /*^block*/
40445         /*anyblock*/
40446         {
40447
40448
40449             MELT_CHECK_SIGNAL();
40450             ;
40451             /*_#IS_A__L3*/
40452             meltfnum[1] =
40453                 melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_APPLY*/ meltfrout->tabval[1])));;
40454             MELT_LOCATION("warmelt-normal.melt:3172:/ cond");
40455             /*cond*/
40456             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
40457                 {
40458                     /*^cond.then*/
40459                     /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);;
40460                 }
40461             else
40462                 {
40463                     MELT_LOCATION("warmelt-normal.melt:3172:/ cond.else");
40464
40465                     /*^block*/
40466                     /*anyblock*/
40467                     {
40468
40469
40470                         MELT_CHECK_SIGNAL();
40471                         ;
40472                         /*^apply*/
40473                         /*apply*/
40474                         {
40475                             union meltparam_un argtab[4];
40476                             memset(&argtab, 0, sizeof(argtab));
40477                             /*^apply.arg*/
40478                             argtab[0].meltbp_cstring =  "check apply recv";
40479                             /*^apply.arg*/
40480                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
40481                             /*^apply.arg*/
40482                             argtab[2].meltbp_long = 3172;
40483                             /*^apply.arg*/
40484                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
40485                             /*_.MELT_ASSERT_FAILURE_FUN__V10*/
40486                             meltfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
40487                         }
40488                         ;
40489                         /*_._IFELSE___V9*/
40490                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];;
40491                         /*epilog*/
40492
40493                         MELT_LOCATION("warmelt-normal.melt:3172:/ clear");
40494                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/
40495                         meltfptr[9] = 0 ;
40496                     }
40497                     ;
40498                 }
40499             ;
40500             /*_.IFCPP___V8*/
40501             meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];;
40502             /*epilog*/
40503
40504             MELT_LOCATION("warmelt-normal.melt:3172:/ clear");
40505             /*clear*/ /*_#IS_A__L3*/
40506             meltfnum[1] = 0 ;
40507             /*^clear*/
40508             /*clear*/ /*_._IFELSE___V9*/
40509             meltfptr[5] = 0 ;
40510         }
40511
40512 #else /*MELT_HAVE_DEBUG*/
40513         /*^cppif.else*/
40514         /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL);
40515 #endif /*MELT_HAVE_DEBUG*/
40516         ;
40517
40518 #if MELT_HAVE_DEBUG
40519         MELT_LOCATION("warmelt-normal.melt:3173:/ cppif.then");
40520         /*^block*/
40521         /*anyblock*/
40522         {
40523
40524
40525             MELT_CHECK_SIGNAL();
40526             ;
40527             /*_#IS_A__L4*/
40528             meltfnum[0] =
40529                 melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));;
40530             MELT_LOCATION("warmelt-normal.melt:3173:/ cond");
40531             /*cond*/
40532             if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/
40533                 {
40534                     /*^cond.then*/
40535                     /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);;
40536                 }
40537             else
40538                 {
40539                     MELT_LOCATION("warmelt-normal.melt:3173:/ cond.else");
40540
40541                     /*^block*/
40542                     /*anyblock*/
40543                     {
40544
40545
40546                         MELT_CHECK_SIGNAL();
40547                         ;
40548                         /*^apply*/
40549                         /*apply*/
40550                         {
40551                             union meltparam_un argtab[4];
40552                             memset(&argtab, 0, sizeof(argtab));
40553                             /*^apply.arg*/
40554                             argtab[0].meltbp_cstring =  "check env";
40555                             /*^apply.arg*/
40556                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
40557                             /*^apply.arg*/
40558                             argtab[2].meltbp_long = 3173;
40559                             /*^apply.arg*/
40560                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
40561                             /*_.MELT_ASSERT_FAILURE_FUN__V13*/
40562                             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
40563                         }
40564                         ;
40565                         /*_._IFELSE___V12*/
40566                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];;
40567                         /*epilog*/
40568
40569                         MELT_LOCATION("warmelt-normal.melt:3173:/ clear");
40570                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/
40571                         meltfptr[12] = 0 ;
40572                     }
40573                     ;
40574                 }
40575             ;
40576             /*_.IFCPP___V11*/
40577             meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];;
40578             /*epilog*/
40579
40580             MELT_LOCATION("warmelt-normal.melt:3173:/ clear");
40581             /*clear*/ /*_#IS_A__L4*/
40582             meltfnum[0] = 0 ;
40583             /*^clear*/
40584             /*clear*/ /*_._IFELSE___V12*/
40585             meltfptr[5] = 0 ;
40586         }
40587
40588 #else /*MELT_HAVE_DEBUG*/
40589         /*^cppif.else*/
40590         /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL);
40591 #endif /*MELT_HAVE_DEBUG*/
40592         ;
40593
40594 #if MELT_HAVE_DEBUG
40595         MELT_LOCATION("warmelt-normal.melt:3174:/ cppif.then");
40596         /*^block*/
40597         /*anyblock*/
40598         {
40599
40600
40601             MELT_CHECK_SIGNAL();
40602             ;
40603             /*_#IS_A__L5*/
40604             meltfnum[1] =
40605                 melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));;
40606             MELT_LOCATION("warmelt-normal.melt:3174:/ cond");
40607             /*cond*/
40608             if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/
40609                 {
40610                     /*^cond.then*/
40611                     /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);;
40612                 }
40613             else
40614                 {
40615                     MELT_LOCATION("warmelt-normal.melt:3174:/ cond.else");
40616
40617                     /*^block*/
40618                     /*anyblock*/
40619                     {
40620
40621
40622                         MELT_CHECK_SIGNAL();
40623                         ;
40624                         /*^apply*/
40625                         /*apply*/
40626                         {
40627                             union meltparam_un argtab[4];
40628                             memset(&argtab, 0, sizeof(argtab));
40629                             /*^apply.arg*/
40630                             argtab[0].meltbp_cstring =  "check ncx";
40631                             /*^apply.arg*/
40632                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
40633                             /*^apply.arg*/
40634                             argtab[2].meltbp_long = 3174;
40635                             /*^apply.arg*/
40636                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
40637                             /*_.MELT_ASSERT_FAILURE_FUN__V16*/
40638                             meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
40639                         }
40640                         ;
40641                         /*_._IFELSE___V15*/
40642                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];;
40643                         /*epilog*/
40644
40645                         MELT_LOCATION("warmelt-normal.melt:3174:/ clear");
40646                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/
40647                         meltfptr[15] = 0 ;
40648                     }
40649                     ;
40650                 }
40651             ;
40652             /*_.IFCPP___V14*/
40653             meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];;
40654             /*epilog*/
40655
40656             MELT_LOCATION("warmelt-normal.melt:3174:/ clear");
40657             /*clear*/ /*_#IS_A__L5*/
40658             meltfnum[1] = 0 ;
40659             /*^clear*/
40660             /*clear*/ /*_._IFELSE___V15*/
40661             meltfptr[5] = 0 ;
40662         }
40663
40664 #else /*MELT_HAVE_DEBUG*/
40665         /*^cppif.else*/
40666         /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL);
40667 #endif /*MELT_HAVE_DEBUG*/
40668         ;
40669         MELT_LOCATION("warmelt-normal.melt:3175:/ quasiblock");
40670
40671
40672         /*^getslot*/
40673         {
40674             melt_ptr_t slot=NULL, obj=NULL;
40675             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
40676             melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
40677             /*_.SLOC__V18*/
40678             meltfptr[5] = slot;
40679         };
40680         ;
40681         MELT_LOCATION("warmelt-normal.melt:3176:/ getslot");
40682         {
40683             melt_ptr_t slot=NULL, obj=NULL;
40684             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
40685             melt_object_get_field(slot,obj, 3, "SAPP_FUN");
40686             /*_.SFUN__V19*/
40687             meltfptr[18] = slot;
40688         };
40689         ;
40690         MELT_LOCATION("warmelt-normal.melt:3177:/ getslot");
40691         {
40692             melt_ptr_t slot=NULL, obj=NULL;
40693             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
40694             melt_object_get_field(slot,obj, 2, "SARGOP_ARGS");
40695             /*_.SARGS__V20*/
40696             meltfptr[19] = slot;
40697         };
40698         ;
40699
40700         MELT_CHECK_SIGNAL();
40701         ;
40702         /*_#IS_A__L6*/
40703         meltfnum[0] =
40704             melt_is_instance_of((melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[5])));;
40705         MELT_LOCATION("warmelt-normal.melt:3178:/ cond");
40706         /*cond*/
40707         if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/
40708             {
40709                 /*^cond.then*/
40710                 /*_.SFUSYMB__V21*/ meltfptr[20] = /*_.SFUN__V19*/ meltfptr[18];;
40711             }
40712         else
40713             {
40714                 MELT_LOCATION("warmelt-normal.melt:3178:/ cond.else");
40715
40716                 /*_.SFUSYMB__V21*/
40717                 meltfptr[20] = (/*!konst_6__FUN_*/ meltfrout->tabval[6]);;
40718             }
40719         ;
40720
40721 #if MELT_HAVE_DEBUG
40722         MELT_LOCATION("warmelt-normal.melt:3180:/ cppif.then");
40723         /*^block*/
40724         /*anyblock*/
40725         {
40726
40727
40728             {
40729                 /*^locexp*/
40730                 /*melt_increment_dbgcounter*/
40731 #if MELT_HAVE_DEBUG
40732                 melt_dbgcounter++;
40733 #endif
40734                 ;
40735             }
40736             ;
40737
40738             MELT_CHECK_SIGNAL();
40739             ;
40740             /*_#MELT_NEED_DBG__L7*/
40741             meltfnum[1] =
40742                 /*MELT_NEED_DBG*/
40743 #if MELT_HAVE_DEBUG
40744                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
40745 #else
40746                 0 /* no melt_need_dbg */
40747 #endif /*MELT_HAVE_DEBUG*/
40748                 ;;
40749             MELT_LOCATION("warmelt-normal.melt:3180:/ cond");
40750             /*cond*/
40751             if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/
40752                 {
40753                     /*^cond.then*/
40754                     /*^block*/
40755                     /*anyblock*/
40756                     {
40757
40758                         /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] =
40759                             /* for melt_callcount */
40760 #if MELT_HAVE_DEBUG && defined (meltcallcount)
40761                             meltcallcount  /* melt_callcount debugging */
40762 #else
40763                             0L  /* melt_callcount without debug */
40764 #endif /* MELT_HAVE_DEBUG melt_callcount */
40765                             ;;
40766
40767                         MELT_CHECK_SIGNAL();
40768                         ;
40769                         MELT_LOCATION("warmelt-normal.melt:3180:/ apply");
40770                         /*apply*/
40771                         {
40772                             union meltparam_un argtab[7];
40773                             memset(&argtab, 0, sizeof(argtab));
40774                             /*^apply.arg*/
40775                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[7];
40776                             /*^apply.arg*/
40777                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
40778                             /*^apply.arg*/
40779                             argtab[2].meltbp_long = 3180;
40780                             /*^apply.arg*/
40781                             argtab[3].meltbp_cstring =  "normexp_apply sloc=";
40782                             /*^apply.arg*/
40783                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
40784                             /*^apply.arg*/
40785                             argtab[5].meltbp_cstring =  "; sfun=";
40786                             /*^apply.arg*/
40787                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SFUN__V19*/ meltfptr[18];
40788                             /*_.MELT_DEBUG_FUN__V23*/
40789                             meltfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
40790                         }
40791                         ;
40792                         /*_._IF___V22*/
40793                         meltfptr[21] = /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];;
40794                         /*epilog*/
40795
40796                         MELT_LOCATION("warmelt-normal.melt:3180:/ clear");
40797                         /*clear*/ /*_#MELT_CALLCOUNT__L8*/
40798                         meltfnum[7] = 0 ;
40799                         /*^clear*/
40800                         /*clear*/ /*_.MELT_DEBUG_FUN__V23*/
40801                         meltfptr[22] = 0 ;
40802                     }
40803                     ;
40804                 }
40805             else    /*^cond.else*/
40806                 {
40807
40808                     /*_._IF___V22*/ meltfptr[21] =  /*reallynil*/ NULL ;;
40809                 }
40810             ;
40811
40812             {
40813                 MELT_LOCATION("warmelt-normal.melt:3180:/ locexp");
40814                 /*void*/
40815                 (void)0;
40816             }
40817             ;
40818             /*^quasiblock*/
40819
40820
40821             /*epilog*/
40822
40823             /*^clear*/
40824             /*clear*/ /*_#MELT_NEED_DBG__L7*/
40825             meltfnum[1] = 0 ;
40826             /*^clear*/
40827             /*clear*/ /*_._IF___V22*/
40828             meltfptr[21] = 0 ;
40829         }
40830
40831 #else /*MELT_HAVE_DEBUG*/
40832         /*^cppif.else*/
40833         /*^block*/
40834         /*anyblock*/
40835         {
40836
40837
40838             {
40839                 /*^locexp*/
40840                 /*void*/(void)0;
40841             }
40842             ;
40843             /*epilog*/
40844         }
40845
40846 #endif /*MELT_HAVE_DEBUG*/
40847         ;
40848
40849         MELT_CHECK_SIGNAL();
40850         ;
40851         MELT_LOCATION("warmelt-normal.melt:3181:/ quasiblock");
40852
40853
40854         /*^multimsend*/
40855         /*multimsend*/
40856         {
40857             union meltparam_un argtab[3];
40858             union meltparam_un restab[1];
40859             memset(&argtab, 0, sizeof(argtab));
40860             memset(&restab, 0, sizeof(restab));
40861             /*^multimsend.arg*/
40862             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multimsend.arg*/
40863             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multimsend.arg*/
40864             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
40865             /*^multimsend.xres*/
40866             restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDFUN__V26*/ meltfptr[25];/*^multimsend.send*/
40867             /*_.NFUN__V25*/
40868             meltfptr[21] =  meltgc_send ((melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[7]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
40869         }
40870         ;
40871         /*^quasiblock*/
40872
40873
40874
40875 #if MELT_HAVE_DEBUG
40876         MELT_LOCATION("warmelt-normal.melt:3184:/ cppif.then");
40877         /*^block*/
40878         /*anyblock*/
40879         {
40880
40881
40882             {
40883                 /*^locexp*/
40884                 /*melt_increment_dbgcounter*/
40885 #if MELT_HAVE_DEBUG
40886                 melt_dbgcounter++;
40887 #endif
40888                 ;
40889             }
40890             ;
40891
40892             MELT_CHECK_SIGNAL();
40893             ;
40894             /*_#MELT_NEED_DBG__L9*/
40895             meltfnum[7] =
40896                 /*MELT_NEED_DBG*/
40897 #if MELT_HAVE_DEBUG
40898                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
40899 #else
40900                 0 /* no melt_need_dbg */
40901 #endif /*MELT_HAVE_DEBUG*/
40902                 ;;
40903             MELT_LOCATION("warmelt-normal.melt:3184:/ cond");
40904             /*cond*/
40905             if (/*_#MELT_NEED_DBG__L9*/ meltfnum[7]) /*then*/
40906                 {
40907                     /*^cond.then*/
40908                     /*^block*/
40909                     /*anyblock*/
40910                     {
40911
40912                         /*_#MELT_CALLCOUNT__L10*/ meltfnum[1] =
40913                             /* for melt_callcount */
40914 #if MELT_HAVE_DEBUG && defined (meltcallcount)
40915                             meltcallcount  /* melt_callcount debugging */
40916 #else
40917                             0L  /* melt_callcount without debug */
40918 #endif /* MELT_HAVE_DEBUG melt_callcount */
40919                             ;;
40920
40921                         MELT_CHECK_SIGNAL();
40922                         ;
40923                         MELT_LOCATION("warmelt-normal.melt:3184:/ apply");
40924                         /*apply*/
40925                         {
40926                             union meltparam_un argtab[7];
40927                             memset(&argtab, 0, sizeof(argtab));
40928                             /*^apply.arg*/
40929                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L10*/ meltfnum[1];
40930                             /*^apply.arg*/
40931                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
40932                             /*^apply.arg*/
40933                             argtab[2].meltbp_long = 3184;
40934                             /*^apply.arg*/
40935                             argtab[3].meltbp_cstring =  "normexp_apply nfun=";
40936                             /*^apply.arg*/
40937                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NFUN__V25*/ meltfptr[21];
40938                             /*^apply.arg*/
40939                             argtab[5].meltbp_cstring =  "\n nbindfun=";
40940                             /*^apply.arg*/
40941                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDFUN__V26*/ meltfptr[25];
40942                             /*_.MELT_DEBUG_FUN__V28*/
40943                             meltfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
40944                         }
40945                         ;
40946                         /*_._IF___V27*/
40947                         meltfptr[26] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27];;
40948                         /*epilog*/
40949
40950                         MELT_LOCATION("warmelt-normal.melt:3184:/ clear");
40951                         /*clear*/ /*_#MELT_CALLCOUNT__L10*/
40952                         meltfnum[1] = 0 ;
40953                         /*^clear*/
40954                         /*clear*/ /*_.MELT_DEBUG_FUN__V28*/
40955                         meltfptr[27] = 0 ;
40956                     }
40957                     ;
40958                 }
40959             else    /*^cond.else*/
40960                 {
40961
40962                     /*_._IF___V27*/ meltfptr[26] =  /*reallynil*/ NULL ;;
40963                 }
40964             ;
40965
40966             {
40967                 MELT_LOCATION("warmelt-normal.melt:3184:/ locexp");
40968                 /*void*/
40969                 (void)0;
40970             }
40971             ;
40972             /*^quasiblock*/
40973
40974
40975             /*epilog*/
40976
40977             /*^clear*/
40978             /*clear*/ /*_#MELT_NEED_DBG__L9*/
40979             meltfnum[7] = 0 ;
40980             /*^clear*/
40981             /*clear*/ /*_._IF___V27*/
40982             meltfptr[26] = 0 ;
40983         }
40984
40985 #else /*MELT_HAVE_DEBUG*/
40986         /*^cppif.else*/
40987         /*^block*/
40988         /*anyblock*/
40989         {
40990
40991
40992             {
40993                 /*^locexp*/
40994                 /*void*/(void)0;
40995             }
40996             ;
40997             /*epilog*/
40998         }
40999
41000 #endif /*MELT_HAVE_DEBUG*/
41001         ;
41002
41003 #if MELT_HAVE_DEBUG
41004         MELT_LOCATION("warmelt-normal.melt:3185:/ cppif.then");
41005         /*^block*/
41006         /*anyblock*/
41007         {
41008
41009
41010             MELT_CHECK_SIGNAL();
41011             ;
41012             /*_#IS_LIST_OR_NULL__L11*/
41013             meltfnum[1] =
41014                 ((/*_.NBINDFUN__V26*/ meltfptr[25]) == NULL
41015                  || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDFUN__V26*/ meltfptr[25])) == MELTOBMAG_LIST));;
41016             MELT_LOCATION("warmelt-normal.melt:3185:/ cond");
41017             /*cond*/
41018             if (/*_#IS_LIST_OR_NULL__L11*/ meltfnum[1]) /*then*/
41019                 {
41020                     /*^cond.then*/
41021                     /*_._IFELSE___V30*/ meltfptr[26] = (/*nil*/NULL);;
41022                 }
41023             else
41024                 {
41025                     MELT_LOCATION("warmelt-normal.melt:3185:/ cond.else");
41026
41027                     /*^block*/
41028                     /*anyblock*/
41029                     {
41030
41031
41032                         MELT_CHECK_SIGNAL();
41033                         ;
41034                         /*^apply*/
41035                         /*apply*/
41036                         {
41037                             union meltparam_un argtab[4];
41038                             memset(&argtab, 0, sizeof(argtab));
41039                             /*^apply.arg*/
41040                             argtab[0].meltbp_cstring =  "check nbindfun";
41041                             /*^apply.arg*/
41042                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
41043                             /*^apply.arg*/
41044                             argtab[2].meltbp_long = 3185;
41045                             /*^apply.arg*/
41046                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDFUN__V26*/ meltfptr[25];
41047                             /*_.MELT_ASSERT_FAILURE_FUN__V31*/
41048                             meltfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
41049                         }
41050                         ;
41051                         /*_._IFELSE___V30*/
41052                         meltfptr[26] = /*_.MELT_ASSERT_FAILURE_FUN__V31*/ meltfptr[30];;
41053                         /*epilog*/
41054
41055                         MELT_LOCATION("warmelt-normal.melt:3185:/ clear");
41056                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V31*/
41057                         meltfptr[30] = 0 ;
41058                     }
41059                     ;
41060                 }
41061             ;
41062             /*_.IFCPP___V29*/
41063             meltfptr[27] = /*_._IFELSE___V30*/ meltfptr[26];;
41064             /*epilog*/
41065
41066             MELT_LOCATION("warmelt-normal.melt:3185:/ clear");
41067             /*clear*/ /*_#IS_LIST_OR_NULL__L11*/
41068             meltfnum[1] = 0 ;
41069             /*^clear*/
41070             /*clear*/ /*_._IFELSE___V30*/
41071             meltfptr[26] = 0 ;
41072         }
41073
41074 #else /*MELT_HAVE_DEBUG*/
41075         /*^cppif.else*/
41076         /*_.IFCPP___V29*/ meltfptr[27] = (/*nil*/NULL);
41077 #endif /*MELT_HAVE_DEBUG*/
41078         ;
41079         MELT_LOCATION("warmelt-normal.melt:3186:/ quasiblock");
41080
41081
41082
41083         MELT_CHECK_SIGNAL();
41084         ;
41085         /*^msend*/
41086         /*msend*/
41087         {
41088             union meltparam_un argtab[1];
41089             memset(&argtab, 0, sizeof(argtab));
41090             /*^ojbmsend.arg*/
41091             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
41092             /*_.NFUNCTYP__V33*/
41093             meltfptr[26] = meltgc_send((melt_ptr_t)(/*_.NFUN__V25*/ meltfptr[21]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
41094         }
41095         ;
41096
41097 #if MELT_HAVE_DEBUG
41098         MELT_LOCATION("warmelt-normal.melt:3188:/ cppif.then");
41099         /*^block*/
41100         /*anyblock*/
41101         {
41102
41103
41104             {
41105                 /*^locexp*/
41106                 /*melt_increment_dbgcounter*/
41107 #if MELT_HAVE_DEBUG
41108                 melt_dbgcounter++;
41109 #endif
41110                 ;
41111             }
41112             ;
41113
41114             MELT_CHECK_SIGNAL();
41115             ;
41116             /*_#MELT_NEED_DBG__L12*/
41117             meltfnum[7] =
41118                 /*MELT_NEED_DBG*/
41119 #if MELT_HAVE_DEBUG
41120                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
41121 #else
41122                 0 /* no melt_need_dbg */
41123 #endif /*MELT_HAVE_DEBUG*/
41124                 ;;
41125             MELT_LOCATION("warmelt-normal.melt:3188:/ cond");
41126             /*cond*/
41127             if (/*_#MELT_NEED_DBG__L12*/ meltfnum[7]) /*then*/
41128                 {
41129                     /*^cond.then*/
41130                     /*^block*/
41131                     /*anyblock*/
41132                     {
41133
41134                         /*_#MELT_CALLCOUNT__L13*/ meltfnum[1] =
41135                             /* for melt_callcount */
41136 #if MELT_HAVE_DEBUG && defined (meltcallcount)
41137                             meltcallcount  /* melt_callcount debugging */
41138 #else
41139                             0L  /* melt_callcount without debug */
41140 #endif /* MELT_HAVE_DEBUG melt_callcount */
41141                             ;;
41142
41143                         MELT_CHECK_SIGNAL();
41144                         ;
41145                         MELT_LOCATION("warmelt-normal.melt:3188:/ apply");
41146                         /*apply*/
41147                         {
41148                             union meltparam_un argtab[5];
41149                             memset(&argtab, 0, sizeof(argtab));
41150                             /*^apply.arg*/
41151                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L13*/ meltfnum[1];
41152                             /*^apply.arg*/
41153                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
41154                             /*^apply.arg*/
41155                             argtab[2].meltbp_long = 3188;
41156                             /*^apply.arg*/
41157                             argtab[3].meltbp_cstring =  "normexp_apply nfunctyp";
41158                             /*^apply.arg*/
41159                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NFUNCTYP__V33*/ meltfptr[26];
41160                             /*_.MELT_DEBUG_FUN__V35*/
41161                             meltfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
41162                         }
41163                         ;
41164                         /*_._IF___V34*/
41165                         meltfptr[33] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];;
41166                         /*epilog*/
41167
41168                         MELT_LOCATION("warmelt-normal.melt:3188:/ clear");
41169                         /*clear*/ /*_#MELT_CALLCOUNT__L13*/
41170                         meltfnum[1] = 0 ;
41171                         /*^clear*/
41172                         /*clear*/ /*_.MELT_DEBUG_FUN__V35*/
41173                         meltfptr[34] = 0 ;
41174                     }
41175                     ;
41176                 }
41177             else    /*^cond.else*/
41178                 {
41179
41180                     /*_._IF___V34*/ meltfptr[33] =  /*reallynil*/ NULL ;;
41181                 }
41182             ;
41183
41184             {
41185                 MELT_LOCATION("warmelt-normal.melt:3188:/ locexp");
41186                 /*void*/
41187                 (void)0;
41188             }
41189             ;
41190             /*^quasiblock*/
41191
41192
41193             /*epilog*/
41194
41195             /*^clear*/
41196             /*clear*/ /*_#MELT_NEED_DBG__L12*/
41197             meltfnum[7] = 0 ;
41198             /*^clear*/
41199             /*clear*/ /*_._IF___V34*/
41200             meltfptr[33] = 0 ;
41201         }
41202
41203 #else /*MELT_HAVE_DEBUG*/
41204         /*^cppif.else*/
41205         /*^block*/
41206         /*anyblock*/
41207         {
41208
41209
41210             {
41211                 /*^locexp*/
41212                 /*void*/(void)0;
41213             }
41214             ;
41215             /*epilog*/
41216         }
41217
41218 #endif /*MELT_HAVE_DEBUG*/
41219         ;
41220
41221         MELT_CHECK_SIGNAL();
41222         ;
41223         /*_#exeq__L14*/
41224         meltfnum[1] =
41225             ((/*_.NFUNCTYP__V33*/ meltfptr[26]) != ((/*!CTYPE_VALUE*/ meltfrout->tabval[9])));;
41226         MELT_LOCATION("warmelt-normal.melt:3189:/ cond");
41227         /*cond*/
41228         if (/*_#exeq__L14*/ meltfnum[1]) /*then*/
41229             {
41230                 /*^cond.then*/
41231                 /*^block*/
41232                 /*anyblock*/
41233                 {
41234
41235
41236 #if MELT_HAVE_DEBUG
41237                     MELT_LOCATION("warmelt-normal.melt:3191:/ cppif.then");
41238                     /*^block*/
41239                     /*anyblock*/
41240                     {
41241
41242
41243                         {
41244                             /*^locexp*/
41245                             /*melt_increment_dbgcounter*/
41246 #if MELT_HAVE_DEBUG
41247                             melt_dbgcounter++;
41248 #endif
41249                             ;
41250                         }
41251                         ;
41252
41253                         MELT_CHECK_SIGNAL();
41254                         ;
41255                         /*_#MELT_NEED_DBG__L15*/
41256                         meltfnum[7] =
41257                             /*MELT_NEED_DBG*/
41258 #if MELT_HAVE_DEBUG
41259                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
41260 #else
41261                             0 /* no melt_need_dbg */
41262 #endif /*MELT_HAVE_DEBUG*/
41263                             ;;
41264                         MELT_LOCATION("warmelt-normal.melt:3191:/ cond");
41265                         /*cond*/
41266                         if (/*_#MELT_NEED_DBG__L15*/ meltfnum[7]) /*then*/
41267                             {
41268                                 /*^cond.then*/
41269                                 /*^block*/
41270                                 /*anyblock*/
41271                                 {
41272
41273                                     /*_#MELT_CALLCOUNT__L16*/ meltfnum[15] =
41274                                         /* for melt_callcount */
41275 #if MELT_HAVE_DEBUG && defined (meltcallcount)
41276                                         meltcallcount  /* melt_callcount debugging */
41277 #else
41278                                         0L  /* melt_callcount without debug */
41279 #endif /* MELT_HAVE_DEBUG melt_callcount */
41280                                         ;;
41281
41282                                     MELT_CHECK_SIGNAL();
41283                                     ;
41284                                     MELT_LOCATION("warmelt-normal.melt:3191:/ apply");
41285                                     /*apply*/
41286                                     {
41287                                         union meltparam_un argtab[11];
41288                                         memset(&argtab, 0, sizeof(argtab));
41289                                         /*^apply.arg*/
41290                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L16*/ meltfnum[15];
41291                                         /*^apply.arg*/
41292                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
41293                                         /*^apply.arg*/
41294                                         argtab[2].meltbp_long = 3191;
41295                                         /*^apply.arg*/
41296                                         argtab[3].meltbp_cstring =  "normexp_apply bad nfun=";
41297                                         /*^apply.arg*/
41298                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NFUN__V25*/ meltfptr[21];
41299                                         /*^apply.arg*/
41300                                         argtab[5].meltbp_cstring =  " sfun=";
41301                                         /*^apply.arg*/
41302                                         argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SFUN__V19*/ meltfptr[18];
41303                                         /*^apply.arg*/
41304                                         argtab[7].meltbp_cstring =  " nfunctyp=";
41305                                         /*^apply.arg*/
41306                                         argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.NFUNCTYP__V33*/ meltfptr[26];
41307                                         /*^apply.arg*/
41308                                         argtab[9].meltbp_cstring =  " recv=";
41309                                         /*^apply.arg*/
41310                                         argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
41311                                         /*_.MELT_DEBUG_FUN__V38*/
41312                                         meltfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
41313                                     }
41314                                     ;
41315                                     /*_._IF___V37*/
41316                                     meltfptr[33] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];;
41317                                     /*epilog*/
41318
41319                                     MELT_LOCATION("warmelt-normal.melt:3191:/ clear");
41320                                     /*clear*/ /*_#MELT_CALLCOUNT__L16*/
41321                                     meltfnum[15] = 0 ;
41322                                     /*^clear*/
41323                                     /*clear*/ /*_.MELT_DEBUG_FUN__V38*/
41324                                     meltfptr[37] = 0 ;
41325                                 }
41326                                 ;
41327                             }
41328                         else    /*^cond.else*/
41329                             {
41330
41331                                 /*_._IF___V37*/ meltfptr[33] =  /*reallynil*/ NULL ;;
41332                             }
41333                         ;
41334
41335                         {
41336                             MELT_LOCATION("warmelt-normal.melt:3191:/ locexp");
41337                             /*void*/
41338                             (void)0;
41339                         }
41340                         ;
41341                         /*^quasiblock*/
41342
41343
41344                         /*epilog*/
41345
41346                         /*^clear*/
41347                         /*clear*/ /*_#MELT_NEED_DBG__L15*/
41348                         meltfnum[7] = 0 ;
41349                         /*^clear*/
41350                         /*clear*/ /*_._IF___V37*/
41351                         meltfptr[33] = 0 ;
41352                     }
41353
41354 #else /*MELT_HAVE_DEBUG*/
41355                     /*^cppif.else*/
41356                     /*^block*/
41357                     /*anyblock*/
41358                     {
41359
41360
41361                         {
41362                             /*^locexp*/
41363                             /*void*/(void)0;
41364                         }
41365                         ;
41366                         /*epilog*/
41367                     }
41368
41369 #endif /*MELT_HAVE_DEBUG*/
41370                     ;
41371                     MELT_LOCATION("warmelt-normal.melt:3193:/ cond");
41372                     /*cond*/
41373                     if (
41374                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NFUNCTYP__V33*/ meltfptr[26]),
41375                                                       (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11])))
41376                     ) /*then*/
41377                         {
41378                             /*^cond.then*/
41379                             /*^getslot*/
41380                             {
41381                                 melt_ptr_t slot=NULL, obj=NULL;
41382                                 obj = (melt_ptr_t)(/*_.NFUNCTYP__V33*/ meltfptr[26]) /*=obj*/;
41383                                 melt_object_get_field(slot,obj, 1, "NAMED_NAME");
41384                                 /*_.NAMED_NAME__V39*/
41385                                 meltfptr[37] = slot;
41386                             };
41387                             ;
41388                         }
41389                     else    /*^cond.else*/
41390                         {
41391
41392                             /*_.NAMED_NAME__V39*/ meltfptr[37] =  /*reallynil*/ NULL ;;
41393                         }
41394                     ;
41395
41396                     MELT_CHECK_SIGNAL();
41397                     ;
41398                     MELT_LOCATION("warmelt-normal.melt:3192:/ apply");
41399                     /*apply*/
41400                     {
41401                         union meltparam_un argtab[2];
41402                         memset(&argtab, 0, sizeof(argtab));
41403                         /*^apply.arg*/
41404                         argtab[0].meltbp_cstring =  "applied function should be a value, but has bad ctype $1";
41405                         /*^apply.arg*/
41406                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V39*/ meltfptr[37];
41407                         /*_.ERROR_AT__V40*/
41408                         meltfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
41409                     }
41410                     ;
41411
41412                     MELT_CHECK_SIGNAL();
41413                     ;
41414                     /*_#IS_STRING__L17*/
41415                     meltfnum[15] =
41416                         (melt_magic_discr((melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18])) == MELTOBMAG_STRING);;
41417                     MELT_LOCATION("warmelt-normal.melt:3195:/ cond");
41418                     /*cond*/
41419                     if (/*_#IS_STRING__L17*/ meltfnum[15]) /*then*/
41420                         {
41421                             /*^cond.then*/
41422                             /*^block*/
41423                             /*anyblock*/
41424                             {
41425
41426
41427                                 MELT_CHECK_SIGNAL();
41428                                 ;
41429                                 MELT_LOCATION("warmelt-normal.melt:3196:/ apply");
41430                                 /*apply*/
41431                                 {
41432                                     union meltparam_un argtab[2];
41433                                     memset(&argtab, 0, sizeof(argtab));
41434                                     /*^apply.arg*/
41435                                     argtab[0].meltbp_cstring =  "bad applied string \'$1\', not a function";
41436                                     /*^apply.arg*/
41437                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SFUN__V19*/ meltfptr[18];
41438                                     /*_.ERROR_AT__V42*/
41439                                     meltfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
41440                                 }
41441                                 ;
41442                                 /*_._IFELSE___V41*/
41443                                 meltfptr[40] = /*_.ERROR_AT__V42*/ meltfptr[41];;
41444                                 /*epilog*/
41445
41446                                 MELT_LOCATION("warmelt-normal.melt:3195:/ clear");
41447                                 /*clear*/ /*_.ERROR_AT__V42*/
41448                                 meltfptr[41] = 0 ;
41449                             }
41450                             ;
41451                         }
41452                     else    /*^cond.else*/
41453                         {
41454
41455                             /*^block*/
41456                             /*anyblock*/
41457                             {
41458
41459
41460                                 MELT_CHECK_SIGNAL();
41461                                 ;
41462                                 /*_#IS_A__L18*/
41463                                 meltfnum[7] =
41464                                     melt_is_instance_of((melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11])));;
41465                                 MELT_LOCATION("warmelt-normal.melt:3197:/ cond");
41466                                 /*cond*/
41467                                 if (/*_#IS_A__L18*/ meltfnum[7]) /*then*/
41468                                     {
41469                                         /*^cond.then*/
41470                                         /*^block*/
41471                                         /*anyblock*/
41472                                         {
41473
41474                                             MELT_LOCATION("warmelt-normal.melt:3199:/ cond");
41475                                             /*cond*/
41476                                             if (
41477                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18]),
41478                                                                               (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11])))
41479                                             ) /*then*/
41480                                                 {
41481                                                     /*^cond.then*/
41482                                                     /*^getslot*/
41483                                                     {
41484                                                         melt_ptr_t slot=NULL, obj=NULL;
41485                                                         obj = (melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18]) /*=obj*/;
41486                                                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
41487                                                         /*_.NAMED_NAME__V44*/
41488                                                         meltfptr[43] = slot;
41489                                                     };
41490                                                     ;
41491                                                 }
41492                                             else    /*^cond.else*/
41493                                                 {
41494
41495                                                     /*_.NAMED_NAME__V44*/ meltfptr[43] =  /*reallynil*/ NULL ;;
41496                                                 }
41497                                             ;
41498
41499                                             MELT_CHECK_SIGNAL();
41500                                             ;
41501                                             MELT_LOCATION("warmelt-normal.melt:3198:/ apply");
41502                                             /*apply*/
41503                                             {
41504                                                 union meltparam_un argtab[2];
41505                                                 memset(&argtab, 0, sizeof(argtab));
41506                                                 /*^apply.arg*/
41507                                                 argtab[0].meltbp_cstring =  "bad applied function, named $1";
41508                                                 /*^apply.arg*/
41509                                                 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V44*/ meltfptr[43];
41510                                                 /*_.ERROR_AT__V45*/
41511                                                 meltfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
41512                                             }
41513                                             ;
41514                                             /*_._IFELSE___V43*/
41515                                             meltfptr[41] = /*_.ERROR_AT__V45*/ meltfptr[44];;
41516                                             /*epilog*/
41517
41518                                             MELT_LOCATION("warmelt-normal.melt:3197:/ clear");
41519                                             /*clear*/ /*_.NAMED_NAME__V44*/
41520                                             meltfptr[43] = 0 ;
41521                                             /*^clear*/
41522                                             /*clear*/ /*_.ERROR_AT__V45*/
41523                                             meltfptr[44] = 0 ;
41524                                         }
41525                                         ;
41526                                     }
41527                                 else    /*^cond.else*/
41528                                     {
41529
41530                                         /*^block*/
41531                                         /*anyblock*/
41532                                         {
41533
41534
41535                                             MELT_CHECK_SIGNAL();
41536                                             ;
41537                                             /*_#IS_A__L19*/
41538                                             meltfnum[18] =
41539                                                 melt_is_instance_of((melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[12])));;
41540                                             MELT_LOCATION("warmelt-normal.melt:3200:/ cond");
41541                                             /*cond*/
41542                                             if (/*_#IS_A__L19*/ meltfnum[18]) /*then*/
41543                                                 {
41544                                                     /*^cond.then*/
41545                                                     /*^block*/
41546                                                     /*anyblock*/
41547                                                     {
41548
41549                                                         MELT_LOCATION("warmelt-normal.melt:3201:/ cond");
41550                                                         /*cond*/
41551                                                         if (
41552                                                             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18]),
41553                                                                                           (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[12])))
41554                                                         ) /*then*/
41555                                                             {
41556                                                                 /*^cond.then*/
41557                                                                 /*^getslot*/
41558                                                                 {
41559                                                                     melt_ptr_t slot=NULL, obj=NULL;
41560                                                                     obj = (melt_ptr_t)(/*_.SFUN__V19*/ meltfptr[18]) /*=obj*/;
41561                                                                     melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
41562                                                                     /*_.LOCA_LOCATION__V47*/
41563                                                                     meltfptr[44] = slot;
41564                                                                 };
41565                                                                 ;
41566                                                             }
41567                                                         else    /*^cond.else*/
41568                                                             {
41569
41570                                                                 /*_.LOCA_LOCATION__V47*/ meltfptr[44] =  /*reallynil*/ NULL ;;
41571                                                             }
41572                                                         ;
41573
41574                                                         MELT_CHECK_SIGNAL();
41575                                                         ;
41576                                                         MELT_LOCATION("warmelt-normal.melt:3201:/ apply");
41577                                                         /*apply*/
41578                                                         {
41579                                                             union meltparam_un argtab[1];
41580                                                             memset(&argtab, 0, sizeof(argtab));
41581                                                             /*^apply.arg*/
41582                                                             argtab[0].meltbp_cstring =  "here is the wrong applied function";
41583                                                             /*_.ERROR_AT__V48*/
41584                                                             meltfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.LOCA_LOCATION__V47*/ meltfptr[44]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
41585                                                         }
41586                                                         ;
41587                                                         /*_._IFELSE___V46*/
41588                                                         meltfptr[43] = /*_.ERROR_AT__V48*/ meltfptr[47];;
41589                                                         /*epilog*/
41590
41591                                                         MELT_LOCATION("warmelt-normal.melt:3200:/ clear");
41592                                                         /*clear*/ /*_.LOCA_LOCATION__V47*/
41593                                                         meltfptr[44] = 0 ;
41594                                                         /*^clear*/
41595                                                         /*clear*/ /*_.ERROR_AT__V48*/
41596                                                         meltfptr[47] = 0 ;
41597                                                     }
41598                                                     ;
41599                                                 }
41600                                             else    /*^cond.else*/
41601                                                 {
41602
41603                                                     /*_._IFELSE___V46*/ meltfptr[43] =  /*reallynil*/ NULL ;;
41604                                                 }
41605                                             ;
41606                                             /*^compute*/
41607                                             /*_._IFELSE___V43*/
41608                                             meltfptr[41] = /*_._IFELSE___V46*/ meltfptr[43];;
41609                                             /*epilog*/
41610
41611                                             MELT_LOCATION("warmelt-normal.melt:3197:/ clear");
41612                                             /*clear*/ /*_#IS_A__L19*/
41613                                             meltfnum[18] = 0 ;
41614                                             /*^clear*/
41615                                             /*clear*/ /*_._IFELSE___V46*/
41616                                             meltfptr[43] = 0 ;
41617                                         }
41618                                         ;
41619                                     }
41620                                 ;
41621                                 /*_._IFELSE___V41*/
41622                                 meltfptr[40] = /*_._IFELSE___V43*/ meltfptr[41];;
41623                                 /*epilog*/
41624
41625                                 MELT_LOCATION("warmelt-normal.melt:3195:/ clear");
41626                                 /*clear*/ /*_#IS_A__L18*/
41627                                 meltfnum[7] = 0 ;
41628                                 /*^clear*/
41629                                 /*clear*/ /*_._IFELSE___V43*/
41630                                 meltfptr[41] = 0 ;
41631                             }
41632                             ;
41633                         }
41634                     ;
41635                     MELT_LOCATION("warmelt-normal.melt:3190:/ quasiblock");
41636
41637
41638                     /*_.PROGN___V49*/
41639                     meltfptr[44] = /*_._IFELSE___V41*/ meltfptr[40];;
41640                     /*^compute*/
41641                     /*_._IF___V36*/
41642                     meltfptr[34] = /*_.PROGN___V49*/ meltfptr[44];;
41643                     /*epilog*/
41644
41645                     MELT_LOCATION("warmelt-normal.melt:3189:/ clear");
41646                     /*clear*/ /*_.NAMED_NAME__V39*/
41647                     meltfptr[37] = 0 ;
41648                     /*^clear*/
41649                     /*clear*/ /*_.ERROR_AT__V40*/
41650                     meltfptr[33] = 0 ;
41651                     /*^clear*/
41652                     /*clear*/ /*_#IS_STRING__L17*/
41653                     meltfnum[15] = 0 ;
41654                     /*^clear*/
41655                     /*clear*/ /*_._IFELSE___V41*/
41656                     meltfptr[40] = 0 ;
41657                     /*^clear*/
41658                     /*clear*/ /*_.PROGN___V49*/
41659                     meltfptr[44] = 0 ;
41660                 }
41661                 ;
41662             }
41663         else    /*^cond.else*/
41664             {
41665
41666                 /*_._IF___V36*/ meltfptr[34] =  /*reallynil*/ NULL ;;
41667             }
41668         ;
41669         /*^compute*/
41670         /*_.LET___V32*/
41671         meltfptr[30] = /*_._IF___V36*/ meltfptr[34];;
41672
41673         MELT_LOCATION("warmelt-normal.melt:3186:/ clear");
41674         /*clear*/ /*_.NFUNCTYP__V33*/
41675         meltfptr[26] = 0 ;
41676         /*^clear*/
41677         /*clear*/ /*_#exeq__L14*/
41678         meltfnum[1] = 0 ;
41679         /*^clear*/
41680         /*clear*/ /*_._IF___V36*/
41681         meltfptr[34] = 0 ;
41682
41683 #if MELT_HAVE_DEBUG
41684         MELT_LOCATION("warmelt-normal.melt:3204:/ cppif.then");
41685         /*^block*/
41686         /*anyblock*/
41687         {
41688
41689
41690             {
41691                 /*^locexp*/
41692                 /*melt_increment_dbgcounter*/
41693 #if MELT_HAVE_DEBUG
41694                 melt_dbgcounter++;
41695 #endif
41696                 ;
41697             }
41698             ;
41699
41700             MELT_CHECK_SIGNAL();
41701             ;
41702             /*_#MELT_NEED_DBG__L20*/
41703             meltfnum[18] =
41704                 /*MELT_NEED_DBG*/
41705 #if MELT_HAVE_DEBUG
41706                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
41707 #else
41708                 0 /* no melt_need_dbg */
41709 #endif /*MELT_HAVE_DEBUG*/
41710                 ;;
41711             MELT_LOCATION("warmelt-normal.melt:3204:/ cond");
41712             /*cond*/
41713             if (/*_#MELT_NEED_DBG__L20*/ meltfnum[18]) /*then*/
41714                 {
41715                     /*^cond.then*/
41716                     /*^block*/
41717                     /*anyblock*/
41718                     {
41719
41720                         /*_#MELT_CALLCOUNT__L21*/ meltfnum[7] =
41721                             /* for melt_callcount */
41722 #if MELT_HAVE_DEBUG && defined (meltcallcount)
41723                             meltcallcount  /* melt_callcount debugging */
41724 #else
41725                             0L  /* melt_callcount without debug */
41726 #endif /* MELT_HAVE_DEBUG melt_callcount */
41727                             ;;
41728
41729                         MELT_CHECK_SIGNAL();
41730                         ;
41731                         MELT_LOCATION("warmelt-normal.melt:3204:/ apply");
41732                         /*apply*/
41733                         {
41734                             union meltparam_un argtab[7];
41735                             memset(&argtab, 0, sizeof(argtab));
41736                             /*^apply.arg*/
41737                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L21*/ meltfnum[7];
41738                             /*^apply.arg*/
41739                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
41740                             /*^apply.arg*/
41741                             argtab[2].meltbp_long = 3204;
41742                             /*^apply.arg*/
41743                             argtab[3].meltbp_cstring =  "normexp_apply sloc=";
41744                             /*^apply.arg*/
41745                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
41746                             /*^apply.arg*/
41747                             argtab[5].meltbp_cstring =  "; sargs=";
41748                             /*^apply.arg*/
41749                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SARGS__V20*/ meltfptr[19];
41750                             /*_.MELT_DEBUG_FUN__V51*/
41751                             meltfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
41752                         }
41753                         ;
41754                         /*_._IF___V50*/
41755                         meltfptr[47] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[43];;
41756                         /*epilog*/
41757
41758                         MELT_LOCATION("warmelt-normal.melt:3204:/ clear");
41759                         /*clear*/ /*_#MELT_CALLCOUNT__L21*/
41760                         meltfnum[7] = 0 ;
41761                         /*^clear*/
41762                         /*clear*/ /*_.MELT_DEBUG_FUN__V51*/
41763                         meltfptr[43] = 0 ;
41764                     }
41765                     ;
41766                 }
41767             else    /*^cond.else*/
41768                 {
41769
41770                     /*_._IF___V50*/ meltfptr[47] =  /*reallynil*/ NULL ;;
41771                 }
41772             ;
41773
41774             {
41775                 MELT_LOCATION("warmelt-normal.melt:3204:/ locexp");
41776                 /*void*/
41777                 (void)0;
41778             }
41779             ;
41780             /*^quasiblock*/
41781
41782
41783             /*epilog*/
41784
41785             /*^clear*/
41786             /*clear*/ /*_#MELT_NEED_DBG__L20*/
41787             meltfnum[18] = 0 ;
41788             /*^clear*/
41789             /*clear*/ /*_._IF___V50*/
41790             meltfptr[47] = 0 ;
41791         }
41792
41793 #else /*MELT_HAVE_DEBUG*/
41794         /*^cppif.else*/
41795         /*^block*/
41796         /*anyblock*/
41797         {
41798
41799
41800             {
41801                 /*^locexp*/
41802                 /*void*/(void)0;
41803             }
41804             ;
41805             /*epilog*/
41806         }
41807
41808 #endif /*MELT_HAVE_DEBUG*/
41809         ;
41810
41811         MELT_CHECK_SIGNAL();
41812         ;
41813         MELT_LOCATION("warmelt-normal.melt:3205:/ quasiblock");
41814
41815
41816         /*^multiapply*/
41817         /*multiapply 4args, 1x.res*/
41818         {
41819             union meltparam_un argtab[3];
41820
41821             union meltparam_un restab[1];
41822             memset(&restab, 0, sizeof(restab));
41823             memset(&argtab, 0, sizeof(argtab));
41824             /*^multiapply.arg*/
41825             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multiapply.arg*/
41826             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multiapply.arg*/
41827             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
41828             /*^multiapply.xres*/
41829             restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDARGS__V54*/ meltfptr[33];
41830             /*^multiapply.appl*/
41831             /*_.NARGS__V53*/
41832             meltfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SARGS__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
41833         }
41834         ;
41835         /*^quasiblock*/
41836
41837
41838
41839 #if MELT_HAVE_DEBUG
41840         MELT_LOCATION("warmelt-normal.melt:3208:/ cppif.then");
41841         /*^block*/
41842         /*anyblock*/
41843         {
41844
41845
41846             {
41847                 /*^locexp*/
41848                 /*melt_increment_dbgcounter*/
41849 #if MELT_HAVE_DEBUG
41850                 melt_dbgcounter++;
41851 #endif
41852                 ;
41853             }
41854             ;
41855
41856             MELT_CHECK_SIGNAL();
41857             ;
41858             /*_#MELT_NEED_DBG__L22*/
41859             meltfnum[15] =
41860                 /*MELT_NEED_DBG*/
41861 #if MELT_HAVE_DEBUG
41862                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
41863 #else
41864                 0 /* no melt_need_dbg */
41865 #endif /*MELT_HAVE_DEBUG*/
41866                 ;;
41867             MELT_LOCATION("warmelt-normal.melt:3208:/ cond");
41868             /*cond*/
41869             if (/*_#MELT_NEED_DBG__L22*/ meltfnum[15]) /*then*/
41870                 {
41871                     /*^cond.then*/
41872                     /*^block*/
41873                     /*anyblock*/
41874                     {
41875
41876                         /*_#MELT_CALLCOUNT__L23*/ meltfnum[1] =
41877                             /* for melt_callcount */
41878 #if MELT_HAVE_DEBUG && defined (meltcallcount)
41879                             meltcallcount  /* melt_callcount debugging */
41880 #else
41881                             0L  /* melt_callcount without debug */
41882 #endif /* MELT_HAVE_DEBUG melt_callcount */
41883                             ;;
41884
41885                         MELT_CHECK_SIGNAL();
41886                         ;
41887                         MELT_LOCATION("warmelt-normal.melt:3208:/ apply");
41888                         /*apply*/
41889                         {
41890                             union meltparam_un argtab[12];
41891                             memset(&argtab, 0, sizeof(argtab));
41892                             /*^apply.arg*/
41893                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L23*/ meltfnum[1];
41894                             /*^apply.arg*/
41895                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
41896                             /*^apply.arg*/
41897                             argtab[2].meltbp_long = 3208;
41898                             /*^apply.arg*/
41899                             argtab[3].meltbp_cstring =  "normexp_apply";
41900                             /*^apply.arg*/
41901                             argtab[4].meltbp_cstring =  " nargs=";
41902                             /*^apply.arg*/
41903                             argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.NARGS__V53*/ meltfptr[37];
41904                             /*^apply.arg*/
41905                             argtab[6].meltbp_cstring =  "\n.. nbindargs=";
41906                             /*^apply.arg*/
41907                             argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDARGS__V54*/ meltfptr[33];
41908                             /*^apply.arg*/
41909                             argtab[8].meltbp_cstring =  "\n.. sargs=";
41910                             /*^apply.arg*/
41911                             argtab[9].meltbp_aptr = (melt_ptr_t*) &/*_.SARGS__V20*/ meltfptr[19];
41912                             /*^apply.arg*/
41913                             argtab[10].meltbp_cstring =  "\n.. sloc=";
41914                             /*^apply.arg*/
41915                             argtab[11].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
41916                             /*_.MELT_DEBUG_FUN__V56*/
41917                             meltfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
41918                         }
41919                         ;
41920                         /*_._IF___V55*/
41921                         meltfptr[40] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[44];;
41922                         /*epilog*/
41923
41924                         MELT_LOCATION("warmelt-normal.melt:3208:/ clear");
41925                         /*clear*/ /*_#MELT_CALLCOUNT__L23*/
41926                         meltfnum[1] = 0 ;
41927                         /*^clear*/
41928                         /*clear*/ /*_.MELT_DEBUG_FUN__V56*/
41929                         meltfptr[44] = 0 ;
41930                     }
41931                     ;
41932                 }
41933             else    /*^cond.else*/
41934                 {
41935
41936                     /*_._IF___V55*/ meltfptr[40] =  /*reallynil*/ NULL ;;
41937                 }
41938             ;
41939
41940             {
41941                 MELT_LOCATION("warmelt-normal.melt:3208:/ locexp");
41942                 /*void*/
41943                 (void)0;
41944             }
41945             ;
41946             /*^quasiblock*/
41947
41948
41949             /*epilog*/
41950
41951             /*^clear*/
41952             /*clear*/ /*_#MELT_NEED_DBG__L22*/
41953             meltfnum[15] = 0 ;
41954             /*^clear*/
41955             /*clear*/ /*_._IF___V55*/
41956             meltfptr[40] = 0 ;
41957         }
41958
41959 #else /*MELT_HAVE_DEBUG*/
41960         /*^cppif.else*/
41961         /*^block*/
41962         /*anyblock*/
41963         {
41964
41965
41966             {
41967                 /*^locexp*/
41968                 /*void*/(void)0;
41969             }
41970             ;
41971             /*epilog*/
41972         }
41973
41974 #endif /*MELT_HAVE_DEBUG*/
41975         ;
41976
41977 #if MELT_HAVE_DEBUG
41978         MELT_LOCATION("warmelt-normal.melt:3210:/ cppif.then");
41979         /*^block*/
41980         /*anyblock*/
41981         {
41982
41983
41984             MELT_CHECK_SIGNAL();
41985             ;
41986             /*_#IS_LIST_OR_NULL__L24*/
41987             meltfnum[7] =
41988                 ((/*_.NBINDARGS__V54*/ meltfptr[33]) == NULL
41989                  || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDARGS__V54*/ meltfptr[33])) == MELTOBMAG_LIST));;
41990             MELT_LOCATION("warmelt-normal.melt:3210:/ cond");
41991             /*cond*/
41992             if (/*_#IS_LIST_OR_NULL__L24*/ meltfnum[7]) /*then*/
41993                 {
41994                     /*^cond.then*/
41995                     /*_._IFELSE___V58*/ meltfptr[34] = (/*nil*/NULL);;
41996                 }
41997             else
41998                 {
41999                     MELT_LOCATION("warmelt-normal.melt:3210:/ cond.else");
42000
42001                     /*^block*/
42002                     /*anyblock*/
42003                     {
42004
42005
42006                         MELT_CHECK_SIGNAL();
42007                         ;
42008                         /*^apply*/
42009                         /*apply*/
42010                         {
42011                             union meltparam_un argtab[4];
42012                             memset(&argtab, 0, sizeof(argtab));
42013                             /*^apply.arg*/
42014                             argtab[0].meltbp_cstring =  "check nbindargs";
42015                             /*^apply.arg*/
42016                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
42017                             /*^apply.arg*/
42018                             argtab[2].meltbp_long = 3210;
42019                             /*^apply.arg*/
42020                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDARGS__V54*/ meltfptr[33];
42021                             /*_.MELT_ASSERT_FAILURE_FUN__V59*/
42022                             meltfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
42023                         }
42024                         ;
42025                         /*_._IFELSE___V58*/
42026                         meltfptr[34] = /*_.MELT_ASSERT_FAILURE_FUN__V59*/ meltfptr[43];;
42027                         /*epilog*/
42028
42029                         MELT_LOCATION("warmelt-normal.melt:3210:/ clear");
42030                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V59*/
42031                         meltfptr[43] = 0 ;
42032                     }
42033                     ;
42034                 }
42035             ;
42036             /*_.IFCPP___V57*/
42037             meltfptr[26] = /*_._IFELSE___V58*/ meltfptr[34];;
42038             /*epilog*/
42039
42040             MELT_LOCATION("warmelt-normal.melt:3210:/ clear");
42041             /*clear*/ /*_#IS_LIST_OR_NULL__L24*/
42042             meltfnum[7] = 0 ;
42043             /*^clear*/
42044             /*clear*/ /*_._IFELSE___V58*/
42045             meltfptr[34] = 0 ;
42046         }
42047
42048 #else /*MELT_HAVE_DEBUG*/
42049         /*^cppif.else*/
42050         /*_.IFCPP___V57*/ meltfptr[26] = (/*nil*/NULL);
42051 #endif /*MELT_HAVE_DEBUG*/
42052         ;
42053         MELT_LOCATION("warmelt-normal.melt:3212:/ quasiblock");
42054
42055
42056         /*_.NARGFIRST__V61*/
42057         meltfptr[44] =
42058             (melt_multiple_nth((melt_ptr_t)(/*_.NARGS__V53*/ meltfptr[37]), (0)));;
42059
42060 #if MELT_HAVE_DEBUG
42061         MELT_LOCATION("warmelt-normal.melt:3214:/ cppif.then");
42062         /*^block*/
42063         /*anyblock*/
42064         {
42065
42066
42067             {
42068                 /*^locexp*/
42069                 /*melt_increment_dbgcounter*/
42070 #if MELT_HAVE_DEBUG
42071                 melt_dbgcounter++;
42072 #endif
42073                 ;
42074             }
42075             ;
42076
42077             MELT_CHECK_SIGNAL();
42078             ;
42079             /*_#MELT_NEED_DBG__L25*/
42080             meltfnum[18] =
42081                 /*MELT_NEED_DBG*/
42082 #if MELT_HAVE_DEBUG
42083                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
42084 #else
42085                 0 /* no melt_need_dbg */
42086 #endif /*MELT_HAVE_DEBUG*/
42087                 ;;
42088             MELT_LOCATION("warmelt-normal.melt:3214:/ cond");
42089             /*cond*/
42090             if (/*_#MELT_NEED_DBG__L25*/ meltfnum[18]) /*then*/
42091                 {
42092                     /*^cond.then*/
42093                     /*^block*/
42094                     /*anyblock*/
42095                     {
42096
42097                         /*_#MELT_CALLCOUNT__L26*/ meltfnum[1] =
42098                             /* for melt_callcount */
42099 #if MELT_HAVE_DEBUG && defined (meltcallcount)
42100                             meltcallcount  /* melt_callcount debugging */
42101 #else
42102                             0L  /* melt_callcount without debug */
42103 #endif /* MELT_HAVE_DEBUG melt_callcount */
42104                             ;;
42105
42106                         MELT_CHECK_SIGNAL();
42107                         ;
42108                         MELT_LOCATION("warmelt-normal.melt:3214:/ apply");
42109                         /*apply*/
42110                         {
42111                             union meltparam_un argtab[5];
42112                             memset(&argtab, 0, sizeof(argtab));
42113                             /*^apply.arg*/
42114                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L26*/ meltfnum[1];
42115                             /*^apply.arg*/
42116                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
42117                             /*^apply.arg*/
42118                             argtab[2].meltbp_long = 3214;
42119                             /*^apply.arg*/
42120                             argtab[3].meltbp_cstring =  "normexp_apply nargfirst";
42121                             /*^apply.arg*/
42122                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NARGFIRST__V61*/ meltfptr[44];
42123                             /*_.MELT_DEBUG_FUN__V63*/
42124                             meltfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
42125                         }
42126                         ;
42127                         /*_._IF___V62*/
42128                         meltfptr[40] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[43];;
42129                         /*epilog*/
42130
42131                         MELT_LOCATION("warmelt-normal.melt:3214:/ clear");
42132                         /*clear*/ /*_#MELT_CALLCOUNT__L26*/
42133                         meltfnum[1] = 0 ;
42134                         /*^clear*/
42135                         /*clear*/ /*_.MELT_DEBUG_FUN__V63*/
42136                         meltfptr[43] = 0 ;
42137                     }
42138                     ;
42139                 }
42140             else    /*^cond.else*/
42141                 {
42142
42143                     /*_._IF___V62*/ meltfptr[40] =  /*reallynil*/ NULL ;;
42144                 }
42145             ;
42146
42147             {
42148                 MELT_LOCATION("warmelt-normal.melt:3214:/ locexp");
42149                 /*void*/
42150                 (void)0;
42151             }
42152             ;
42153             /*^quasiblock*/
42154
42155
42156             /*epilog*/
42157
42158             /*^clear*/
42159             /*clear*/ /*_#MELT_NEED_DBG__L25*/
42160             meltfnum[18] = 0 ;
42161             /*^clear*/
42162             /*clear*/ /*_._IF___V62*/
42163             meltfptr[40] = 0 ;
42164         }
42165
42166 #else /*MELT_HAVE_DEBUG*/
42167         /*^cppif.else*/
42168         /*^block*/
42169         /*anyblock*/
42170         {
42171
42172
42173             {
42174                 /*^locexp*/
42175                 /*void*/(void)0;
42176             }
42177             ;
42178             /*epilog*/
42179         }
42180
42181 #endif /*MELT_HAVE_DEBUG*/
42182         ;
42183
42184         MELT_CHECK_SIGNAL();
42185         ;
42186         MELT_LOCATION("warmelt-normal.melt:3215:/ cond");
42187         /*cond*/
42188         if (/*_.NARGFIRST__V61*/ meltfptr[44]) /*then*/
42189             {
42190                 /*^cond.then*/
42191                 /*^block*/
42192                 /*anyblock*/
42193                 {
42194
42195                     MELT_LOCATION("warmelt-normal.melt:3216:/ quasiblock");
42196
42197
42198
42199                     MELT_CHECK_SIGNAL();
42200                     ;
42201                     /*^msend*/
42202                     /*msend*/
42203                     {
42204                         union meltparam_un argtab[1];
42205                         memset(&argtab, 0, sizeof(argtab));
42206                         /*^ojbmsend.arg*/
42207                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
42208                         /*_.NARGFIRSTCTYPE__V66*/
42209                         meltfptr[40] = meltgc_send((melt_ptr_t)(/*_.NARGFIRST__V61*/ meltfptr[44]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
42210                     }
42211                     ;
42212
42213 #if MELT_HAVE_DEBUG
42214                     MELT_LOCATION("warmelt-normal.melt:3218:/ cppif.then");
42215                     /*^block*/
42216                     /*anyblock*/
42217                     {
42218
42219
42220                         {
42221                             /*^locexp*/
42222                             /*melt_increment_dbgcounter*/
42223 #if MELT_HAVE_DEBUG
42224                             melt_dbgcounter++;
42225 #endif
42226                             ;
42227                         }
42228                         ;
42229
42230                         MELT_CHECK_SIGNAL();
42231                         ;
42232                         /*_#MELT_NEED_DBG__L27*/
42233                         meltfnum[15] =
42234                             /*MELT_NEED_DBG*/
42235 #if MELT_HAVE_DEBUG
42236                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
42237 #else
42238                             0 /* no melt_need_dbg */
42239 #endif /*MELT_HAVE_DEBUG*/
42240                             ;;
42241                         MELT_LOCATION("warmelt-normal.melt:3218:/ cond");
42242                         /*cond*/
42243                         if (/*_#MELT_NEED_DBG__L27*/ meltfnum[15]) /*then*/
42244                             {
42245                                 /*^cond.then*/
42246                                 /*^block*/
42247                                 /*anyblock*/
42248                                 {
42249
42250                                     /*_#MELT_CALLCOUNT__L28*/ meltfnum[7] =
42251                                         /* for melt_callcount */
42252 #if MELT_HAVE_DEBUG && defined (meltcallcount)
42253                                         meltcallcount  /* melt_callcount debugging */
42254 #else
42255                                         0L  /* melt_callcount without debug */
42256 #endif /* MELT_HAVE_DEBUG melt_callcount */
42257                                         ;;
42258
42259                                     MELT_CHECK_SIGNAL();
42260                                     ;
42261                                     MELT_LOCATION("warmelt-normal.melt:3218:/ apply");
42262                                     /*apply*/
42263                                     {
42264                                         union meltparam_un argtab[5];
42265                                         memset(&argtab, 0, sizeof(argtab));
42266                                         /*^apply.arg*/
42267                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L28*/ meltfnum[7];
42268                                         /*^apply.arg*/
42269                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
42270                                         /*^apply.arg*/
42271                                         argtab[2].meltbp_long = 3218;
42272                                         /*^apply.arg*/
42273                                         argtab[3].meltbp_cstring =  "normexp_apply nargfirstctype=";
42274                                         /*^apply.arg*/
42275                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NARGFIRSTCTYPE__V66*/ meltfptr[40];
42276                                         /*_.MELT_DEBUG_FUN__V68*/
42277                                         meltfptr[67] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
42278                                     }
42279                                     ;
42280                                     /*_._IF___V67*/
42281                                     meltfptr[66] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67];;
42282                                     /*epilog*/
42283
42284                                     MELT_LOCATION("warmelt-normal.melt:3218:/ clear");
42285                                     /*clear*/ /*_#MELT_CALLCOUNT__L28*/
42286                                     meltfnum[7] = 0 ;
42287                                     /*^clear*/
42288                                     /*clear*/ /*_.MELT_DEBUG_FUN__V68*/
42289                                     meltfptr[67] = 0 ;
42290                                 }
42291                                 ;
42292                             }
42293                         else    /*^cond.else*/
42294                             {
42295
42296                                 /*_._IF___V67*/ meltfptr[66] =  /*reallynil*/ NULL ;;
42297                             }
42298                         ;
42299
42300                         {
42301                             MELT_LOCATION("warmelt-normal.melt:3218:/ locexp");
42302                             /*void*/
42303                             (void)0;
42304                         }
42305                         ;
42306                         /*^quasiblock*/
42307
42308
42309                         /*epilog*/
42310
42311                         /*^clear*/
42312                         /*clear*/ /*_#MELT_NEED_DBG__L27*/
42313                         meltfnum[15] = 0 ;
42314                         /*^clear*/
42315                         /*clear*/ /*_._IF___V67*/
42316                         meltfptr[66] = 0 ;
42317                     }
42318
42319 #else /*MELT_HAVE_DEBUG*/
42320                     /*^cppif.else*/
42321                     /*^block*/
42322                     /*anyblock*/
42323                     {
42324
42325
42326                         {
42327                             /*^locexp*/
42328                             /*void*/(void)0;
42329                         }
42330                         ;
42331                         /*epilog*/
42332                     }
42333
42334 #endif /*MELT_HAVE_DEBUG*/
42335                     ;
42336
42337                     MELT_CHECK_SIGNAL();
42338                     ;
42339                     /*_#exeq__L29*/
42340                     meltfnum[1] =
42341                         ((/*_.NARGFIRSTCTYPE__V66*/ meltfptr[40]) != ((/*!CTYPE_VALUE*/ meltfrout->tabval[9])));;
42342                     MELT_LOCATION("warmelt-normal.melt:3219:/ cond");
42343                     /*cond*/
42344                     if (/*_#exeq__L29*/ meltfnum[1]) /*then*/
42345                         {
42346                             /*^cond.then*/
42347                             /*^block*/
42348                             /*anyblock*/
42349                             {
42350
42351                                 MELT_LOCATION("warmelt-normal.melt:3221:/ cond");
42352                                 /*cond*/
42353                                 if (
42354                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NARGFIRSTCTYPE__V66*/ meltfptr[40]),
42355                                                                   (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11])))
42356                                 ) /*then*/
42357                                     {
42358                                         /*^cond.then*/
42359                                         /*^getslot*/
42360                                         {
42361                                             melt_ptr_t slot=NULL, obj=NULL;
42362                                             obj = (melt_ptr_t)(/*_.NARGFIRSTCTYPE__V66*/ meltfptr[40]) /*=obj*/;
42363                                             melt_object_get_field(slot,obj, 1, "NAMED_NAME");
42364                                             /*_.NAMED_NAME__V70*/
42365                                             meltfptr[66] = slot;
42366                                         };
42367                                         ;
42368                                     }
42369                                 else    /*^cond.else*/
42370                                     {
42371
42372                                         /*_.NAMED_NAME__V70*/ meltfptr[66] =  /*reallynil*/ NULL ;;
42373                                     }
42374                                 ;
42375
42376                                 MELT_CHECK_SIGNAL();
42377                                 ;
42378                                 MELT_LOCATION("warmelt-normal.melt:3220:/ apply");
42379                                 /*apply*/
42380                                 {
42381                                     union meltparam_un argtab[2];
42382                                     memset(&argtab, 0, sizeof(argtab));
42383                                     /*^apply.arg*/
42384                                     argtab[0].meltbp_cstring =  "first argument of function application should be a value not a $1";
42385                                     /*^apply.arg*/
42386                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V70*/ meltfptr[66];
42387                                     /*_.ERROR_AT__V71*/
42388                                     meltfptr[70] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
42389                                 }
42390                                 ;
42391                                 /*_._IF___V69*/
42392                                 meltfptr[67] = /*_.ERROR_AT__V71*/ meltfptr[70];;
42393                                 /*epilog*/
42394
42395                                 MELT_LOCATION("warmelt-normal.melt:3219:/ clear");
42396                                 /*clear*/ /*_.NAMED_NAME__V70*/
42397                                 meltfptr[66] = 0 ;
42398                                 /*^clear*/
42399                                 /*clear*/ /*_.ERROR_AT__V71*/
42400                                 meltfptr[70] = 0 ;
42401                             }
42402                             ;
42403                         }
42404                     else    /*^cond.else*/
42405                         {
42406
42407                             /*_._IF___V69*/ meltfptr[67] =  /*reallynil*/ NULL ;;
42408                         }
42409                     ;
42410                     /*^compute*/
42411                     /*_.LET___V65*/
42412                     meltfptr[43] = /*_._IF___V69*/ meltfptr[67];;
42413
42414                     MELT_LOCATION("warmelt-normal.melt:3216:/ clear");
42415                     /*clear*/ /*_.NARGFIRSTCTYPE__V66*/
42416                     meltfptr[40] = 0 ;
42417                     /*^clear*/
42418                     /*clear*/ /*_#exeq__L29*/
42419                     meltfnum[1] = 0 ;
42420                     /*^clear*/
42421                     /*clear*/ /*_._IF___V69*/
42422                     meltfptr[67] = 0 ;
42423                     /*_._IF___V64*/
42424                     meltfptr[34] = /*_.LET___V65*/ meltfptr[43];;
42425                     /*epilog*/
42426
42427                     MELT_LOCATION("warmelt-normal.melt:3215:/ clear");
42428                     /*clear*/ /*_.LET___V65*/
42429                     meltfptr[43] = 0 ;
42430                 }
42431                 ;
42432             }
42433         else    /*^cond.else*/
42434             {
42435
42436                 /*_._IF___V64*/ meltfptr[34] =  /*reallynil*/ NULL ;;
42437             }
42438         ;
42439         /*^compute*/
42440         /*_.LET___V60*/
42441         meltfptr[47] = /*_._IF___V64*/ meltfptr[34];;
42442
42443         MELT_LOCATION("warmelt-normal.melt:3212:/ clear");
42444         /*clear*/ /*_.NARGFIRST__V61*/
42445         meltfptr[44] = 0 ;
42446         /*^clear*/
42447         /*clear*/ /*_._IF___V64*/
42448         meltfptr[34] = 0 ;
42449
42450 #if MELT_HAVE_DEBUG
42451         MELT_LOCATION("warmelt-normal.melt:3225:/ cppif.then");
42452         /*^block*/
42453         /*anyblock*/
42454         {
42455
42456
42457             {
42458                 /*^locexp*/
42459                 /*melt_increment_dbgcounter*/
42460 #if MELT_HAVE_DEBUG
42461                 melt_dbgcounter++;
42462 #endif
42463                 ;
42464             }
42465             ;
42466
42467             MELT_CHECK_SIGNAL();
42468             ;
42469             /*_#MELT_NEED_DBG__L30*/
42470             meltfnum[18] =
42471                 /*MELT_NEED_DBG*/
42472 #if MELT_HAVE_DEBUG
42473                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
42474 #else
42475                 0 /* no melt_need_dbg */
42476 #endif /*MELT_HAVE_DEBUG*/
42477                 ;;
42478             MELT_LOCATION("warmelt-normal.melt:3225:/ cond");
42479             /*cond*/
42480             if (/*_#MELT_NEED_DBG__L30*/ meltfnum[18]) /*then*/
42481                 {
42482                     /*^cond.then*/
42483                     /*^block*/
42484                     /*anyblock*/
42485                     {
42486
42487                         /*_#MELT_CALLCOUNT__L31*/ meltfnum[7] =
42488                             /* for melt_callcount */
42489 #if MELT_HAVE_DEBUG && defined (meltcallcount)
42490                             meltcallcount  /* melt_callcount debugging */
42491 #else
42492                             0L  /* melt_callcount without debug */
42493 #endif /* MELT_HAVE_DEBUG melt_callcount */
42494                             ;;
42495
42496                         MELT_CHECK_SIGNAL();
42497                         ;
42498                         MELT_LOCATION("warmelt-normal.melt:3225:/ apply");
42499                         /*apply*/
42500                         {
42501                             union meltparam_un argtab[11];
42502                             memset(&argtab, 0, sizeof(argtab));
42503                             /*^apply.arg*/
42504                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L31*/ meltfnum[7];
42505                             /*^apply.arg*/
42506                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
42507                             /*^apply.arg*/
42508                             argtab[2].meltbp_long = 3225;
42509                             /*^apply.arg*/
42510                             argtab[3].meltbp_cstring =  "normexp_apply";
42511                             /*^apply.arg*/
42512                             argtab[4].meltbp_cstring =  " before check_ctype_nargs, nargs=";
42513                             /*^apply.arg*/
42514                             argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.NARGS__V53*/ meltfptr[37];
42515                             /*^apply.arg*/
42516                             argtab[6].meltbp_cstring =  "\n.. env=";
42517                             /*^apply.arg*/
42518                             argtab[7].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[14]);
42519                             /*^apply.arg*/
42520                             argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
42521                             /*^apply.arg*/
42522                             argtab[9].meltbp_cstring =  "\n.. sloc=";
42523                             /*^apply.arg*/
42524                             argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
42525                             /*_.MELT_DEBUG_FUN__V73*/
42526                             meltfptr[70] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
42527                         }
42528                         ;
42529                         /*_._IF___V72*/
42530                         meltfptr[66] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[70];;
42531                         /*epilog*/
42532
42533                         MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
42534                         /*clear*/ /*_#MELT_CALLCOUNT__L31*/
42535                         meltfnum[7] = 0 ;
42536                         /*^clear*/
42537                         /*clear*/ /*_.MELT_DEBUG_FUN__V73*/
42538                         meltfptr[70] = 0 ;
42539                     }
42540                     ;
42541                 }
42542             else    /*^cond.else*/
42543                 {
42544
42545                     /*_._IF___V72*/ meltfptr[66] =  /*reallynil*/ NULL ;;
42546                 }
42547             ;
42548
42549             {
42550                 MELT_LOCATION("warmelt-normal.melt:3225:/ locexp");
42551                 /*void*/
42552                 (void)0;
42553             }
42554             ;
42555             /*^quasiblock*/
42556
42557
42558             /*epilog*/
42559
42560             /*^clear*/
42561             /*clear*/ /*_#MELT_NEED_DBG__L30*/
42562             meltfnum[18] = 0 ;
42563             /*^clear*/
42564             /*clear*/ /*_._IF___V72*/
42565             meltfptr[66] = 0 ;
42566         }
42567
42568 #else /*MELT_HAVE_DEBUG*/
42569         /*^cppif.else*/
42570         /*^block*/
42571         /*anyblock*/
42572         {
42573
42574
42575             {
42576                 /*^locexp*/
42577                 /*void*/(void)0;
42578             }
42579             ;
42580             /*epilog*/
42581         }
42582
42583 #endif /*MELT_HAVE_DEBUG*/
42584         ;
42585
42586         MELT_CHECK_SIGNAL();
42587         ;
42588         MELT_LOCATION("warmelt-normal.melt:3227:/ apply");
42589         /*apply*/
42590         {
42591             union meltparam_un argtab[2];
42592             memset(&argtab, 0, sizeof(argtab));
42593             /*^apply.arg*/
42594             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
42595             /*^apply.arg*/
42596             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
42597             /*_.CHECK_CTYPE_NARGS__V74*/
42598             meltfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!CHECK_CTYPE_NARGS*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.NARGS__V53*/ meltfptr[37]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
42599         }
42600         ;
42601
42602 #if MELT_HAVE_DEBUG
42603         MELT_LOCATION("warmelt-normal.melt:3228:/ cppif.then");
42604         /*^block*/
42605         /*anyblock*/
42606         {
42607
42608
42609             {
42610                 /*^locexp*/
42611                 /*melt_increment_dbgcounter*/
42612 #if MELT_HAVE_DEBUG
42613                 melt_dbgcounter++;
42614 #endif
42615                 ;
42616             }
42617             ;
42618
42619             MELT_CHECK_SIGNAL();
42620             ;
42621             /*_#MELT_NEED_DBG__L32*/
42622             meltfnum[15] =
42623                 /*MELT_NEED_DBG*/
42624 #if MELT_HAVE_DEBUG
42625                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
42626 #else
42627                 0 /* no melt_need_dbg */
42628 #endif /*MELT_HAVE_DEBUG*/
42629                 ;;
42630             MELT_LOCATION("warmelt-normal.melt:3228:/ cond");
42631             /*cond*/
42632             if (/*_#MELT_NEED_DBG__L32*/ meltfnum[15]) /*then*/
42633                 {
42634                     /*^cond.then*/
42635                     /*^block*/
42636                     /*anyblock*/
42637                     {
42638
42639                         /*_#MELT_CALLCOUNT__L33*/ meltfnum[1] =
42640                             /* for melt_callcount */
42641 #if MELT_HAVE_DEBUG && defined (meltcallcount)
42642                             meltcallcount  /* melt_callcount debugging */
42643 #else
42644                             0L  /* melt_callcount without debug */
42645 #endif /* MELT_HAVE_DEBUG melt_callcount */
42646                             ;;
42647
42648                         MELT_CHECK_SIGNAL();
42649                         ;
42650                         MELT_LOCATION("warmelt-normal.melt:3228:/ apply");
42651                         /*apply*/
42652                         {
42653                             union meltparam_un argtab[6];
42654                             memset(&argtab, 0, sizeof(argtab));
42655                             /*^apply.arg*/
42656                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L33*/ meltfnum[1];
42657                             /*^apply.arg*/
42658                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
42659                             /*^apply.arg*/
42660                             argtab[2].meltbp_long = 3228;
42661                             /*^apply.arg*/
42662                             argtab[3].meltbp_cstring =  "normexp_apply";
42663                             /*^apply.arg*/
42664                             argtab[4].meltbp_cstring =  " after check_ctype_nargs sloc=";
42665                             /*^apply.arg*/
42666                             argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[5];
42667                             /*_.MELT_DEBUG_FUN__V76*/
42668                             meltfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
42669                         }
42670                         ;
42671                         /*_._IF___V75*/
42672                         meltfptr[67] = /*_.MELT_DEBUG_FUN__V76*/ meltfptr[43];;
42673                         /*epilog*/
42674
42675                         MELT_LOCATION("warmelt-normal.melt:3228:/ clear");
42676                         /*clear*/ /*_#MELT_CALLCOUNT__L33*/
42677                         meltfnum[1] = 0 ;
42678                         /*^clear*/
42679                         /*clear*/ /*_.MELT_DEBUG_FUN__V76*/
42680                         meltfptr[43] = 0 ;
42681                     }
42682                     ;
42683                 }
42684             else    /*^cond.else*/
42685                 {
42686
42687                     /*_._IF___V75*/ meltfptr[67] =  /*reallynil*/ NULL ;;
42688                 }
42689             ;
42690
42691             {
42692                 MELT_LOCATION("warmelt-normal.melt:3228:/ locexp");
42693                 /*void*/
42694                 (void)0;
42695             }
42696             ;
42697             /*^quasiblock*/
42698
42699
42700             /*epilog*/
42701
42702             /*^clear*/
42703             /*clear*/ /*_#MELT_NEED_DBG__L32*/
42704             meltfnum[15] = 0 ;
42705             /*^clear*/
42706             /*clear*/ /*_._IF___V75*/
42707             meltfptr[67] = 0 ;
42708         }
42709
42710 #else /*MELT_HAVE_DEBUG*/
42711         /*^cppif.else*/
42712         /*^block*/
42713         /*anyblock*/
42714         {
42715
42716
42717             {
42718                 /*^locexp*/
42719                 /*void*/(void)0;
42720             }
42721             ;
42722             /*epilog*/
42723         }
42724
42725 #endif /*MELT_HAVE_DEBUG*/
42726         ;
42727
42728         MELT_CHECK_SIGNAL();
42729         ;
42730         MELT_LOCATION("warmelt-normal.melt:3229:/ apply");
42731         /*apply*/
42732         {
42733             union meltparam_un argtab[1];
42734             memset(&argtab, 0, sizeof(argtab));
42735             /*^apply.arg*/
42736             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDFUN__V26*/ meltfptr[25];
42737             /*_.LIST_APPEND2LIST__V77*/
42738             meltfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.NBINDARGS__V54*/ meltfptr[33]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
42739         }
42740         ;
42741         /*^compute*/
42742         /*_.NBINDARGS__V54*/
42743         meltfptr[33] = /*_.SETQ___V78*/ meltfptr[34] = /*_.LIST_APPEND2LIST__V77*/ meltfptr[44];;
42744         MELT_LOCATION("warmelt-normal.melt:3231:/ quasiblock");
42745
42746
42747
42748         MELT_CHECK_SIGNAL();
42749         ;
42750         /*^apply*/
42751         /*apply*/
42752         {
42753             /*_.CINTSYM__V80*/ meltfptr[66] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.SFUSYMB__V21*/ meltfptr[20]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
42754         }
42755         ;
42756
42757         MELT_CHECK_SIGNAL();
42758         ;
42759         MELT_LOCATION("warmelt-normal.melt:3232:/ quasiblock");
42760
42761
42762         /*^rawallocobj*/
42763         /*rawallocobj*/
42764         {
42765             melt_ptr_t newobj = 0;
42766             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHECKSIGNAL*/ meltfrout->tabval[18])), (1), "CLASS_NREP_CHECKSIGNAL");
42767             /*_.INST__V82*/
42768             meltfptr[67] =
42769                 newobj;
42770         };
42771         ;
42772         /*^putslot*/
42773         /*putslot*/
42774         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[67])) == MELTOBMAG_OBJECT);
42775         melt_putfield_object((/*_.INST__V82*/ meltfptr[67]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
42776         ;
42777         /*^touchobj*/
42778
42779         melt_dbgtrace_written_object (/*_.INST__V82*/ meltfptr[67], "newly made instance");
42780         ;
42781         /*_.NCHINT__V81*/
42782         meltfptr[43] = /*_.INST__V82*/ meltfptr[67];;
42783
42784         MELT_CHECK_SIGNAL();
42785         ;
42786         MELT_LOCATION("warmelt-normal.melt:3234:/ quasiblock");
42787
42788
42789         /*^rawallocobj*/
42790         /*rawallocobj*/
42791         {
42792             melt_ptr_t newobj = 0;
42793             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[19])), (4), "CLASS_NORMAL_LET_BINDING");
42794             /*_.INST__V84*/
42795             meltfptr[83] =
42796                 newobj;
42797         };
42798         ;
42799         /*^putslot*/
42800         /*putslot*/
42801         melt_assertmsg("checkobj putslot  _ @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V84*/ meltfptr[83])) == MELTOBMAG_OBJECT);
42802         melt_putfield_object((/*_.INST__V84*/ meltfptr[83]), (3), (/*_.SLOC__V18*/ meltfptr[5]), "LETBIND_LOC");
42803         ;
42804         /*^putslot*/
42805         /*putslot*/
42806         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V84*/ meltfptr[83])) == MELTOBMAG_OBJECT);
42807         melt_putfield_object((/*_.INST__V84*/ meltfptr[83]), (0), (/*_.CINTSYM__V80*/ meltfptr[66]), "BINDER");
42808         ;
42809         /*^putslot*/
42810         /*putslot*/
42811         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V84*/ meltfptr[83])) == MELTOBMAG_OBJECT);
42812         melt_putfield_object((/*_.INST__V84*/ meltfptr[83]), (1), ((/*!CTYPE_VOID*/ meltfrout->tabval[20])), "LETBIND_TYPE");
42813         ;
42814         /*^putslot*/
42815         /*putslot*/
42816         melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V84*/ meltfptr[83])) == MELTOBMAG_OBJECT);
42817         melt_putfield_object((/*_.INST__V84*/ meltfptr[83]), (2), (/*_.NCHINT__V81*/ meltfptr[43]), "LETBIND_EXPR");
42818         ;
42819         /*^touchobj*/
42820
42821         melt_dbgtrace_written_object (/*_.INST__V84*/ meltfptr[83], "newly made instance");
42822         ;
42823         /*_.CINTBIND__V83*/
42824         meltfptr[82] = /*_.INST__V84*/ meltfptr[83];;
42825
42826         MELT_CHECK_SIGNAL();
42827         ;
42828         /*^compute*/
42829         /*_#NULL__L34*/
42830         meltfnum[7] =
42831             (/*null*/(/*_.NBINDARGS__V54*/ meltfptr[33]) == NULL);;
42832         MELT_LOCATION("warmelt-normal.melt:3240:/ cond");
42833         /*cond*/
42834         if (/*_#NULL__L34*/ meltfnum[7]) /*then*/
42835             {
42836                 /*^cond.then*/
42837                 /*^block*/
42838                 /*anyblock*/
42839                 {
42840
42841                     MELT_LOCATION("warmelt-normal.melt:3241:/ blockmultialloc");
42842                     /*multiallocblock*/
42843                     {
42844                         struct meltletrec_1_st
42845                         {
42846                             struct meltpair_st rpair_0__CINTBIND_x1;
42847                             struct meltlist_st rlist_1__LIST_;
42848                             long meltletrec_1_endgap;
42849                         } *meltletrec_1_ptr = 0;
42850                         meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0);
42851                         /*^blockmultialloc.initfill*/
42852                         /*inipair rpair_0__CINTBIND_x1*/
42853                         /*_.CINTBIND__V87*/
42854                         meltfptr[86] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x1;
42855                         meltletrec_1_ptr->rpair_0__CINTBIND_x1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR))));
42856
42857                         /*inilist rlist_1__LIST_*/
42858                         /*_.LIST___V88*/
42859                         meltfptr[87] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_;
42860                         meltletrec_1_ptr->rlist_1__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST))));
42861
42862
42863
42864                         /*^putpairhead*/
42865                         /*putpairhead*/
42866                         melt_assertmsg("putpairhead /2 checkpair", melt_magic_discr((melt_ptr_t)(/*_.CINTBIND__V87*/ meltfptr[86]))== MELTOBMAG_PAIR);
42867                         ((meltpair_ptr_t)(/*_.CINTBIND__V87*/ meltfptr[86]))->hd = (melt_ptr_t) (/*_.CINTBIND__V83*/ meltfptr[82]);
42868                         ;
42869                         /*^touch*/
42870                         meltgc_touch(/*_.CINTBIND__V87*/ meltfptr[86]);
42871                         ;
42872                         /*^putlist*/
42873                         /*putlist*/
42874                         melt_assertmsg("putlist checklist", melt_magic_discr((melt_ptr_t)(/*_.LIST___V88*/ meltfptr[87]))== MELTOBMAG_LIST);
42875                         ((meltlist_ptr_t)(/*_.LIST___V88*/ meltfptr[87]))->first = (meltpair_ptr_t) (/*_.CINTBIND__V87*/ meltfptr[86]);
42876                         ((meltlist_ptr_t)(/*_.LIST___V88*/ meltfptr[87]))->last = (meltpair_ptr_t) (/*_.CINTBIND__V87*/ meltfptr[86]);
42877                         ;
42878                         /*^touch*/
42879                         meltgc_touch(/*_.LIST___V88*/ meltfptr[87]);
42880                         ;
42881                         /*_.LIST___V86*/
42882                         meltfptr[85] = /*_.LIST___V88*/ meltfptr[87];;
42883                         /*epilog*/
42884
42885                         MELT_LOCATION("warmelt-normal.melt:3241:/ clear");
42886                         /*clear*/ /*_.CINTBIND__V87*/
42887                         meltfptr[86] = 0 ;
42888                         /*^clear*/
42889                         /*clear*/ /*_.LIST___V88*/
42890                         meltfptr[87] = 0 ;
42891                         /*^clear*/
42892                         /*clear*/ /*_.CINTBIND__V87*/
42893                         meltfptr[86] = 0 ;
42894                         /*^clear*/
42895                         /*clear*/ /*_.LIST___V88*/
42896                         meltfptr[87] = 0 ;
42897                     } /*end multiallocblock*/
42898                     ;
42899                     /*^compute*/
42900                     /*_.NBINDARGS__V54*/
42901                     meltfptr[33] = /*_.SETQ___V89*/ meltfptr[86] = /*_.LIST___V86*/ meltfptr[85];;
42902                     /*_._IFELSE___V85*/
42903                     meltfptr[84] = /*_.SETQ___V89*/ meltfptr[86];;
42904                     /*epilog*/
42905
42906                     MELT_LOCATION("warmelt-normal.melt:3240:/ clear");
42907                     /*clear*/ /*_.LIST___V86*/
42908                     meltfptr[85] = 0 ;
42909                     /*^clear*/
42910                     /*clear*/ /*_.SETQ___V89*/
42911                     meltfptr[86] = 0 ;
42912                 }
42913                 ;
42914             }
42915         else    /*^cond.else*/
42916             {
42917
42918                 /*^block*/
42919                 /*anyblock*/
42920                 {
42921
42922
42923
42924
42925                     {
42926                         MELT_LOCATION("warmelt-normal.melt:3242:/ locexp");
42927                         meltgc_append_list((melt_ptr_t)(/*_.NBINDARGS__V54*/ meltfptr[33]), (melt_ptr_t)(/*_.CINTBIND__V83*/ meltfptr[82]));
42928                     }
42929                     ;
42930                     /*clear*/ /*_._IFELSE___V85*/
42931                     meltfptr[84] = 0 ;
42932                     /*epilog*/
42933                 }
42934                 ;
42935             }
42936         ;
42937         /*^compute*/
42938         /*_.LET___V79*/
42939         meltfptr[70] = /*_._IFELSE___V85*/ meltfptr[84];;
42940
42941         MELT_LOCATION("warmelt-normal.melt:3231:/ clear");
42942         /*clear*/ /*_.CINTSYM__V80*/
42943         meltfptr[66] = 0 ;
42944         /*^clear*/
42945         /*clear*/ /*_.NCHINT__V81*/
42946         meltfptr[43] = 0 ;
42947         /*^clear*/
42948         /*clear*/ /*_.CINTBIND__V83*/
42949         meltfptr[82] = 0 ;
42950         /*^clear*/
42951         /*clear*/ /*_#NULL__L34*/
42952         meltfnum[7] = 0 ;
42953         /*^clear*/
42954         /*clear*/ /*_._IFELSE___V85*/
42955         meltfptr[84] = 0 ;
42956
42957 #if MELT_HAVE_DEBUG
42958         MELT_LOCATION("warmelt-normal.melt:3244:/ cppif.then");
42959         /*^block*/
42960         /*anyblock*/
42961         {
42962
42963
42964             MELT_CHECK_SIGNAL();
42965             ;
42966             /*_#IS_LIST__L35*/
42967             meltfnum[18] =
42968                 (melt_magic_discr((melt_ptr_t)(/*_.NBINDARGS__V54*/ meltfptr[33])) == MELTOBMAG_LIST);;
42969             MELT_LOCATION("warmelt-normal.melt:3244:/ cond");
42970             /*cond*/
42971             if (/*_#IS_LIST__L35*/ meltfnum[18]) /*then*/
42972                 {
42973                     /*^cond.then*/
42974                     /*_._IFELSE___V91*/ meltfptr[85] = (/*nil*/NULL);;
42975                 }
42976             else
42977                 {
42978                     MELT_LOCATION("warmelt-normal.melt:3244:/ cond.else");
42979
42980                     /*^block*/
42981                     /*anyblock*/
42982                     {
42983
42984
42985                         MELT_CHECK_SIGNAL();
42986                         ;
42987                         /*^apply*/
42988                         /*apply*/
42989                         {
42990                             union meltparam_un argtab[4];
42991                             memset(&argtab, 0, sizeof(argtab));
42992                             /*^apply.arg*/
42993                             argtab[0].meltbp_cstring =  "check nbindargs";
42994                             /*^apply.arg*/
42995                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
42996                             /*^apply.arg*/
42997                             argtab[2].meltbp_long = 3244;
42998                             /*^apply.arg*/
42999                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDARGS__V54*/ meltfptr[33];
43000                             /*_.MELT_ASSERT_FAILURE_FUN__V92*/
43001                             meltfptr[86] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
43002                         }
43003                         ;
43004                         /*_._IFELSE___V91*/
43005                         meltfptr[85] = /*_.MELT_ASSERT_FAILURE_FUN__V92*/ meltfptr[86];;
43006                         /*epilog*/
43007
43008                         MELT_LOCATION("warmelt-normal.melt:3244:/ clear");
43009                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V92*/
43010                         meltfptr[86] = 0 ;
43011                     }
43012                     ;
43013                 }
43014             ;
43015             /*_.IFCPP___V90*/
43016             meltfptr[87] = /*_._IFELSE___V91*/ meltfptr[85];;
43017             /*epilog*/
43018
43019             MELT_LOCATION("warmelt-normal.melt:3244:/ clear");
43020             /*clear*/ /*_#IS_LIST__L35*/
43021             meltfnum[18] = 0 ;
43022             /*^clear*/
43023             /*clear*/ /*_._IFELSE___V91*/
43024             meltfptr[85] = 0 ;
43025         }
43026
43027 #else /*MELT_HAVE_DEBUG*/
43028         /*^cppif.else*/
43029         /*_.IFCPP___V90*/ meltfptr[87] = (/*nil*/NULL);
43030 #endif /*MELT_HAVE_DEBUG*/
43031         ;
43032         MELT_LOCATION("warmelt-normal.melt:3246:/ quasiblock");
43033
43034
43035
43036         MELT_CHECK_SIGNAL();
43037         ;
43038         /*^apply*/
43039         /*apply*/
43040         {
43041             /*_.CSYM__V94*/ meltfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.SFUSYMB__V21*/ meltfptr[20]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
43042         }
43043         ;
43044
43045         MELT_CHECK_SIGNAL();
43046         ;
43047
43048         MELT_CHECK_SIGNAL();
43049         ;
43050         MELT_LOCATION("warmelt-normal.melt:3252:/ quasiblock");
43051
43052
43053         /*^rawallocobj*/
43054         /*rawallocobj*/
43055         {
43056             melt_ptr_t newobj = 0;
43057             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_APPLY*/ meltfrout->tabval[21])), (4), "CLASS_NREP_APPLY");
43058             /*_.INST__V96*/
43059             meltfptr[84] =
43060                 newobj;
43061         };
43062         ;
43063         /*^putslot*/
43064         /*putslot*/
43065         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V96*/ meltfptr[84])) == MELTOBMAG_OBJECT);
43066         melt_putfield_object((/*_.INST__V96*/ meltfptr[84]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
43067         ;
43068         /*^putslot*/
43069         /*putslot*/
43070         melt_assertmsg("checkobj putslot  _ @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V96*/ meltfptr[84])) == MELTOBMAG_OBJECT);
43071         melt_putfield_object((/*_.INST__V96*/ meltfptr[84]), (1), ((/*!CTYPE_VALUE*/ meltfrout->tabval[9])), "NEXPR_CTYP");
43072         ;
43073         /*^putslot*/
43074         /*putslot*/
43075         melt_assertmsg("checkobj putslot  _ @NAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V96*/ meltfptr[84])) == MELTOBMAG_OBJECT);
43076         melt_putfield_object((/*_.INST__V96*/ meltfptr[84]), (3), (/*_.NFUN__V25*/ meltfptr[21]), "NAPP_FUN");
43077         ;
43078         /*^putslot*/
43079         /*putslot*/
43080         melt_assertmsg("checkobj putslot  _ @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V96*/ meltfptr[84])) == MELTOBMAG_OBJECT);
43081         melt_putfield_object((/*_.INST__V96*/ meltfptr[84]), (2), (/*_.NARGS__V53*/ meltfptr[37]), "NEXPR_ARGS");
43082         ;
43083         /*^touchobj*/
43084
43085         melt_dbgtrace_written_object (/*_.INST__V96*/ meltfptr[84], "newly made instance");
43086         ;
43087         /*_.INST___V95*/
43088         meltfptr[82] = /*_.INST__V96*/ meltfptr[84];;
43089         MELT_LOCATION("warmelt-normal.melt:3247:/ quasiblock");
43090
43091
43092         /*^rawallocobj*/
43093         /*rawallocobj*/
43094         {
43095             melt_ptr_t newobj = 0;
43096             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[19])), (4), "CLASS_NORMAL_LET_BINDING");
43097             /*_.INST__V98*/
43098             meltfptr[85] =
43099                 newobj;
43100         };
43101         ;
43102         /*^putslot*/
43103         /*putslot*/
43104         melt_assertmsg("checkobj putslot  _ @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[85])) == MELTOBMAG_OBJECT);
43105         melt_putfield_object((/*_.INST__V98*/ meltfptr[85]), (3), (/*_.SLOC__V18*/ meltfptr[5]), "LETBIND_LOC");
43106         ;
43107         /*^putslot*/
43108         /*putslot*/
43109         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[85])) == MELTOBMAG_OBJECT);
43110         melt_putfield_object((/*_.INST__V98*/ meltfptr[85]), (0), (/*_.CSYM__V94*/ meltfptr[43]), "BINDER");
43111         ;
43112         /*^putslot*/
43113         /*putslot*/
43114         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[85])) == MELTOBMAG_OBJECT);
43115         melt_putfield_object((/*_.INST__V98*/ meltfptr[85]), (1), ((/*!CTYPE_VALUE*/ meltfrout->tabval[9])), "LETBIND_TYPE");
43116         ;
43117         /*^putslot*/
43118         /*putslot*/
43119         melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[85])) == MELTOBMAG_OBJECT);
43120         melt_putfield_object((/*_.INST__V98*/ meltfptr[85]), (2), (/*_.INST___V95*/ meltfptr[82]), "LETBIND_EXPR");
43121         ;
43122         /*^touchobj*/
43123
43124         melt_dbgtrace_written_object (/*_.INST__V98*/ meltfptr[85], "newly made instance");
43125         ;
43126         /*_.CBIND__V97*/
43127         meltfptr[86] = /*_.INST__V98*/ meltfptr[85];;
43128
43129         MELT_CHECK_SIGNAL();
43130         ;
43131         MELT_LOCATION("warmelt-normal.melt:3258:/ quasiblock");
43132
43133
43134         /*^rawallocobj*/
43135         /*rawallocobj*/
43136         {
43137             melt_ptr_t newobj = 0;
43138             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[22])), (4), "CLASS_NREP_LOCSYMOCC");
43139             /*_.INST__V100*/
43140             meltfptr[99] =
43141                 newobj;
43142         };
43143         ;
43144         /*^putslot*/
43145         /*putslot*/
43146         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V100*/ meltfptr[99])) == MELTOBMAG_OBJECT);
43147         melt_putfield_object((/*_.INST__V100*/ meltfptr[99]), (0), (/*_.SLOC__V18*/ meltfptr[5]), "NREP_LOC");
43148         ;
43149         /*^putslot*/
43150         /*putslot*/
43151         melt_assertmsg("checkobj putslot  _ @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V100*/ meltfptr[99])) == MELTOBMAG_OBJECT);
43152         melt_putfield_object((/*_.INST__V100*/ meltfptr[99]), (2), ((/*!CTYPE_VALUE*/ meltfrout->tabval[9])), "NOCC_CTYP");
43153         ;
43154         /*^putslot*/
43155         /*putslot*/
43156         melt_assertmsg("checkobj putslot  _ @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V100*/ meltfptr[99])) == MELTOBMAG_OBJECT);
43157         melt_putfield_object((/*_.INST__V100*/ meltfptr[99]), (1), (/*_.CSYM__V94*/ meltfptr[43]), "NOCC_SYMB");
43158         ;
43159         /*^putslot*/
43160         /*putslot*/
43161         melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V100*/ meltfptr[99])) == MELTOBMAG_OBJECT);
43162         melt_putfield_object((/*_.INST__V100*/ meltfptr[99]), (3), (/*_.CBIND__V97*/ meltfptr[86]), "NOCC_BIND");
43163         ;
43164         /*^touchobj*/
43165
43166         melt_dbgtrace_written_object (/*_.INST__V100*/ meltfptr[99], "newly made instance");
43167         ;
43168         /*_.CLOCC__V99*/
43169         meltfptr[98] = /*_.INST__V100*/ meltfptr[99];;
43170
43171         {
43172             MELT_LOCATION("warmelt-normal.melt:3265:/ locexp");
43173             meltgc_append_list((melt_ptr_t)(/*_.NBINDARGS__V54*/ meltfptr[33]), (melt_ptr_t)(/*_.CBIND__V97*/ meltfptr[86]));
43174         }
43175         ;
43176
43177         MELT_CHECK_SIGNAL();
43178         ;
43179         MELT_LOCATION("warmelt-normal.melt:3266:/ quasiblock");
43180
43181
43182         /*_._RETVAL___V1*/
43183         meltfptr[0] = /*_.CLOCC__V99*/ meltfptr[98];;
43184         MELT_LOCATION("warmelt-normal.melt:3266:/ putxtraresult");
43185         if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
43186         if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
43187         if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.NBINDARGS__V54*/ meltfptr[33]);
43188         ;
43189         /*^finalreturn*/
43190         ;
43191         /*finalret*/
43192         goto meltlabend_rout ;
43193         /*_.LET___V93*/
43194         meltfptr[66] = /*_.RETURN___V101*/ meltfptr[100];;
43195
43196         MELT_LOCATION("warmelt-normal.melt:3246:/ clear");
43197         /*clear*/ /*_.CSYM__V94*/
43198         meltfptr[43] = 0 ;
43199         /*^clear*/
43200         /*clear*/ /*_.INST___V95*/
43201         meltfptr[82] = 0 ;
43202         /*^clear*/
43203         /*clear*/ /*_.CBIND__V97*/
43204         meltfptr[86] = 0 ;
43205         /*^clear*/
43206         /*clear*/ /*_.CLOCC__V99*/
43207         meltfptr[98] = 0 ;
43208         /*^clear*/
43209         /*clear*/ /*_.RETURN___V101*/
43210         meltfptr[100] = 0 ;
43211
43212         MELT_CHECK_SIGNAL();
43213         ;
43214         /*_.MULTI___V52*/
43215         meltfptr[41] = /*_.LET___V93*/ meltfptr[66];;
43216
43217         MELT_LOCATION("warmelt-normal.melt:3205:/ clear");
43218         /*clear*/ /*_.IFCPP___V57*/
43219         meltfptr[26] = 0 ;
43220         /*^clear*/
43221         /*clear*/ /*_.LET___V60*/
43222         meltfptr[47] = 0 ;
43223         /*^clear*/
43224         /*clear*/ /*_.CHECK_CTYPE_NARGS__V74*/
43225         meltfptr[40] = 0 ;
43226         /*^clear*/
43227         /*clear*/ /*_.LIST_APPEND2LIST__V77*/
43228         meltfptr[44] = 0 ;
43229         /*^clear*/
43230         /*clear*/ /*_.SETQ___V78*/
43231         meltfptr[34] = 0 ;
43232         /*^clear*/
43233         /*clear*/ /*_.LET___V79*/
43234         meltfptr[70] = 0 ;
43235         /*^clear*/
43236         /*clear*/ /*_.IFCPP___V90*/
43237         meltfptr[87] = 0 ;
43238         /*^clear*/
43239         /*clear*/ /*_.LET___V93*/
43240         meltfptr[66] = 0 ;
43241
43242         /*^clear*/
43243         /*clear*/ /*_.NBINDARGS__V54*/
43244         meltfptr[33] = 0 ;
43245
43246         MELT_CHECK_SIGNAL();
43247         ;
43248         /*_.MULTI___V24*/
43249         meltfptr[22] = /*_.MULTI___V52*/ meltfptr[41];;
43250
43251         MELT_LOCATION("warmelt-normal.melt:3181:/ clear");
43252         /*clear*/ /*_.IFCPP___V29*/
43253         meltfptr[27] = 0 ;
43254         /*^clear*/
43255         /*clear*/ /*_.LET___V32*/
43256         meltfptr[30] = 0 ;
43257         /*^clear*/
43258         /*clear*/ /*_.MULTI___V52*/
43259         meltfptr[41] = 0 ;
43260
43261         /*^clear*/
43262         /*clear*/ /*_.NBINDFUN__V26*/
43263         meltfptr[25] = 0 ;
43264         /*_.LET___V17*/
43265         meltfptr[15] = /*_.MULTI___V24*/ meltfptr[22];;
43266
43267         MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
43268         /*clear*/ /*_.SLOC__V18*/
43269         meltfptr[5] = 0 ;
43270         /*^clear*/
43271         /*clear*/ /*_.SFUN__V19*/
43272         meltfptr[18] = 0 ;
43273         /*^clear*/
43274         /*clear*/ /*_.SARGS__V20*/
43275         meltfptr[19] = 0 ;
43276         /*^clear*/
43277         /*clear*/ /*_#IS_A__L6*/
43278         meltfnum[0] = 0 ;
43279         /*^clear*/
43280         /*clear*/ /*_.SFUSYMB__V21*/
43281         meltfptr[20] = 0 ;
43282         /*^clear*/
43283         /*clear*/ /*_.MULTI___V24*/
43284         meltfptr[22] = 0 ;
43285
43286         MELT_CHECK_SIGNAL();
43287         ;
43288         MELT_LOCATION("warmelt-normal.melt:3169:/ quasiblock");
43289
43290
43291         /*_._RETVAL___V1*/
43292         meltfptr[0] = /*_.LET___V17*/ meltfptr[15];;
43293
43294         {
43295             MELT_LOCATION("warmelt-normal.melt:3169:/ locexp");
43296             /*ochecknores compilobj_nrep_return*/
43297 #if MELT_HAVE_DEBUG
43298             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
43299                 melt_warn_for_no_expected_secondary_results();
43300             /* we warned when secondary results are expected but not returned. */
43301 #endif /*MELT_HAVE_DEBUG*/
43302             ;
43303         }
43304         ;
43305         /*^finalreturn*/
43306         ;
43307         /*finalret*/
43308         goto meltlabend_rout ;
43309         /*epilog*/
43310
43311         /*^clear*/
43312         /*clear*/ /*_.IFCPP___V8*/
43313         meltfptr[6] = 0 ;
43314         /*^clear*/
43315         /*clear*/ /*_.IFCPP___V11*/
43316         meltfptr[9] = 0 ;
43317         /*^clear*/
43318         /*clear*/ /*_.IFCPP___V14*/
43319         meltfptr[12] = 0 ;
43320         /*^clear*/
43321         /*clear*/ /*_.LET___V17*/
43322         meltfptr[15] = 0 ;
43323     }
43324
43325     ;
43326     goto meltlabend_rout;
43327 meltlabend_rout:
43328     melt_trace_end("NORMEXP_APPLY", meltcallcount);
43329     melt_blocklevel_signals = current_blocklevel_signals_meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY_melt;
43330     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
43331 #undef meltcallcount
43332 #undef meltfram__
43333 #undef MELTFRAM_NBVARNUM
43334 #undef MELTFRAM_NBVARPTR
43335 } /*end meltrout_48_WARMELTmiNORMAL_NORMEXP_APPLY*/
43336
43337
43338
43339
43340
43341
43342 melt_ptr_t MELT_MODULE_VISIBILITY
43343 meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
43344         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
43345 {
43346     long current_blocklevel_signals_meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND_melt =  melt_blocklevel_signals;
43347
43348 #if MELT_HAVE_DEBUG
43349     static long melt_call_counter__;
43350     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
43351 #undef meltcallcount
43352 #define meltcallcount melt_thiscallcounter__
43353 #else
43354 #undef meltcallcount
43355 #define meltcallcount 0L
43356 #endif
43357 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
43358
43359     /* start of frame for routine meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND fromline 1752 */
43360
43361     /** start of frame for meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND of CLASS_PROCROUTINEOBJ from 1555**/
43362
43363     /*curframdeclclassy*/ class MeltFrame_meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND// fromline 1568
43364         : public Melt_CallFrameWithValues<115>
43365     {
43366     public: /* fromline 1572*/
43367         long mcfr_varnum[34];
43368         /*classy others*/
43369         long _meltsparel;
43370         void melt_mark_stuff (void)
43371         {
43372         } /*end melt_mark_stuff*/
43373         virtual void melt_mark_ggc_data (void)
43374         {
43375             melt_mark_values ();
43376             melt_mark_stuff ();
43377         }; /*end melt_mark_ggc_data*/
43378         MeltFrame_meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND(meltclosure_ptr_t clos) //the closure constructor fromline 1630
43379             : Melt_CallFrameWithValues<115> (
43380 #if ENABLE_CHECKING /*fromline 1634*/
43381                 __FILE__, __LINE__,
43382 #endif /* ENABLE_CHECKING fromline 1638*/
43383                 sizeof(MeltFrame_meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND), clos) {};
43384         MeltFrame_meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND() //the constructor fromline 1642
43385             : Melt_CallFrameWithValues<115> (
43386 #if ENABLE_CHECKING /*fromline 1646*/
43387                 __FILE__, __LINE__,
43388 #endif /* ENABLE_CHECKING fromline 1650*/
43389                 sizeof(MeltFrame_meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND)) {};
43390 #if ENABLE_CHECKING /*fromline 1654*/
43391         MeltFrame_meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND(const char*fil, int lin) //the constructor fromline 1656
43392             : Melt_CallFrameWithValues<115> (fil,lin, sizeof(MeltFrame_meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND)) {};
43393         MeltFrame_meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
43394             : Melt_CallFrameWithValues<115> (fil,lin, sizeof(MeltFrame_meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND), clos) {};
43395 #endif /* ENABLE_CHECKING fromline 1666*/
43396
43397     }; // end  class MeltFrame_meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND
43398
43399
43400     /** end of frame for meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND fromline 1697**/
43401
43402     /* end of frame for routine meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND fromline 1756 */
43403
43404     /* classy proc frame meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND */
43405     MeltFrame_meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND
43406     meltfram__ /*declfrastruct fromline 1780*/
43407     /*classyprocarg meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND fromline 1785*/
43408 #if ENABLE_CHECKING
43409     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
43410 #else /*ENABLE_CHECKING */
43411     (meltclosp_) /* fromline 1793*/
43412 #endif /*ENABLE_CHECKING */
43413
43414     ;
43415 #define meltframe meltfram__
43416
43417     melt_trace_start("NORMEXP_MSEND", meltcallcount);
43418     /*use arguments*/
43419     (void) meltclosp_;
43420     (void)meltfirstargp_;
43421     (void)meltxargdescr_;
43422     (void)meltxargtab_;
43423     (void)meltxresdescr_;
43424     (void)meltxrestab_;
43425     /*getargs*/
43426
43427     /*getarg#0*/
43428     MELT_LOCATION("warmelt-normal.melt:3272:/ getarg");
43429     /*_.MSND__V2*/
43430     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
43431
43432     /*getarg#1*/
43433     /*^getarg*/
43434     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
43435     /*_.ENV__V3*/
43436     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
43437     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
43438
43439
43440     /*getarg#2*/
43441     /*^getarg*/
43442     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
43443     /*_.NCX__V4*/
43444     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
43445     gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL);
43446
43447
43448     /*getarg#3*/
43449     /*^getarg*/
43450     if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
43451     /*_.PSLOC__V5*/
43452     meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
43453     gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL);
43454
43455     ;
43456     goto meltlab_endgetargs;
43457 meltlab_endgetargs:
43458     ;
43459     /*body*/
43460     /*^block*/
43461     /*anyblock*/
43462     {
43463
43464
43465 #if MELT_HAVE_DEBUG
43466         MELT_LOCATION("warmelt-normal.melt:3273:/ cppif.then");
43467         /*^block*/
43468         /*anyblock*/
43469         {
43470
43471
43472             {
43473                 /*^locexp*/
43474                 /*melt_increment_dbgcounter*/
43475 #if MELT_HAVE_DEBUG
43476                 melt_dbgcounter++;
43477 #endif
43478                 ;
43479             }
43480             ;
43481
43482             MELT_CHECK_SIGNAL();
43483             ;
43484             /*_#MELT_NEED_DBG__L1*/
43485             meltfnum[0] =
43486                 /*MELT_NEED_DBG*/
43487 #if MELT_HAVE_DEBUG
43488                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
43489 #else
43490                 0 /* no melt_need_dbg */
43491 #endif /*MELT_HAVE_DEBUG*/
43492                 ;;
43493             MELT_LOCATION("warmelt-normal.melt:3273:/ cond");
43494             /*cond*/
43495             if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
43496                 {
43497                     /*^cond.then*/
43498                     /*^block*/
43499                     /*anyblock*/
43500                     {
43501
43502                         /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
43503                             /* for melt_callcount */
43504 #if MELT_HAVE_DEBUG && defined (meltcallcount)
43505                             meltcallcount  /* melt_callcount debugging */
43506 #else
43507                             0L  /* melt_callcount without debug */
43508 #endif /* MELT_HAVE_DEBUG melt_callcount */
43509                             ;;
43510
43511                         MELT_CHECK_SIGNAL();
43512                         ;
43513                         MELT_LOCATION("warmelt-normal.melt:3273:/ apply");
43514                         /*apply*/
43515                         {
43516                             union meltparam_un argtab[5];
43517                             memset(&argtab, 0, sizeof(argtab));
43518                             /*^apply.arg*/
43519                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
43520                             /*^apply.arg*/
43521                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
43522                             /*^apply.arg*/
43523                             argtab[2].meltbp_long = 3273;
43524                             /*^apply.arg*/
43525                             argtab[3].meltbp_cstring =  "normexp_msend msnd=";
43526                             /*^apply.arg*/
43527                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MSND__V2*/ meltfptr[1];
43528                             /*_.MELT_DEBUG_FUN__V7*/
43529                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
43530                         }
43531                         ;
43532                         /*_._IF___V6*/
43533                         meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];;
43534                         /*epilog*/
43535
43536                         MELT_LOCATION("warmelt-normal.melt:3273:/ clear");
43537                         /*clear*/ /*_#MELT_CALLCOUNT__L2*/
43538                         meltfnum[1] = 0 ;
43539                         /*^clear*/
43540                         /*clear*/ /*_.MELT_DEBUG_FUN__V7*/
43541                         meltfptr[6] = 0 ;
43542                     }
43543                     ;
43544                 }
43545             else    /*^cond.else*/
43546                 {
43547
43548                     /*_._IF___V6*/ meltfptr[5] =  /*reallynil*/ NULL ;;
43549                 }
43550             ;
43551
43552             {
43553                 MELT_LOCATION("warmelt-normal.melt:3273:/ locexp");
43554                 /*void*/
43555                 (void)0;
43556             }
43557             ;
43558             /*^quasiblock*/
43559
43560
43561             /*epilog*/
43562
43563             /*^clear*/
43564             /*clear*/ /*_#MELT_NEED_DBG__L1*/
43565             meltfnum[0] = 0 ;
43566             /*^clear*/
43567             /*clear*/ /*_._IF___V6*/
43568             meltfptr[5] = 0 ;
43569         }
43570
43571 #else /*MELT_HAVE_DEBUG*/
43572         /*^cppif.else*/
43573         /*^block*/
43574         /*anyblock*/
43575         {
43576
43577
43578             {
43579                 /*^locexp*/
43580                 /*void*/(void)0;
43581             }
43582             ;
43583             /*epilog*/
43584         }
43585
43586 #endif /*MELT_HAVE_DEBUG*/
43587         ;
43588
43589 #if MELT_HAVE_DEBUG
43590         MELT_LOCATION("warmelt-normal.melt:3274:/ cppif.then");
43591         /*^block*/
43592         /*anyblock*/
43593         {
43594
43595
43596             MELT_CHECK_SIGNAL();
43597             ;
43598             /*_#IS_A__L3*/
43599             meltfnum[1] =
43600                 melt_is_instance_of((melt_ptr_t)(/*_.MSND__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_MSEND*/ meltfrout->tabval[1])));;
43601             MELT_LOCATION("warmelt-normal.melt:3274:/ cond");
43602             /*cond*/
43603             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
43604                 {
43605                     /*^cond.then*/
43606                     /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);;
43607                 }
43608             else
43609                 {
43610                     MELT_LOCATION("warmelt-normal.melt:3274:/ cond.else");
43611
43612                     /*^block*/
43613                     /*anyblock*/
43614                     {
43615
43616
43617                         MELT_CHECK_SIGNAL();
43618                         ;
43619                         /*^apply*/
43620                         /*apply*/
43621                         {
43622                             union meltparam_un argtab[4];
43623                             memset(&argtab, 0, sizeof(argtab));
43624                             /*^apply.arg*/
43625                             argtab[0].meltbp_cstring =  "check msnd";
43626                             /*^apply.arg*/
43627                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
43628                             /*^apply.arg*/
43629                             argtab[2].meltbp_long = 3274;
43630                             /*^apply.arg*/
43631                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MSND__V2*/ meltfptr[1];
43632                             /*_.MELT_ASSERT_FAILURE_FUN__V10*/
43633                             meltfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
43634                         }
43635                         ;
43636                         /*_._IFELSE___V9*/
43637                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];;
43638                         /*epilog*/
43639
43640                         MELT_LOCATION("warmelt-normal.melt:3274:/ clear");
43641                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/
43642                         meltfptr[9] = 0 ;
43643                     }
43644                     ;
43645                 }
43646             ;
43647             /*_.IFCPP___V8*/
43648             meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];;
43649             /*epilog*/
43650
43651             MELT_LOCATION("warmelt-normal.melt:3274:/ clear");
43652             /*clear*/ /*_#IS_A__L3*/
43653             meltfnum[1] = 0 ;
43654             /*^clear*/
43655             /*clear*/ /*_._IFELSE___V9*/
43656             meltfptr[5] = 0 ;
43657         }
43658
43659 #else /*MELT_HAVE_DEBUG*/
43660         /*^cppif.else*/
43661         /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL);
43662 #endif /*MELT_HAVE_DEBUG*/
43663         ;
43664
43665 #if MELT_HAVE_DEBUG
43666         MELT_LOCATION("warmelt-normal.melt:3275:/ cppif.then");
43667         /*^block*/
43668         /*anyblock*/
43669         {
43670
43671
43672             MELT_CHECK_SIGNAL();
43673             ;
43674             /*_#IS_A__L4*/
43675             meltfnum[0] =
43676                 melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));;
43677             MELT_LOCATION("warmelt-normal.melt:3275:/ cond");
43678             /*cond*/
43679             if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/
43680                 {
43681                     /*^cond.then*/
43682                     /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);;
43683                 }
43684             else
43685                 {
43686                     MELT_LOCATION("warmelt-normal.melt:3275:/ cond.else");
43687
43688                     /*^block*/
43689                     /*anyblock*/
43690                     {
43691
43692
43693                         MELT_CHECK_SIGNAL();
43694                         ;
43695                         /*^apply*/
43696                         /*apply*/
43697                         {
43698                             union meltparam_un argtab[4];
43699                             memset(&argtab, 0, sizeof(argtab));
43700                             /*^apply.arg*/
43701                             argtab[0].meltbp_cstring =  "check env";
43702                             /*^apply.arg*/
43703                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
43704                             /*^apply.arg*/
43705                             argtab[2].meltbp_long = 3275;
43706                             /*^apply.arg*/
43707                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
43708                             /*_.MELT_ASSERT_FAILURE_FUN__V13*/
43709                             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
43710                         }
43711                         ;
43712                         /*_._IFELSE___V12*/
43713                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];;
43714                         /*epilog*/
43715
43716                         MELT_LOCATION("warmelt-normal.melt:3275:/ clear");
43717                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/
43718                         meltfptr[12] = 0 ;
43719                     }
43720                     ;
43721                 }
43722             ;
43723             /*_.IFCPP___V11*/
43724             meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];;
43725             /*epilog*/
43726
43727             MELT_LOCATION("warmelt-normal.melt:3275:/ clear");
43728             /*clear*/ /*_#IS_A__L4*/
43729             meltfnum[0] = 0 ;
43730             /*^clear*/
43731             /*clear*/ /*_._IFELSE___V12*/
43732             meltfptr[5] = 0 ;
43733         }
43734
43735 #else /*MELT_HAVE_DEBUG*/
43736         /*^cppif.else*/
43737         /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL);
43738 #endif /*MELT_HAVE_DEBUG*/
43739         ;
43740
43741 #if MELT_HAVE_DEBUG
43742         MELT_LOCATION("warmelt-normal.melt:3276:/ cppif.then");
43743         /*^block*/
43744         /*anyblock*/
43745         {
43746
43747
43748             MELT_CHECK_SIGNAL();
43749             ;
43750             /*_#IS_A__L5*/
43751             meltfnum[1] =
43752                 melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));;
43753             MELT_LOCATION("warmelt-normal.melt:3276:/ cond");
43754             /*cond*/
43755             if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/
43756                 {
43757                     /*^cond.then*/
43758                     /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);;
43759                 }
43760             else
43761                 {
43762                     MELT_LOCATION("warmelt-normal.melt:3276:/ cond.else");
43763
43764                     /*^block*/
43765                     /*anyblock*/
43766                     {
43767
43768
43769                         MELT_CHECK_SIGNAL();
43770                         ;
43771                         /*^apply*/
43772                         /*apply*/
43773                         {
43774                             union meltparam_un argtab[4];
43775                             memset(&argtab, 0, sizeof(argtab));
43776                             /*^apply.arg*/
43777                             argtab[0].meltbp_cstring =  "check ncx";
43778                             /*^apply.arg*/
43779                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
43780                             /*^apply.arg*/
43781                             argtab[2].meltbp_long = 3276;
43782                             /*^apply.arg*/
43783                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
43784                             /*_.MELT_ASSERT_FAILURE_FUN__V16*/
43785                             meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
43786                         }
43787                         ;
43788                         /*_._IFELSE___V15*/
43789                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];;
43790                         /*epilog*/
43791
43792                         MELT_LOCATION("warmelt-normal.melt:3276:/ clear");
43793                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/
43794                         meltfptr[15] = 0 ;
43795                     }
43796                     ;
43797                 }
43798             ;
43799             /*_.IFCPP___V14*/
43800             meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];;
43801             /*epilog*/
43802
43803             MELT_LOCATION("warmelt-normal.melt:3276:/ clear");
43804             /*clear*/ /*_#IS_A__L5*/
43805             meltfnum[1] = 0 ;
43806             /*^clear*/
43807             /*clear*/ /*_._IFELSE___V15*/
43808             meltfptr[5] = 0 ;
43809         }
43810
43811 #else /*MELT_HAVE_DEBUG*/
43812         /*^cppif.else*/
43813         /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL);
43814 #endif /*MELT_HAVE_DEBUG*/
43815         ;
43816         MELT_LOCATION("warmelt-normal.melt:3277:/ quasiblock");
43817
43818
43819         /*^getslot*/
43820         {
43821             melt_ptr_t slot=NULL, obj=NULL;
43822             obj = (melt_ptr_t)(/*_.MSND__V2*/ meltfptr[1]) /*=obj*/;
43823             melt_object_get_field(slot,obj, 4, "MSEND_RECV");
43824             /*_.MSRECV__V18*/
43825             meltfptr[5] = slot;
43826         };
43827         ;
43828         MELT_LOCATION("warmelt-normal.melt:3278:/ getslot");
43829         {
43830             melt_ptr_t slot=NULL, obj=NULL;
43831             obj = (melt_ptr_t)(/*_.MSND__V2*/ meltfptr[1]) /*=obj*/;
43832             melt_object_get_field(slot,obj, 2, "SARGOP_ARGS");
43833             /*_.MSARGS__V19*/
43834             meltfptr[18] = slot;
43835         };
43836         ;
43837         MELT_LOCATION("warmelt-normal.melt:3279:/ getslot");
43838         {
43839             melt_ptr_t slot=NULL, obj=NULL;
43840             obj = (melt_ptr_t)(/*_.MSND__V2*/ meltfptr[1]) /*=obj*/;
43841             melt_object_get_field(slot,obj, 3, "MSEND_SELSYMB");
43842             /*_.SELNAM__V20*/
43843             meltfptr[19] = slot;
43844         };
43845         ;
43846         MELT_LOCATION("warmelt-normal.melt:3280:/ getslot");
43847         {
43848             melt_ptr_t slot=NULL, obj=NULL;
43849             obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/;
43850             melt_object_get_field(slot,obj, 11, "NCTX_CURPROC");
43851             /*_.CURPROC__V21*/
43852             meltfptr[20] = slot;
43853         };
43854         ;
43855         MELT_LOCATION("warmelt-normal.melt:3281:/ getslot");
43856         {
43857             melt_ptr_t slot=NULL, obj=NULL;
43858             obj = (melt_ptr_t)(/*_.MSND__V2*/ meltfptr[1]) /*=obj*/;
43859             melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
43860             /*_.SLOC__V22*/
43861             meltfptr[21] = slot;
43862         };
43863         ;
43864
43865         MELT_CHECK_SIGNAL();
43866         ;
43867         MELT_LOCATION("warmelt-normal.melt:3282:/ apply");
43868         /*apply*/
43869         {
43870             union meltparam_un argtab[3];
43871             memset(&argtab, 0, sizeof(argtab));
43872             /*^apply.arg*/
43873             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
43874             /*^apply.arg*/
43875             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
43876             /*^apply.arg*/
43877             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ meltfptr[21];
43878             /*_.NSEL__V23*/
43879             meltfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.SELNAM__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
43880         }
43881         ;
43882
43883         MELT_CHECK_SIGNAL();
43884         ;
43885         MELT_LOCATION("warmelt-normal.melt:3283:/ apply");
43886         /*apply*/
43887         {
43888             union meltparam_un argtab[1];
43889             memset(&argtab, 0, sizeof(argtab));
43890             /*^apply.arg*/
43891             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SELNAM__V20*/ meltfptr[19];
43892             /*_.SELBIND__V24*/
43893             meltfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
43894         }
43895         ;
43896
43897 #if MELT_HAVE_DEBUG
43898         MELT_LOCATION("warmelt-normal.melt:3285:/ cppif.then");
43899         /*^block*/
43900         /*anyblock*/
43901         {
43902
43903
43904             {
43905                 /*^locexp*/
43906                 /*melt_increment_dbgcounter*/
43907 #if MELT_HAVE_DEBUG
43908                 melt_dbgcounter++;
43909 #endif
43910                 ;
43911             }
43912             ;
43913
43914             MELT_CHECK_SIGNAL();
43915             ;
43916             /*_#MELT_NEED_DBG__L6*/
43917             meltfnum[0] =
43918                 /*MELT_NEED_DBG*/
43919 #if MELT_HAVE_DEBUG
43920                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
43921 #else
43922                 0 /* no melt_need_dbg */
43923 #endif /*MELT_HAVE_DEBUG*/
43924                 ;;
43925             MELT_LOCATION("warmelt-normal.melt:3285:/ cond");
43926             /*cond*/
43927             if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/
43928                 {
43929                     /*^cond.then*/
43930                     /*^block*/
43931                     /*anyblock*/
43932                     {
43933
43934                         /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] =
43935                             /* for melt_callcount */
43936 #if MELT_HAVE_DEBUG && defined (meltcallcount)
43937                             meltcallcount  /* melt_callcount debugging */
43938 #else
43939                             0L  /* melt_callcount without debug */
43940 #endif /* MELT_HAVE_DEBUG melt_callcount */
43941                             ;;
43942
43943                         MELT_CHECK_SIGNAL();
43944                         ;
43945                         MELT_LOCATION("warmelt-normal.melt:3285:/ apply");
43946                         /*apply*/
43947                         {
43948                             union meltparam_un argtab[7];
43949                             memset(&argtab, 0, sizeof(argtab));
43950                             /*^apply.arg*/
43951                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L7*/ meltfnum[1];
43952                             /*^apply.arg*/
43953                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
43954                             /*^apply.arg*/
43955                             argtab[2].meltbp_long = 3285;
43956                             /*^apply.arg*/
43957                             argtab[3].meltbp_cstring =  "normexp_msend curproc=";
43958                             /*^apply.arg*/
43959                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURPROC__V21*/ meltfptr[20];
43960                             /*^apply.arg*/
43961                             argtab[5].meltbp_cstring =  " selbind=";
43962                             /*^apply.arg*/
43963                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SELBIND__V24*/ meltfptr[23];
43964                             /*_.MELT_DEBUG_FUN__V26*/
43965                             meltfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
43966                         }
43967                         ;
43968                         /*_._IF___V25*/
43969                         meltfptr[24] = /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25];;
43970                         /*epilog*/
43971
43972                         MELT_LOCATION("warmelt-normal.melt:3285:/ clear");
43973                         /*clear*/ /*_#MELT_CALLCOUNT__L7*/
43974                         meltfnum[1] = 0 ;
43975                         /*^clear*/
43976                         /*clear*/ /*_.MELT_DEBUG_FUN__V26*/
43977                         meltfptr[25] = 0 ;
43978                     }
43979                     ;
43980                 }
43981             else    /*^cond.else*/
43982                 {
43983
43984                     /*_._IF___V25*/ meltfptr[24] =  /*reallynil*/ NULL ;;
43985                 }
43986             ;
43987
43988             {
43989                 MELT_LOCATION("warmelt-normal.melt:3285:/ locexp");
43990                 /*void*/
43991                 (void)0;
43992             }
43993             ;
43994             /*^quasiblock*/
43995
43996
43997             /*epilog*/
43998
43999             /*^clear*/
44000             /*clear*/ /*_#MELT_NEED_DBG__L6*/
44001             meltfnum[0] = 0 ;
44002             /*^clear*/
44003             /*clear*/ /*_._IF___V25*/
44004             meltfptr[24] = 0 ;
44005         }
44006
44007 #else /*MELT_HAVE_DEBUG*/
44008         /*^cppif.else*/
44009         /*^block*/
44010         /*anyblock*/
44011         {
44012
44013
44014             {
44015                 /*^locexp*/
44016                 /*void*/(void)0;
44017             }
44018             ;
44019             /*epilog*/
44020         }
44021
44022 #endif /*MELT_HAVE_DEBUG*/
44023         ;
44024
44025         MELT_CHECK_SIGNAL();
44026         ;
44027         MELT_LOCATION("warmelt-normal.melt:3287:/ quasiblock");
44028
44029
44030         /*^multimsend*/
44031         /*multimsend*/
44032         {
44033             union meltparam_un argtab[3];
44034             union meltparam_un restab[1];
44035             memset(&argtab, 0, sizeof(argtab));
44036             memset(&restab, 0, sizeof(restab));
44037             /*^multimsend.arg*/
44038             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multimsend.arg*/
44039             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multimsend.arg*/
44040             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ meltfptr[21];
44041             /*^multimsend.xres*/
44042             restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDRECV__V29*/ meltfptr[28];/*^multimsend.send*/
44043             /*_.NRECV__V28*/
44044             meltfptr[24] =  meltgc_send ((melt_ptr_t)(/*_.MSRECV__V18*/ meltfptr[5]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[7]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
44045         }
44046         ;
44047         /*^quasiblock*/
44048
44049
44050
44051 #if MELT_HAVE_DEBUG
44052         MELT_LOCATION("warmelt-normal.melt:3290:/ cppif.then");
44053         /*^block*/
44054         /*anyblock*/
44055         {
44056
44057
44058             MELT_CHECK_SIGNAL();
44059             ;
44060             /*_#IS_LIST_OR_NULL__L8*/
44061             meltfnum[1] =
44062                 ((/*_.NBINDRECV__V29*/ meltfptr[28]) == NULL
44063                  || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDRECV__V29*/ meltfptr[28])) == MELTOBMAG_LIST));;
44064             MELT_LOCATION("warmelt-normal.melt:3290:/ cond");
44065             /*cond*/
44066             if (/*_#IS_LIST_OR_NULL__L8*/ meltfnum[1]) /*then*/
44067                 {
44068                     /*^cond.then*/
44069                     /*_._IFELSE___V31*/ meltfptr[30] = (/*nil*/NULL);;
44070                 }
44071             else
44072                 {
44073                     MELT_LOCATION("warmelt-normal.melt:3290:/ cond.else");
44074
44075                     /*^block*/
44076                     /*anyblock*/
44077                     {
44078
44079
44080                         MELT_CHECK_SIGNAL();
44081                         ;
44082                         /*^apply*/
44083                         /*apply*/
44084                         {
44085                             union meltparam_un argtab[4];
44086                             memset(&argtab, 0, sizeof(argtab));
44087                             /*^apply.arg*/
44088                             argtab[0].meltbp_cstring =  "check nbindrecv";
44089                             /*^apply.arg*/
44090                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
44091                             /*^apply.arg*/
44092                             argtab[2].meltbp_long = 3290;
44093                             /*^apply.arg*/
44094                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDRECV__V29*/ meltfptr[28];
44095                             /*_.MELT_ASSERT_FAILURE_FUN__V32*/
44096                             meltfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
44097                         }
44098                         ;
44099                         /*_._IFELSE___V31*/
44100                         meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];;
44101                         /*epilog*/
44102
44103                         MELT_LOCATION("warmelt-normal.melt:3290:/ clear");
44104                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/
44105                         meltfptr[31] = 0 ;
44106                     }
44107                     ;
44108                 }
44109             ;
44110             /*_.IFCPP___V30*/
44111             meltfptr[29] = /*_._IFELSE___V31*/ meltfptr[30];;
44112             /*epilog*/
44113
44114             MELT_LOCATION("warmelt-normal.melt:3290:/ clear");
44115             /*clear*/ /*_#IS_LIST_OR_NULL__L8*/
44116             meltfnum[1] = 0 ;
44117             /*^clear*/
44118             /*clear*/ /*_._IFELSE___V31*/
44119             meltfptr[30] = 0 ;
44120         }
44121
44122 #else /*MELT_HAVE_DEBUG*/
44123         /*^cppif.else*/
44124         /*_.IFCPP___V30*/ meltfptr[29] = (/*nil*/NULL);
44125 #endif /*MELT_HAVE_DEBUG*/
44126         ;
44127         MELT_LOCATION("warmelt-normal.melt:3292:/ quasiblock");
44128
44129
44130
44131         MELT_CHECK_SIGNAL();
44132         ;
44133         /*^msend*/
44134         /*msend*/
44135         {
44136             union meltparam_un argtab[1];
44137             memset(&argtab, 0, sizeof(argtab));
44138             /*^ojbmsend.arg*/
44139             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
44140             /*_.CTYPR__V34*/
44141             meltfptr[30] = meltgc_send((melt_ptr_t)(/*_.NRECV__V28*/ meltfptr[24]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
44142         }
44143         ;
44144
44145 #if MELT_HAVE_DEBUG
44146         MELT_LOCATION("warmelt-normal.melt:3293:/ cppif.then");
44147         /*^block*/
44148         /*anyblock*/
44149         {
44150
44151
44152             MELT_CHECK_SIGNAL();
44153             ;
44154             /*_#IS_A__L9*/
44155             meltfnum[0] =
44156                 melt_is_instance_of((melt_ptr_t)(/*_.CTYPR__V34*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[9])));;
44157             MELT_LOCATION("warmelt-normal.melt:3293:/ cond");
44158             /*cond*/
44159             if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/
44160                 {
44161                     /*^cond.then*/
44162                     /*_._IFELSE___V36*/ meltfptr[35] = (/*nil*/NULL);;
44163                 }
44164             else
44165                 {
44166                     MELT_LOCATION("warmelt-normal.melt:3293:/ cond.else");
44167
44168                     /*^block*/
44169                     /*anyblock*/
44170                     {
44171
44172
44173                         MELT_CHECK_SIGNAL();
44174                         ;
44175                         /*^apply*/
44176                         /*apply*/
44177                         {
44178                             union meltparam_un argtab[4];
44179                             memset(&argtab, 0, sizeof(argtab));
44180                             /*^apply.arg*/
44181                             argtab[0].meltbp_cstring =  "normexp_msend check ctypr ";
44182                             /*^apply.arg*/
44183                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
44184                             /*^apply.arg*/
44185                             argtab[2].meltbp_long = 3293;
44186                             /*^apply.arg*/
44187                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPR__V34*/ meltfptr[30];
44188                             /*_.MELT_ASSERT_FAILURE_FUN__V37*/
44189                             meltfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
44190                         }
44191                         ;
44192                         /*_._IFELSE___V36*/
44193                         meltfptr[35] = /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36];;
44194                         /*epilog*/
44195
44196                         MELT_LOCATION("warmelt-normal.melt:3293:/ clear");
44197                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V37*/
44198                         meltfptr[36] = 0 ;
44199                     }
44200                     ;
44201                 }
44202             ;
44203             /*_.IFCPP___V35*/
44204             meltfptr[34] = /*_._IFELSE___V36*/ meltfptr[35];;
44205             /*epilog*/
44206
44207             MELT_LOCATION("warmelt-normal.melt:3293:/ clear");
44208             /*clear*/ /*_#IS_A__L9*/
44209             meltfnum[0] = 0 ;
44210             /*^clear*/
44211             /*clear*/ /*_._IFELSE___V36*/
44212             meltfptr[35] = 0 ;
44213         }
44214
44215 #else /*MELT_HAVE_DEBUG*/
44216         /*^cppif.else*/
44217         /*_.IFCPP___V35*/ meltfptr[34] = (/*nil*/NULL);
44218 #endif /*MELT_HAVE_DEBUG*/
44219         ;
44220
44221         MELT_CHECK_SIGNAL();
44222         ;
44223         /*^compute*/
44224         /*_#exeq__L10*/
44225         meltfnum[1] =
44226             ((/*_.CTYPR__V34*/ meltfptr[30]) != ((/*!CTYPE_VALUE*/ meltfrout->tabval[10])));;
44227         MELT_LOCATION("warmelt-normal.melt:3294:/ cond");
44228         /*cond*/
44229         if (/*_#exeq__L10*/ meltfnum[1]) /*then*/
44230             {
44231                 /*^cond.then*/
44232                 /*^block*/
44233                 /*anyblock*/
44234                 {
44235
44236                     MELT_LOCATION("warmelt-normal.melt:3296:/ getslot");
44237                     {
44238                         melt_ptr_t slot=NULL, obj=NULL;
44239                         obj = (melt_ptr_t)(/*_.SELNAM__V20*/ meltfptr[19]) /*=obj*/;
44240                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
44241                         /*_.NAMED_NAME__V39*/
44242                         meltfptr[35] = slot;
44243                     };
44244                     ;
44245
44246                     MELT_CHECK_SIGNAL();
44247                     ;
44248                     MELT_LOCATION("warmelt-normal.melt:3295:/ apply");
44249                     /*apply*/
44250                     {
44251                         union meltparam_un argtab[2];
44252                         memset(&argtab, 0, sizeof(argtab));
44253                         /*^apply.arg*/
44254                         argtab[0].meltbp_cstring =  "non value receiver for message send of selector $1";
44255                         /*^apply.arg*/
44256                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V39*/ meltfptr[35];
44257                         /*_.ERROR_AT__V40*/
44258                         meltfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
44259                     }
44260                     ;
44261                     /*_._IF___V38*/
44262                     meltfptr[36] = /*_.ERROR_AT__V40*/ meltfptr[39];;
44263                     /*epilog*/
44264
44265                     MELT_LOCATION("warmelt-normal.melt:3294:/ clear");
44266                     /*clear*/ /*_.NAMED_NAME__V39*/
44267                     meltfptr[35] = 0 ;
44268                     /*^clear*/
44269                     /*clear*/ /*_.ERROR_AT__V40*/
44270                     meltfptr[39] = 0 ;
44271                 }
44272                 ;
44273             }
44274         else    /*^cond.else*/
44275             {
44276
44277                 /*_._IF___V38*/ meltfptr[36] =  /*reallynil*/ NULL ;;
44278             }
44279         ;
44280         /*^compute*/
44281         /*_.LET___V33*/
44282         meltfptr[31] = /*_._IF___V38*/ meltfptr[36];;
44283
44284         MELT_LOCATION("warmelt-normal.melt:3292:/ clear");
44285         /*clear*/ /*_.CTYPR__V34*/
44286         meltfptr[30] = 0 ;
44287         /*^clear*/
44288         /*clear*/ /*_.IFCPP___V35*/
44289         meltfptr[34] = 0 ;
44290         /*^clear*/
44291         /*clear*/ /*_#exeq__L10*/
44292         meltfnum[1] = 0 ;
44293         /*^clear*/
44294         /*clear*/ /*_._IF___V38*/
44295         meltfptr[36] = 0 ;
44296
44297         MELT_CHECK_SIGNAL();
44298         ;
44299         MELT_LOCATION("warmelt-normal.melt:3298:/ quasiblock");
44300
44301
44302         /*^multiapply*/
44303         /*multiapply 4args, 1x.res*/
44304         {
44305             union meltparam_un argtab[3];
44306
44307             union meltparam_un restab[1];
44308             memset(&restab, 0, sizeof(restab));
44309             memset(&argtab, 0, sizeof(argtab));
44310             /*^multiapply.arg*/
44311             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multiapply.arg*/
44312             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multiapply.arg*/
44313             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ meltfptr[21];
44314             /*^multiapply.xres*/
44315             restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDARGS__V43*/ meltfptr[30];
44316             /*^multiapply.appl*/
44317             /*_.NARGS__V42*/
44318             meltfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.MSARGS__V19*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
44319         }
44320         ;
44321         /*^quasiblock*/
44322
44323
44324
44325 #if MELT_HAVE_DEBUG
44326         MELT_LOCATION("warmelt-normal.melt:3301:/ cppif.then");
44327         /*^block*/
44328         /*anyblock*/
44329         {
44330
44331
44332             MELT_CHECK_SIGNAL();
44333             ;
44334             /*_#IS_LIST_OR_NULL__L11*/
44335             meltfnum[0] =
44336                 ((/*_.NBINDARGS__V43*/ meltfptr[30]) == NULL
44337                  || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDARGS__V43*/ meltfptr[30])) == MELTOBMAG_LIST));;
44338             MELT_LOCATION("warmelt-normal.melt:3301:/ cond");
44339             /*cond*/
44340             if (/*_#IS_LIST_OR_NULL__L11*/ meltfnum[0]) /*then*/
44341                 {
44342                     /*^cond.then*/
44343                     /*_._IFELSE___V45*/ meltfptr[36] = (/*nil*/NULL);;
44344                 }
44345             else
44346                 {
44347                     MELT_LOCATION("warmelt-normal.melt:3301:/ cond.else");
44348
44349                     /*^block*/
44350                     /*anyblock*/
44351                     {
44352
44353
44354                         MELT_CHECK_SIGNAL();
44355                         ;
44356                         /*^apply*/
44357                         /*apply*/
44358                         {
44359                             union meltparam_un argtab[4];
44360                             memset(&argtab, 0, sizeof(argtab));
44361                             /*^apply.arg*/
44362                             argtab[0].meltbp_cstring =  "check nbindargs";
44363                             /*^apply.arg*/
44364                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
44365                             /*^apply.arg*/
44366                             argtab[2].meltbp_long = 3301;
44367                             /*^apply.arg*/
44368                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDARGS__V43*/ meltfptr[30];
44369                             /*_.MELT_ASSERT_FAILURE_FUN__V46*/
44370                             meltfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
44371                         }
44372                         ;
44373                         /*_._IFELSE___V45*/
44374                         meltfptr[36] = /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[45];;
44375                         /*epilog*/
44376
44377                         MELT_LOCATION("warmelt-normal.melt:3301:/ clear");
44378                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V46*/
44379                         meltfptr[45] = 0 ;
44380                     }
44381                     ;
44382                 }
44383             ;
44384             /*_.IFCPP___V44*/
44385             meltfptr[34] = /*_._IFELSE___V45*/ meltfptr[36];;
44386             /*epilog*/
44387
44388             MELT_LOCATION("warmelt-normal.melt:3301:/ clear");
44389             /*clear*/ /*_#IS_LIST_OR_NULL__L11*/
44390             meltfnum[0] = 0 ;
44391             /*^clear*/
44392             /*clear*/ /*_._IFELSE___V45*/
44393             meltfptr[36] = 0 ;
44394         }
44395
44396 #else /*MELT_HAVE_DEBUG*/
44397         /*^cppif.else*/
44398         /*_.IFCPP___V44*/ meltfptr[34] = (/*nil*/NULL);
44399 #endif /*MELT_HAVE_DEBUG*/
44400         ;
44401         MELT_LOCATION("warmelt-normal.melt:3303:/ quasiblock");
44402
44403
44404
44405         MELT_CHECK_SIGNAL();
44406         ;
44407         MELT_LOCATION("warmelt-normal.melt:3304:/ apply");
44408         /*apply*/
44409         {
44410             /*_.CINTSYM__V48*/ meltfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SELNAM__V20*/ meltfptr[19]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
44411         }
44412         ;
44413
44414         MELT_CHECK_SIGNAL();
44415         ;
44416         MELT_LOCATION("warmelt-normal.melt:3305:/ quasiblock");
44417
44418
44419         /*^rawallocobj*/
44420         /*rawallocobj*/
44421         {
44422             melt_ptr_t newobj = 0;
44423             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHECKSIGNAL*/ meltfrout->tabval[14])), (1), "CLASS_NREP_CHECKSIGNAL");
44424             /*_.INST__V50*/
44425             meltfptr[49] =
44426                 newobj;
44427         };
44428         ;
44429         /*^putslot*/
44430         /*putslot*/
44431         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V50*/ meltfptr[49])) == MELTOBMAG_OBJECT);
44432         melt_putfield_object((/*_.INST__V50*/ meltfptr[49]), (0), (/*_.SLOC__V22*/ meltfptr[21]), "NREP_LOC");
44433         ;
44434         /*^touchobj*/
44435
44436         melt_dbgtrace_written_object (/*_.INST__V50*/ meltfptr[49], "newly made instance");
44437         ;
44438         /*_.NINT__V49*/
44439         meltfptr[48] = /*_.INST__V50*/ meltfptr[49];;
44440
44441         MELT_CHECK_SIGNAL();
44442         ;
44443         MELT_LOCATION("warmelt-normal.melt:3307:/ quasiblock");
44444
44445
44446         /*^rawallocobj*/
44447         /*rawallocobj*/
44448         {
44449             melt_ptr_t newobj = 0;
44450             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[15])), (4), "CLASS_NORMAL_LET_BINDING");
44451             /*_.INST__V52*/
44452             meltfptr[51] =
44453                 newobj;
44454         };
44455         ;
44456         /*^putslot*/
44457         /*putslot*/
44458         melt_assertmsg("checkobj putslot  _ @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ meltfptr[51])) == MELTOBMAG_OBJECT);
44459         melt_putfield_object((/*_.INST__V52*/ meltfptr[51]), (3), (/*_.SLOC__V22*/ meltfptr[21]), "LETBIND_LOC");
44460         ;
44461         /*^putslot*/
44462         /*putslot*/
44463         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ meltfptr[51])) == MELTOBMAG_OBJECT);
44464         melt_putfield_object((/*_.INST__V52*/ meltfptr[51]), (0), (/*_.CINTSYM__V48*/ meltfptr[36]), "BINDER");
44465         ;
44466         /*^putslot*/
44467         /*putslot*/
44468         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ meltfptr[51])) == MELTOBMAG_OBJECT);
44469         melt_putfield_object((/*_.INST__V52*/ meltfptr[51]), (1), ((/*!CTYPE_VOID*/ meltfrout->tabval[16])), "LETBIND_TYPE");
44470         ;
44471         /*^putslot*/
44472         /*putslot*/
44473         melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ meltfptr[51])) == MELTOBMAG_OBJECT);
44474         melt_putfield_object((/*_.INST__V52*/ meltfptr[51]), (2), (/*_.NINT__V49*/ meltfptr[48]), "LETBIND_EXPR");
44475         ;
44476         /*^touchobj*/
44477
44478         melt_dbgtrace_written_object (/*_.INST__V52*/ meltfptr[51], "newly made instance");
44479         ;
44480         /*_.CINTBIND__V51*/
44481         meltfptr[50] = /*_.INST__V52*/ meltfptr[51];;
44482
44483         MELT_CHECK_SIGNAL();
44484         ;
44485         /*^compute*/
44486         /*_#IS_LIST__L12*/
44487         meltfnum[1] =
44488             (melt_magic_discr((melt_ptr_t)(/*_.NBINDARGS__V43*/ meltfptr[30])) == MELTOBMAG_LIST);;
44489         MELT_LOCATION("warmelt-normal.melt:3313:/ cond");
44490         /*cond*/
44491         if (/*_#IS_LIST__L12*/ meltfnum[1]) /*then*/
44492             {
44493                 /*^cond.then*/
44494                 /*^block*/
44495                 /*anyblock*/
44496                 {
44497
44498
44499
44500
44501                     {
44502                         MELT_LOCATION("warmelt-normal.melt:3314:/ locexp");
44503                         meltgc_append_list((melt_ptr_t)(/*_.NBINDARGS__V43*/ meltfptr[30]), (melt_ptr_t)(/*_.CINTBIND__V51*/ meltfptr[50]));
44504                     }
44505                     ;
44506                     /*clear*/ /*_._IFELSE___V53*/
44507                     meltfptr[52] = 0 ;
44508                     /*epilog*/
44509                 }
44510                 ;
44511             }
44512         else
44513             {
44514                 MELT_LOCATION("warmelt-normal.melt:3313:/ cond.else");
44515
44516                 /*^block*/
44517                 /*anyblock*/
44518                 {
44519
44520                     MELT_LOCATION("warmelt-normal.melt:3315:/ blockmultialloc");
44521                     /*multiallocblock*/
44522                     {
44523                         struct meltletrec_1_st
44524                         {
44525                             struct meltpair_st rpair_0__CINTBIND_x2;
44526                             struct meltlist_st rlist_1__LIST_;
44527                             long meltletrec_1_endgap;
44528                         } *meltletrec_1_ptr = 0;
44529                         meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0);
44530                         /*^blockmultialloc.initfill*/
44531                         /*inipair rpair_0__CINTBIND_x2*/
44532                         /*_.CINTBIND__V55*/
44533                         meltfptr[54] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x2;
44534                         meltletrec_1_ptr->rpair_0__CINTBIND_x2.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR))));
44535
44536                         /*inilist rlist_1__LIST_*/
44537                         /*_.LIST___V56*/
44538                         meltfptr[55] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_;
44539                         meltletrec_1_ptr->rlist_1__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST))));
44540
44541
44542
44543                         /*^putpairhead*/
44544                         /*putpairhead*/
44545                         melt_assertmsg("putpairhead /3 checkpair", melt_magic_discr((melt_ptr_t)(/*_.CINTBIND__V55*/ meltfptr[54]))== MELTOBMAG_PAIR);
44546                         ((meltpair_ptr_t)(/*_.CINTBIND__V55*/ meltfptr[54]))->hd = (melt_ptr_t) (/*_.CINTBIND__V51*/ meltfptr[50]);
44547                         ;
44548                         /*^touch*/
44549                         meltgc_touch(/*_.CINTBIND__V55*/ meltfptr[54]);
44550                         ;
44551                         /*^putlist*/
44552                         /*putlist*/
44553                         melt_assertmsg("putlist checklist", melt_magic_discr((melt_ptr_t)(/*_.LIST___V56*/ meltfptr[55]))== MELTOBMAG_LIST);
44554                         ((meltlist_ptr_t)(/*_.LIST___V56*/ meltfptr[55]))->first = (meltpair_ptr_t) (/*_.CINTBIND__V55*/ meltfptr[54]);
44555                         ((meltlist_ptr_t)(/*_.LIST___V56*/ meltfptr[55]))->last = (meltpair_ptr_t) (/*_.CINTBIND__V55*/ meltfptr[54]);
44556                         ;
44557                         /*^touch*/
44558                         meltgc_touch(/*_.LIST___V56*/ meltfptr[55]);
44559                         ;
44560                         /*_.LIST___V54*/
44561                         meltfptr[53] = /*_.LIST___V56*/ meltfptr[55];;
44562                         /*epilog*/
44563
44564                         MELT_LOCATION("warmelt-normal.melt:3315:/ clear");
44565                         /*clear*/ /*_.CINTBIND__V55*/
44566                         meltfptr[54] = 0 ;
44567                         /*^clear*/
44568                         /*clear*/ /*_.LIST___V56*/
44569                         meltfptr[55] = 0 ;
44570                         /*^clear*/
44571                         /*clear*/ /*_.CINTBIND__V55*/
44572                         meltfptr[54] = 0 ;
44573                         /*^clear*/
44574                         /*clear*/ /*_.LIST___V56*/
44575                         meltfptr[55] = 0 ;
44576                     } /*end multiallocblock*/
44577                     ;
44578                     /*^compute*/
44579                     /*_.NBINDARGS__V43*/
44580                     meltfptr[30] = /*_.SETQ___V57*/ meltfptr[54] = /*_.LIST___V54*/ meltfptr[53];;
44581                     /*_._IFELSE___V53*/
44582                     meltfptr[52] = /*_.SETQ___V57*/ meltfptr[54];;
44583                     /*epilog*/
44584
44585                     MELT_LOCATION("warmelt-normal.melt:3313:/ clear");
44586                     /*clear*/ /*_.LIST___V54*/
44587                     meltfptr[53] = 0 ;
44588                     /*^clear*/
44589                     /*clear*/ /*_.SETQ___V57*/
44590                     meltfptr[54] = 0 ;
44591                 }
44592                 ;
44593             }
44594         ;
44595         /*_.LET___V47*/
44596         meltfptr[45] = /*_._IFELSE___V53*/ meltfptr[52];;
44597
44598         MELT_LOCATION("warmelt-normal.melt:3303:/ clear");
44599         /*clear*/ /*_.CINTSYM__V48*/
44600         meltfptr[36] = 0 ;
44601         /*^clear*/
44602         /*clear*/ /*_.NINT__V49*/
44603         meltfptr[48] = 0 ;
44604         /*^clear*/
44605         /*clear*/ /*_.CINTBIND__V51*/
44606         meltfptr[50] = 0 ;
44607         /*^clear*/
44608         /*clear*/ /*_#IS_LIST__L12*/
44609         meltfnum[1] = 0 ;
44610         /*^clear*/
44611         /*clear*/ /*_._IFELSE___V53*/
44612         meltfptr[52] = 0 ;
44613
44614         MELT_CHECK_SIGNAL();
44615         ;
44616         MELT_LOCATION("warmelt-normal.melt:3318:/ apply");
44617         /*apply*/
44618         {
44619             union meltparam_un argtab[1];
44620             memset(&argtab, 0, sizeof(argtab));
44621             /*^apply.arg*/
44622             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDARGS__V43*/ meltfptr[30];
44623             /*_.LIST_APPEND2LIST__V58*/
44624             meltfptr[55] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.NBINDRECV__V29*/ meltfptr[28]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
44625         }
44626         ;
44627         /*^compute*/
44628         /*_.NBINDRECV__V29*/
44629         meltfptr[28] = /*_.SETQ___V59*/ meltfptr[53] = /*_.LIST_APPEND2LIST__V58*/ meltfptr[55];;
44630
44631         MELT_CHECK_SIGNAL();
44632         ;
44633         MELT_LOCATION("warmelt-normal.melt:3319:/ apply");
44634         /*apply*/
44635         {
44636             union meltparam_un argtab[2];
44637             memset(&argtab, 0, sizeof(argtab));
44638             /*^apply.arg*/
44639             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
44640             /*^apply.arg*/
44641             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ meltfptr[21];
44642             /*_.CHECK_CTYPE_NARGS__V60*/
44643             meltfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!CHECK_CTYPE_NARGS*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NARGS__V42*/ meltfptr[39]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
44644         }
44645         ;
44646         MELT_LOCATION("warmelt-normal.melt:3320:/ quasiblock");
44647
44648
44649
44650         MELT_CHECK_SIGNAL();
44651         ;
44652         /*_#IS_A__L13*/
44653         meltfnum[0] =
44654             melt_is_instance_of((melt_ptr_t)(/*_.SELBIND__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ meltfrout->tabval[19])));;
44655         MELT_LOCATION("warmelt-normal.melt:3321:/ cond");
44656         /*cond*/
44657         if (/*_#IS_A__L13*/ meltfnum[0]) /*then*/
44658             {
44659                 /*^cond.then*/
44660                 /*^block*/
44661                 /*anyblock*/
44662                 {
44663
44664                     MELT_LOCATION("warmelt-normal.melt:3322:/ cond");
44665                     /*cond*/
44666                     if (
44667                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SELBIND__V24*/ meltfptr[23]),
44668                                                       (melt_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ meltfrout->tabval[19])))
44669                     ) /*then*/
44670                         {
44671                             /*^cond.then*/
44672                             /*^getslot*/
44673                             {
44674                                 melt_ptr_t slot=NULL, obj=NULL;
44675                                 obj = (melt_ptr_t)(/*_.SELBIND__V24*/ meltfptr[23]) /*=obj*/;
44676                                 melt_object_get_field(slot,obj, 2, "SBIND_SELECTORDEF");
44677                                 /*_.SBIND_SELECTORDEF__V63*/
44678                                 meltfptr[50] = slot;
44679                             };
44680                             ;
44681                         }
44682                     else    /*^cond.else*/
44683                         {
44684
44685                             /*_.SBIND_SELECTORDEF__V63*/ meltfptr[50] =  /*reallynil*/ NULL ;;
44686                         }
44687                     ;
44688                     MELT_LOCATION("warmelt-normal.melt:3322:/ cond");
44689                     /*cond*/
44690                     if (
44691                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SBIND_SELECTORDEF__V63*/ meltfptr[50]),
44692                                                       (melt_ptr_t)((/*!CLASS_SOURCE_DEFSELECTOR*/ meltfrout->tabval[20])))
44693                     ) /*then*/
44694                         {
44695                             /*^cond.then*/
44696                             /*^getslot*/
44697                             {
44698                                 melt_ptr_t slot=NULL, obj=NULL;
44699                                 obj = (melt_ptr_t)(/*_.SBIND_SELECTORDEF__V63*/ meltfptr[50]) /*=obj*/;
44700                                 melt_object_get_field(slot,obj, 9, "SDEFSEL_FORMALS");
44701                                 /*_.SDEFSEL_FORMALS__V64*/
44702                                 meltfptr[52] = slot;
44703                             };
44704                             ;
44705                         }
44706                     else    /*^cond.else*/
44707                         {
44708
44709                             /*_.SDEFSEL_FORMALS__V64*/ meltfptr[52] =  /*reallynil*/ NULL ;;
44710                         }
44711                     ;
44712                     /*^compute*/
44713                     /*_.SELFORMALS__V62*/
44714                     meltfptr[48] = /*_.SDEFSEL_FORMALS__V64*/ meltfptr[52];;
44715                     /*epilog*/
44716
44717                     MELT_LOCATION("warmelt-normal.melt:3321:/ clear");
44718                     /*clear*/ /*_.SBIND_SELECTORDEF__V63*/
44719                     meltfptr[50] = 0 ;
44720                     /*^clear*/
44721                     /*clear*/ /*_.SDEFSEL_FORMALS__V64*/
44722                     meltfptr[52] = 0 ;
44723                 }
44724                 ;
44725             }
44726         else    /*^cond.else*/
44727             {
44728
44729                 /*^block*/
44730                 /*anyblock*/
44731                 {
44732
44733
44734                     MELT_CHECK_SIGNAL();
44735                     ;
44736                     /*_#IS_A__L14*/
44737                     meltfnum[1] =
44738                         melt_is_instance_of((melt_ptr_t)(/*_.SELBIND__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[21])));;
44739                     MELT_LOCATION("warmelt-normal.melt:3325:/ cond");
44740                     /*cond*/
44741                     if (/*_#IS_A__L14*/ meltfnum[1]) /*then*/
44742                         {
44743                             /*^cond.then*/
44744                             /*^block*/
44745                             /*anyblock*/
44746                             {
44747
44748                                 MELT_LOCATION("warmelt-normal.melt:3326:/ quasiblock");
44749
44750
44751                                 /*^cond*/
44752                                 /*cond*/
44753                                 if (
44754                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SELBIND__V24*/ meltfptr[23]),
44755                                                                   (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[21])))
44756                                 ) /*then*/
44757                                     {
44758                                         /*^cond.then*/
44759                                         /*^getslot*/
44760                                         {
44761                                             melt_ptr_t slot=NULL, obj=NULL;
44762                                             obj = (melt_ptr_t)(/*_.SELBIND__V24*/ meltfptr[23]) /*=obj*/;
44763                                             melt_object_get_field(slot,obj, 1, "VBIND_VALUE");
44764                                             /*_.VALSEL__V67*/
44765                                             meltfptr[66] = slot;
44766                                         };
44767                                         ;
44768                                     }
44769                                 else    /*^cond.else*/
44770                                     {
44771
44772                                         /*_.VALSEL__V67*/ meltfptr[66] =  /*reallynil*/ NULL ;;
44773                                     }
44774                                 ;
44775
44776 #if MELT_HAVE_DEBUG
44777                                 MELT_LOCATION("warmelt-normal.melt:3327:/ cppif.then");
44778                                 /*^block*/
44779                                 /*anyblock*/
44780                                 {
44781
44782
44783                                     MELT_CHECK_SIGNAL();
44784                                     ;
44785                                     /*_#IS_A__L15*/
44786                                     meltfnum[14] =
44787                                         melt_is_instance_of((melt_ptr_t)(/*_.VALSEL__V67*/ meltfptr[66]), (melt_ptr_t)((/*!CLASS_SELECTOR*/ meltfrout->tabval[22])));;
44788                                     MELT_LOCATION("warmelt-normal.melt:3327:/ cond");
44789                                     /*cond*/
44790                                     if (/*_#IS_A__L15*/ meltfnum[14]) /*then*/
44791                                         {
44792                                             /*^cond.then*/
44793                                             /*_._IFELSE___V69*/ meltfptr[68] = (/*nil*/NULL);;
44794                                         }
44795                                     else
44796                                         {
44797                                             MELT_LOCATION("warmelt-normal.melt:3327:/ cond.else");
44798
44799                                             /*^block*/
44800                                             /*anyblock*/
44801                                             {
44802
44803
44804                                                 MELT_CHECK_SIGNAL();
44805                                                 ;
44806                                                 /*^apply*/
44807                                                 /*apply*/
44808                                                 {
44809                                                     union meltparam_un argtab[4];
44810                                                     memset(&argtab, 0, sizeof(argtab));
44811                                                     /*^apply.arg*/
44812                                                     argtab[0].meltbp_cstring =  "check valsel";
44813                                                     /*^apply.arg*/
44814                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
44815                                                     /*^apply.arg*/
44816                                                     argtab[2].meltbp_long = 3327;
44817                                                     /*^apply.arg*/
44818                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VALSEL__V67*/ meltfptr[66];
44819                                                     /*_.MELT_ASSERT_FAILURE_FUN__V70*/
44820                                                     meltfptr[69] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
44821                                                 }
44822                                                 ;
44823                                                 /*_._IFELSE___V69*/
44824                                                 meltfptr[68] = /*_.MELT_ASSERT_FAILURE_FUN__V70*/ meltfptr[69];;
44825                                                 /*epilog*/
44826
44827                                                 MELT_LOCATION("warmelt-normal.melt:3327:/ clear");
44828                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V70*/
44829                                                 meltfptr[69] = 0 ;
44830                                             }
44831                                             ;
44832                                         }
44833                                     ;
44834                                     /*_.IFCPP___V68*/
44835                                     meltfptr[67] = /*_._IFELSE___V69*/ meltfptr[68];;
44836                                     /*epilog*/
44837
44838                                     MELT_LOCATION("warmelt-normal.melt:3327:/ clear");
44839                                     /*clear*/ /*_#IS_A__L15*/
44840                                     meltfnum[14] = 0 ;
44841                                     /*^clear*/
44842                                     /*clear*/ /*_._IFELSE___V69*/
44843                                     meltfptr[68] = 0 ;
44844                                 }
44845
44846 #else /*MELT_HAVE_DEBUG*/
44847                                 /*^cppif.else*/
44848                                 /*_.IFCPP___V68*/ meltfptr[67] = (/*nil*/NULL);
44849 #endif /*MELT_HAVE_DEBUG*/
44850                                 ;
44851                                 MELT_LOCATION("warmelt-normal.melt:3328:/ cond");
44852                                 /*cond*/
44853                                 if (
44854                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VALSEL__V67*/ meltfptr[66]),
44855                                                                   (melt_ptr_t)((/*!CLASS_SELECTOR*/ meltfrout->tabval[22])))
44856                                 ) /*then*/
44857                                     {
44858                                         /*^cond.then*/
44859                                         /*^getslot*/
44860                                         {
44861                                             melt_ptr_t slot=NULL, obj=NULL;
44862                                             obj = (melt_ptr_t)(/*_.VALSEL__V67*/ meltfptr[66]) /*=obj*/;
44863                                             melt_object_get_field(slot,obj, 2, "SEL_SIGNATURE");
44864                                             /*_.SEL_SIGNATURE__V71*/
44865                                             meltfptr[69] = slot;
44866                                         };
44867                                         ;
44868                                     }
44869                                 else    /*^cond.else*/
44870                                     {
44871
44872                                         /*_.SEL_SIGNATURE__V71*/ meltfptr[69] =  /*reallynil*/ NULL ;;
44873                                     }
44874                                 ;
44875                                 /*^compute*/
44876                                 /*_.LET___V66*/
44877                                 meltfptr[52] = /*_.SEL_SIGNATURE__V71*/ meltfptr[69];;
44878
44879                                 MELT_LOCATION("warmelt-normal.melt:3326:/ clear");
44880                                 /*clear*/ /*_.VALSEL__V67*/
44881                                 meltfptr[66] = 0 ;
44882                                 /*^clear*/
44883                                 /*clear*/ /*_.IFCPP___V68*/
44884                                 meltfptr[67] = 0 ;
44885                                 /*^clear*/
44886                                 /*clear*/ /*_.SEL_SIGNATURE__V71*/
44887                                 meltfptr[69] = 0 ;
44888                                 /*_._IFELSE___V65*/
44889                                 meltfptr[50] = /*_.LET___V66*/ meltfptr[52];;
44890                                 /*epilog*/
44891
44892                                 MELT_LOCATION("warmelt-normal.melt:3325:/ clear");
44893                                 /*clear*/ /*_.LET___V66*/
44894                                 meltfptr[52] = 0 ;
44895                             }
44896                             ;
44897                         }
44898                     else    /*^cond.else*/
44899                         {
44900
44901                             /*^block*/
44902                             /*anyblock*/
44903                             {
44904
44905
44906 #if MELT_HAVE_DEBUG
44907                                 MELT_LOCATION("warmelt-normal.melt:3331:/ cppif.then");
44908                                 /*^block*/
44909                                 /*anyblock*/
44910                                 {
44911
44912
44913                                     MELT_CHECK_SIGNAL();
44914                                     ;
44915                                     /*^cond*/
44916                                     /*cond*/
44917                                     if ((/*nil*/NULL)) /*then*/
44918                                         {
44919                                             /*^cond.then*/
44920                                             /*_._IFELSE___V73*/ meltfptr[66] = (/*nil*/NULL);;
44921                                         }
44922                                     else
44923                                         {
44924                                             MELT_LOCATION("warmelt-normal.melt:3331:/ cond.else");
44925
44926                                             /*^block*/
44927                                             /*anyblock*/
44928                                             {
44929
44930
44931                                                 MELT_CHECK_SIGNAL();
44932                                                 ;
44933                                                 /*^apply*/
44934                                                 /*apply*/
44935                                                 {
44936                                                     union meltparam_un argtab[4];
44937                                                     memset(&argtab, 0, sizeof(argtab));
44938                                                     /*^apply.arg*/
44939                                                     argtab[0].meltbp_cstring =  "invalid selbind";
44940                                                     /*^apply.arg*/
44941                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
44942                                                     /*^apply.arg*/
44943                                                     argtab[2].meltbp_long = 3331;
44944                                                     /*^apply.arg*/
44945                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELBIND__V24*/ meltfptr[23];
44946                                                     /*_.MELT_ASSERT_FAILURE_FUN__V74*/
44947                                                     meltfptr[67] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
44948                                                 }
44949                                                 ;
44950                                                 /*_._IFELSE___V73*/
44951                                                 meltfptr[66] = /*_.MELT_ASSERT_FAILURE_FUN__V74*/ meltfptr[67];;
44952                                                 /*epilog*/
44953
44954                                                 MELT_LOCATION("warmelt-normal.melt:3331:/ clear");
44955                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V74*/
44956                                                 meltfptr[67] = 0 ;
44957                                             }
44958                                             ;
44959                                         }
44960                                     ;
44961                                     /*_.IFCPP___V72*/
44962                                     meltfptr[68] = /*_._IFELSE___V73*/ meltfptr[66];;
44963                                     /*epilog*/
44964
44965                                     MELT_LOCATION("warmelt-normal.melt:3331:/ clear");
44966                                     /*clear*/ /*_._IFELSE___V73*/
44967                                     meltfptr[66] = 0 ;
44968                                 }
44969
44970 #else /*MELT_HAVE_DEBUG*/
44971                                 /*^cppif.else*/
44972                                 /*_.IFCPP___V72*/ meltfptr[68] = (/*nil*/NULL);
44973 #endif /*MELT_HAVE_DEBUG*/
44974                                 ;
44975                                 MELT_LOCATION("warmelt-normal.melt:3330:/ quasiblock");
44976
44977
44978                                 /*_.PROGN___V75*/
44979                                 meltfptr[69] = (/*nil*/NULL);;
44980                                 /*^compute*/
44981                                 /*_._IFELSE___V65*/
44982                                 meltfptr[50] = /*_.PROGN___V75*/ meltfptr[69];;
44983                                 /*epilog*/
44984
44985                                 MELT_LOCATION("warmelt-normal.melt:3325:/ clear");
44986                                 /*clear*/ /*_.IFCPP___V72*/
44987                                 meltfptr[68] = 0 ;
44988                                 /*^clear*/
44989                                 /*clear*/ /*_.PROGN___V75*/
44990                                 meltfptr[69] = 0 ;
44991                             }
44992                             ;
44993                         }
44994                     ;
44995                     /*_.SELFORMALS__V62*/
44996                     meltfptr[48] = /*_._IFELSE___V65*/ meltfptr[50];;
44997                     /*epilog*/
44998
44999                     MELT_LOCATION("warmelt-normal.melt:3321:/ clear");
45000                     /*clear*/ /*_#IS_A__L14*/
45001                     meltfnum[1] = 0 ;
45002                     /*^clear*/
45003                     /*clear*/ /*_._IFELSE___V65*/
45004                     meltfptr[50] = 0 ;
45005                 }
45006                 ;
45007             }
45008         ;
45009
45010         MELT_CHECK_SIGNAL();
45011         ;
45012         MELT_LOCATION("warmelt-normal.melt:3333:/ apply");
45013         /*apply*/
45014         {
45015             /*_.CSYM__V76*/ meltfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SELNAM__V20*/ meltfptr[19]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
45016         }
45017         ;
45018
45019         MELT_CHECK_SIGNAL();
45020         ;
45021         MELT_LOCATION("warmelt-normal.melt:3334:/ quasiblock");
45022
45023
45024         /*^rawallocobj*/
45025         /*rawallocobj*/
45026         {
45027             melt_ptr_t newobj = 0;
45028             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MSEND*/ meltfrout->tabval[23])), (5), "CLASS_NREP_MSEND");
45029             /*_.INST__V78*/
45030             meltfptr[66] =
45031                 newobj;
45032         };
45033         ;
45034         /*^putslot*/
45035         /*putslot*/
45036         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ meltfptr[66])) == MELTOBMAG_OBJECT);
45037         melt_putfield_object((/*_.INST__V78*/ meltfptr[66]), (0), (/*_.SLOC__V22*/ meltfptr[21]), "NREP_LOC");
45038         ;
45039         /*^putslot*/
45040         /*putslot*/
45041         melt_assertmsg("checkobj putslot  _ @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ meltfptr[66])) == MELTOBMAG_OBJECT);
45042         melt_putfield_object((/*_.INST__V78*/ meltfptr[66]), (1), ((/*!CTYPE_VALUE*/ meltfrout->tabval[10])), "NEXPR_CTYP");
45043         ;
45044         /*^putslot*/
45045         /*putslot*/
45046         melt_assertmsg("checkobj putslot  _ @NSEND_SEL", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ meltfptr[66])) == MELTOBMAG_OBJECT);
45047         melt_putfield_object((/*_.INST__V78*/ meltfptr[66]), (3), (/*_.NSEL__V23*/ meltfptr[22]), "NSEND_SEL");
45048         ;
45049         /*^putslot*/
45050         /*putslot*/
45051         melt_assertmsg("checkobj putslot  _ @NSEND_RECV", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ meltfptr[66])) == MELTOBMAG_OBJECT);
45052         melt_putfield_object((/*_.INST__V78*/ meltfptr[66]), (4), (/*_.NRECV__V28*/ meltfptr[24]), "NSEND_RECV");
45053         ;
45054         /*^putslot*/
45055         /*putslot*/
45056         melt_assertmsg("checkobj putslot  _ @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ meltfptr[66])) == MELTOBMAG_OBJECT);
45057         melt_putfield_object((/*_.INST__V78*/ meltfptr[66]), (2), (/*_.NARGS__V42*/ meltfptr[39]), "NEXPR_ARGS");
45058         ;
45059         /*^touchobj*/
45060
45061         melt_dbgtrace_written_object (/*_.INST__V78*/ meltfptr[66], "newly made instance");
45062         ;
45063         /*_.NSEND__V77*/
45064         meltfptr[67] = /*_.INST__V78*/ meltfptr[66];;
45065
45066         MELT_CHECK_SIGNAL();
45067         ;
45068         MELT_LOCATION("warmelt-normal.melt:3341:/ quasiblock");
45069
45070
45071         /*^rawallocobj*/
45072         /*rawallocobj*/
45073         {
45074             melt_ptr_t newobj = 0;
45075             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[15])), (4), "CLASS_NORMAL_LET_BINDING");
45076             /*_.INST__V80*/
45077             meltfptr[69] =
45078                 newobj;
45079         };
45080         ;
45081         /*^putslot*/
45082         /*putslot*/
45083         melt_assertmsg("checkobj putslot  _ @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V80*/ meltfptr[69])) == MELTOBMAG_OBJECT);
45084         melt_putfield_object((/*_.INST__V80*/ meltfptr[69]), (3), (/*_.SLOC__V22*/ meltfptr[21]), "LETBIND_LOC");
45085         ;
45086         /*^putslot*/
45087         /*putslot*/
45088         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V80*/ meltfptr[69])) == MELTOBMAG_OBJECT);
45089         melt_putfield_object((/*_.INST__V80*/ meltfptr[69]), (0), (/*_.CSYM__V76*/ meltfptr[52]), "BINDER");
45090         ;
45091         /*^putslot*/
45092         /*putslot*/
45093         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V80*/ meltfptr[69])) == MELTOBMAG_OBJECT);
45094         melt_putfield_object((/*_.INST__V80*/ meltfptr[69]), (1), ((/*!CTYPE_VALUE*/ meltfrout->tabval[10])), "LETBIND_TYPE");
45095         ;
45096         /*^putslot*/
45097         /*putslot*/
45098         melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V80*/ meltfptr[69])) == MELTOBMAG_OBJECT);
45099         melt_putfield_object((/*_.INST__V80*/ meltfptr[69]), (2), (/*_.NSEND__V77*/ meltfptr[67]), "LETBIND_EXPR");
45100         ;
45101         /*^touchobj*/
45102
45103         melt_dbgtrace_written_object (/*_.INST__V80*/ meltfptr[69], "newly made instance");
45104         ;
45105         /*_.CBIND__V79*/
45106         meltfptr[68] = /*_.INST__V80*/ meltfptr[69];;
45107
45108         MELT_CHECK_SIGNAL();
45109         ;
45110         MELT_LOCATION("warmelt-normal.melt:3346:/ quasiblock");
45111
45112
45113         /*^rawallocobj*/
45114         /*rawallocobj*/
45115         {
45116             melt_ptr_t newobj = 0;
45117             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[24])), (4), "CLASS_NREP_LOCSYMOCC");
45118             /*_.INST__V82*/
45119             meltfptr[81] =
45120                 newobj;
45121         };
45122         ;
45123         /*^putslot*/
45124         /*putslot*/
45125         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[81])) == MELTOBMAG_OBJECT);
45126         melt_putfield_object((/*_.INST__V82*/ meltfptr[81]), (0), (/*_.SLOC__V22*/ meltfptr[21]), "NREP_LOC");
45127         ;
45128         /*^putslot*/
45129         /*putslot*/
45130         melt_assertmsg("checkobj putslot  _ @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[81])) == MELTOBMAG_OBJECT);
45131         melt_putfield_object((/*_.INST__V82*/ meltfptr[81]), (2), ((/*!CTYPE_VALUE*/ meltfrout->tabval[10])), "NOCC_CTYP");
45132         ;
45133         /*^putslot*/
45134         /*putslot*/
45135         melt_assertmsg("checkobj putslot  _ @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[81])) == MELTOBMAG_OBJECT);
45136         melt_putfield_object((/*_.INST__V82*/ meltfptr[81]), (1), (/*_.CSYM__V76*/ meltfptr[52]), "NOCC_SYMB");
45137         ;
45138         /*^putslot*/
45139         /*putslot*/
45140         melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ meltfptr[81])) == MELTOBMAG_OBJECT);
45141         melt_putfield_object((/*_.INST__V82*/ meltfptr[81]), (3), (/*_.CBIND__V79*/ meltfptr[68]), "NOCC_BIND");
45142         ;
45143         /*^touchobj*/
45144
45145         melt_dbgtrace_written_object (/*_.INST__V82*/ meltfptr[81], "newly made instance");
45146         ;
45147         /*_.CLOCC__V81*/
45148         meltfptr[50] = /*_.INST__V82*/ meltfptr[81];;
45149
45150 #if MELT_HAVE_DEBUG
45151         MELT_LOCATION("warmelt-normal.melt:3352:/ cppif.then");
45152         /*^block*/
45153         /*anyblock*/
45154         {
45155
45156
45157             {
45158                 /*^locexp*/
45159                 /*melt_increment_dbgcounter*/
45160 #if MELT_HAVE_DEBUG
45161                 melt_dbgcounter++;
45162 #endif
45163                 ;
45164             }
45165             ;
45166
45167             MELT_CHECK_SIGNAL();
45168             ;
45169             /*_#MELT_NEED_DBG__L16*/
45170             meltfnum[14] =
45171                 /*MELT_NEED_DBG*/
45172 #if MELT_HAVE_DEBUG
45173                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
45174 #else
45175                 0 /* no melt_need_dbg */
45176 #endif /*MELT_HAVE_DEBUG*/
45177                 ;;
45178             MELT_LOCATION("warmelt-normal.melt:3352:/ cond");
45179             /*cond*/
45180             if (/*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then*/
45181                 {
45182                     /*^cond.then*/
45183                     /*^block*/
45184                     /*anyblock*/
45185                     {
45186
45187                         /*_#MELT_CALLCOUNT__L17*/ meltfnum[1] =
45188                             /* for melt_callcount */
45189 #if MELT_HAVE_DEBUG && defined (meltcallcount)
45190                             meltcallcount  /* melt_callcount debugging */
45191 #else
45192                             0L  /* melt_callcount without debug */
45193 #endif /* MELT_HAVE_DEBUG melt_callcount */
45194                             ;;
45195
45196                         MELT_CHECK_SIGNAL();
45197                         ;
45198                         MELT_LOCATION("warmelt-normal.melt:3352:/ apply");
45199                         /*apply*/
45200                         {
45201                             union meltparam_un argtab[5];
45202                             memset(&argtab, 0, sizeof(argtab));
45203                             /*^apply.arg*/
45204                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L17*/ meltfnum[1];
45205                             /*^apply.arg*/
45206                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
45207                             /*^apply.arg*/
45208                             argtab[2].meltbp_long = 3352;
45209                             /*^apply.arg*/
45210                             argtab[3].meltbp_cstring =  "normexp_msend nsend middle";
45211                             /*^apply.arg*/
45212                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NSEND__V77*/ meltfptr[67];
45213                             /*_.MELT_DEBUG_FUN__V84*/
45214                             meltfptr[83] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
45215                         }
45216                         ;
45217                         /*_._IF___V83*/
45218                         meltfptr[82] = /*_.MELT_DEBUG_FUN__V84*/ meltfptr[83];;
45219                         /*epilog*/
45220
45221                         MELT_LOCATION("warmelt-normal.melt:3352:/ clear");
45222                         /*clear*/ /*_#MELT_CALLCOUNT__L17*/
45223                         meltfnum[1] = 0 ;
45224                         /*^clear*/
45225                         /*clear*/ /*_.MELT_DEBUG_FUN__V84*/
45226                         meltfptr[83] = 0 ;
45227                     }
45228                     ;
45229                 }
45230             else    /*^cond.else*/
45231                 {
45232
45233                     /*_._IF___V83*/ meltfptr[82] =  /*reallynil*/ NULL ;;
45234                 }
45235             ;
45236
45237             {
45238                 MELT_LOCATION("warmelt-normal.melt:3352:/ locexp");
45239                 /*void*/
45240                 (void)0;
45241             }
45242             ;
45243             /*^quasiblock*/
45244
45245
45246             /*epilog*/
45247
45248             /*^clear*/
45249             /*clear*/ /*_#MELT_NEED_DBG__L16*/
45250             meltfnum[14] = 0 ;
45251             /*^clear*/
45252             /*clear*/ /*_._IF___V83*/
45253             meltfptr[82] = 0 ;
45254         }
45255
45256 #else /*MELT_HAVE_DEBUG*/
45257         /*^cppif.else*/
45258         /*^block*/
45259         /*anyblock*/
45260         {
45261
45262
45263             {
45264                 /*^locexp*/
45265                 /*void*/(void)0;
45266             }
45267             ;
45268             /*epilog*/
45269         }
45270
45271 #endif /*MELT_HAVE_DEBUG*/
45272         ;
45273
45274 #if MELT_HAVE_DEBUG
45275         MELT_LOCATION("warmelt-normal.melt:3353:/ cppif.then");
45276         /*^block*/
45277         /*anyblock*/
45278         {
45279
45280
45281             MELT_CHECK_SIGNAL();
45282             ;
45283             /*_#IS_OBJECT__L18*/
45284             meltfnum[1] =
45285                 (melt_magic_discr((melt_ptr_t)(/*_.NRECV__V28*/ meltfptr[24])) == MELTOBMAG_OBJECT);;
45286             MELT_LOCATION("warmelt-normal.melt:3353:/ cond");
45287             /*cond*/
45288             if (/*_#IS_OBJECT__L18*/ meltfnum[1]) /*then*/
45289                 {
45290                     /*^cond.then*/
45291                     /*_._IFELSE___V86*/ meltfptr[82] = (/*nil*/NULL);;
45292                 }
45293             else
45294                 {
45295                     MELT_LOCATION("warmelt-normal.melt:3353:/ cond.else");
45296
45297                     /*^block*/
45298                     /*anyblock*/
45299                     {
45300
45301
45302                         MELT_CHECK_SIGNAL();
45303                         ;
45304                         /*^apply*/
45305                         /*apply*/
45306                         {
45307                             union meltparam_un argtab[4];
45308                             memset(&argtab, 0, sizeof(argtab));
45309                             /*^apply.arg*/
45310                             argtab[0].meltbp_cstring =  "check nrecv";
45311                             /*^apply.arg*/
45312                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
45313                             /*^apply.arg*/
45314                             argtab[2].meltbp_long = 3353;
45315                             /*^apply.arg*/
45316                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NRECV__V28*/ meltfptr[24];
45317                             /*_.MELT_ASSERT_FAILURE_FUN__V87*/
45318                             meltfptr[86] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
45319                         }
45320                         ;
45321                         /*_._IFELSE___V86*/
45322                         meltfptr[82] = /*_.MELT_ASSERT_FAILURE_FUN__V87*/ meltfptr[86];;
45323                         /*epilog*/
45324
45325                         MELT_LOCATION("warmelt-normal.melt:3353:/ clear");
45326                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V87*/
45327                         meltfptr[86] = 0 ;
45328                     }
45329                     ;
45330                 }
45331             ;
45332             /*_.IFCPP___V85*/
45333             meltfptr[83] = /*_._IFELSE___V86*/ meltfptr[82];;
45334             /*epilog*/
45335
45336             MELT_LOCATION("warmelt-normal.melt:3353:/ clear");
45337             /*clear*/ /*_#IS_OBJECT__L18*/
45338             meltfnum[1] = 0 ;
45339             /*^clear*/
45340             /*clear*/ /*_._IFELSE___V86*/
45341             meltfptr[82] = 0 ;
45342         }
45343
45344 #else /*MELT_HAVE_DEBUG*/
45345         /*^cppif.else*/
45346         /*_.IFCPP___V85*/ meltfptr[83] = (/*nil*/NULL);
45347 #endif /*MELT_HAVE_DEBUG*/
45348         ;
45349
45350         MELT_CHECK_SIGNAL();
45351         ;
45352         /*^compute*/
45353         /*_#IS_MULTIPLE__L19*/
45354         meltfnum[14] =
45355             (melt_magic_discr((melt_ptr_t)(/*_.SELFORMALS__V62*/ meltfptr[48])) == MELTOBMAG_MULTIPLE);;
45356         MELT_LOCATION("warmelt-normal.melt:3354:/ cond");
45357         /*cond*/
45358         if (/*_#IS_MULTIPLE__L19*/ meltfnum[14]) /*then*/
45359             {
45360                 /*^cond.then*/
45361                 /*^block*/
45362                 /*anyblock*/
45363                 {
45364
45365                     MELT_LOCATION("warmelt-normal.melt:3355:/ quasiblock");
45366
45367
45368                     /*_.RECVFORMAL__V88*/
45369                     meltfptr[86] =
45370                         (melt_multiple_nth((melt_ptr_t)(/*_.SELFORMALS__V62*/ meltfptr[48]), (0)));;
45371                     /*^compute*/
45372                     /*_#NBFORMALS__L20*/
45373                     meltfnum[1] =
45374                         (melt_multiple_length((melt_ptr_t)(/*_.SELFORMALS__V62*/ meltfptr[48])));;
45375
45376 #if MELT_HAVE_DEBUG
45377                     MELT_LOCATION("warmelt-normal.melt:3358:/ cppif.then");
45378                     /*^block*/
45379                     /*anyblock*/
45380                     {
45381
45382
45383                         {
45384                             /*^locexp*/
45385                             /*melt_increment_dbgcounter*/
45386 #if MELT_HAVE_DEBUG
45387                             melt_dbgcounter++;
45388 #endif
45389                             ;
45390                         }
45391                         ;
45392
45393                         MELT_CHECK_SIGNAL();
45394                         ;
45395                         /*_#MELT_NEED_DBG__L21*/
45396                         meltfnum[20] =
45397                             /*MELT_NEED_DBG*/
45398 #if MELT_HAVE_DEBUG
45399                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
45400 #else
45401                             0 /* no melt_need_dbg */
45402 #endif /*MELT_HAVE_DEBUG*/
45403                             ;;
45404                         MELT_LOCATION("warmelt-normal.melt:3358:/ cond");
45405                         /*cond*/
45406                         if (/*_#MELT_NEED_DBG__L21*/ meltfnum[20]) /*then*/
45407                             {
45408                                 /*^cond.then*/
45409                                 /*^block*/
45410                                 /*anyblock*/
45411                                 {
45412
45413                                     /*_#MELT_CALLCOUNT__L22*/ meltfnum[21] =
45414                                         /* for melt_callcount */
45415 #if MELT_HAVE_DEBUG && defined (meltcallcount)
45416                                         meltcallcount  /* melt_callcount debugging */
45417 #else
45418                                         0L  /* melt_callcount without debug */
45419 #endif /* MELT_HAVE_DEBUG melt_callcount */
45420                                         ;;
45421
45422                                     MELT_CHECK_SIGNAL();
45423                                     ;
45424                                     MELT_LOCATION("warmelt-normal.melt:3358:/ apply");
45425                                     /*apply*/
45426                                     {
45427                                         union meltparam_un argtab[5];
45428                                         memset(&argtab, 0, sizeof(argtab));
45429                                         /*^apply.arg*/
45430                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L22*/ meltfnum[21];
45431                                         /*^apply.arg*/
45432                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
45433                                         /*^apply.arg*/
45434                                         argtab[2].meltbp_long = 3358;
45435                                         /*^apply.arg*/
45436                                         argtab[3].meltbp_cstring =  "normexp_msend";
45437                                         /*^apply.arg*/
45438                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SELFORMALS__V62*/ meltfptr[48];
45439                                         /*_.MELT_DEBUG_FUN__V90*/
45440                                         meltfptr[89] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
45441                                     }
45442                                     ;
45443                                     /*_._IF___V89*/
45444                                     meltfptr[82] = /*_.MELT_DEBUG_FUN__V90*/ meltfptr[89];;
45445                                     /*epilog*/
45446
45447                                     MELT_LOCATION("warmelt-normal.melt:3358:/ clear");
45448                                     /*clear*/ /*_#MELT_CALLCOUNT__L22*/
45449                                     meltfnum[21] = 0 ;
45450                                     /*^clear*/
45451                                     /*clear*/ /*_.MELT_DEBUG_FUN__V90*/
45452                                     meltfptr[89] = 0 ;
45453                                 }
45454                                 ;
45455                             }
45456                         else    /*^cond.else*/
45457                             {
45458
45459                                 /*_._IF___V89*/ meltfptr[82] =  /*reallynil*/ NULL ;;
45460                             }
45461                         ;
45462
45463                         {
45464                             MELT_LOCATION("warmelt-normal.melt:3358:/ locexp");
45465                             /*void*/
45466                             (void)0;
45467                         }
45468                         ;
45469                         /*^quasiblock*/
45470
45471
45472                         /*epilog*/
45473
45474                         /*^clear*/
45475                         /*clear*/ /*_#MELT_NEED_DBG__L21*/
45476                         meltfnum[20] = 0 ;
45477                         /*^clear*/
45478                         /*clear*/ /*_._IF___V89*/
45479                         meltfptr[82] = 0 ;
45480                     }
45481
45482 #else /*MELT_HAVE_DEBUG*/
45483                     /*^cppif.else*/
45484                     /*^block*/
45485                     /*anyblock*/
45486                     {
45487
45488
45489                         {
45490                             /*^locexp*/
45491                             /*void*/(void)0;
45492                         }
45493                         ;
45494                         /*epilog*/
45495                     }
45496
45497 #endif /*MELT_HAVE_DEBUG*/
45498                     ;
45499
45500 #if MELT_HAVE_DEBUG
45501                     MELT_LOCATION("warmelt-normal.melt:3359:/ cppif.then");
45502                     /*^block*/
45503                     /*anyblock*/
45504                     {
45505
45506
45507                         MELT_CHECK_SIGNAL();
45508                         ;
45509                         /*^cond*/
45510                         /*cond*/
45511                         if (
45512                             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECVFORMAL__V88*/ meltfptr[86]),
45513                                                           (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[25])))
45514                         ) /*then*/
45515                             {
45516                                 /*^cond.then*/
45517                                 /*^getslot*/
45518                                 {
45519                                     melt_ptr_t slot=NULL, obj=NULL;
45520                                     obj = (melt_ptr_t)(/*_.RECVFORMAL__V88*/ meltfptr[86]) /*=obj*/;
45521                                     melt_object_get_field(slot,obj, 1, "FBIND_TYPE");
45522                                     /*_.FBIND_TYPE__V92*/
45523                                     meltfptr[82] = slot;
45524                                 };
45525                                 ;
45526                             }
45527                         else    /*^cond.else*/
45528                             {
45529
45530                                 /*_.FBIND_TYPE__V92*/ meltfptr[82] =  /*reallynil*/ NULL ;;
45531                             }
45532                         ;
45533                         /*^compute*/
45534                         /*_#eqeq__L23*/
45535                         meltfnum[21] =
45536                             ((/*_.FBIND_TYPE__V92*/ meltfptr[82]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[10])));;
45537                         MELT_LOCATION("warmelt-normal.melt:3359:/ cond");
45538                         /*cond*/
45539                         if (/*_#eqeq__L23*/ meltfnum[21]) /*then*/
45540                             {
45541                                 /*^cond.then*/
45542                                 /*_._IFELSE___V93*/ meltfptr[92] = (/*nil*/NULL);;
45543                             }
45544                         else
45545                             {
45546                                 MELT_LOCATION("warmelt-normal.melt:3359:/ cond.else");
45547
45548                                 /*^block*/
45549                                 /*anyblock*/
45550                                 {
45551
45552
45553                                     MELT_CHECK_SIGNAL();
45554                                     ;
45555                                     /*^apply*/
45556                                     /*apply*/
45557                                     {
45558                                         union meltparam_un argtab[4];
45559                                         memset(&argtab, 0, sizeof(argtab));
45560                                         /*^apply.arg*/
45561                                         argtab[0].meltbp_cstring =  "check recvformal";
45562                                         /*^apply.arg*/
45563                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
45564                                         /*^apply.arg*/
45565                                         argtab[2].meltbp_long = 3359;
45566                                         /*^apply.arg*/
45567                                         argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECVFORMAL__V88*/ meltfptr[86];
45568                                         /*_.MELT_ASSERT_FAILURE_FUN__V94*/
45569                                         meltfptr[93] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
45570                                     }
45571                                     ;
45572                                     /*_._IFELSE___V93*/
45573                                     meltfptr[92] = /*_.MELT_ASSERT_FAILURE_FUN__V94*/ meltfptr[93];;
45574                                     /*epilog*/
45575
45576                                     MELT_LOCATION("warmelt-normal.melt:3359:/ clear");
45577                                     /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V94*/
45578                                     meltfptr[93] = 0 ;
45579                                 }
45580                                 ;
45581                             }
45582                         ;
45583                         /*_.IFCPP___V91*/
45584                         meltfptr[89] = /*_._IFELSE___V93*/ meltfptr[92];;
45585                         /*epilog*/
45586
45587                         MELT_LOCATION("warmelt-normal.melt:3359:/ clear");
45588                         /*clear*/ /*_.FBIND_TYPE__V92*/
45589                         meltfptr[82] = 0 ;
45590                         /*^clear*/
45591                         /*clear*/ /*_#eqeq__L23*/
45592                         meltfnum[21] = 0 ;
45593                         /*^clear*/
45594                         /*clear*/ /*_._IFELSE___V93*/
45595                         meltfptr[92] = 0 ;
45596                     }
45597
45598 #else /*MELT_HAVE_DEBUG*/
45599                     /*^cppif.else*/
45600                     /*_.IFCPP___V91*/ meltfptr[89] = (/*nil*/NULL);
45601 #endif /*MELT_HAVE_DEBUG*/
45602                     ;
45603
45604                     MELT_CHECK_SIGNAL();
45605                     ;
45606                     /*^compute*/
45607                     /*_#MULTIPLE_LENGTH__L24*/
45608                     meltfnum[20] =
45609                         (melt_multiple_length((melt_ptr_t)(/*_.NARGS__V42*/ meltfptr[39])));;
45610                     /*^compute*/
45611                     /*_#plI__L25*/
45612                     meltfnum[21] =
45613                         ((1) + (/*_#MULTIPLE_LENGTH__L24*/ meltfnum[20]));;
45614                     /*^compute*/
45615                     /*_#exeqI__L26*/
45616                     meltfnum[25] =
45617                         ((/*_#NBFORMALS__L20*/ meltfnum[1]) != (/*_#plI__L25*/ meltfnum[21]));;
45618                     MELT_LOCATION("warmelt-normal.melt:3360:/ cond");
45619                     /*cond*/
45620                     if (/*_#exeqI__L26*/ meltfnum[25]) /*then*/
45621                         {
45622                             /*^cond.then*/
45623                             /*^block*/
45624                             /*anyblock*/
45625                             {
45626
45627                                 MELT_LOCATION("warmelt-normal.melt:3362:/ cond");
45628                                 /*cond*/
45629                                 if (
45630                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SELNAM__V20*/ meltfptr[19]),
45631                                                                   (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[26])))
45632                                 ) /*then*/
45633                                     {
45634                                         /*^cond.then*/
45635                                         /*^getslot*/
45636                                         {
45637                                             melt_ptr_t slot=NULL, obj=NULL;
45638                                             obj = (melt_ptr_t)(/*_.SELNAM__V20*/ meltfptr[19]) /*=obj*/;
45639                                             melt_object_get_field(slot,obj, 1, "NAMED_NAME");
45640                                             /*_.NAMED_NAME__V96*/
45641                                             meltfptr[82] = slot;
45642                                         };
45643                                         ;
45644                                     }
45645                                 else    /*^cond.else*/
45646                                     {
45647
45648                                         /*_.NAMED_NAME__V96*/ meltfptr[82] =  /*reallynil*/ NULL ;;
45649                                     }
45650                                 ;
45651
45652                                 MELT_CHECK_SIGNAL();
45653                                 ;
45654                                 MELT_LOCATION("warmelt-normal.melt:3361:/ apply");
45655                                 /*apply*/
45656                                 {
45657                                     union meltparam_un argtab[3];
45658                                     memset(&argtab, 0, sizeof(argtab));
45659                                     /*^apply.arg*/
45660                                     argtab[0].meltbp_cstring =  "unexpected number of arguments for method $1 with $2 formals";
45661                                     /*^apply.arg*/
45662                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V96*/ meltfptr[82];
45663                                     /*^apply.arg*/
45664                                     argtab[2].meltbp_long = /*_#NBFORMALS__L20*/ meltfnum[1];
45665                                     /*_.ERROR_AT__V97*/
45666                                     meltfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
45667                                 }
45668                                 ;
45669                                 /*_._IF___V95*/
45670                                 meltfptr[93] = /*_.ERROR_AT__V97*/ meltfptr[92];;
45671                                 /*epilog*/
45672
45673                                 MELT_LOCATION("warmelt-normal.melt:3360:/ clear");
45674                                 /*clear*/ /*_.NAMED_NAME__V96*/
45675                                 meltfptr[82] = 0 ;
45676                                 /*^clear*/
45677                                 /*clear*/ /*_.ERROR_AT__V97*/
45678                                 meltfptr[92] = 0 ;
45679                             }
45680                             ;
45681                         }
45682                     else    /*^cond.else*/
45683                         {
45684
45685                             /*_._IF___V95*/ meltfptr[93] =  /*reallynil*/ NULL ;;
45686                         }
45687                     ;
45688                     /*citerblock FOREACH_IN_MULTIPLE*/
45689                     {
45690                         /* start foreach_in_multiple meltcit1__EACHTUP */
45691                         long  meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NARGS__V42*/ meltfptr[39]);
45692                         for (/*_#NIX__L27*/ meltfnum[26] = 0;
45693                                             (/*_#NIX__L27*/ meltfnum[26] >= 0) && (/*_#NIX__L27*/ meltfnum[26] <  meltcit1__EACHTUP_ln);
45694                                             /*_#NIX__L27*/ meltfnum[26]++)
45695                             {
45696                                 /*_.CURNARG__V98*/ meltfptr[82] = melt_multiple_nth((melt_ptr_t)(/*_.NARGS__V42*/ meltfptr[39]),  /*_#NIX__L27*/ meltfnum[26]);
45697
45698
45699
45700                                 MELT_LOCATION("warmelt-normal.melt:3367:/ quasiblock");
45701
45702
45703                                 /*_#plI__L28*/
45704                                 meltfnum[27] =
45705                                     ((/*_#NIX__L27*/ meltfnum[26]) + (1));;
45706                                 /*^compute*/
45707                                 /*_.CURFORMAL__V99*/
45708                                 meltfptr[92] =
45709                                     (melt_multiple_nth((melt_ptr_t)(/*_.SELFORMALS__V62*/ meltfptr[48]), (/*_#plI__L28*/ meltfnum[27])));;
45710
45711                                 MELT_CHECK_SIGNAL();
45712                                 ;
45713                                 MELT_LOCATION("warmelt-normal.melt:3368:/ msend");
45714                                 /*msend*/
45715                                 {
45716                                     union meltparam_un argtab[1];
45717                                     memset(&argtab, 0, sizeof(argtab));
45718                                     /*^ojbmsend.arg*/
45719                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
45720                                     /*_.CURCTYP__V100*/
45721                                     meltfptr[99] = meltgc_send((melt_ptr_t)(/*_.CURNARG__V98*/ meltfptr[82]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
45722                                 }
45723                                 ;
45724                                 MELT_LOCATION("warmelt-normal.melt:3369:/ cond");
45725                                 /*cond*/
45726                                 if (
45727                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFORMAL__V99*/ meltfptr[92]),
45728                                                                   (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[25])))
45729                                 ) /*then*/
45730                                     {
45731                                         /*^cond.then*/
45732                                         /*^getslot*/
45733                                         {
45734                                             melt_ptr_t slot=NULL, obj=NULL;
45735                                             obj = (melt_ptr_t)(/*_.CURFORMAL__V99*/ meltfptr[92]) /*=obj*/;
45736                                             melt_object_get_field(slot,obj, 1, "FBIND_TYPE");
45737                                             /*_.FORMCTYP__V101*/
45738                                             meltfptr[100] = slot;
45739                                         };
45740                                         ;
45741                                     }
45742                                 else    /*^cond.else*/
45743                                     {
45744
45745                                         /*_.FORMCTYP__V101*/ meltfptr[100] =  /*reallynil*/ NULL ;;
45746                                     }
45747                                 ;
45748                                 MELT_LOCATION("warmelt-normal.melt:3370:/ cond");
45749                                 /*cond*/
45750                                 if (
45751                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFORMAL__V99*/ meltfptr[92]),
45752                                                                   (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[27])))
45753                                 ) /*then*/
45754                                     {
45755                                         /*^cond.then*/
45756                                         /*^getslot*/
45757                                         {
45758                                             melt_ptr_t slot=NULL, obj=NULL;
45759                                             obj = (melt_ptr_t)(/*_.CURFORMAL__V99*/ meltfptr[92]) /*=obj*/;
45760                                             melt_object_get_field(slot,obj, 0, "BINDER");
45761                                             /*_.FORMBINDER__V102*/
45762                                             meltfptr[101] = slot;
45763                                         };
45764                                         ;
45765                                     }
45766                                 else    /*^cond.else*/
45767                                     {
45768
45769                                         /*_.FORMBINDER__V102*/ meltfptr[101] =  /*reallynil*/ NULL ;;
45770                                     }
45771                                 ;
45772
45773 #if MELT_HAVE_DEBUG
45774                                 MELT_LOCATION("warmelt-normal.melt:3372:/ cppif.then");
45775                                 /*^block*/
45776                                 /*anyblock*/
45777                                 {
45778
45779
45780                                     MELT_CHECK_SIGNAL();
45781                                     ;
45782                                     /*_#IS_A__L29*/
45783                                     meltfnum[28] =
45784                                         melt_is_instance_of((melt_ptr_t)(/*_.CURFORMAL__V99*/ meltfptr[92]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[25])));;
45785                                     MELT_LOCATION("warmelt-normal.melt:3372:/ cond");
45786                                     /*cond*/
45787                                     if (/*_#IS_A__L29*/ meltfnum[28]) /*then*/
45788                                         {
45789                                             /*^cond.then*/
45790                                             /*_._IFELSE___V104*/ meltfptr[103] = (/*nil*/NULL);;
45791                                         }
45792                                     else
45793                                         {
45794                                             MELT_LOCATION("warmelt-normal.melt:3372:/ cond.else");
45795
45796                                             /*^block*/
45797                                             /*anyblock*/
45798                                             {
45799
45800
45801                                                 MELT_CHECK_SIGNAL();
45802                                                 ;
45803                                                 /*^apply*/
45804                                                 /*apply*/
45805                                                 {
45806                                                     union meltparam_un argtab[4];
45807                                                     memset(&argtab, 0, sizeof(argtab));
45808                                                     /*^apply.arg*/
45809                                                     argtab[0].meltbp_cstring =  "check curformal";
45810                                                     /*^apply.arg*/
45811                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
45812                                                     /*^apply.arg*/
45813                                                     argtab[2].meltbp_long = 3372;
45814                                                     /*^apply.arg*/
45815                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURFORMAL__V99*/ meltfptr[92];
45816                                                     /*_.MELT_ASSERT_FAILURE_FUN__V105*/
45817                                                     meltfptr[104] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
45818                                                 }
45819                                                 ;
45820                                                 /*_._IFELSE___V104*/
45821                                                 meltfptr[103] = /*_.MELT_ASSERT_FAILURE_FUN__V105*/ meltfptr[104];;
45822                                                 /*epilog*/
45823
45824                                                 MELT_LOCATION("warmelt-normal.melt:3372:/ clear");
45825                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V105*/
45826                                                 meltfptr[104] = 0 ;
45827                                             }
45828                                             ;
45829                                         }
45830                                     ;
45831                                     /*_.IFCPP___V103*/
45832                                     meltfptr[102] = /*_._IFELSE___V104*/ meltfptr[103];;
45833                                     /*epilog*/
45834
45835                                     MELT_LOCATION("warmelt-normal.melt:3372:/ clear");
45836                                     /*clear*/ /*_#IS_A__L29*/
45837                                     meltfnum[28] = 0 ;
45838                                     /*^clear*/
45839                                     /*clear*/ /*_._IFELSE___V104*/
45840                                     meltfptr[103] = 0 ;
45841                                 }
45842
45843 #else /*MELT_HAVE_DEBUG*/
45844                                 /*^cppif.else*/
45845                                 /*_.IFCPP___V103*/ meltfptr[102] = (/*nil*/NULL);
45846 #endif /*MELT_HAVE_DEBUG*/
45847                                 ;
45848
45849                                 MELT_CHECK_SIGNAL();
45850                                 ;
45851                                 /*^compute*/
45852                                 /*_#exeq__L30*/
45853                                 meltfnum[28] =
45854                                     ((/*_.CURCTYP__V100*/ meltfptr[99]) != (/*_.FORMCTYP__V101*/ meltfptr[100]));;
45855                                 MELT_LOCATION("warmelt-normal.melt:3373:/ cond");
45856                                 /*cond*/
45857                                 if (/*_#exeq__L30*/ meltfnum[28]) /*then*/
45858                                     {
45859                                         /*^cond.then*/
45860                                         /*^block*/
45861                                         /*anyblock*/
45862                                         {
45863
45864                                             MELT_LOCATION("warmelt-normal.melt:3376:/ cond");
45865                                             /*cond*/
45866                                             if (
45867                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SELNAM__V20*/ meltfptr[19]),
45868                                                                               (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[26])))
45869                                             ) /*then*/
45870                                                 {
45871                                                     /*^cond.then*/
45872                                                     /*^getslot*/
45873                                                     {
45874                                                         melt_ptr_t slot=NULL, obj=NULL;
45875                                                         obj = (melt_ptr_t)(/*_.SELNAM__V20*/ meltfptr[19]) /*=obj*/;
45876                                                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
45877                                                         /*_.NAMED_NAME__V106*/
45878                                                         meltfptr[104] = slot;
45879                                                     };
45880                                                     ;
45881                                                 }
45882                                             else    /*^cond.else*/
45883                                                 {
45884
45885                                                     /*_.NAMED_NAME__V106*/ meltfptr[104] =  /*reallynil*/ NULL ;;
45886                                                 }
45887                                             ;
45888
45889                                             {
45890                                                 MELT_LOCATION("warmelt-normal.melt:3375:/ locexp");
45891                                                 melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V22*/ meltfptr[21]), ( "c-type mismatch in method send argument"), (melt_ptr_t)(/*_.NAMED_NAME__V106*/ meltfptr[104]));
45892                                             }
45893                                             ;
45894                                             MELT_LOCATION("warmelt-normal.melt:3378:/ cond");
45895                                             /*cond*/
45896                                             if (
45897                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FORMBINDER__V102*/ meltfptr[101]),
45898                                                                               (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[26])))
45899                                             ) /*then*/
45900                                                 {
45901                                                     /*^cond.then*/
45902                                                     /*^getslot*/
45903                                                     {
45904                                                         melt_ptr_t slot=NULL, obj=NULL;
45905                                                         obj = (melt_ptr_t)(/*_.FORMBINDER__V102*/ meltfptr[101]) /*=obj*/;
45906                                                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
45907                                                         /*_.NAMED_NAME__V107*/
45908                                                         meltfptr[103] = slot;
45909                                                     };
45910                                                     ;
45911                                                 }
45912                                             else    /*^cond.else*/
45913                                                 {
45914
45915                                                     /*_.NAMED_NAME__V107*/ meltfptr[103] =  /*reallynil*/ NULL ;;
45916                                                 }
45917                                             ;
45918
45919                                             {
45920                                                 MELT_LOCATION("warmelt-normal.melt:3377:/ locexp");
45921                                                 melt_inform_str((melt_ptr_t)(/*_.SLOC__V22*/ meltfptr[21]), ( "mismatched method formal name"), (melt_ptr_t)(/*_.NAMED_NAME__V107*/ meltfptr[103]));
45922                                             }
45923                                             ;
45924                                             MELT_LOCATION("warmelt-normal.melt:3380:/ cond");
45925                                             /*cond*/
45926                                             if (
45927                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V100*/ meltfptr[99]),
45928                                                                               (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[26])))
45929                                             ) /*then*/
45930                                                 {
45931                                                     /*^cond.then*/
45932                                                     /*^getslot*/
45933                                                     {
45934                                                         melt_ptr_t slot=NULL, obj=NULL;
45935                                                         obj = (melt_ptr_t)(/*_.CURCTYP__V100*/ meltfptr[99]) /*=obj*/;
45936                                                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
45937                                                         /*_.NAMED_NAME__V108*/
45938                                                         meltfptr[107] = slot;
45939                                                     };
45940                                                     ;
45941                                                 }
45942                                             else    /*^cond.else*/
45943                                                 {
45944
45945                                                     /*_.NAMED_NAME__V108*/ meltfptr[107] =  /*reallynil*/ NULL ;;
45946                                                 }
45947                                             ;
45948
45949                                             {
45950                                                 MELT_LOCATION("warmelt-normal.melt:3379:/ locexp");
45951                                                 melt_inform_str((melt_ptr_t)(/*_.SLOC__V22*/ meltfptr[21]), ( "mismatched method actual type"), (melt_ptr_t)(/*_.NAMED_NAME__V108*/ meltfptr[107]));
45952                                             }
45953                                             ;
45954                                             MELT_LOCATION("warmelt-normal.melt:3382:/ cond");
45955                                             /*cond*/
45956                                             if (
45957                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FORMCTYP__V101*/ meltfptr[100]),
45958                                                                               (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[26])))
45959                                             ) /*then*/
45960                                                 {
45961                                                     /*^cond.then*/
45962                                                     /*^getslot*/
45963                                                     {
45964                                                         melt_ptr_t slot=NULL, obj=NULL;
45965                                                         obj = (melt_ptr_t)(/*_.FORMCTYP__V101*/ meltfptr[100]) /*=obj*/;
45966                                                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
45967                                                         /*_.NAMED_NAME__V109*/
45968                                                         meltfptr[108] = slot;
45969                                                     };
45970                                                     ;
45971                                                 }
45972                                             else    /*^cond.else*/
45973                                                 {
45974
45975                                                     /*_.NAMED_NAME__V109*/ meltfptr[108] =  /*reallynil*/ NULL ;;
45976                                                 }
45977                                             ;
45978
45979                                             {
45980                                                 MELT_LOCATION("warmelt-normal.melt:3381:/ locexp");
45981                                                 melt_inform_str((melt_ptr_t)(/*_.SLOC__V22*/ meltfptr[21]), ( "mismatched method expected type"), (melt_ptr_t)(/*_.NAMED_NAME__V109*/ meltfptr[108]));
45982                                             }
45983                                             ;
45984                                             MELT_LOCATION("warmelt-normal.melt:3374:/ quasiblock");
45985
45986
45987                                             /*epilog*/
45988
45989                                             MELT_LOCATION("warmelt-normal.melt:3373:/ clear");
45990                                             /*clear*/ /*_.NAMED_NAME__V106*/
45991                                             meltfptr[104] = 0 ;
45992                                             /*^clear*/
45993                                             /*clear*/ /*_.NAMED_NAME__V107*/
45994                                             meltfptr[103] = 0 ;
45995                                             /*^clear*/
45996                                             /*clear*/ /*_.NAMED_NAME__V108*/
45997                                             meltfptr[107] = 0 ;
45998                                             /*^clear*/
45999                                             /*clear*/ /*_.NAMED_NAME__V109*/
46000                                             meltfptr[108] = 0 ;
46001                                         }
46002                                         ;
46003                                     } /*noelse*/
46004                                 ;
46005
46006                                 MELT_LOCATION("warmelt-normal.melt:3367:/ clear");
46007                                 /*clear*/ /*_#plI__L28*/
46008                                 meltfnum[27] = 0 ;
46009                                 /*^clear*/
46010                                 /*clear*/ /*_.CURFORMAL__V99*/
46011                                 meltfptr[92] = 0 ;
46012                                 /*^clear*/
46013                                 /*clear*/ /*_.CURCTYP__V100*/
46014                                 meltfptr[99] = 0 ;
46015                                 /*^clear*/
46016                                 /*clear*/ /*_.FORMCTYP__V101*/
46017                                 meltfptr[100] = 0 ;
46018                                 /*^clear*/
46019                                 /*clear*/ /*_.FORMBINDER__V102*/
46020                                 meltfptr[101] = 0 ;
46021                                 /*^clear*/
46022                                 /*clear*/ /*_.IFCPP___V103*/
46023                                 meltfptr[102] = 0 ;
46024                                 /*^clear*/
46025                                 /*clear*/ /*_#exeq__L30*/
46026                                 meltfnum[28] = 0 ;
46027                                 if (/*_#NIX__L27*/ meltfnum[26]<0) break;
46028                             } /* end  foreach_in_multiple meltcit1__EACHTUP */
46029
46030                         /*citerepilog*/
46031
46032                         MELT_LOCATION("warmelt-normal.melt:3364:/ clear");
46033                         /*clear*/ /*_.CURNARG__V98*/
46034                         meltfptr[82] = 0 ;
46035                         /*^clear*/
46036                         /*clear*/ /*_#NIX__L27*/
46037                         meltfnum[26] = 0 ;
46038                     } /*endciterblock FOREACH_IN_MULTIPLE*/
46039                     ;
46040
46041                     MELT_LOCATION("warmelt-normal.melt:3355:/ clear");
46042                     /*clear*/ /*_.RECVFORMAL__V88*/
46043                     meltfptr[86] = 0 ;
46044                     /*^clear*/
46045                     /*clear*/ /*_#NBFORMALS__L20*/
46046                     meltfnum[1] = 0 ;
46047                     /*^clear*/
46048                     /*clear*/ /*_.IFCPP___V91*/
46049                     meltfptr[89] = 0 ;
46050                     /*^clear*/
46051                     /*clear*/ /*_#MULTIPLE_LENGTH__L24*/
46052                     meltfnum[20] = 0 ;
46053                     /*^clear*/
46054                     /*clear*/ /*_#plI__L25*/
46055                     meltfnum[21] = 0 ;
46056                     /*^clear*/
46057                     /*clear*/ /*_#exeqI__L26*/
46058                     meltfnum[25] = 0 ;
46059                     /*^clear*/
46060                     /*clear*/ /*_._IF___V95*/
46061                     meltfptr[93] = 0 ;
46062                     /*epilog*/
46063                 }
46064                 ;
46065             } /*noelse*/
46066         ;
46067
46068         MELT_CHECK_SIGNAL();
46069         ;
46070         MELT_LOCATION("warmelt-normal.melt:3386:/ quasiblock");
46071
46072
46073         /*^putslot*/
46074         /*putslot*/
46075         melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.CLOCC__V81*/ meltfptr[50])) == MELTOBMAG_OBJECT);
46076         melt_putfield_object((/*_.CLOCC__V81*/ meltfptr[50]), (3), (/*_.CBIND__V79*/ meltfptr[68]), "NOCC_BIND");
46077         ;
46078         /*^touch*/
46079         meltgc_touch(/*_.CLOCC__V81*/ meltfptr[50]);
46080         ;
46081         /*^touchobj*/
46082
46083         melt_dbgtrace_written_object (/*_.CLOCC__V81*/ meltfptr[50], "put-fields");
46084         ;
46085
46086
46087         MELT_CHECK_SIGNAL();
46088         ;
46089         /*_#IS_LIST__L31*/
46090         meltfnum[27] =
46091             (melt_magic_discr((melt_ptr_t)(/*_.NBINDRECV__V29*/ meltfptr[28])) == MELTOBMAG_LIST);;
46092         /*^compute*/
46093         /*_#NOT__L32*/
46094         meltfnum[28] =
46095             (!(/*_#IS_LIST__L31*/ meltfnum[27]));;
46096         MELT_LOCATION("warmelt-normal.melt:3387:/ cond");
46097         /*cond*/
46098         if (/*_#NOT__L32*/ meltfnum[28]) /*then*/
46099             {
46100                 /*^cond.then*/
46101                 /*^block*/
46102                 /*anyblock*/
46103                 {
46104
46105                     /*_.MAKE_LIST__V111*/ meltfptr[103] =
46106                         (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[28]))));;
46107                     MELT_LOCATION("warmelt-normal.melt:3388:/ compute");
46108                     /*_.NBINDRECV__V29*/
46109                     meltfptr[28] = /*_.SETQ___V112*/ meltfptr[107] = /*_.MAKE_LIST__V111*/ meltfptr[103];;
46110                     /*_._IF___V110*/
46111                     meltfptr[104] = /*_.SETQ___V112*/ meltfptr[107];;
46112                     /*epilog*/
46113
46114                     MELT_LOCATION("warmelt-normal.melt:3387:/ clear");
46115                     /*clear*/ /*_.MAKE_LIST__V111*/
46116                     meltfptr[103] = 0 ;
46117                     /*^clear*/
46118                     /*clear*/ /*_.SETQ___V112*/
46119                     meltfptr[107] = 0 ;
46120                 }
46121                 ;
46122             }
46123         else    /*^cond.else*/
46124             {
46125
46126                 /*_._IF___V110*/ meltfptr[104] =  /*reallynil*/ NULL ;;
46127             }
46128         ;
46129
46130         {
46131             MELT_LOCATION("warmelt-normal.melt:3389:/ locexp");
46132             meltgc_append_list((melt_ptr_t)(/*_.NBINDRECV__V29*/ meltfptr[28]), (melt_ptr_t)(/*_.CBIND__V79*/ meltfptr[68]));
46133         }
46134         ;
46135
46136 #if MELT_HAVE_DEBUG
46137         MELT_LOCATION("warmelt-normal.melt:3390:/ cppif.then");
46138         /*^block*/
46139         /*anyblock*/
46140         {
46141
46142
46143             {
46144                 /*^locexp*/
46145                 /*melt_increment_dbgcounter*/
46146 #if MELT_HAVE_DEBUG
46147                 melt_dbgcounter++;
46148 #endif
46149                 ;
46150             }
46151             ;
46152
46153             MELT_CHECK_SIGNAL();
46154             ;
46155             /*_#MELT_NEED_DBG__L33*/
46156             meltfnum[1] =
46157                 /*MELT_NEED_DBG*/
46158 #if MELT_HAVE_DEBUG
46159                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
46160 #else
46161                 0 /* no melt_need_dbg */
46162 #endif /*MELT_HAVE_DEBUG*/
46163                 ;;
46164             MELT_LOCATION("warmelt-normal.melt:3390:/ cond");
46165             /*cond*/
46166             if (/*_#MELT_NEED_DBG__L33*/ meltfnum[1]) /*then*/
46167                 {
46168                     /*^cond.then*/
46169                     /*^block*/
46170                     /*anyblock*/
46171                     {
46172
46173                         /*_#MELT_CALLCOUNT__L34*/ meltfnum[20] =
46174                             /* for melt_callcount */
46175 #if MELT_HAVE_DEBUG && defined (meltcallcount)
46176                             meltcallcount  /* melt_callcount debugging */
46177 #else
46178                             0L  /* melt_callcount without debug */
46179 #endif /* MELT_HAVE_DEBUG melt_callcount */
46180                             ;;
46181
46182                         MELT_CHECK_SIGNAL();
46183                         ;
46184                         MELT_LOCATION("warmelt-normal.melt:3390:/ apply");
46185                         /*apply*/
46186                         {
46187                             union meltparam_un argtab[7];
46188                             memset(&argtab, 0, sizeof(argtab));
46189                             /*^apply.arg*/
46190                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L34*/ meltfnum[20];
46191                             /*^apply.arg*/
46192                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
46193                             /*^apply.arg*/
46194                             argtab[2].meltbp_long = 3390;
46195                             /*^apply.arg*/
46196                             argtab[3].meltbp_cstring =  "normexp_msend final nbindrecv=";
46197                             /*^apply.arg*/
46198                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDRECV__V29*/ meltfptr[28];
46199                             /*^apply.arg*/
46200                             argtab[5].meltbp_cstring =  " clocc=";
46201                             /*^apply.arg*/
46202                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V81*/ meltfptr[50];
46203                             /*_.MELT_DEBUG_FUN__V114*/
46204                             meltfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
46205                         }
46206                         ;
46207                         /*_._IF___V113*/
46208                         meltfptr[108] = /*_.MELT_DEBUG_FUN__V114*/ meltfptr[92];;
46209                         /*epilog*/
46210
46211                         MELT_LOCATION("warmelt-normal.melt:3390:/ clear");
46212                         /*clear*/ /*_#MELT_CALLCOUNT__L34*/
46213                         meltfnum[20] = 0 ;
46214                         /*^clear*/
46215                         /*clear*/ /*_.MELT_DEBUG_FUN__V114*/
46216                         meltfptr[92] = 0 ;
46217                     }
46218                     ;
46219                 }
46220             else    /*^cond.else*/
46221                 {
46222
46223                     /*_._IF___V113*/ meltfptr[108] =  /*reallynil*/ NULL ;;
46224                 }
46225             ;
46226
46227             {
46228                 MELT_LOCATION("warmelt-normal.melt:3390:/ locexp");
46229                 /*void*/
46230                 (void)0;
46231             }
46232             ;
46233             /*^quasiblock*/
46234
46235
46236             /*epilog*/
46237
46238             /*^clear*/
46239             /*clear*/ /*_#MELT_NEED_DBG__L33*/
46240             meltfnum[1] = 0 ;
46241             /*^clear*/
46242             /*clear*/ /*_._IF___V113*/
46243             meltfptr[108] = 0 ;
46244         }
46245
46246 #else /*MELT_HAVE_DEBUG*/
46247         /*^cppif.else*/
46248         /*^block*/
46249         /*anyblock*/
46250         {
46251
46252
46253             {
46254                 /*^locexp*/
46255                 /*void*/(void)0;
46256             }
46257             ;
46258             /*epilog*/
46259         }
46260
46261 #endif /*MELT_HAVE_DEBUG*/
46262         ;
46263
46264         MELT_CHECK_SIGNAL();
46265         ;
46266         MELT_LOCATION("warmelt-normal.melt:3391:/ quasiblock");
46267
46268
46269         /*_._RETVAL___V1*/
46270         meltfptr[0] = /*_.CLOCC__V81*/ meltfptr[50];;
46271         MELT_LOCATION("warmelt-normal.melt:3391:/ putxtraresult");
46272         if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
46273         if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
46274         if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.NBINDRECV__V29*/ meltfptr[28]);
46275         ;
46276         /*^finalreturn*/
46277         ;
46278         /*finalret*/
46279         goto meltlabend_rout ;
46280         /*_.LET___V61*/
46281         meltfptr[36] = /*_.RETURN___V115*/ meltfptr[99];;
46282
46283         MELT_LOCATION("warmelt-normal.melt:3320:/ clear");
46284         /*clear*/ /*_#IS_A__L13*/
46285         meltfnum[0] = 0 ;
46286         /*^clear*/
46287         /*clear*/ /*_.SELFORMALS__V62*/
46288         meltfptr[48] = 0 ;
46289         /*^clear*/
46290         /*clear*/ /*_.CSYM__V76*/
46291         meltfptr[52] = 0 ;
46292         /*^clear*/
46293         /*clear*/ /*_.NSEND__V77*/
46294         meltfptr[67] = 0 ;
46295         /*^clear*/
46296         /*clear*/ /*_.CBIND__V79*/
46297         meltfptr[68] = 0 ;
46298         /*^clear*/
46299         /*clear*/ /*_.CLOCC__V81*/
46300         meltfptr[50] = 0 ;
46301         /*^clear*/
46302         /*clear*/ /*_.IFCPP___V85*/
46303         meltfptr[83] = 0 ;
46304         /*^clear*/
46305         /*clear*/ /*_#IS_MULTIPLE__L19*/
46306         meltfnum[14] = 0 ;
46307         /*^clear*/
46308         /*clear*/ /*_#IS_LIST__L31*/
46309         meltfnum[27] = 0 ;
46310         /*^clear*/
46311         /*clear*/ /*_#NOT__L32*/
46312         meltfnum[28] = 0 ;
46313         /*^clear*/
46314         /*clear*/ /*_._IF___V110*/
46315         meltfptr[104] = 0 ;
46316         /*^clear*/
46317         /*clear*/ /*_.RETURN___V115*/
46318         meltfptr[99] = 0 ;
46319
46320         MELT_CHECK_SIGNAL();
46321         ;
46322         /*_.MULTI___V41*/
46323         meltfptr[35] = /*_.LET___V61*/ meltfptr[36];;
46324
46325         MELT_LOCATION("warmelt-normal.melt:3298:/ clear");
46326         /*clear*/ /*_.IFCPP___V44*/
46327         meltfptr[34] = 0 ;
46328         /*^clear*/
46329         /*clear*/ /*_.LET___V47*/
46330         meltfptr[45] = 0 ;
46331         /*^clear*/
46332         /*clear*/ /*_.LIST_APPEND2LIST__V58*/
46333         meltfptr[55] = 0 ;
46334         /*^clear*/
46335         /*clear*/ /*_.SETQ___V59*/
46336         meltfptr[53] = 0 ;
46337         /*^clear*/
46338         /*clear*/ /*_.CHECK_CTYPE_NARGS__V60*/
46339         meltfptr[54] = 0 ;
46340         /*^clear*/
46341         /*clear*/ /*_.LET___V61*/
46342         meltfptr[36] = 0 ;
46343
46344         /*^clear*/
46345         /*clear*/ /*_.NBINDARGS__V43*/
46346         meltfptr[30] = 0 ;
46347
46348         MELT_CHECK_SIGNAL();
46349         ;
46350         /*_.MULTI___V27*/
46351         meltfptr[25] = /*_.MULTI___V41*/ meltfptr[35];;
46352
46353         MELT_LOCATION("warmelt-normal.melt:3287:/ clear");
46354         /*clear*/ /*_.IFCPP___V30*/
46355         meltfptr[29] = 0 ;
46356         /*^clear*/
46357         /*clear*/ /*_.LET___V33*/
46358         meltfptr[31] = 0 ;
46359         /*^clear*/
46360         /*clear*/ /*_.MULTI___V41*/
46361         meltfptr[35] = 0 ;
46362
46363         /*^clear*/
46364         /*clear*/ /*_.NBINDRECV__V29*/
46365         meltfptr[28] = 0 ;
46366         /*_.LET___V17*/
46367         meltfptr[15] = /*_.MULTI___V27*/ meltfptr[25];;
46368
46369         MELT_LOCATION("warmelt-normal.melt:3277:/ clear");
46370         /*clear*/ /*_.MSRECV__V18*/
46371         meltfptr[5] = 0 ;
46372         /*^clear*/
46373         /*clear*/ /*_.MSARGS__V19*/
46374         meltfptr[18] = 0 ;
46375         /*^clear*/
46376         /*clear*/ /*_.SELNAM__V20*/
46377         meltfptr[19] = 0 ;
46378         /*^clear*/
46379         /*clear*/ /*_.CURPROC__V21*/
46380         meltfptr[20] = 0 ;
46381         /*^clear*/
46382         /*clear*/ /*_.SLOC__V22*/
46383         meltfptr[21] = 0 ;
46384         /*^clear*/
46385         /*clear*/ /*_.NSEL__V23*/
46386         meltfptr[22] = 0 ;
46387         /*^clear*/
46388         /*clear*/ /*_.SELBIND__V24*/
46389         meltfptr[23] = 0 ;
46390         /*^clear*/
46391         /*clear*/ /*_.MULTI___V27*/
46392         meltfptr[25] = 0 ;
46393
46394         MELT_CHECK_SIGNAL();
46395         ;
46396         MELT_LOCATION("warmelt-normal.melt:3272:/ quasiblock");
46397
46398
46399         /*_._RETVAL___V1*/
46400         meltfptr[0] = /*_.LET___V17*/ meltfptr[15];;
46401
46402         {
46403             MELT_LOCATION("warmelt-normal.melt:3272:/ locexp");
46404             /*ochecknores compilobj_nrep_return*/
46405 #if MELT_HAVE_DEBUG
46406             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
46407                 melt_warn_for_no_expected_secondary_results();
46408             /* we warned when secondary results are expected but not returned. */
46409 #endif /*MELT_HAVE_DEBUG*/
46410             ;
46411         }
46412         ;
46413         /*^finalreturn*/
46414         ;
46415         /*finalret*/
46416         goto meltlabend_rout ;
46417         /*epilog*/
46418
46419         /*^clear*/
46420         /*clear*/ /*_.IFCPP___V8*/
46421         meltfptr[6] = 0 ;
46422         /*^clear*/
46423         /*clear*/ /*_.IFCPP___V11*/
46424         meltfptr[9] = 0 ;
46425         /*^clear*/
46426         /*clear*/ /*_.IFCPP___V14*/
46427         meltfptr[12] = 0 ;
46428         /*^clear*/
46429         /*clear*/ /*_.LET___V17*/
46430         meltfptr[15] = 0 ;
46431     }
46432
46433     ;
46434     goto meltlabend_rout;
46435 meltlabend_rout:
46436     melt_trace_end("NORMEXP_MSEND", meltcallcount);
46437     melt_blocklevel_signals = current_blocklevel_signals_meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND_melt;
46438     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
46439 #undef meltcallcount
46440 #undef meltfram__
46441 #undef MELTFRAM_NBVARNUM
46442 #undef MELTFRAM_NBVARPTR
46443 } /*end meltrout_49_WARMELTmiNORMAL_NORMEXP_MSEND*/
46444
46445
46446
46447
46448
46449
46450 melt_ptr_t MELT_MODULE_VISIBILITY
46451 meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
46452         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
46453 {
46454     long current_blocklevel_signals_meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN_melt =  melt_blocklevel_signals;
46455
46456 #if MELT_HAVE_DEBUG
46457     static long melt_call_counter__;
46458     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
46459 #undef meltcallcount
46460 #define meltcallcount melt_thiscallcounter__
46461 #else
46462 #undef meltcallcount
46463 #define meltcallcount 0L
46464 #endif
46465 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
46466
46467     /* start of frame for routine meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN fromline 1752 */
46468
46469     /** start of frame for meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN of CLASS_PROCROUTINEOBJ from 1555**/
46470
46471     /*curframdeclclassy*/ class MeltFrame_meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN// fromline 1568
46472         : public Melt_CallFrameWithValues<97>
46473     {
46474     public: /* fromline 1572*/
46475         long mcfr_varnum[35];
46476         /*classy others*/
46477         long _meltsparel;
46478         void melt_mark_stuff (void)
46479         {
46480         } /*end melt_mark_stuff*/
46481         virtual void melt_mark_ggc_data (void)
46482         {
46483             melt_mark_values ();
46484             melt_mark_stuff ();
46485         }; /*end melt_mark_ggc_data*/
46486         MeltFrame_meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN(meltclosure_ptr_t clos) //the closure constructor fromline 1630
46487             : Melt_CallFrameWithValues<97> (
46488 #if ENABLE_CHECKING /*fromline 1634*/
46489                 __FILE__, __LINE__,
46490 #endif /* ENABLE_CHECKING fromline 1638*/
46491                 sizeof(MeltFrame_meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN), clos) {};
46492         MeltFrame_meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN() //the constructor fromline 1642
46493             : Melt_CallFrameWithValues<97> (
46494 #if ENABLE_CHECKING /*fromline 1646*/
46495                 __FILE__, __LINE__,
46496 #endif /* ENABLE_CHECKING fromline 1650*/
46497                 sizeof(MeltFrame_meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN)) {};
46498 #if ENABLE_CHECKING /*fromline 1654*/
46499         MeltFrame_meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN(const char*fil, int lin) //the constructor fromline 1656
46500             : Melt_CallFrameWithValues<97> (fil,lin, sizeof(MeltFrame_meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN)) {};
46501         MeltFrame_meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
46502             : Melt_CallFrameWithValues<97> (fil,lin, sizeof(MeltFrame_meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN), clos) {};
46503 #endif /* ENABLE_CHECKING fromline 1666*/
46504
46505     }; // end  class MeltFrame_meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN
46506
46507
46508     /** end of frame for meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN fromline 1697**/
46509
46510     /* end of frame for routine meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN fromline 1756 */
46511
46512     /* classy proc frame meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN */
46513     MeltFrame_meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN
46514     meltfram__ /*declfrastruct fromline 1780*/
46515     /*classyprocarg meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN fromline 1785*/
46516 #if ENABLE_CHECKING
46517     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
46518 #else /*ENABLE_CHECKING */
46519     (meltclosp_) /* fromline 1793*/
46520 #endif /*ENABLE_CHECKING */
46521
46522     ;
46523 #define meltframe meltfram__
46524
46525     melt_trace_start("NORMEXP_RETURN", meltcallcount);
46526     /*use arguments*/
46527     (void) meltclosp_;
46528     (void)meltfirstargp_;
46529     (void)meltxargdescr_;
46530     (void)meltxargtab_;
46531     (void)meltxresdescr_;
46532     (void)meltxrestab_;
46533     /*getargs*/
46534
46535     /*getarg#0*/
46536     MELT_LOCATION("warmelt-normal.melt:3399:/ getarg");
46537     /*_.RECV__V2*/
46538     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
46539
46540     /*getarg#1*/
46541     /*^getarg*/
46542     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
46543     /*_.ENV__V3*/
46544     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
46545     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
46546
46547
46548     /*getarg#2*/
46549     /*^getarg*/
46550     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
46551     /*_.NCX__V4*/
46552     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
46553     gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL);
46554
46555
46556     /*getarg#3*/
46557     /*^getarg*/
46558     if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
46559     /*_.PSLOC__V5*/
46560     meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
46561     gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL);
46562
46563     ;
46564     goto meltlab_endgetargs;
46565 meltlab_endgetargs:
46566     ;
46567     /*body*/
46568     /*^block*/
46569     /*anyblock*/
46570     {
46571
46572
46573 #if MELT_HAVE_DEBUG
46574         MELT_LOCATION("warmelt-normal.melt:3400:/ cppif.then");
46575         /*^block*/
46576         /*anyblock*/
46577         {
46578
46579
46580             {
46581                 /*^locexp*/
46582                 /*melt_increment_dbgcounter*/
46583 #if MELT_HAVE_DEBUG
46584                 melt_dbgcounter++;
46585 #endif
46586                 ;
46587             }
46588             ;
46589
46590             MELT_CHECK_SIGNAL();
46591             ;
46592             /*_#MELT_NEED_DBG__L1*/
46593             meltfnum[0] =
46594                 /*MELT_NEED_DBG*/
46595 #if MELT_HAVE_DEBUG
46596                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
46597 #else
46598                 0 /* no melt_need_dbg */
46599 #endif /*MELT_HAVE_DEBUG*/
46600                 ;;
46601             MELT_LOCATION("warmelt-normal.melt:3400:/ cond");
46602             /*cond*/
46603             if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
46604                 {
46605                     /*^cond.then*/
46606                     /*^block*/
46607                     /*anyblock*/
46608                     {
46609
46610                         /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
46611                             /* for melt_callcount */
46612 #if MELT_HAVE_DEBUG && defined (meltcallcount)
46613                             meltcallcount  /* melt_callcount debugging */
46614 #else
46615                             0L  /* melt_callcount without debug */
46616 #endif /* MELT_HAVE_DEBUG melt_callcount */
46617                             ;;
46618
46619                         MELT_CHECK_SIGNAL();
46620                         ;
46621                         MELT_LOCATION("warmelt-normal.melt:3400:/ apply");
46622                         /*apply*/
46623                         {
46624                             union meltparam_un argtab[7];
46625                             memset(&argtab, 0, sizeof(argtab));
46626                             /*^apply.arg*/
46627                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
46628                             /*^apply.arg*/
46629                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
46630                             /*^apply.arg*/
46631                             argtab[2].meltbp_long = 3400;
46632                             /*^apply.arg*/
46633                             argtab[3].meltbp_cstring =  "normexp_return recv=";
46634                             /*^apply.arg*/
46635                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
46636                             /*^apply.arg*/
46637                             argtab[5].meltbp_cstring =  "\n ncx=";
46638                             /*^apply.arg*/
46639                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
46640                             /*_.MELT_DEBUG_FUN__V7*/
46641                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
46642                         }
46643                         ;
46644                         /*_._IF___V6*/
46645                         meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];;
46646                         /*epilog*/
46647
46648                         MELT_LOCATION("warmelt-normal.melt:3400:/ clear");
46649                         /*clear*/ /*_#MELT_CALLCOUNT__L2*/
46650                         meltfnum[1] = 0 ;
46651                         /*^clear*/
46652                         /*clear*/ /*_.MELT_DEBUG_FUN__V7*/
46653                         meltfptr[6] = 0 ;
46654                     }
46655                     ;
46656                 }
46657             else    /*^cond.else*/
46658                 {
46659
46660                     /*_._IF___V6*/ meltfptr[5] =  /*reallynil*/ NULL ;;
46661                 }
46662             ;
46663
46664             {
46665                 MELT_LOCATION("warmelt-normal.melt:3400:/ locexp");
46666                 /*void*/
46667                 (void)0;
46668             }
46669             ;
46670             /*^quasiblock*/
46671
46672
46673             /*epilog*/
46674
46675             /*^clear*/
46676             /*clear*/ /*_#MELT_NEED_DBG__L1*/
46677             meltfnum[0] = 0 ;
46678             /*^clear*/
46679             /*clear*/ /*_._IF___V6*/
46680             meltfptr[5] = 0 ;
46681         }
46682
46683 #else /*MELT_HAVE_DEBUG*/
46684         /*^cppif.else*/
46685         /*^block*/
46686         /*anyblock*/
46687         {
46688
46689
46690             {
46691                 /*^locexp*/
46692                 /*void*/(void)0;
46693             }
46694             ;
46695             /*epilog*/
46696         }
46697
46698 #endif /*MELT_HAVE_DEBUG*/
46699         ;
46700
46701 #if MELT_HAVE_DEBUG
46702         MELT_LOCATION("warmelt-normal.melt:3401:/ cppif.then");
46703         /*^block*/
46704         /*anyblock*/
46705         {
46706
46707
46708             MELT_CHECK_SIGNAL();
46709             ;
46710             /*_#IS_A__L3*/
46711             meltfnum[1] =
46712                 melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_RETURN*/ meltfrout->tabval[1])));;
46713             MELT_LOCATION("warmelt-normal.melt:3401:/ cond");
46714             /*cond*/
46715             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
46716                 {
46717                     /*^cond.then*/
46718                     /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);;
46719                 }
46720             else
46721                 {
46722                     MELT_LOCATION("warmelt-normal.melt:3401:/ cond.else");
46723
46724                     /*^block*/
46725                     /*anyblock*/
46726                     {
46727
46728
46729                         MELT_CHECK_SIGNAL();
46730                         ;
46731                         /*^apply*/
46732                         /*apply*/
46733                         {
46734                             union meltparam_un argtab[4];
46735                             memset(&argtab, 0, sizeof(argtab));
46736                             /*^apply.arg*/
46737                             argtab[0].meltbp_cstring =  "check return recv";
46738                             /*^apply.arg*/
46739                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
46740                             /*^apply.arg*/
46741                             argtab[2].meltbp_long = 3401;
46742                             /*^apply.arg*/
46743                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
46744                             /*_.MELT_ASSERT_FAILURE_FUN__V10*/
46745                             meltfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
46746                         }
46747                         ;
46748                         /*_._IFELSE___V9*/
46749                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];;
46750                         /*epilog*/
46751
46752                         MELT_LOCATION("warmelt-normal.melt:3401:/ clear");
46753                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/
46754                         meltfptr[9] = 0 ;
46755                     }
46756                     ;
46757                 }
46758             ;
46759             /*_.IFCPP___V8*/
46760             meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];;
46761             /*epilog*/
46762
46763             MELT_LOCATION("warmelt-normal.melt:3401:/ clear");
46764             /*clear*/ /*_#IS_A__L3*/
46765             meltfnum[1] = 0 ;
46766             /*^clear*/
46767             /*clear*/ /*_._IFELSE___V9*/
46768             meltfptr[5] = 0 ;
46769         }
46770
46771 #else /*MELT_HAVE_DEBUG*/
46772         /*^cppif.else*/
46773         /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL);
46774 #endif /*MELT_HAVE_DEBUG*/
46775         ;
46776
46777 #if MELT_HAVE_DEBUG
46778         MELT_LOCATION("warmelt-normal.melt:3402:/ cppif.then");
46779         /*^block*/
46780         /*anyblock*/
46781         {
46782
46783
46784             MELT_CHECK_SIGNAL();
46785             ;
46786             /*_#IS_A__L4*/
46787             meltfnum[0] =
46788                 melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));;
46789             MELT_LOCATION("warmelt-normal.melt:3402:/ cond");
46790             /*cond*/
46791             if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/
46792                 {
46793                     /*^cond.then*/
46794                     /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);;
46795                 }
46796             else
46797                 {
46798                     MELT_LOCATION("warmelt-normal.melt:3402:/ cond.else");
46799
46800                     /*^block*/
46801                     /*anyblock*/
46802                     {
46803
46804
46805                         MELT_CHECK_SIGNAL();
46806                         ;
46807                         /*^apply*/
46808                         /*apply*/
46809                         {
46810                             union meltparam_un argtab[4];
46811                             memset(&argtab, 0, sizeof(argtab));
46812                             /*^apply.arg*/
46813                             argtab[0].meltbp_cstring =  "check env";
46814                             /*^apply.arg*/
46815                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
46816                             /*^apply.arg*/
46817                             argtab[2].meltbp_long = 3402;
46818                             /*^apply.arg*/
46819                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
46820                             /*_.MELT_ASSERT_FAILURE_FUN__V13*/
46821                             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
46822                         }
46823                         ;
46824                         /*_._IFELSE___V12*/
46825                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];;
46826                         /*epilog*/
46827
46828                         MELT_LOCATION("warmelt-normal.melt:3402:/ clear");
46829                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/
46830                         meltfptr[12] = 0 ;
46831                     }
46832                     ;
46833                 }
46834             ;
46835             /*_.IFCPP___V11*/
46836             meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];;
46837             /*epilog*/
46838
46839             MELT_LOCATION("warmelt-normal.melt:3402:/ clear");
46840             /*clear*/ /*_#IS_A__L4*/
46841             meltfnum[0] = 0 ;
46842             /*^clear*/
46843             /*clear*/ /*_._IFELSE___V12*/
46844             meltfptr[5] = 0 ;
46845         }
46846
46847 #else /*MELT_HAVE_DEBUG*/
46848         /*^cppif.else*/
46849         /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL);
46850 #endif /*MELT_HAVE_DEBUG*/
46851         ;
46852
46853 #if MELT_HAVE_DEBUG
46854         MELT_LOCATION("warmelt-normal.melt:3403:/ cppif.then");
46855         /*^block*/
46856         /*anyblock*/
46857         {
46858
46859
46860             MELT_CHECK_SIGNAL();
46861             ;
46862             /*_#IS_A__L5*/
46863             meltfnum[1] =
46864                 melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));;
46865             MELT_LOCATION("warmelt-normal.melt:3403:/ cond");
46866             /*cond*/
46867             if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/
46868                 {
46869                     /*^cond.then*/
46870                     /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);;
46871                 }
46872             else
46873                 {
46874                     MELT_LOCATION("warmelt-normal.melt:3403:/ cond.else");
46875
46876                     /*^block*/
46877                     /*anyblock*/
46878                     {
46879
46880
46881                         MELT_CHECK_SIGNAL();
46882                         ;
46883                         /*^apply*/
46884                         /*apply*/
46885                         {
46886                             union meltparam_un argtab[4];
46887                             memset(&argtab, 0, sizeof(argtab));
46888                             /*^apply.arg*/
46889                             argtab[0].meltbp_cstring =  "check ncx";
46890                             /*^apply.arg*/
46891                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
46892                             /*^apply.arg*/
46893                             argtab[2].meltbp_long = 3403;
46894                             /*^apply.arg*/
46895                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
46896                             /*_.MELT_ASSERT_FAILURE_FUN__V16*/
46897                             meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
46898                         }
46899                         ;
46900                         /*_._IFELSE___V15*/
46901                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];;
46902                         /*epilog*/
46903
46904                         MELT_LOCATION("warmelt-normal.melt:3403:/ clear");
46905                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/
46906                         meltfptr[15] = 0 ;
46907                     }
46908                     ;
46909                 }
46910             ;
46911             /*_.IFCPP___V14*/
46912             meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];;
46913             /*epilog*/
46914
46915             MELT_LOCATION("warmelt-normal.melt:3403:/ clear");
46916             /*clear*/ /*_#IS_A__L5*/
46917             meltfnum[1] = 0 ;
46918             /*^clear*/
46919             /*clear*/ /*_._IFELSE___V15*/
46920             meltfptr[5] = 0 ;
46921         }
46922
46923 #else /*MELT_HAVE_DEBUG*/
46924         /*^cppif.else*/
46925         /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL);
46926 #endif /*MELT_HAVE_DEBUG*/
46927         ;
46928         MELT_LOCATION("warmelt-normal.melt:3404:/ quasiblock");
46929
46930
46931         /*^cond*/
46932         /*cond*/
46933         if (
46934             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]),
46935                                           (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[5])))
46936         ) /*then*/
46937             {
46938                 /*^cond.then*/
46939                 /*^getslot*/
46940                 {
46941                     melt_ptr_t slot=NULL, obj=NULL;
46942                     obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
46943                     melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
46944                     /*_.LOCA_LOCATION__V18*/
46945                     meltfptr[5] = slot;
46946                 };
46947                 ;
46948             }
46949         else    /*^cond.else*/
46950             {
46951
46952                 /*_.LOCA_LOCATION__V18*/ meltfptr[5] =  /*reallynil*/ NULL ;;
46953             }
46954         ;
46955         MELT_LOCATION("warmelt-normal.melt:3404:/ cond");
46956         /*cond*/
46957         if (/*_.LOCA_LOCATION__V18*/ meltfptr[5]) /*then*/
46958             {
46959                 /*^cond.then*/
46960                 /*_.SLOC__V19*/ meltfptr[18] = /*_.LOCA_LOCATION__V18*/ meltfptr[5];;
46961             }
46962         else
46963             {
46964                 MELT_LOCATION("warmelt-normal.melt:3404:/ cond.else");
46965
46966                 /*_.SLOC__V19*/
46967                 meltfptr[18] = /*_.PSLOC__V5*/ meltfptr[4];;
46968             }
46969         ;
46970         MELT_LOCATION("warmelt-normal.melt:3405:/ getslot");
46971         {
46972             melt_ptr_t slot=NULL, obj=NULL;
46973             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
46974             melt_object_get_field(slot,obj, 2, "SARGOP_ARGS");
46975             /*_.SRETS__V20*/
46976             meltfptr[19] = slot;
46977         };
46978         ;
46979         /*_#NBRETS__L6*/
46980         meltfnum[0] =
46981             (melt_multiple_length((melt_ptr_t)(/*_.SRETS__V20*/ meltfptr[19])));;
46982
46983         MELT_CHECK_SIGNAL();
46984         ;
46985         MELT_LOCATION("warmelt-normal.melt:3407:/ apply");
46986         /*apply*/
46987         {
46988             /*_.CSYM__V21*/ meltfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[6])), (melt_ptr_t)((/*!konst_7_RETURN_*/ meltfrout->tabval[7])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
46989         }
46990         ;
46991         MELT_LOCATION("warmelt-normal.melt:3408:/ cond");
46992         /*cond*/
46993         if (
46994             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]),
46995                                           (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])))
46996         ) /*then*/
46997             {
46998                 /*^cond.then*/
46999                 /*^getslot*/
47000                 {
47001                     melt_ptr_t slot=NULL, obj=NULL;
47002                     obj = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]) /*=obj*/;
47003                     melt_object_get_field(slot,obj, 11, "NCTX_CURPROC");
47004                     /*_.CURPROC__V22*/
47005                     meltfptr[21] = slot;
47006                 };
47007                 ;
47008             }
47009         else    /*^cond.else*/
47010             {
47011
47012                 /*_.CURPROC__V22*/ meltfptr[21] =  /*reallynil*/ NULL ;;
47013             }
47014         ;
47015
47016         MELT_CHECK_SIGNAL();
47017         ;
47018         /*^compute*/
47019         /*_#IS_A__L7*/
47020         meltfnum[1] =
47021             melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ meltfrout->tabval[8])));;
47022         MELT_LOCATION("warmelt-normal.melt:3409:/ cond");
47023         /*cond*/
47024         if (/*_#IS_A__L7*/ meltfnum[1]) /*then*/
47025             {
47026                 /*^cond.then*/
47027                 /*_.RESTYPE__V23*/ meltfptr[22] = (/*!CTYPE_VALUE*/ meltfrout->tabval[9]);;
47028             }
47029         else
47030             {
47031                 MELT_LOCATION("warmelt-normal.melt:3409:/ cond.else");
47032
47033                 /*^block*/
47034                 /*anyblock*/
47035                 {
47036
47037
47038                     MELT_CHECK_SIGNAL();
47039                     ;
47040                     /*_#IS_A__L8*/
47041                     meltfnum[7] =
47042                         melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[10])));;
47043                     MELT_LOCATION("warmelt-normal.melt:3411:/ cond");
47044                     /*cond*/
47045                     if (/*_#IS_A__L8*/ meltfnum[7]) /*then*/
47046                         {
47047                             /*^cond.then*/
47048                             /*^block*/
47049                             /*anyblock*/
47050                             {
47051
47052                                 MELT_LOCATION("warmelt-normal.melt:3412:/ cond");
47053                                 /*cond*/
47054                                 if (
47055                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V22*/ meltfptr[21]),
47056                                                                   (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[10])))
47057                                 ) /*then*/
47058                                     {
47059                                         /*^cond.then*/
47060                                         /*^getslot*/
47061                                         {
47062                                             melt_ptr_t slot=NULL, obj=NULL;
47063                                             obj = (melt_ptr_t)(/*_.CURPROC__V22*/ meltfptr[21]) /*=obj*/;
47064                                             melt_object_get_field(slot,obj, 8, "NRHOOK_CTYPE");
47065                                             /*_.NRHOOK_CTYPE__V25*/
47066                                             meltfptr[24] = slot;
47067                                         };
47068                                         ;
47069                                     }
47070                                 else    /*^cond.else*/
47071                                     {
47072
47073                                         /*_.NRHOOK_CTYPE__V25*/ meltfptr[24] =  /*reallynil*/ NULL ;;
47074                                     }
47075                                 ;
47076                                 /*^compute*/
47077                                 /*_._IFELSE___V24*/
47078                                 meltfptr[23] = /*_.NRHOOK_CTYPE__V25*/ meltfptr[24];;
47079                                 /*epilog*/
47080
47081                                 MELT_LOCATION("warmelt-normal.melt:3411:/ clear");
47082                                 /*clear*/ /*_.NRHOOK_CTYPE__V25*/
47083                                 meltfptr[24] = 0 ;
47084                             }
47085                             ;
47086                         }
47087                     else    /*^cond.else*/
47088                         {
47089
47090                             /*^block*/
47091                             /*anyblock*/
47092                             {
47093
47094
47095                                 MELT_CHECK_SIGNAL();
47096                                 ;
47097                                 MELT_LOCATION("warmelt-normal.melt:3414:/ apply");
47098                                 /*apply*/
47099                                 {
47100                                     union meltparam_un argtab[1];
47101                                     memset(&argtab, 0, sizeof(argtab));
47102                                     /*^apply.arg*/
47103                                     argtab[0].meltbp_cstring =  "RETURN outside of LAMBDA or DEFUN procedure or DEFHOOK";
47104                                     /*_.ERROR_AT__V26*/
47105                                     meltfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
47106                                 }
47107                                 ;
47108                                 MELT_LOCATION("warmelt-normal.melt:3416:/ quasiblock");
47109
47110
47111                                 /*_._RETVAL___V1*/
47112                                 meltfptr[0] =  /*reallynil*/ NULL ;;
47113
47114                                 {
47115                                     MELT_LOCATION("warmelt-normal.melt:3416:/ locexp");
47116                                     /*ochecknores compilobj_nrep_return*/
47117 #if MELT_HAVE_DEBUG
47118                                     if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
47119                                         melt_warn_for_no_expected_secondary_results();
47120                                     /* we warned when secondary results are expected but not returned. */
47121 #endif /*MELT_HAVE_DEBUG*/
47122                                     ;
47123                                 }
47124                                 ;
47125                                 /*^finalreturn*/
47126                                 ;
47127                                 /*finalret*/
47128                                 goto meltlabend_rout ;
47129                                 MELT_LOCATION("warmelt-normal.melt:3413:/ quasiblock");
47130
47131
47132                                 /*_.PROGN___V28*/
47133                                 meltfptr[27] = /*_.RETURN___V27*/ meltfptr[26];;
47134                                 /*^compute*/
47135                                 /*_._IFELSE___V24*/
47136                                 meltfptr[23] = /*_.PROGN___V28*/ meltfptr[27];;
47137                                 /*epilog*/
47138
47139                                 MELT_LOCATION("warmelt-normal.melt:3411:/ clear");
47140                                 /*clear*/ /*_.ERROR_AT__V26*/
47141                                 meltfptr[24] = 0 ;
47142                                 /*^clear*/
47143                                 /*clear*/ /*_.RETURN___V27*/
47144                                 meltfptr[26] = 0 ;
47145                                 /*^clear*/
47146                                 /*clear*/ /*_.PROGN___V28*/
47147                                 meltfptr[27] = 0 ;
47148                             }
47149                             ;
47150                         }
47151                     ;
47152                     /*_.RESTYPE__V23*/
47153                     meltfptr[22] = /*_._IFELSE___V24*/ meltfptr[23];;
47154                     /*epilog*/
47155
47156                     MELT_LOCATION("warmelt-normal.melt:3409:/ clear");
47157                     /*clear*/ /*_#IS_A__L8*/
47158                     meltfnum[7] = 0 ;
47159                     /*^clear*/
47160                     /*clear*/ /*_._IFELSE___V24*/
47161                     meltfptr[23] = 0 ;
47162                 }
47163                 ;
47164             }
47165         ;
47166
47167         MELT_CHECK_SIGNAL();
47168         ;
47169         MELT_LOCATION("warmelt-normal.melt:3419:/ quasiblock");
47170
47171
47172         /*^rawallocobj*/
47173         /*rawallocobj*/
47174         {
47175             melt_ptr_t newobj = 0;
47176             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[12])), (4), "CLASS_NORMAL_LET_BINDING");
47177             /*_.INST__V30*/
47178             meltfptr[26] =
47179                 newobj;
47180         };
47181         ;
47182         /*^putslot*/
47183         /*putslot*/
47184         melt_assertmsg("checkobj putslot  _ @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ meltfptr[26])) == MELTOBMAG_OBJECT);
47185         melt_putfield_object((/*_.INST__V30*/ meltfptr[26]), (3), (/*_.SLOC__V19*/ meltfptr[18]), "LETBIND_LOC");
47186         ;
47187         /*^putslot*/
47188         /*putslot*/
47189         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ meltfptr[26])) == MELTOBMAG_OBJECT);
47190         melt_putfield_object((/*_.INST__V30*/ meltfptr[26]), (0), (/*_.CSYM__V21*/ meltfptr[20]), "BINDER");
47191         ;
47192         /*^putslot*/
47193         /*putslot*/
47194         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ meltfptr[26])) == MELTOBMAG_OBJECT);
47195         melt_putfield_object((/*_.INST__V30*/ meltfptr[26]), (1), (/*_.RESTYPE__V23*/ meltfptr[22]), "LETBIND_TYPE");
47196         ;
47197         /*^touchobj*/
47198
47199         melt_dbgtrace_written_object (/*_.INST__V30*/ meltfptr[26], "newly made instance");
47200         ;
47201         /*_.CBIND__V29*/
47202         meltfptr[24] = /*_.INST__V30*/ meltfptr[26];;
47203
47204         MELT_CHECK_SIGNAL();
47205         ;
47206         MELT_LOCATION("warmelt-normal.melt:3425:/ quasiblock");
47207
47208
47209         /*^rawallocobj*/
47210         /*rawallocobj*/
47211         {
47212             melt_ptr_t newobj = 0;
47213             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[13])), (4), "CLASS_NREP_LOCSYMOCC");
47214             /*_.INST__V32*/
47215             meltfptr[23] =
47216                 newobj;
47217         };
47218         ;
47219         /*^putslot*/
47220         /*putslot*/
47221         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ meltfptr[23])) == MELTOBMAG_OBJECT);
47222         melt_putfield_object((/*_.INST__V32*/ meltfptr[23]), (0), (/*_.SLOC__V19*/ meltfptr[18]), "NREP_LOC");
47223         ;
47224         /*^putslot*/
47225         /*putslot*/
47226         melt_assertmsg("checkobj putslot  _ @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ meltfptr[23])) == MELTOBMAG_OBJECT);
47227         melt_putfield_object((/*_.INST__V32*/ meltfptr[23]), (2), (/*_.RESTYPE__V23*/ meltfptr[22]), "NOCC_CTYP");
47228         ;
47229         /*^putslot*/
47230         /*putslot*/
47231         melt_assertmsg("checkobj putslot  _ @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ meltfptr[23])) == MELTOBMAG_OBJECT);
47232         melt_putfield_object((/*_.INST__V32*/ meltfptr[23]), (1), (/*_.CSYM__V21*/ meltfptr[20]), "NOCC_SYMB");
47233         ;
47234         /*^putslot*/
47235         /*putslot*/
47236         melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ meltfptr[23])) == MELTOBMAG_OBJECT);
47237         melt_putfield_object((/*_.INST__V32*/ meltfptr[23]), (3), (/*_.CBIND__V29*/ meltfptr[24]), "NOCC_BIND");
47238         ;
47239         /*^touchobj*/
47240
47241         melt_dbgtrace_written_object (/*_.INST__V32*/ meltfptr[23], "newly made instance");
47242         ;
47243         /*_.CLOCC__V31*/
47244         meltfptr[27] = /*_.INST__V32*/ meltfptr[23];;
47245
47246 #if MELT_HAVE_DEBUG
47247         MELT_LOCATION("warmelt-normal.melt:3431:/ cppif.then");
47248         /*^block*/
47249         /*anyblock*/
47250         {
47251
47252
47253             {
47254                 /*^locexp*/
47255                 /*melt_increment_dbgcounter*/
47256 #if MELT_HAVE_DEBUG
47257                 melt_dbgcounter++;
47258 #endif
47259                 ;
47260             }
47261             ;
47262
47263             MELT_CHECK_SIGNAL();
47264             ;
47265             /*_#MELT_NEED_DBG__L9*/
47266             meltfnum[7] =
47267                 /*MELT_NEED_DBG*/
47268 #if MELT_HAVE_DEBUG
47269                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
47270 #else
47271                 0 /* no melt_need_dbg */
47272 #endif /*MELT_HAVE_DEBUG*/
47273                 ;;
47274             MELT_LOCATION("warmelt-normal.melt:3431:/ cond");
47275             /*cond*/
47276             if (/*_#MELT_NEED_DBG__L9*/ meltfnum[7]) /*then*/
47277                 {
47278                     /*^cond.then*/
47279                     /*^block*/
47280                     /*anyblock*/
47281                     {
47282
47283                         /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] =
47284                             /* for melt_callcount */
47285 #if MELT_HAVE_DEBUG && defined (meltcallcount)
47286                             meltcallcount  /* melt_callcount debugging */
47287 #else
47288                             0L  /* melt_callcount without debug */
47289 #endif /* MELT_HAVE_DEBUG melt_callcount */
47290                             ;;
47291
47292                         MELT_CHECK_SIGNAL();
47293                         ;
47294                         MELT_LOCATION("warmelt-normal.melt:3431:/ apply");
47295                         /*apply*/
47296                         {
47297                             union meltparam_un argtab[7];
47298                             memset(&argtab, 0, sizeof(argtab));
47299                             /*^apply.arg*/
47300                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L10*/ meltfnum[9];
47301                             /*^apply.arg*/
47302                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
47303                             /*^apply.arg*/
47304                             argtab[2].meltbp_long = 3431;
47305                             /*^apply.arg*/
47306                             argtab[3].meltbp_cstring =  "normexp_return srets=";
47307                             /*^apply.arg*/
47308                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SRETS__V20*/ meltfptr[19];
47309                             /*^apply.arg*/
47310                             argtab[5].meltbp_cstring =  " curproc=";
47311                             /*^apply.arg*/
47312                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURPROC__V22*/ meltfptr[21];
47313                             /*_.MELT_DEBUG_FUN__V34*/
47314                             meltfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
47315                         }
47316                         ;
47317                         /*_._IF___V33*/
47318                         meltfptr[32] = /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33];;
47319                         /*epilog*/
47320
47321                         MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
47322                         /*clear*/ /*_#MELT_CALLCOUNT__L10*/
47323                         meltfnum[9] = 0 ;
47324                         /*^clear*/
47325                         /*clear*/ /*_.MELT_DEBUG_FUN__V34*/
47326                         meltfptr[33] = 0 ;
47327                     }
47328                     ;
47329                 }
47330             else    /*^cond.else*/
47331                 {
47332
47333                     /*_._IF___V33*/ meltfptr[32] =  /*reallynil*/ NULL ;;
47334                 }
47335             ;
47336
47337             {
47338                 MELT_LOCATION("warmelt-normal.melt:3431:/ locexp");
47339                 /*void*/
47340                 (void)0;
47341             }
47342             ;
47343             /*^quasiblock*/
47344
47345
47346             /*epilog*/
47347
47348             /*^clear*/
47349             /*clear*/ /*_#MELT_NEED_DBG__L9*/
47350             meltfnum[7] = 0 ;
47351             /*^clear*/
47352             /*clear*/ /*_._IF___V33*/
47353             meltfptr[32] = 0 ;
47354         }
47355
47356 #else /*MELT_HAVE_DEBUG*/
47357         /*^cppif.else*/
47358         /*^block*/
47359         /*anyblock*/
47360         {
47361
47362
47363             {
47364                 /*^locexp*/
47365                 /*void*/(void)0;
47366             }
47367             ;
47368             /*epilog*/
47369         }
47370
47371 #endif /*MELT_HAVE_DEBUG*/
47372         ;
47373
47374         MELT_CHECK_SIGNAL();
47375         ;
47376         /*_#lteqI__L11*/
47377         meltfnum[9] =
47378             ((/*_#NBRETS__L6*/ meltfnum[0]) <= (0));;
47379         MELT_LOCATION("warmelt-normal.melt:3433:/ cond");
47380         /*cond*/
47381         if (/*_#lteqI__L11*/ meltfnum[9]) /*then*/
47382             {
47383                 /*^cond.then*/
47384                 /*^block*/
47385                 /*anyblock*/
47386                 {
47387
47388                     MELT_LOCATION("warmelt-normal.melt:3434:/ quasiblock");
47389
47390
47391                     /*_.NBINDEMP__V37*/
47392                     meltfptr[36] =
47393                         (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[14]))));;
47394
47395                     MELT_CHECK_SIGNAL();
47396                     ;
47397                     MELT_LOCATION("warmelt-normal.melt:3437:/ quasiblock");
47398
47399
47400                     /*^rawallocobj*/
47401                     /*rawallocobj*/
47402                     {
47403                         melt_ptr_t newobj = 0;
47404                         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ meltfrout->tabval[15])), (3), "CLASS_NREP_RETURN");
47405                         /*_.INST__V39*/
47406                         meltfptr[38] =
47407                             newobj;
47408                     };
47409                     ;
47410                     /*^putslot*/
47411                     /*putslot*/
47412                     melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ meltfptr[38])) == MELTOBMAG_OBJECT);
47413                     melt_putfield_object((/*_.INST__V39*/ meltfptr[38]), (0), (/*_.SLOC__V19*/ meltfptr[18]), "NREP_LOC");
47414                     ;
47415                     /*^putslot*/
47416                     /*putslot*/
47417                     melt_assertmsg("checkobj putslot  _ @NRET_MAIN", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ meltfptr[38])) == MELTOBMAG_OBJECT);
47418                     melt_putfield_object((/*_.INST__V39*/ meltfptr[38]), (1), ((/*nil*/NULL)), "NRET_MAIN");
47419                     ;
47420                     /*^putslot*/
47421                     /*putslot*/
47422                     melt_assertmsg("checkobj putslot  _ @NRET_REST", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ meltfptr[38])) == MELTOBMAG_OBJECT);
47423                     melt_putfield_object((/*_.INST__V39*/ meltfptr[38]), (2), ((/*nil*/NULL)), "NRET_REST");
47424                     ;
47425                     /*^touchobj*/
47426
47427                     melt_dbgtrace_written_object (/*_.INST__V39*/ meltfptr[38], "newly made instance");
47428                     ;
47429                     /*_.NEMPTRET__V38*/
47430                     meltfptr[37] = /*_.INST__V39*/ meltfptr[38];;
47431
47432                     MELT_CHECK_SIGNAL();
47433                     ;
47434                     MELT_LOCATION("warmelt-normal.melt:3443:/ quasiblock");
47435
47436
47437                     /*^putslot*/
47438                     /*putslot*/
47439                     melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V29*/ meltfptr[24])) == MELTOBMAG_OBJECT);
47440                     melt_putfield_object((/*_.CBIND__V29*/ meltfptr[24]), (2), (/*_.NEMPTRET__V38*/ meltfptr[37]), "LETBIND_EXPR");
47441                     ;
47442                     /*^touch*/
47443                     meltgc_touch(/*_.CBIND__V29*/ meltfptr[24]);
47444                     ;
47445                     /*^touchobj*/
47446
47447                     melt_dbgtrace_written_object (/*_.CBIND__V29*/ meltfptr[24], "put-fields");
47448                     ;
47449
47450
47451                     {
47452                         MELT_LOCATION("warmelt-normal.melt:3444:/ locexp");
47453                         meltgc_append_list((melt_ptr_t)(/*_.NBINDEMP__V37*/ meltfptr[36]), (melt_ptr_t)(/*_.CBIND__V29*/ meltfptr[24]));
47454                     }
47455                     ;
47456
47457 #if MELT_HAVE_DEBUG
47458                     MELT_LOCATION("warmelt-normal.melt:3445:/ cppif.then");
47459                     /*^block*/
47460                     /*anyblock*/
47461                     {
47462
47463
47464                         {
47465                             /*^locexp*/
47466                             /*melt_increment_dbgcounter*/
47467 #if MELT_HAVE_DEBUG
47468                             melt_dbgcounter++;
47469 #endif
47470                             ;
47471                         }
47472                         ;
47473
47474                         MELT_CHECK_SIGNAL();
47475                         ;
47476                         /*_#MELT_NEED_DBG__L12*/
47477                         meltfnum[7] =
47478                             /*MELT_NEED_DBG*/
47479 #if MELT_HAVE_DEBUG
47480                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
47481 #else
47482                             0 /* no melt_need_dbg */
47483 #endif /*MELT_HAVE_DEBUG*/
47484                             ;;
47485                         MELT_LOCATION("warmelt-normal.melt:3445:/ cond");
47486                         /*cond*/
47487                         if (/*_#MELT_NEED_DBG__L12*/ meltfnum[7]) /*then*/
47488                             {
47489                                 /*^cond.then*/
47490                                 /*^block*/
47491                                 /*anyblock*/
47492                                 {
47493
47494                                     /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] =
47495                                         /* for melt_callcount */
47496 #if MELT_HAVE_DEBUG && defined (meltcallcount)
47497                                         meltcallcount  /* melt_callcount debugging */
47498 #else
47499                                         0L  /* melt_callcount without debug */
47500 #endif /* MELT_HAVE_DEBUG melt_callcount */
47501                                         ;;
47502
47503                                     MELT_CHECK_SIGNAL();
47504                                     ;
47505                                     MELT_LOCATION("warmelt-normal.melt:3445:/ apply");
47506                                     /*apply*/
47507                                     {
47508                                         union meltparam_un argtab[7];
47509                                         memset(&argtab, 0, sizeof(argtab));
47510                                         /*^apply.arg*/
47511                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L13*/ meltfnum[12];
47512                                         /*^apply.arg*/
47513                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
47514                                         /*^apply.arg*/
47515                                         argtab[2].meltbp_long = 3445;
47516                                         /*^apply.arg*/
47517                                         argtab[3].meltbp_cstring =  "normexp_return empty; return clocc=";
47518                                         /*^apply.arg*/
47519                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V31*/ meltfptr[27];
47520                                         /*^apply.arg*/
47521                                         argtab[5].meltbp_cstring =  " nbindemp=";
47522                                         /*^apply.arg*/
47523                                         argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDEMP__V37*/ meltfptr[36];
47524                                         /*_.MELT_DEBUG_FUN__V41*/
47525                                         meltfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
47526                                     }
47527                                     ;
47528                                     /*_._IF___V40*/
47529                                     meltfptr[39] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40];;
47530                                     /*epilog*/
47531
47532                                     MELT_LOCATION("warmelt-normal.melt:3445:/ clear");
47533                                     /*clear*/ /*_#MELT_CALLCOUNT__L13*/
47534                                     meltfnum[12] = 0 ;
47535                                     /*^clear*/
47536                                     /*clear*/ /*_.MELT_DEBUG_FUN__V41*/
47537                                     meltfptr[40] = 0 ;
47538                                 }
47539                                 ;
47540                             }
47541                         else    /*^cond.else*/
47542                             {
47543
47544                                 /*_._IF___V40*/ meltfptr[39] =  /*reallynil*/ NULL ;;
47545                             }
47546                         ;
47547
47548                         {
47549                             MELT_LOCATION("warmelt-normal.melt:3445:/ locexp");
47550                             /*void*/
47551                             (void)0;
47552                         }
47553                         ;
47554                         /*^quasiblock*/
47555
47556
47557                         /*epilog*/
47558
47559                         /*^clear*/
47560                         /*clear*/ /*_#MELT_NEED_DBG__L12*/
47561                         meltfnum[7] = 0 ;
47562                         /*^clear*/
47563                         /*clear*/ /*_._IF___V40*/
47564                         meltfptr[39] = 0 ;
47565                     }
47566
47567 #else /*MELT_HAVE_DEBUG*/
47568                     /*^cppif.else*/
47569                     /*^block*/
47570                     /*anyblock*/
47571                     {
47572
47573
47574                         {
47575                             /*^locexp*/
47576                             /*void*/(void)0;
47577                         }
47578                         ;
47579                         /*epilog*/
47580                     }
47581
47582 #endif /*MELT_HAVE_DEBUG*/
47583                     ;
47584
47585                     MELT_CHECK_SIGNAL();
47586                     ;
47587                     MELT_LOCATION("warmelt-normal.melt:3446:/ quasiblock");
47588
47589
47590                     /*_._RETVAL___V1*/
47591                     meltfptr[0] = /*_.CLOCC__V31*/ meltfptr[27];;
47592                     MELT_LOCATION("warmelt-normal.melt:3446:/ putxtraresult");
47593                     if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
47594                     if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
47595                     if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.NBINDEMP__V37*/ meltfptr[36]);
47596                     ;
47597                     /*^finalreturn*/
47598                     ;
47599                     /*finalret*/
47600                     goto meltlabend_rout ;
47601                     /*_.LET___V36*/
47602                     meltfptr[32] = /*_.RETURN___V42*/ meltfptr[40];;
47603
47604                     MELT_LOCATION("warmelt-normal.melt:3434:/ clear");
47605                     /*clear*/ /*_.NBINDEMP__V37*/
47606                     meltfptr[36] = 0 ;
47607                     /*^clear*/
47608                     /*clear*/ /*_.NEMPTRET__V38*/
47609                     meltfptr[37] = 0 ;
47610                     /*^clear*/
47611                     /*clear*/ /*_.RETURN___V42*/
47612                     meltfptr[40] = 0 ;
47613                     /*_._IFELSE___V35*/
47614                     meltfptr[33] = /*_.LET___V36*/ meltfptr[32];;
47615                     /*epilog*/
47616
47617                     MELT_LOCATION("warmelt-normal.melt:3433:/ clear");
47618                     /*clear*/ /*_.LET___V36*/
47619                     meltfptr[32] = 0 ;
47620                 }
47621                 ;
47622             }
47623         else    /*^cond.else*/
47624             {
47625
47626                 /*^block*/
47627                 /*anyblock*/
47628                 {
47629
47630
47631                     MELT_CHECK_SIGNAL();
47632                     ;
47633                     MELT_LOCATION("warmelt-normal.melt:3447:/ quasiblock");
47634
47635
47636                     /*^multiapply*/
47637                     /*multiapply 4args, 1x.res*/
47638                     {
47639                         union meltparam_un argtab[3];
47640
47641                         union meltparam_un restab[1];
47642                         memset(&restab, 0, sizeof(restab));
47643                         memset(&argtab, 0, sizeof(argtab));
47644                         /*^multiapply.arg*/
47645                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multiapply.arg*/
47646                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multiapply.arg*/
47647                         argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[18];
47648                         /*^multiapply.xres*/
47649                         restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDRETS__V45*/ meltfptr[37];
47650                         /*^multiapply.appl*/
47651                         /*_.NRETS__V44*/
47652                         meltfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.SRETS__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
47653                     }
47654                     ;
47655                     /*^quasiblock*/
47656
47657
47658
47659 #if MELT_HAVE_DEBUG
47660                     MELT_LOCATION("warmelt-normal.melt:3450:/ cppif.then");
47661                     /*^block*/
47662                     /*anyblock*/
47663                     {
47664
47665
47666                         {
47667                             /*^locexp*/
47668                             /*melt_increment_dbgcounter*/
47669 #if MELT_HAVE_DEBUG
47670                             melt_dbgcounter++;
47671 #endif
47672                             ;
47673                         }
47674                         ;
47675
47676                         MELT_CHECK_SIGNAL();
47677                         ;
47678                         /*_#MELT_NEED_DBG__L14*/
47679                         meltfnum[12] =
47680                             /*MELT_NEED_DBG*/
47681 #if MELT_HAVE_DEBUG
47682                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
47683 #else
47684                             0 /* no melt_need_dbg */
47685 #endif /*MELT_HAVE_DEBUG*/
47686                             ;;
47687                         MELT_LOCATION("warmelt-normal.melt:3450:/ cond");
47688                         /*cond*/
47689                         if (/*_#MELT_NEED_DBG__L14*/ meltfnum[12]) /*then*/
47690                             {
47691                                 /*^cond.then*/
47692                                 /*^block*/
47693                                 /*anyblock*/
47694                                 {
47695
47696                                     /*_#MELT_CALLCOUNT__L15*/ meltfnum[7] =
47697                                         /* for melt_callcount */
47698 #if MELT_HAVE_DEBUG && defined (meltcallcount)
47699                                         meltcallcount  /* melt_callcount debugging */
47700 #else
47701                                         0L  /* melt_callcount without debug */
47702 #endif /* MELT_HAVE_DEBUG melt_callcount */
47703                                         ;;
47704
47705                                     MELT_CHECK_SIGNAL();
47706                                     ;
47707                                     MELT_LOCATION("warmelt-normal.melt:3450:/ apply");
47708                                     /*apply*/
47709                                     {
47710                                         union meltparam_un argtab[7];
47711                                         memset(&argtab, 0, sizeof(argtab));
47712                                         /*^apply.arg*/
47713                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L15*/ meltfnum[7];
47714                                         /*^apply.arg*/
47715                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
47716                                         /*^apply.arg*/
47717                                         argtab[2].meltbp_long = 3450;
47718                                         /*^apply.arg*/
47719                                         argtab[3].meltbp_cstring =  "normexp_return nrets=";
47720                                         /*^apply.arg*/
47721                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NRETS__V44*/ meltfptr[36];
47722                                         /*^apply.arg*/
47723                                         argtab[5].meltbp_cstring =  " nbindrets=";
47724                                         /*^apply.arg*/
47725                                         argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDRETS__V45*/ meltfptr[37];
47726                                         /*_.MELT_DEBUG_FUN__V47*/
47727                                         meltfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
47728                                     }
47729                                     ;
47730                                     /*_._IF___V46*/
47731                                     meltfptr[40] = /*_.MELT_DEBUG_FUN__V47*/ meltfptr[32];;
47732                                     /*epilog*/
47733
47734                                     MELT_LOCATION("warmelt-normal.melt:3450:/ clear");
47735                                     /*clear*/ /*_#MELT_CALLCOUNT__L15*/
47736                                     meltfnum[7] = 0 ;
47737                                     /*^clear*/
47738                                     /*clear*/ /*_.MELT_DEBUG_FUN__V47*/
47739                                     meltfptr[32] = 0 ;
47740                                 }
47741                                 ;
47742                             }
47743                         else    /*^cond.else*/
47744                             {
47745
47746                                 /*_._IF___V46*/ meltfptr[40] =  /*reallynil*/ NULL ;;
47747                             }
47748                         ;
47749
47750                         {
47751                             MELT_LOCATION("warmelt-normal.melt:3450:/ locexp");
47752                             /*void*/
47753                             (void)0;
47754                         }
47755                         ;
47756                         /*^quasiblock*/
47757
47758
47759                         /*epilog*/
47760
47761                         /*^clear*/
47762                         /*clear*/ /*_#MELT_NEED_DBG__L14*/
47763                         meltfnum[12] = 0 ;
47764                         /*^clear*/
47765                         /*clear*/ /*_._IF___V46*/
47766                         meltfptr[40] = 0 ;
47767                     }
47768
47769 #else /*MELT_HAVE_DEBUG*/
47770                     /*^cppif.else*/
47771                     /*^block*/
47772                     /*anyblock*/
47773                     {
47774
47775
47776                         {
47777                             /*^locexp*/
47778                             /*void*/(void)0;
47779                         }
47780                         ;
47781                         /*epilog*/
47782                     }
47783
47784 #endif /*MELT_HAVE_DEBUG*/
47785                     ;
47786
47787                     MELT_CHECK_SIGNAL();
47788                     ;
47789
47790                     MELT_CHECK_SIGNAL();
47791                     ;
47792                     /*_#gtI__L16*/
47793                     meltfnum[7] =
47794                         ((/*_#NBRETS__L6*/ meltfnum[0]) > (1));;
47795                     MELT_LOCATION("warmelt-normal.melt:3451:/ cond");
47796                     /*cond*/
47797                     if (/*_#gtI__L16*/ meltfnum[7]) /*then*/
47798                         {
47799                             /*^cond.then*/
47800                             /*^block*/
47801                             /*anyblock*/
47802                             {
47803
47804                                 /*_#IS_A__L18*/ meltfnum[17] =
47805                                     melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[10])));;
47806                                 /*^compute*/
47807                                 /*_#_IF___L17*/
47808                                 meltfnum[12] = /*_#IS_A__L18*/ meltfnum[17];;
47809                                 /*epilog*/
47810
47811                                 MELT_LOCATION("warmelt-normal.melt:3451:/ clear");
47812                                 /*clear*/ /*_#IS_A__L18*/
47813                                 meltfnum[17] = 0 ;
47814                             }
47815                             ;
47816                         }
47817                     else    /*^cond.else*/
47818                         {
47819
47820                             /*_#_IF___L17*/ meltfnum[12] = 0;;
47821                         }
47822                     ;
47823                     MELT_LOCATION("warmelt-normal.melt:3451:/ cond");
47824                     /*cond*/
47825                     if (/*_#_IF___L17*/ meltfnum[12]) /*then*/
47826                         {
47827                             /*^cond.then*/
47828                             /*^block*/
47829                             /*anyblock*/
47830                             {
47831
47832
47833                                 MELT_CHECK_SIGNAL();
47834                                 ;
47835                                 MELT_LOCATION("warmelt-normal.melt:3454:/ apply");
47836                                 /*apply*/
47837                                 {
47838                                     union meltparam_un argtab[1];
47839                                     memset(&argtab, 0, sizeof(argtab));
47840                                     /*^apply.arg*/
47841                                     argtab[0].meltbp_cstring =  "multiple RETURN not allowed inside hooks";
47842                                     /*_.ERROR_AT__V49*/
47843                                     meltfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
47844                                 }
47845                                 ;
47846                                 MELT_LOCATION("warmelt-normal.melt:3456:/ quasiblock");
47847
47848
47849                                 /*_._RETVAL___V1*/
47850                                 meltfptr[0] =  /*reallynil*/ NULL ;;
47851
47852                                 {
47853                                     MELT_LOCATION("warmelt-normal.melt:3456:/ locexp");
47854                                     /*ochecknores compilobj_nrep_return*/
47855 #if MELT_HAVE_DEBUG
47856                                     if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
47857                                         melt_warn_for_no_expected_secondary_results();
47858                                     /* we warned when secondary results are expected but not returned. */
47859 #endif /*MELT_HAVE_DEBUG*/
47860                                     ;
47861                                 }
47862                                 ;
47863                                 /*^finalreturn*/
47864                                 ;
47865                                 /*finalret*/
47866                                 goto meltlabend_rout ;
47867                                 MELT_LOCATION("warmelt-normal.melt:3451:/ quasiblock");
47868
47869
47870                                 /*_.PROGN___V51*/
47871                                 meltfptr[50] = /*_.RETURN___V50*/ meltfptr[49];;
47872                                 /*^compute*/
47873                                 /*_._IF___V48*/
47874                                 meltfptr[32] = /*_.PROGN___V51*/ meltfptr[50];;
47875                                 /*epilog*/
47876
47877                                 MELT_LOCATION("warmelt-normal.melt:3451:/ clear");
47878                                 /*clear*/ /*_.ERROR_AT__V49*/
47879                                 meltfptr[40] = 0 ;
47880                                 /*^clear*/
47881                                 /*clear*/ /*_.RETURN___V50*/
47882                                 meltfptr[49] = 0 ;
47883                                 /*^clear*/
47884                                 /*clear*/ /*_.PROGN___V51*/
47885                                 meltfptr[50] = 0 ;
47886                             }
47887                             ;
47888                         }
47889                     else    /*^cond.else*/
47890                         {
47891
47892                             /*_._IF___V48*/ meltfptr[32] =  /*reallynil*/ NULL ;;
47893                         }
47894                     ;
47895                     MELT_LOCATION("warmelt-normal.melt:3457:/ quasiblock");
47896
47897
47898                     /*_.NRET0__V53*/
47899                     meltfptr[49] =
47900                         (melt_multiple_nth((melt_ptr_t)(/*_.NRETS__V44*/ meltfptr[36]), (0)));;
47901                     /*^compute*/
47902                     /*_#miI__L19*/
47903                     meltfnum[17] =
47904                         ((/*_#NBRETS__L6*/ meltfnum[0]) - (1));;
47905                     /*^compute*/
47906                     /*_.TOTH__V54*/
47907                     meltfptr[50] =
47908                         (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[17])), (/*_#miI__L19*/ meltfnum[17])));;
47909
47910                     MELT_CHECK_SIGNAL();
47911                     ;
47912                     MELT_LOCATION("warmelt-normal.melt:3459:/ msend");
47913                     /*msend*/
47914                     {
47915                         union meltparam_un argtab[1];
47916                         memset(&argtab, 0, sizeof(argtab));
47917                         /*^ojbmsend.arg*/
47918                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
47919                         /*_.CTYP0__V55*/
47920                         meltfptr[54] = meltgc_send((melt_ptr_t)(/*_.NRET0__V53*/ meltfptr[49]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[18])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
47921                     }
47922                     ;
47923
47924                     MELT_CHECK_SIGNAL();
47925                     ;
47926
47927                     MELT_CHECK_SIGNAL();
47928                     ;
47929                     /*_#exeq__L20*/
47930                     meltfnum[19] =
47931                         ((/*_.CTYP0__V55*/ meltfptr[54]) != ((/*!CTYPE_VALUE*/ meltfrout->tabval[9])));;
47932                     MELT_LOCATION("warmelt-normal.melt:3462:/ cond");
47933                     /*cond*/
47934                     if (/*_#exeq__L20*/ meltfnum[19]) /*then*/
47935                         {
47936                             /*^cond.then*/
47937                             /*^block*/
47938                             /*anyblock*/
47939                             {
47940
47941                                 /*_#IS_A__L22*/ meltfnum[21] =
47942                                     melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ meltfrout->tabval[8])));;
47943                                 /*^compute*/
47944                                 /*_#_IF___L21*/
47945                                 meltfnum[20] = /*_#IS_A__L22*/ meltfnum[21];;
47946                                 /*epilog*/
47947
47948                                 MELT_LOCATION("warmelt-normal.melt:3462:/ clear");
47949                                 /*clear*/ /*_#IS_A__L22*/
47950                                 meltfnum[21] = 0 ;
47951                             }
47952                             ;
47953                         }
47954                     else    /*^cond.else*/
47955                         {
47956
47957                             /*_#_IF___L21*/ meltfnum[20] = 0;;
47958                         }
47959                     ;
47960                     MELT_LOCATION("warmelt-normal.melt:3461:/ cond");
47961                     /*cond*/
47962                     if (/*_#_IF___L21*/ meltfnum[20]) /*then*/
47963                         {
47964                             /*^cond.then*/
47965                             /*^block*/
47966                             /*anyblock*/
47967                             {
47968
47969
47970                                 MELT_CHECK_SIGNAL();
47971                                 ;
47972                                 MELT_LOCATION("warmelt-normal.melt:3465:/ apply");
47973                                 /*apply*/
47974                                 {
47975                                     union meltparam_un argtab[1];
47976                                     memset(&argtab, 0, sizeof(argtab));
47977                                     /*^apply.arg*/
47978                                     argtab[0].meltbp_cstring =  "primary RETURN-ed result from procedure is not a value";
47979                                     /*_.ERROR_AT__V57*/
47980                                     meltfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
47981                                 }
47982                                 ;
47983                                 MELT_LOCATION("warmelt-normal.melt:3467:/ quasiblock");
47984
47985
47986                                 /*_._RETVAL___V1*/
47987                                 meltfptr[0] =  /*reallynil*/ NULL ;;
47988
47989                                 {
47990                                     MELT_LOCATION("warmelt-normal.melt:3467:/ locexp");
47991                                     /*ochecknores compilobj_nrep_return*/
47992 #if MELT_HAVE_DEBUG
47993                                     if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
47994                                         melt_warn_for_no_expected_secondary_results();
47995                                     /* we warned when secondary results are expected but not returned. */
47996 #endif /*MELT_HAVE_DEBUG*/
47997                                     ;
47998                                 }
47999                                 ;
48000                                 /*^finalreturn*/
48001                                 ;
48002                                 /*finalret*/
48003                                 goto meltlabend_rout ;
48004                                 MELT_LOCATION("warmelt-normal.melt:3461:/ quasiblock");
48005
48006
48007                                 /*_.PROGN___V59*/
48008                                 meltfptr[58] = /*_.RETURN___V58*/ meltfptr[57];;
48009                                 /*^compute*/
48010                                 /*_._IF___V56*/
48011                                 meltfptr[55] = /*_.PROGN___V59*/ meltfptr[58];;
48012                                 /*epilog*/
48013
48014                                 MELT_LOCATION("warmelt-normal.melt:3461:/ clear");
48015                                 /*clear*/ /*_.ERROR_AT__V57*/
48016                                 meltfptr[56] = 0 ;
48017                                 /*^clear*/
48018                                 /*clear*/ /*_.RETURN___V58*/
48019                                 meltfptr[57] = 0 ;
48020                                 /*^clear*/
48021                                 /*clear*/ /*_.PROGN___V59*/
48022                                 meltfptr[58] = 0 ;
48023                             }
48024                             ;
48025                         }
48026                     else    /*^cond.else*/
48027                         {
48028
48029                             /*_._IF___V56*/ meltfptr[55] =  /*reallynil*/ NULL ;;
48030                         }
48031                     ;
48032
48033                     MELT_CHECK_SIGNAL();
48034                     ;
48035                     /*^compute*/
48036                     /*_#IS_A__L23*/
48037                     meltfnum[21] =
48038                         melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_NREP_HOOKPROC*/ meltfrout->tabval[10])));;
48039                     MELT_LOCATION("warmelt-normal.melt:3468:/ cond");
48040                     /*cond*/
48041                     if (/*_#IS_A__L23*/ meltfnum[21]) /*then*/
48042                         {
48043                             /*^cond.then*/
48044                             /*^block*/
48045                             /*anyblock*/
48046                             {
48047
48048
48049                                 MELT_CHECK_SIGNAL();
48050                                 ;
48051                                 /*_#gtI__L24*/
48052                                 meltfnum[23] =
48053                                     ((/*_#NBRETS__L6*/ meltfnum[0]) > (1));;
48054                                 MELT_LOCATION("warmelt-normal.melt:3469:/ cond");
48055                                 /*cond*/
48056                                 if (/*_#gtI__L24*/ meltfnum[23]) /*then*/
48057                                     {
48058                                         /*^cond.then*/
48059                                         /*^block*/
48060                                         /*anyblock*/
48061                                         {
48062
48063
48064                                             MELT_CHECK_SIGNAL();
48065                                             ;
48066                                             MELT_LOCATION("warmelt-normal.melt:3470:/ apply");
48067                                             /*apply*/
48068                                             {
48069                                                 union meltparam_un argtab[1];
48070                                                 memset(&argtab, 0, sizeof(argtab));
48071                                                 /*^apply.arg*/
48072                                                 argtab[0].meltbp_cstring =  "RETURN with secondary results impossible in a hook";
48073                                                 /*_.ERROR_AT__V62*/
48074                                                 meltfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
48075                                             }
48076                                             ;
48077                                             MELT_LOCATION("warmelt-normal.melt:3471:/ quasiblock");
48078
48079
48080                                             /*_._RETVAL___V1*/
48081                                             meltfptr[0] =  /*reallynil*/ NULL ;;
48082
48083                                             {
48084                                                 MELT_LOCATION("warmelt-normal.melt:3471:/ locexp");
48085                                                 /*ochecknores compilobj_nrep_return*/
48086 #if MELT_HAVE_DEBUG
48087                                                 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
48088                                                     melt_warn_for_no_expected_secondary_results();
48089                                                 /* we warned when secondary results are expected but not returned. */
48090 #endif /*MELT_HAVE_DEBUG*/
48091                                                 ;
48092                                             }
48093                                             ;
48094                                             /*^finalreturn*/
48095                                             ;
48096                                             /*finalret*/
48097                                             goto meltlabend_rout ;
48098                                             MELT_LOCATION("warmelt-normal.melt:3469:/ quasiblock");
48099
48100
48101                                             /*_.PROGN___V64*/
48102                                             meltfptr[63] = /*_.RETURN___V63*/ meltfptr[62];;
48103                                             /*^compute*/
48104                                             /*_._IF___V61*/
48105                                             meltfptr[57] = /*_.PROGN___V64*/ meltfptr[63];;
48106                                             /*epilog*/
48107
48108                                             MELT_LOCATION("warmelt-normal.melt:3469:/ clear");
48109                                             /*clear*/ /*_.ERROR_AT__V62*/
48110                                             meltfptr[58] = 0 ;
48111                                             /*^clear*/
48112                                             /*clear*/ /*_.RETURN___V63*/
48113                                             meltfptr[62] = 0 ;
48114                                             /*^clear*/
48115                                             /*clear*/ /*_.PROGN___V64*/
48116                                             meltfptr[63] = 0 ;
48117                                         }
48118                                         ;
48119                                     }
48120                                 else    /*^cond.else*/
48121                                     {
48122
48123                                         /*_._IF___V61*/ meltfptr[57] =  /*reallynil*/ NULL ;;
48124                                     }
48125                                 ;
48126
48127                                 MELT_CHECK_SIGNAL();
48128                                 ;
48129
48130                                 MELT_CHECK_SIGNAL();
48131                                 ;
48132                                 MELT_LOCATION("warmelt-normal.melt:3472:/ cond");
48133                                 /*cond*/
48134                                 if (/*_.NRET0__V53*/ meltfptr[49]) /*then*/
48135                                     {
48136                                         /*^cond.then*/
48137                                         /*^block*/
48138                                         /*anyblock*/
48139                                         {
48140
48141
48142                                             MELT_CHECK_SIGNAL();
48143                                             ;
48144                                             /*^cond*/
48145                                             /*cond*/
48146                                             if (/*_.CTYP0__V55*/ meltfptr[54]) /*then*/
48147                                                 {
48148                                                     /*^cond.then*/
48149                                                     /*^block*/
48150                                                     /*anyblock*/
48151                                                     {
48152
48153                                                         /*_#exeq__L27*/ meltfnum[26] =
48154                                                             ((/*_.CTYP0__V55*/ meltfptr[54]) != (/*_.RESTYPE__V23*/ meltfptr[22]));;
48155                                                         /*^compute*/
48156                                                         /*_#_IF___L26*/
48157                                                         meltfnum[25] = /*_#exeq__L27*/ meltfnum[26];;
48158                                                         /*epilog*/
48159
48160                                                         MELT_LOCATION("warmelt-normal.melt:3472:/ clear");
48161                                                         /*clear*/ /*_#exeq__L27*/
48162                                                         meltfnum[26] = 0 ;
48163                                                     }
48164                                                     ;
48165                                                 }
48166                                             else    /*^cond.else*/
48167                                                 {
48168
48169                                                     /*_#_IF___L26*/ meltfnum[25] = 0;;
48170                                                 }
48171                                             ;
48172                                             /*^compute*/
48173                                             /*_#_IF___L25*/
48174                                             meltfnum[24] = /*_#_IF___L26*/ meltfnum[25];;
48175                                             /*epilog*/
48176
48177                                             MELT_LOCATION("warmelt-normal.melt:3472:/ clear");
48178                                             /*clear*/ /*_#_IF___L26*/
48179                                             meltfnum[25] = 0 ;
48180                                         }
48181                                         ;
48182                                     }
48183                                 else    /*^cond.else*/
48184                                     {
48185
48186                                         /*_#_IF___L25*/ meltfnum[24] = 0;;
48187                                     }
48188                                 ;
48189                                 MELT_LOCATION("warmelt-normal.melt:3472:/ cond");
48190                                 /*cond*/
48191                                 if (/*_#_IF___L25*/ meltfnum[24]) /*then*/
48192                                     {
48193                                         /*^cond.then*/
48194                                         /*^block*/
48195                                         /*anyblock*/
48196                                         {
48197
48198                                             MELT_LOCATION("warmelt-normal.melt:3474:/ cond");
48199                                             /*cond*/
48200                                             if (
48201                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RESTYPE__V23*/ meltfptr[22]),
48202                                                                               (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[19])))
48203                                             ) /*then*/
48204                                                 {
48205                                                     /*^cond.then*/
48206                                                     /*^getslot*/
48207                                                     {
48208                                                         melt_ptr_t slot=NULL, obj=NULL;
48209                                                         obj = (melt_ptr_t)(/*_.RESTYPE__V23*/ meltfptr[22]) /*=obj*/;
48210                                                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
48211                                                         /*_.NAMED_NAME__V66*/
48212                                                         meltfptr[62] = slot;
48213                                                     };
48214                                                     ;
48215                                                 }
48216                                             else    /*^cond.else*/
48217                                                 {
48218
48219                                                     /*_.NAMED_NAME__V66*/ meltfptr[62] =  /*reallynil*/ NULL ;;
48220                                                 }
48221                                             ;
48222                                             MELT_LOCATION("warmelt-normal.melt:3475:/ cond");
48223                                             /*cond*/
48224                                             if (
48225                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP0__V55*/ meltfptr[54]),
48226                                                                               (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[19])))
48227                                             ) /*then*/
48228                                                 {
48229                                                     /*^cond.then*/
48230                                                     /*^getslot*/
48231                                                     {
48232                                                         melt_ptr_t slot=NULL, obj=NULL;
48233                                                         obj = (melt_ptr_t)(/*_.CTYP0__V55*/ meltfptr[54]) /*=obj*/;
48234                                                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
48235                                                         /*_.NAMED_NAME__V67*/
48236                                                         meltfptr[63] = slot;
48237                                                     };
48238                                                     ;
48239                                                 }
48240                                             else    /*^cond.else*/
48241                                                 {
48242
48243                                                     /*_.NAMED_NAME__V67*/ meltfptr[63] =  /*reallynil*/ NULL ;;
48244                                                 }
48245                                             ;
48246
48247                                             MELT_CHECK_SIGNAL();
48248                                             ;
48249                                             MELT_LOCATION("warmelt-normal.melt:3473:/ apply");
48250                                             /*apply*/
48251                                             {
48252                                                 union meltparam_un argtab[3];
48253                                                 memset(&argtab, 0, sizeof(argtab));
48254                                                 /*^apply.arg*/
48255                                                 argtab[0].meltbp_cstring =  "RETURN with incompatible type in hook expected type $1 gotten $2";
48256                                                 /*^apply.arg*/
48257                                                 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V66*/ meltfptr[62];
48258                                                 /*^apply.arg*/
48259                                                 argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V67*/ meltfptr[63];
48260                                                 /*_.ERROR_AT__V68*/
48261                                                 meltfptr[67] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
48262                                             }
48263                                             ;
48264                                             MELT_LOCATION("warmelt-normal.melt:3476:/ quasiblock");
48265
48266
48267                                             /*_._RETVAL___V1*/
48268                                             meltfptr[0] =  /*reallynil*/ NULL ;;
48269
48270                                             {
48271                                                 MELT_LOCATION("warmelt-normal.melt:3476:/ locexp");
48272                                                 /*ochecknores compilobj_nrep_return*/
48273 #if MELT_HAVE_DEBUG
48274                                                 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
48275                                                     melt_warn_for_no_expected_secondary_results();
48276                                                 /* we warned when secondary results are expected but not returned. */
48277 #endif /*MELT_HAVE_DEBUG*/
48278                                                 ;
48279                                             }
48280                                             ;
48281                                             /*^finalreturn*/
48282                                             ;
48283                                             /*finalret*/
48284                                             goto meltlabend_rout ;
48285                                             MELT_LOCATION("warmelt-normal.melt:3472:/ quasiblock");
48286
48287
48288                                             /*_.PROGN___V70*/
48289                                             meltfptr[69] = /*_.RETURN___V69*/ meltfptr[68];;
48290                                             /*^compute*/
48291                                             /*_._IF___V65*/
48292                                             meltfptr[58] = /*_.PROGN___V70*/ meltfptr[69];;
48293                                             /*epilog*/
48294
48295                                             MELT_LOCATION("warmelt-normal.melt:3472:/ clear");
48296                                             /*clear*/ /*_.NAMED_NAME__V66*/
48297                                             meltfptr[62] = 0 ;
48298                                             /*^clear*/
48299                                             /*clear*/ /*_.NAMED_NAME__V67*/
48300                                             meltfptr[63] = 0 ;
48301                                             /*^clear*/
48302                                             /*clear*/ /*_.ERROR_AT__V68*/
48303                                             meltfptr[67] = 0 ;
48304                                             /*^clear*/
48305                                             /*clear*/ /*_.RETURN___V69*/
48306                                             meltfptr[68] = 0 ;
48307                                             /*^clear*/
48308                                             /*clear*/ /*_.PROGN___V70*/
48309                                             meltfptr[69] = 0 ;
48310                                         }
48311                                         ;
48312                                     }
48313                                 else    /*^cond.else*/
48314                                     {
48315
48316                                         /*_._IF___V65*/ meltfptr[58] =  /*reallynil*/ NULL ;;
48317                                     }
48318                                 ;
48319                                 MELT_LOCATION("warmelt-normal.melt:3468:/ quasiblock");
48320
48321
48322                                 /*_.PROGN___V71*/
48323                                 meltfptr[62] = /*_._IF___V65*/ meltfptr[58];;
48324                                 /*^compute*/
48325                                 /*_._IF___V60*/
48326                                 meltfptr[56] = /*_.PROGN___V71*/ meltfptr[62];;
48327                                 /*epilog*/
48328
48329                                 MELT_LOCATION("warmelt-normal.melt:3468:/ clear");
48330                                 /*clear*/ /*_#gtI__L24*/
48331                                 meltfnum[23] = 0 ;
48332                                 /*^clear*/
48333                                 /*clear*/ /*_._IF___V61*/
48334                                 meltfptr[57] = 0 ;
48335                                 /*^clear*/
48336                                 /*clear*/ /*_#_IF___L25*/
48337                                 meltfnum[24] = 0 ;
48338                                 /*^clear*/
48339                                 /*clear*/ /*_._IF___V65*/
48340                                 meltfptr[58] = 0 ;
48341                                 /*^clear*/
48342                                 /*clear*/ /*_.PROGN___V71*/
48343                                 meltfptr[62] = 0 ;
48344                             }
48345                             ;
48346                         }
48347                     else    /*^cond.else*/
48348                         {
48349
48350                             /*_._IF___V60*/ meltfptr[56] =  /*reallynil*/ NULL ;;
48351                         }
48352                     ;
48353
48354                     MELT_CHECK_SIGNAL();
48355                     ;
48356                     /*^compute*/
48357                     /*_#NULL__L28*/
48358                     meltfnum[26] =
48359                         (/*null*/(/*_.NBINDRETS__V45*/ meltfptr[37]) == NULL);;
48360                     MELT_LOCATION("warmelt-normal.melt:3478:/ cond");
48361                     /*cond*/
48362                     if (/*_#NULL__L28*/ meltfnum[26]) /*then*/
48363                         {
48364                             /*^cond.then*/
48365                             /*^block*/
48366                             /*anyblock*/
48367                             {
48368
48369                                 /*_.MAKE_LIST__V73*/ meltfptr[67] =
48370                                     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[14]))));;
48371                                 MELT_LOCATION("warmelt-normal.melt:3479:/ compute");
48372                                 /*_.NBINDRETS__V45*/
48373                                 meltfptr[37] = /*_.SETQ___V74*/ meltfptr[68] = /*_.MAKE_LIST__V73*/ meltfptr[67];;
48374                                 /*_._IF___V72*/
48375                                 meltfptr[63] = /*_.SETQ___V74*/ meltfptr[68];;
48376                                 /*epilog*/
48377
48378                                 MELT_LOCATION("warmelt-normal.melt:3478:/ clear");
48379                                 /*clear*/ /*_.MAKE_LIST__V73*/
48380                                 meltfptr[67] = 0 ;
48381                                 /*^clear*/
48382                                 /*clear*/ /*_.SETQ___V74*/
48383                                 meltfptr[68] = 0 ;
48384                             }
48385                             ;
48386                         }
48387                     else    /*^cond.else*/
48388                         {
48389
48390                             /*_._IF___V72*/ meltfptr[63] =  /*reallynil*/ NULL ;;
48391                         }
48392                     ;
48393                     MELT_LOCATION("warmelt-normal.melt:3481:/ quasiblock");
48394
48395
48396
48397                     MELT_CHECK_SIGNAL();
48398                     ;
48399                     /*^apply*/
48400                     /*apply*/
48401                     {
48402                         /*_.RINTSYMB__V75*/ meltfptr[69] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[6])), (melt_ptr_t)((/*!konst_20__RETINT_*/ meltfrout->tabval[20])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
48403                     }
48404                     ;
48405
48406                     MELT_CHECK_SIGNAL();
48407                     ;
48408                     MELT_LOCATION("warmelt-normal.melt:3482:/ quasiblock");
48409
48410
48411                     /*^rawallocobj*/
48412                     /*rawallocobj*/
48413                     {
48414                         melt_ptr_t newobj = 0;
48415                         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHECKSIGNAL*/ meltfrout->tabval[21])), (1), "CLASS_NREP_CHECKSIGNAL");
48416                         /*_.INST__V77*/
48417                         meltfptr[58] =
48418                             newobj;
48419                     };
48420                     ;
48421                     /*^putslot*/
48422                     /*putslot*/
48423                     melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V77*/ meltfptr[58])) == MELTOBMAG_OBJECT);
48424                     melt_putfield_object((/*_.INST__V77*/ meltfptr[58]), (0), (/*_.SLOC__V19*/ meltfptr[18]), "NREP_LOC");
48425                     ;
48426                     /*^touchobj*/
48427
48428                     melt_dbgtrace_written_object (/*_.INST__V77*/ meltfptr[58], "newly made instance");
48429                     ;
48430                     /*_.NCHINT__V76*/
48431                     meltfptr[57] = /*_.INST__V77*/ meltfptr[58];;
48432
48433                     MELT_CHECK_SIGNAL();
48434                     ;
48435                     MELT_LOCATION("warmelt-normal.melt:3484:/ quasiblock");
48436
48437
48438                     /*^rawallocobj*/
48439                     /*rawallocobj*/
48440                     {
48441                         melt_ptr_t newobj = 0;
48442                         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[12])), (4), "CLASS_NORMAL_LET_BINDING");
48443                         /*_.INST__V79*/
48444                         meltfptr[67] =
48445                             newobj;
48446                     };
48447                     ;
48448                     /*^putslot*/
48449                     /*putslot*/
48450                     melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[67])) == MELTOBMAG_OBJECT);
48451                     melt_putfield_object((/*_.INST__V79*/ meltfptr[67]), (0), (/*_.RINTSYMB__V75*/ meltfptr[69]), "BINDER");
48452                     ;
48453                     /*^putslot*/
48454                     /*putslot*/
48455                     melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[67])) == MELTOBMAG_OBJECT);
48456                     melt_putfield_object((/*_.INST__V79*/ meltfptr[67]), (1), ((/*!CTYPE_VOID*/ meltfrout->tabval[22])), "LETBIND_TYPE");
48457                     ;
48458                     /*^putslot*/
48459                     /*putslot*/
48460                     melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[67])) == MELTOBMAG_OBJECT);
48461                     melt_putfield_object((/*_.INST__V79*/ meltfptr[67]), (2), (/*_.NCHINT__V76*/ meltfptr[57]), "LETBIND_EXPR");
48462                     ;
48463                     /*^touchobj*/
48464
48465                     melt_dbgtrace_written_object (/*_.INST__V79*/ meltfptr[67], "newly made instance");
48466                     ;
48467                     /*_.RINTBIND__V78*/
48468                     meltfptr[62] = /*_.INST__V79*/ meltfptr[67];;
48469
48470                     {
48471                         MELT_LOCATION("warmelt-normal.melt:3490:/ locexp");
48472                         meltgc_append_list((melt_ptr_t)(/*_.NBINDRETS__V45*/ meltfptr[37]), (melt_ptr_t)(/*_.RINTBIND__V78*/ meltfptr[62]));
48473                     }
48474                     ;
48475
48476                     MELT_LOCATION("warmelt-normal.melt:3481:/ clear");
48477                     /*clear*/ /*_.RINTSYMB__V75*/
48478                     meltfptr[69] = 0 ;
48479                     /*^clear*/
48480                     /*clear*/ /*_.NCHINT__V76*/
48481                     meltfptr[57] = 0 ;
48482                     /*^clear*/
48483                     /*clear*/ /*_.RINTBIND__V78*/
48484                     meltfptr[62] = 0 ;
48485                     /*citerblock FOREACH_IN_MULTIPLE*/
48486                     {
48487                         /* start foreach_in_multiple meltcit1__EACHTUP */
48488                         long  meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NRETS__V44*/ meltfptr[36]);
48489                         for (/*_#IX__L29*/ meltfnum[25] = 0;
48490                                            (/*_#IX__L29*/ meltfnum[25] >= 0) && (/*_#IX__L29*/ meltfnum[25] <  meltcit1__EACHTUP_ln);
48491                                            /*_#IX__L29*/ meltfnum[25]++)
48492                             {
48493                                 /*_.NCOMP__V80*/ meltfptr[68] = melt_multiple_nth((melt_ptr_t)(/*_.NRETS__V44*/ meltfptr[36]),  /*_#IX__L29*/ meltfnum[25]);
48494
48495
48496
48497                                 MELT_LOCATION("warmelt-normal.melt:3496:/ quasiblock");
48498
48499
48500
48501                                 MELT_CHECK_SIGNAL();
48502                                 ;
48503                                 /*^msend*/
48504                                 /*msend*/
48505                                 {
48506                                     union meltparam_un argtab[1];
48507                                     memset(&argtab, 0, sizeof(argtab));
48508                                     /*^ojbmsend.arg*/
48509                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
48510                                     /*_.NCTYP__V82*/
48511                                     meltfptr[57] = meltgc_send((melt_ptr_t)(/*_.NCOMP__V80*/ meltfptr[68]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[18])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
48512                                 }
48513                                 ;
48514
48515 #if MELT_HAVE_DEBUG
48516                                 MELT_LOCATION("warmelt-normal.melt:3498:/ cppif.then");
48517                                 /*^block*/
48518                                 /*anyblock*/
48519                                 {
48520
48521
48522                                     MELT_CHECK_SIGNAL();
48523                                     ;
48524                                     /*_#IS_A__L30*/
48525                                     meltfnum[23] =
48526                                         melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V82*/ meltfptr[57]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[23])));;
48527                                     MELT_LOCATION("warmelt-normal.melt:3498:/ cond");
48528                                     /*cond*/
48529                                     if (/*_#IS_A__L30*/ meltfnum[23]) /*then*/
48530                                         {
48531                                             /*^cond.then*/
48532                                             /*_._IFELSE___V84*/ meltfptr[83] = (/*nil*/NULL);;
48533                                         }
48534                                     else
48535                                         {
48536                                             MELT_LOCATION("warmelt-normal.melt:3498:/ cond.else");
48537
48538                                             /*^block*/
48539                                             /*anyblock*/
48540                                             {
48541
48542
48543                                                 MELT_CHECK_SIGNAL();
48544                                                 ;
48545                                                 /*^apply*/
48546                                                 /*apply*/
48547                                                 {
48548                                                     union meltparam_un argtab[4];
48549                                                     memset(&argtab, 0, sizeof(argtab));
48550                                                     /*^apply.arg*/
48551                                                     argtab[0].meltbp_cstring =  "check nctyp";
48552                                                     /*^apply.arg*/
48553                                                     argtab[1].meltbp_cstring =  "warmelt-normal.melt";
48554                                                     /*^apply.arg*/
48555                                                     argtab[2].meltbp_long = 3498;
48556                                                     /*^apply.arg*/
48557                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCTYP__V82*/ meltfptr[57];
48558                                                     /*_.MELT_ASSERT_FAILURE_FUN__V85*/
48559                                                     meltfptr[84] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
48560                                                 }
48561                                                 ;
48562                                                 /*_._IFELSE___V84*/
48563                                                 meltfptr[83] = /*_.MELT_ASSERT_FAILURE_FUN__V85*/ meltfptr[84];;
48564                                                 /*epilog*/
48565
48566                                                 MELT_LOCATION("warmelt-normal.melt:3498:/ clear");
48567                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V85*/
48568                                                 meltfptr[84] = 0 ;
48569                                             }
48570                                             ;
48571                                         }
48572                                     ;
48573                                     /*_.IFCPP___V83*/
48574                                     meltfptr[62] = /*_._IFELSE___V84*/ meltfptr[83];;
48575                                     /*epilog*/
48576
48577                                     MELT_LOCATION("warmelt-normal.melt:3498:/ clear");
48578                                     /*clear*/ /*_#IS_A__L30*/
48579                                     meltfnum[23] = 0 ;
48580                                     /*^clear*/
48581                                     /*clear*/ /*_._IFELSE___V84*/
48582                                     meltfptr[83] = 0 ;
48583                                 }
48584
48585 #else /*MELT_HAVE_DEBUG*/
48586                                 /*^cppif.else*/
48587                                 /*_.IFCPP___V83*/ meltfptr[62] = (/*nil*/NULL);
48588 #endif /*MELT_HAVE_DEBUG*/
48589                                 ;
48590
48591                                 MELT_CHECK_SIGNAL();
48592                                 ;
48593                                 MELT_LOCATION("warmelt-normal.melt:3499:/ cond");
48594                                 /*cond*/
48595                                 if (
48596                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V82*/ meltfptr[57]),
48597                                                                   (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[23])))
48598                                 ) /*then*/
48599                                     {
48600                                         /*^cond.then*/
48601                                         /*^getslot*/
48602                                         {
48603                                             melt_ptr_t slot=NULL, obj=NULL;
48604                                             obj = (melt_ptr_t)(/*_.NCTYP__V82*/ meltfptr[57]) /*=obj*/;
48605                                             melt_object_get_field(slot,obj, 5, "CTYPE_PARCHAR");
48606                                             /*_.CTYPE_PARCHAR__V86*/
48607                                             meltfptr[84] = slot;
48608                                         };
48609                                         ;
48610                                     }
48611                                 else    /*^cond.else*/
48612                                     {
48613
48614                                         /*_.CTYPE_PARCHAR__V86*/ meltfptr[84] =  /*reallynil*/ NULL ;;
48615                                     }
48616                                 ;
48617                                 MELT_LOCATION("warmelt-normal.melt:3499:/ cond");
48618                                 /*cond*/
48619                                 if (/*_.CTYPE_PARCHAR__V86*/ meltfptr[84]) /*then*/
48620                                     {
48621                                         /*^cond.then*/
48622                                         /*_._IFELSE___V87*/ meltfptr[83] = (/*nil*/NULL);;
48623                                     }
48624                                 else
48625                                     {
48626                                         MELT_LOCATION("warmelt-normal.melt:3499:/ cond.else");
48627
48628                                         /*^block*/
48629                                         /*anyblock*/
48630                                         {
48631
48632                                             MELT_LOCATION("warmelt-normal.melt:3501:/ cond");
48633                                             /*cond*/
48634                                             if (
48635                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V82*/ meltfptr[57]),
48636                                                                               (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[19])))
48637                                             ) /*then*/
48638                                                 {
48639                                                     /*^cond.then*/
48640                                                     /*^getslot*/
48641                                                     {
48642                                                         melt_ptr_t slot=NULL, obj=NULL;
48643                                                         obj = (melt_ptr_t)(/*_.NCTYP__V82*/ meltfptr[57]) /*=obj*/;
48644                                                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
48645                                                         /*_.NAMED_NAME__V88*/
48646                                                         meltfptr[87] = slot;
48647                                                     };
48648                                                     ;
48649                                                 }
48650                                             else    /*^cond.else*/
48651                                                 {
48652
48653                                                     /*_.NAMED_NAME__V88*/ meltfptr[87] =  /*reallynil*/ NULL ;;
48654                                                 }
48655                                             ;
48656
48657                                             MELT_CHECK_SIGNAL();
48658                                             ;
48659                                             MELT_LOCATION("warmelt-normal.melt:3500:/ apply");
48660                                             /*apply*/
48661                                             {
48662                                                 union meltparam_un argtab[2];
48663                                                 memset(&argtab, 0, sizeof(argtab));
48664                                                 /*^apply.arg*/
48665                                                 argtab[0].meltbp_cstring =  "impossible secondary result type $1";
48666                                                 /*^apply.arg*/
48667                                                 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V88*/ meltfptr[87];
48668                                                 /*_.ERROR_AT__V89*/
48669                                                 meltfptr[88] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
48670                                             }
48671                                             ;
48672                                             MELT_LOCATION("warmelt-normal.melt:3499:/ quasiblock");
48673
48674
48675                                             /*_.PROGN___V90*/
48676                                             meltfptr[89] = /*_.ERROR_AT__V89*/ meltfptr[88];;
48677                                             /*^compute*/
48678                                             /*_._IFELSE___V87*/
48679                                             meltfptr[83] = /*_.PROGN___V90*/ meltfptr[89];;
48680                                             /*epilog*/
48681
48682                                             MELT_LOCATION("warmelt-normal.melt:3499:/ clear");
48683                                             /*clear*/ /*_.NAMED_NAME__V88*/
48684                                             meltfptr[87] = 0 ;
48685                                             /*^clear*/
48686                                             /*clear*/ /*_.ERROR_AT__V89*/
48687                                             meltfptr[88] = 0 ;
48688                                             /*^clear*/
48689                                             /*clear*/ /*_.PROGN___V90*/
48690                                             meltfptr[89] = 0 ;
48691                                         }
48692                                         ;
48693                                     }
48694                                 ;
48695                                 /*_.LET___V81*/
48696                                 meltfptr[69] = /*_._IFELSE___V87*/ meltfptr[83];;
48697
48698                                 MELT_LOCATION("warmelt-normal.melt:3496:/ clear");
48699                                 /*clear*/ /*_.NCTYP__V82*/
48700                                 meltfptr[57] = 0 ;
48701                                 /*^clear*/
48702                                 /*clear*/ /*_.IFCPP___V83*/
48703                                 meltfptr[62] = 0 ;
48704                                 /*^clear*/
48705                                 /*clear*/ /*_.CTYPE_PARCHAR__V86*/
48706                                 meltfptr[84] = 0 ;
48707                                 /*^clear*/
48708                                 /*clear*/ /*_._IFELSE___V87*/
48709                                 meltfptr[83] = 0 ;
48710
48711                                 MELT_CHECK_SIGNAL();
48712                                 ;
48713                                 /*_#gtI__L31*/
48714                                 meltfnum[24] =
48715                                     ((/*_#IX__L29*/ meltfnum[25]) > (0));;
48716                                 MELT_LOCATION("warmelt-normal.melt:3503:/ cond");
48717                                 /*cond*/
48718                                 if (/*_#gtI__L31*/ meltfnum[24]) /*then*/
48719                                     {
48720                                         /*^cond.then*/
48721                                         /*^block*/
48722                                         /*anyblock*/
48723                                         {
48724
48725                                             /*_#miI__L32*/ meltfnum[23] =
48726                                                 ((/*_#IX__L29*/ meltfnum[25]) - (1));;
48727
48728                                             {
48729                                                 MELT_LOCATION("warmelt-normal.melt:3504:/ locexp");
48730                                                 meltgc_multiple_put_nth((melt_ptr_t)(/*_.TOTH__V54*/ meltfptr[50]), (/*_#miI__L32*/ meltfnum[23]), (melt_ptr_t)(/*_.NCOMP__V80*/ meltfptr[68]));
48731                                             }
48732                                             ;
48733                                             /*epilog*/
48734
48735                                             MELT_LOCATION("warmelt-normal.melt:3503:/ clear");
48736                                             /*clear*/ /*_#miI__L32*/
48737                                             meltfnum[23] = 0 ;
48738                                         }
48739                                         ;
48740                                     } /*noelse*/
48741                                 ;
48742                                 if (/*_#IX__L29*/ meltfnum[25]<0) break;
48743                             } /* end  foreach_in_multiple meltcit1__EACHTUP */
48744
48745                         /*citerepilog*/
48746
48747                         MELT_LOCATION("warmelt-normal.melt:3493:/ clear");
48748                         /*clear*/ /*_.NCOMP__V80*/
48749                         meltfptr[68] = 0 ;
48750                         /*^clear*/
48751                         /*clear*/ /*_#IX__L29*/
48752                         meltfnum[25] = 0 ;
48753                         /*^clear*/
48754                         /*clear*/ /*_.LET___V81*/
48755                         meltfptr[69] = 0 ;
48756                         /*^clear*/
48757                         /*clear*/ /*_#gtI__L31*/
48758                         meltfnum[24] = 0 ;
48759                     } /*endciterblock FOREACH_IN_MULTIPLE*/
48760                     ;
48761                     MELT_LOCATION("warmelt-normal.melt:3506:/ quasiblock");
48762
48763
48764
48765                     MELT_CHECK_SIGNAL();
48766                     ;
48767
48768                     MELT_CHECK_SIGNAL();
48769                     ;
48770                     /*_#gtI__L33*/
48771                     meltfnum[23] =
48772                         ((/*_#NBRETS__L6*/ meltfnum[0]) > (0));;
48773                     MELT_LOCATION("warmelt-normal.melt:3510:/ cond");
48774                     /*cond*/
48775                     if (/*_#gtI__L33*/ meltfnum[23]) /*then*/
48776                         {
48777                             /*^cond.then*/
48778                             /*_._IF___V92*/ meltfptr[88] = /*_.TOTH__V54*/ meltfptr[50];;
48779                         }
48780                     else
48781                         {
48782                             MELT_LOCATION("warmelt-normal.melt:3510:/ cond.else");
48783
48784                             /*_._IF___V92*/
48785                             meltfptr[88] =  /*reallynil*/ NULL ;;
48786                         }
48787                     ;
48788                     MELT_LOCATION("warmelt-normal.melt:3507:/ quasiblock");
48789
48790
48791                     /*^rawallocobj*/
48792                     /*rawallocobj*/
48793                     {
48794                         melt_ptr_t newobj = 0;
48795                         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ meltfrout->tabval[15])), (3), "CLASS_NREP_RETURN");
48796                         /*_.INST__V94*/
48797                         meltfptr[57] =
48798                             newobj;
48799                     };
48800                     ;
48801                     /*^putslot*/
48802                     /*putslot*/
48803                     melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V94*/ meltfptr[57])) == MELTOBMAG_OBJECT);
48804                     melt_putfield_object((/*_.INST__V94*/ meltfptr[57]), (0), (/*_.SLOC__V19*/ meltfptr[18]), "NREP_LOC");
48805                     ;
48806                     /*^putslot*/
48807                     /*putslot*/
48808                     melt_assertmsg("checkobj putslot  _ @NRET_MAIN", melt_magic_discr((melt_ptr_t)(/*_.INST__V94*/ meltfptr[57])) == MELTOBMAG_OBJECT);
48809                     melt_putfield_object((/*_.INST__V94*/ meltfptr[57]), (1), (/*_.NRET0__V53*/ meltfptr[49]), "NRET_MAIN");
48810                     ;
48811                     /*^putslot*/
48812                     /*putslot*/
48813                     melt_assertmsg("checkobj putslot  _ @NRET_REST", melt_magic_discr((melt_ptr_t)(/*_.INST__V94*/ meltfptr[57])) == MELTOBMAG_OBJECT);
48814                     melt_putfield_object((/*_.INST__V94*/ meltfptr[57]), (2), (/*_._IF___V92*/ meltfptr[88]), "NRET_REST");
48815                     ;
48816                     /*^touchobj*/
48817
48818                     melt_dbgtrace_written_object (/*_.INST__V94*/ meltfptr[57], "newly made instance");
48819                     ;
48820                     /*_.NRET__V93*/
48821                     meltfptr[89] = /*_.INST__V94*/ meltfptr[57];;
48822
48823                     MELT_CHECK_SIGNAL();
48824                     ;
48825                     MELT_LOCATION("warmelt-normal.melt:3512:/ quasiblock");
48826
48827
48828                     /*^putslot*/
48829                     /*putslot*/
48830                     melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V29*/ meltfptr[24])) == MELTOBMAG_OBJECT);
48831                     melt_putfield_object((/*_.CBIND__V29*/ meltfptr[24]), (2), (/*_.NRET__V93*/ meltfptr[89]), "LETBIND_EXPR");
48832                     ;
48833                     /*^touch*/
48834                     meltgc_touch(/*_.CBIND__V29*/ meltfptr[24]);
48835                     ;
48836                     /*^touchobj*/
48837
48838                     melt_dbgtrace_written_object (/*_.CBIND__V29*/ meltfptr[24], "put-fields");
48839                     ;
48840
48841
48842                     {
48843                         MELT_LOCATION("warmelt-normal.melt:3513:/ locexp");
48844                         meltgc_append_list((melt_ptr_t)(/*_.NBINDRETS__V45*/ meltfptr[37]), (melt_ptr_t)(/*_.CBIND__V29*/ meltfptr[24]));
48845                     }
48846                     ;
48847
48848 #if MELT_HAVE_DEBUG
48849                     MELT_LOCATION("warmelt-normal.melt:3514:/ cppif.then");
48850                     /*^block*/
48851                     /*anyblock*/
48852                     {
48853
48854
48855                         {
48856                             /*^locexp*/
48857                             /*melt_increment_dbgcounter*/
48858 #if MELT_HAVE_DEBUG
48859                             melt_dbgcounter++;
48860 #endif
48861                             ;
48862                         }
48863                         ;
48864
48865                         MELT_CHECK_SIGNAL();
48866                         ;
48867                         /*_#MELT_NEED_DBG__L34*/
48868                         meltfnum[33] =
48869                             /*MELT_NEED_DBG*/
48870 #if MELT_HAVE_DEBUG
48871                             (/*melt_need_dbg*/ melt_need_debug ((int) 0))
48872 #else
48873                             0 /* no melt_need_dbg */
48874 #endif /*MELT_HAVE_DEBUG*/
48875                             ;;
48876                         MELT_LOCATION("warmelt-normal.melt:3514:/ cond");
48877                         /*cond*/
48878                         if (/*_#MELT_NEED_DBG__L34*/ meltfnum[33]) /*then*/
48879                             {
48880                                 /*^cond.then*/
48881                                 /*^block*/
48882                                 /*anyblock*/
48883                                 {
48884
48885                                     /*_#MELT_CALLCOUNT__L35*/ meltfnum[34] =
48886                                         /* for melt_callcount */
48887 #if MELT_HAVE_DEBUG && defined (meltcallcount)
48888                                         meltcallcount  /* melt_callcount debugging */
48889 #else
48890                                         0L  /* melt_callcount without debug */
48891 #endif /* MELT_HAVE_DEBUG melt_callcount */
48892                                         ;;
48893
48894                                     MELT_CHECK_SIGNAL();
48895                                     ;
48896                                     MELT_LOCATION("warmelt-normal.melt:3514:/ apply");
48897                                     /*apply*/
48898                                     {
48899                                         union meltparam_un argtab[7];
48900                                         memset(&argtab, 0, sizeof(argtab));
48901                                         /*^apply.arg*/
48902                                         argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L35*/ meltfnum[34];
48903                                         /*^apply.arg*/
48904                                         argtab[1].meltbp_cstring =  "warmelt-normal.melt";
48905                                         /*^apply.arg*/
48906                                         argtab[2].meltbp_long = 3514;
48907                                         /*^apply.arg*/
48908                                         argtab[3].meltbp_cstring =  "normexp_return result clocc=";
48909                                         /*^apply.arg*/
48910                                         argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V31*/ meltfptr[27];
48911                                         /*^apply.arg*/
48912                                         argtab[5].meltbp_cstring =  " nbindrets=";
48913                                         /*^apply.arg*/
48914                                         argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDRETS__V45*/ meltfptr[37];
48915                                         /*_.MELT_DEBUG_FUN__V96*/
48916                                         meltfptr[84] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
48917                                     }
48918                                     ;
48919                                     /*_._IF___V95*/
48920                                     meltfptr[62] = /*_.MELT_DEBUG_FUN__V96*/ meltfptr[84];;
48921                                     /*epilog*/
48922
48923                                     MELT_LOCATION("warmelt-normal.melt:3514:/ clear");
48924                                     /*clear*/ /*_#MELT_CALLCOUNT__L35*/
48925                                     meltfnum[34] = 0 ;
48926                                     /*^clear*/
48927                                     /*clear*/ /*_.MELT_DEBUG_FUN__V96*/
48928                                     meltfptr[84] = 0 ;
48929                                 }
48930                                 ;
48931                             }
48932                         else    /*^cond.else*/
48933                             {
48934
48935                                 /*_._IF___V95*/ meltfptr[62] =  /*reallynil*/ NULL ;;
48936                             }
48937                         ;
48938
48939                         {
48940                             MELT_LOCATION("warmelt-normal.melt:3514:/ locexp");
48941                             /*void*/
48942                             (void)0;
48943                         }
48944                         ;
48945                         /*^quasiblock*/
48946
48947
48948                         /*epilog*/
48949
48950                         /*^clear*/
48951                         /*clear*/ /*_#MELT_NEED_DBG__L34*/
48952                         meltfnum[33] = 0 ;
48953                         /*^clear*/
48954                         /*clear*/ /*_._IF___V95*/
48955                         meltfptr[62] = 0 ;
48956                     }
48957
48958 #else /*MELT_HAVE_DEBUG*/
48959                     /*^cppif.else*/
48960                     /*^block*/
48961                     /*anyblock*/
48962                     {
48963
48964
48965                         {
48966                             /*^locexp*/
48967                             /*void*/(void)0;
48968                         }
48969                         ;
48970                         /*epilog*/
48971                     }
48972
48973 #endif /*MELT_HAVE_DEBUG*/
48974                     ;
48975
48976                     MELT_CHECK_SIGNAL();
48977                     ;
48978                     MELT_LOCATION("warmelt-normal.melt:3515:/ quasiblock");
48979
48980
48981                     /*_._RETVAL___V1*/
48982                     meltfptr[0] = /*_.CLOCC__V31*/ meltfptr[27];;
48983                     MELT_LOCATION("warmelt-normal.melt:3515:/ putxtraresult");
48984                     if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
48985                     if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
48986                     if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.NBINDRETS__V45*/ meltfptr[37]);
48987                     ;
48988                     /*^finalreturn*/
48989                     ;
48990                     /*finalret*/
48991                     goto meltlabend_rout ;
48992                     /*_.LET___V91*/
48993                     meltfptr[87] = /*_.RETURN___V97*/ meltfptr[83];;
48994
48995                     MELT_LOCATION("warmelt-normal.melt:3506:/ clear");
48996                     /*clear*/ /*_#gtI__L33*/
48997                     meltfnum[23] = 0 ;
48998                     /*^clear*/
48999                     /*clear*/ /*_._IF___V92*/
49000                     meltfptr[88] = 0 ;
49001                     /*^clear*/
49002                     /*clear*/ /*_.NRET__V93*/
49003                     meltfptr[89] = 0 ;
49004                     /*^clear*/
49005                     /*clear*/ /*_.RETURN___V97*/
49006                     meltfptr[83] = 0 ;
49007                     /*_.LET___V52*/
49008                     meltfptr[40] = /*_.LET___V91*/ meltfptr[87];;
49009
49010                     MELT_LOCATION("warmelt-normal.melt:3457:/ clear");
49011                     /*clear*/ /*_.NRET0__V53*/
49012                     meltfptr[49] = 0 ;
49013                     /*^clear*/
49014                     /*clear*/ /*_#miI__L19*/
49015                     meltfnum[17] = 0 ;
49016                     /*^clear*/
49017                     /*clear*/ /*_.TOTH__V54*/
49018                     meltfptr[50] = 0 ;
49019                     /*^clear*/
49020                     /*clear*/ /*_.CTYP0__V55*/
49021                     meltfptr[54] = 0 ;
49022                     /*^clear*/
49023                     /*clear*/ /*_#exeq__L20*/
49024                     meltfnum[19] = 0 ;
49025                     /*^clear*/
49026                     /*clear*/ /*_#_IF___L21*/
49027                     meltfnum[20] = 0 ;
49028                     /*^clear*/
49029                     /*clear*/ /*_._IF___V56*/
49030                     meltfptr[55] = 0 ;
49031                     /*^clear*/
49032                     /*clear*/ /*_#IS_A__L23*/
49033                     meltfnum[21] = 0 ;
49034                     /*^clear*/
49035                     /*clear*/ /*_._IF___V60*/
49036                     meltfptr[56] = 0 ;
49037                     /*^clear*/
49038                     /*clear*/ /*_#NULL__L28*/
49039                     meltfnum[26] = 0 ;
49040                     /*^clear*/
49041                     /*clear*/ /*_._IF___V72*/
49042                     meltfptr[63] = 0 ;
49043                     /*^clear*/
49044                     /*clear*/ /*_.LET___V91*/
49045                     meltfptr[87] = 0 ;
49046
49047                     MELT_CHECK_SIGNAL();
49048                     ;
49049                     /*_.MULTI___V43*/
49050                     meltfptr[39] = /*_.LET___V52*/ meltfptr[40];;
49051
49052                     MELT_LOCATION("warmelt-normal.melt:3447:/ clear");
49053                     /*clear*/ /*_#gtI__L16*/
49054                     meltfnum[7] = 0 ;
49055                     /*^clear*/
49056                     /*clear*/ /*_#_IF___L17*/
49057                     meltfnum[12] = 0 ;
49058                     /*^clear*/
49059                     /*clear*/ /*_._IF___V48*/
49060                     meltfptr[32] = 0 ;
49061                     /*^clear*/
49062                     /*clear*/ /*_.LET___V52*/
49063                     meltfptr[40] = 0 ;
49064
49065                     /*^clear*/
49066                     /*clear*/ /*_.NBINDRETS__V45*/
49067                     meltfptr[37] = 0 ;
49068                     /*_._IFELSE___V35*/
49069                     meltfptr[33] = /*_.MULTI___V43*/ meltfptr[39];;
49070                     /*epilog*/
49071
49072                     MELT_LOCATION("warmelt-normal.melt:3433:/ clear");
49073                     /*clear*/ /*_.MULTI___V43*/
49074                     meltfptr[39] = 0 ;
49075                 }
49076                 ;
49077             }
49078         ;
49079         /*_.LET___V17*/
49080         meltfptr[15] = /*_._IFELSE___V35*/ meltfptr[33];;
49081
49082         MELT_LOCATION("warmelt-normal.melt:3404:/ clear");
49083         /*clear*/ /*_.LOCA_LOCATION__V18*/
49084         meltfptr[5] = 0 ;
49085         /*^clear*/
49086         /*clear*/ /*_.SLOC__V19*/
49087         meltfptr[18] = 0 ;
49088         /*^clear*/
49089         /*clear*/ /*_.SRETS__V20*/
49090         meltfptr[19] = 0 ;
49091         /*^clear*/
49092         /*clear*/ /*_#NBRETS__L6*/
49093         meltfnum[0] = 0 ;
49094         /*^clear*/
49095         /*clear*/ /*_.CSYM__V21*/
49096         meltfptr[20] = 0 ;
49097         /*^clear*/
49098         /*clear*/ /*_.CURPROC__V22*/
49099         meltfptr[21] = 0 ;
49100         /*^clear*/
49101         /*clear*/ /*_#IS_A__L7*/
49102         meltfnum[1] = 0 ;
49103         /*^clear*/
49104         /*clear*/ /*_.RESTYPE__V23*/
49105         meltfptr[22] = 0 ;
49106         /*^clear*/
49107         /*clear*/ /*_.CBIND__V29*/
49108         meltfptr[24] = 0 ;
49109         /*^clear*/
49110         /*clear*/ /*_.CLOCC__V31*/
49111         meltfptr[27] = 0 ;
49112         /*^clear*/
49113         /*clear*/ /*_#lteqI__L11*/
49114         meltfnum[9] = 0 ;
49115         /*^clear*/
49116         /*clear*/ /*_._IFELSE___V35*/
49117         meltfptr[33] = 0 ;
49118
49119         MELT_CHECK_SIGNAL();
49120         ;
49121         MELT_LOCATION("warmelt-normal.melt:3399:/ quasiblock");
49122
49123
49124         /*_._RETVAL___V1*/
49125         meltfptr[0] = /*_.LET___V17*/ meltfptr[15];;
49126
49127         {
49128             MELT_LOCATION("warmelt-normal.melt:3399:/ locexp");
49129             /*ochecknores compilobj_nrep_return*/
49130 #if MELT_HAVE_DEBUG
49131             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
49132                 melt_warn_for_no_expected_secondary_results();
49133             /* we warned when secondary results are expected but not returned. */
49134 #endif /*MELT_HAVE_DEBUG*/
49135             ;
49136         }
49137         ;
49138         /*^finalreturn*/
49139         ;
49140         /*finalret*/
49141         goto meltlabend_rout ;
49142         /*epilog*/
49143
49144         /*^clear*/
49145         /*clear*/ /*_.IFCPP___V8*/
49146         meltfptr[6] = 0 ;
49147         /*^clear*/
49148         /*clear*/ /*_.IFCPP___V11*/
49149         meltfptr[9] = 0 ;
49150         /*^clear*/
49151         /*clear*/ /*_.IFCPP___V14*/
49152         meltfptr[12] = 0 ;
49153         /*^clear*/
49154         /*clear*/ /*_.LET___V17*/
49155         meltfptr[15] = 0 ;
49156     }
49157
49158     ;
49159     goto meltlabend_rout;
49160 meltlabend_rout:
49161     melt_trace_end("NORMEXP_RETURN", meltcallcount);
49162     melt_blocklevel_signals = current_blocklevel_signals_meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN_melt;
49163     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
49164 #undef meltcallcount
49165 #undef meltfram__
49166 #undef MELTFRAM_NBVARNUM
49167 #undef MELTFRAM_NBVARPTR
49168 } /*end meltrout_50_WARMELTmiNORMAL_NORMEXP_RETURN*/
49169
49170
49171
49172
49173
49174
49175 melt_ptr_t MELT_MODULE_VISIBILITY
49176 meltrout_51_WARMELTmiNORMAL_NORMEXP_IF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
49177                                        const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
49178 {
49179     long current_blocklevel_signals_meltrout_51_WARMELTmiNORMAL_NORMEXP_IF_melt =  melt_blocklevel_signals;
49180
49181 #if MELT_HAVE_DEBUG
49182     static long melt_call_counter__;
49183     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
49184 #undef meltcallcount
49185 #define meltcallcount melt_thiscallcounter__
49186 #else
49187 #undef meltcallcount
49188 #define meltcallcount 0L
49189 #endif
49190 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
49191
49192     /* start of frame for routine meltrout_51_WARMELTmiNORMAL_NORMEXP_IF fromline 1752 */
49193
49194     /** start of frame for meltrout_51_WARMELTmiNORMAL_NORMEXP_IF of CLASS_PROCROUTINEOBJ from 1555**/
49195
49196     /*curframdeclclassy*/ class MeltFrame_meltrout_51_WARMELTmiNORMAL_NORMEXP_IF// fromline 1568
49197         : public Melt_CallFrameWithValues<69>
49198     {
49199     public: /* fromline 1572*/
49200         long mcfr_varnum[16];
49201         /*classy others*/
49202         long _meltsparel;
49203         void melt_mark_stuff (void)
49204         {
49205         } /*end melt_mark_stuff*/
49206         virtual void melt_mark_ggc_data (void)
49207         {
49208             melt_mark_values ();
49209             melt_mark_stuff ();
49210         }; /*end melt_mark_ggc_data*/
49211         MeltFrame_meltrout_51_WARMELTmiNORMAL_NORMEXP_IF(meltclosure_ptr_t clos) //the closure constructor fromline 1630
49212             : Melt_CallFrameWithValues<69> (
49213 #if ENABLE_CHECKING /*fromline 1634*/
49214                 __FILE__, __LINE__,
49215 #endif /* ENABLE_CHECKING fromline 1638*/
49216                 sizeof(MeltFrame_meltrout_51_WARMELTmiNORMAL_NORMEXP_IF), clos) {};
49217         MeltFrame_meltrout_51_WARMELTmiNORMAL_NORMEXP_IF() //the constructor fromline 1642
49218             : Melt_CallFrameWithValues<69> (
49219 #if ENABLE_CHECKING /*fromline 1646*/
49220                 __FILE__, __LINE__,
49221 #endif /* ENABLE_CHECKING fromline 1650*/
49222                 sizeof(MeltFrame_meltrout_51_WARMELTmiNORMAL_NORMEXP_IF)) {};
49223 #if ENABLE_CHECKING /*fromline 1654*/
49224         MeltFrame_meltrout_51_WARMELTmiNORMAL_NORMEXP_IF(const char*fil, int lin) //the constructor fromline 1656
49225             : Melt_CallFrameWithValues<69> (fil,lin, sizeof(MeltFrame_meltrout_51_WARMELTmiNORMAL_NORMEXP_IF)) {};
49226         MeltFrame_meltrout_51_WARMELTmiNORMAL_NORMEXP_IF(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
49227             : Melt_CallFrameWithValues<69> (fil,lin, sizeof(MeltFrame_meltrout_51_WARMELTmiNORMAL_NORMEXP_IF), clos) {};
49228 #endif /* ENABLE_CHECKING fromline 1666*/
49229
49230     }; // end  class MeltFrame_meltrout_51_WARMELTmiNORMAL_NORMEXP_IF
49231
49232
49233     /** end of frame for meltrout_51_WARMELTmiNORMAL_NORMEXP_IF fromline 1697**/
49234
49235     /* end of frame for routine meltrout_51_WARMELTmiNORMAL_NORMEXP_IF fromline 1756 */
49236
49237     /* classy proc frame meltrout_51_WARMELTmiNORMAL_NORMEXP_IF */
49238     MeltFrame_meltrout_51_WARMELTmiNORMAL_NORMEXP_IF
49239     meltfram__ /*declfrastruct fromline 1780*/
49240     /*classyprocarg meltrout_51_WARMELTmiNORMAL_NORMEXP_IF fromline 1785*/
49241 #if ENABLE_CHECKING
49242     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
49243 #else /*ENABLE_CHECKING */
49244     (meltclosp_) /* fromline 1793*/
49245 #endif /*ENABLE_CHECKING */
49246
49247     ;
49248 #define meltframe meltfram__
49249
49250     melt_trace_start("NORMEXP_IF", meltcallcount);
49251     /*use arguments*/
49252     (void) meltclosp_;
49253     (void)meltfirstargp_;
49254     (void)meltxargdescr_;
49255     (void)meltxargtab_;
49256     (void)meltxresdescr_;
49257     (void)meltxrestab_;
49258     /*getargs*/
49259
49260     /*getarg#0*/
49261     MELT_LOCATION("warmelt-normal.melt:3523:/ getarg");
49262     /*_.RECV__V2*/
49263     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
49264
49265     /*getarg#1*/
49266     /*^getarg*/
49267     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
49268     /*_.ENV__V3*/
49269     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
49270     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
49271
49272
49273     /*getarg#2*/
49274     /*^getarg*/
49275     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
49276     /*_.NCX__V4*/
49277     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
49278     gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL);
49279
49280
49281     /*getarg#3*/
49282     /*^getarg*/
49283     if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
49284     /*_.PSLOC__V5*/
49285     meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
49286     gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL);
49287
49288     ;
49289     goto meltlab_endgetargs;
49290 meltlab_endgetargs:
49291     ;
49292     /*body*/
49293     /*^block*/
49294     /*anyblock*/
49295     {
49296
49297
49298 #if MELT_HAVE_DEBUG
49299         MELT_LOCATION("warmelt-normal.melt:3524:/ cppif.then");
49300         /*^block*/
49301         /*anyblock*/
49302         {
49303
49304
49305             MELT_CHECK_SIGNAL();
49306             ;
49307             /*_#IS_A__L1*/
49308             meltfnum[0] =
49309                 melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_IF*/ meltfrout->tabval[0])));;
49310             MELT_LOCATION("warmelt-normal.melt:3524:/ cond");
49311             /*cond*/
49312             if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/
49313                 {
49314                     /*^cond.then*/
49315                     /*_._IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);;
49316                 }
49317             else
49318                 {
49319                     MELT_LOCATION("warmelt-normal.melt:3524:/ cond.else");
49320
49321                     /*^block*/
49322                     /*anyblock*/
49323                     {
49324
49325
49326                         MELT_CHECK_SIGNAL();
49327                         ;
49328                         /*^apply*/
49329                         /*apply*/
49330                         {
49331                             union meltparam_un argtab[4];
49332                             memset(&argtab, 0, sizeof(argtab));
49333                             /*^apply.arg*/
49334                             argtab[0].meltbp_cstring =  "check if recv";
49335                             /*^apply.arg*/
49336                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
49337                             /*^apply.arg*/
49338                             argtab[2].meltbp_long = 3524;
49339                             /*^apply.arg*/
49340                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
49341                             /*_.MELT_ASSERT_FAILURE_FUN__V8*/
49342                             meltfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
49343                         }
49344                         ;
49345                         /*_._IFELSE___V7*/
49346                         meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];;
49347                         /*epilog*/
49348
49349                         MELT_LOCATION("warmelt-normal.melt:3524:/ clear");
49350                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/
49351                         meltfptr[7] = 0 ;
49352                     }
49353                     ;
49354                 }
49355             ;
49356             /*_.IFCPP___V6*/
49357             meltfptr[5] = /*_._IFELSE___V7*/ meltfptr[6];;
49358             /*epilog*/
49359
49360             MELT_LOCATION("warmelt-normal.melt:3524:/ clear");
49361             /*clear*/ /*_#IS_A__L1*/
49362             meltfnum[0] = 0 ;
49363             /*^clear*/
49364             /*clear*/ /*_._IFELSE___V7*/
49365             meltfptr[6] = 0 ;
49366         }
49367
49368 #else /*MELT_HAVE_DEBUG*/
49369         /*^cppif.else*/
49370         /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL);
49371 #endif /*MELT_HAVE_DEBUG*/
49372         ;
49373
49374 #if MELT_HAVE_DEBUG
49375         MELT_LOCATION("warmelt-normal.melt:3525:/ cppif.then");
49376         /*^block*/
49377         /*anyblock*/
49378         {
49379
49380
49381             MELT_CHECK_SIGNAL();
49382             ;
49383             /*_#IS_A__L2*/
49384             meltfnum[0] =
49385                 melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));;
49386             MELT_LOCATION("warmelt-normal.melt:3525:/ cond");
49387             /*cond*/
49388             if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/
49389                 {
49390                     /*^cond.then*/
49391                     /*_._IFELSE___V10*/ meltfptr[6] = (/*nil*/NULL);;
49392                 }
49393             else
49394                 {
49395                     MELT_LOCATION("warmelt-normal.melt:3525:/ cond.else");
49396
49397                     /*^block*/
49398                     /*anyblock*/
49399                     {
49400
49401
49402                         MELT_CHECK_SIGNAL();
49403                         ;
49404                         /*^apply*/
49405                         /*apply*/
49406                         {
49407                             union meltparam_un argtab[4];
49408                             memset(&argtab, 0, sizeof(argtab));
49409                             /*^apply.arg*/
49410                             argtab[0].meltbp_cstring =  "check env";
49411                             /*^apply.arg*/
49412                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
49413                             /*^apply.arg*/
49414                             argtab[2].meltbp_long = 3525;
49415                             /*^apply.arg*/
49416                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
49417                             /*_.MELT_ASSERT_FAILURE_FUN__V11*/
49418                             meltfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
49419                         }
49420                         ;
49421                         /*_._IFELSE___V10*/
49422                         meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];;
49423                         /*epilog*/
49424
49425                         MELT_LOCATION("warmelt-normal.melt:3525:/ clear");
49426                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/
49427                         meltfptr[10] = 0 ;
49428                     }
49429                     ;
49430                 }
49431             ;
49432             /*_.IFCPP___V9*/
49433             meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[6];;
49434             /*epilog*/
49435
49436             MELT_LOCATION("warmelt-normal.melt:3525:/ clear");
49437             /*clear*/ /*_#IS_A__L2*/
49438             meltfnum[0] = 0 ;
49439             /*^clear*/
49440             /*clear*/ /*_._IFELSE___V10*/
49441             meltfptr[6] = 0 ;
49442         }
49443
49444 #else /*MELT_HAVE_DEBUG*/
49445         /*^cppif.else*/
49446         /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL);
49447 #endif /*MELT_HAVE_DEBUG*/
49448         ;
49449
49450 #if MELT_HAVE_DEBUG
49451         MELT_LOCATION("warmelt-normal.melt:3526:/ cppif.then");
49452         /*^block*/
49453         /*anyblock*/
49454         {
49455
49456
49457             MELT_CHECK_SIGNAL();
49458             ;
49459             /*_#IS_A__L3*/
49460             meltfnum[0] =
49461                 melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[3])));;
49462             MELT_LOCATION("warmelt-normal.melt:3526:/ cond");
49463             /*cond*/
49464             if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/
49465                 {
49466                     /*^cond.then*/
49467                     /*_._IFELSE___V13*/ meltfptr[6] = (/*nil*/NULL);;
49468                 }
49469             else
49470                 {
49471                     MELT_LOCATION("warmelt-normal.melt:3526:/ cond.else");
49472
49473                     /*^block*/
49474                     /*anyblock*/
49475                     {
49476
49477
49478                         MELT_CHECK_SIGNAL();
49479                         ;
49480                         /*^apply*/
49481                         /*apply*/
49482                         {
49483                             union meltparam_un argtab[4];
49484                             memset(&argtab, 0, sizeof(argtab));
49485                             /*^apply.arg*/
49486                             argtab[0].meltbp_cstring =  "check ncx";
49487                             /*^apply.arg*/
49488                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
49489                             /*^apply.arg*/
49490                             argtab[2].meltbp_long = 3526;
49491                             /*^apply.arg*/
49492                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
49493                             /*_.MELT_ASSERT_FAILURE_FUN__V14*/
49494                             meltfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
49495                         }
49496                         ;
49497                         /*_._IFELSE___V13*/
49498                         meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];;
49499                         /*epilog*/
49500
49501                         MELT_LOCATION("warmelt-normal.melt:3526:/ clear");
49502                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/
49503                         meltfptr[13] = 0 ;
49504                     }
49505                     ;
49506                 }
49507             ;
49508             /*_.IFCPP___V12*/
49509             meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[6];;
49510             /*epilog*/
49511
49512             MELT_LOCATION("warmelt-normal.melt:3526:/ clear");
49513             /*clear*/ /*_#IS_A__L3*/
49514             meltfnum[0] = 0 ;
49515             /*^clear*/
49516             /*clear*/ /*_._IFELSE___V13*/
49517             meltfptr[6] = 0 ;
49518         }
49519
49520 #else /*MELT_HAVE_DEBUG*/
49521         /*^cppif.else*/
49522         /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL);
49523 #endif /*MELT_HAVE_DEBUG*/
49524         ;
49525
49526 #if MELT_HAVE_DEBUG
49527         MELT_LOCATION("warmelt-normal.melt:3527:/ cppif.then");
49528         /*^block*/
49529         /*anyblock*/
49530         {
49531
49532
49533             {
49534                 /*^locexp*/
49535                 /*melt_increment_dbgcounter*/
49536 #if MELT_HAVE_DEBUG
49537                 melt_dbgcounter++;
49538 #endif
49539                 ;
49540             }
49541             ;
49542
49543             MELT_CHECK_SIGNAL();
49544             ;
49545             /*_#MELT_NEED_DBG__L4*/
49546             meltfnum[0] =
49547                 /*MELT_NEED_DBG*/
49548 #if MELT_HAVE_DEBUG
49549                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
49550 #else
49551                 0 /* no melt_need_dbg */
49552 #endif /*MELT_HAVE_DEBUG*/
49553                 ;;
49554             MELT_LOCATION("warmelt-normal.melt:3527:/ cond");
49555             /*cond*/
49556             if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/
49557                 {
49558                     /*^cond.then*/
49559                     /*^block*/
49560                     /*anyblock*/
49561                     {
49562
49563                         /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] =
49564                             /* for melt_callcount */
49565 #if MELT_HAVE_DEBUG && defined (meltcallcount)
49566                             meltcallcount  /* melt_callcount debugging */
49567 #else
49568                             0L  /* melt_callcount without debug */
49569 #endif /* MELT_HAVE_DEBUG melt_callcount */
49570                             ;;
49571
49572                         MELT_CHECK_SIGNAL();
49573                         ;
49574                         MELT_LOCATION("warmelt-normal.melt:3527:/ apply");
49575                         /*apply*/
49576                         {
49577                             union meltparam_un argtab[5];
49578                             memset(&argtab, 0, sizeof(argtab));
49579                             /*^apply.arg*/
49580                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L5*/ meltfnum[4];
49581                             /*^apply.arg*/
49582                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
49583                             /*^apply.arg*/
49584                             argtab[2].meltbp_long = 3527;
49585                             /*^apply.arg*/
49586                             argtab[3].meltbp_cstring =  "normexp_if recv";
49587                             /*^apply.arg*/
49588                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
49589                             /*_.MELT_DEBUG_FUN__V16*/
49590                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
49591                         }
49592                         ;
49593                         /*_._IF___V15*/
49594                         meltfptr[13] = /*_.MELT_DEBUG_FUN__V16*/ meltfptr[6];;
49595                         /*epilog*/
49596
49597                         MELT_LOCATION("warmelt-normal.melt:3527:/ clear");
49598                         /*clear*/ /*_#MELT_CALLCOUNT__L5*/
49599                         meltfnum[4] = 0 ;
49600                         /*^clear*/
49601                         /*clear*/ /*_.MELT_DEBUG_FUN__V16*/
49602                         meltfptr[6] = 0 ;
49603                     }
49604                     ;
49605                 }
49606             else    /*^cond.else*/
49607                 {
49608
49609                     /*_._IF___V15*/ meltfptr[13] =  /*reallynil*/ NULL ;;
49610                 }
49611             ;
49612
49613             {
49614                 MELT_LOCATION("warmelt-normal.melt:3527:/ locexp");
49615                 /*void*/
49616                 (void)0;
49617             }
49618             ;
49619             /*^quasiblock*/
49620
49621
49622             /*epilog*/
49623
49624             /*^clear*/
49625             /*clear*/ /*_#MELT_NEED_DBG__L4*/
49626             meltfnum[0] = 0 ;
49627             /*^clear*/
49628             /*clear*/ /*_._IF___V15*/
49629             meltfptr[13] = 0 ;
49630         }
49631
49632 #else /*MELT_HAVE_DEBUG*/
49633         /*^cppif.else*/
49634         /*^block*/
49635         /*anyblock*/
49636         {
49637
49638
49639             {
49640                 /*^locexp*/
49641                 /*void*/(void)0;
49642             }
49643             ;
49644             /*epilog*/
49645         }
49646
49647 #endif /*MELT_HAVE_DEBUG*/
49648         ;
49649         MELT_LOCATION("warmelt-normal.melt:3528:/ quasiblock");
49650
49651
49652         /*^getslot*/
49653         {
49654             melt_ptr_t slot=NULL, obj=NULL;
49655             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
49656             melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
49657             /*_.SLOC__V18*/
49658             meltfptr[13] = slot;
49659         };
49660         ;
49661         MELT_LOCATION("warmelt-normal.melt:3529:/ getslot");
49662         {
49663             melt_ptr_t slot=NULL, obj=NULL;
49664             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
49665             melt_object_get_field(slot,obj, 2, "SIF_TEST");
49666             /*_.STEST__V19*/
49667             meltfptr[18] = slot;
49668         };
49669         ;
49670         /*_.CTYPIF__V20*/
49671         meltfptr[19] = (/*!CTYPE_VOID*/ meltfrout->tabval[5]);;
49672         MELT_LOCATION("warmelt-normal.melt:3531:/ getslot");
49673         {
49674             melt_ptr_t slot=NULL, obj=NULL;
49675             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
49676             melt_object_get_field(slot,obj, 3, "SIF_THEN");
49677             /*_.STHEN__V21*/
49678             meltfptr[20] = slot;
49679         };
49680         ;
49681
49682         MELT_CHECK_SIGNAL();
49683         ;
49684         MELT_LOCATION("warmelt-normal.melt:3532:/ apply");
49685         /*apply*/
49686         {
49687             /*_.CINTSYMB__V22*/ meltfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[6])), (melt_ptr_t)((/*!konst_7__IF_INTER_*/ meltfrout->tabval[7])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
49688         }
49689         ;
49690
49691         MELT_CHECK_SIGNAL();
49692         ;
49693         MELT_LOCATION("warmelt-normal.melt:3533:/ quasiblock");
49694
49695
49696         /*^rawallocobj*/
49697         /*rawallocobj*/
49698         {
49699             melt_ptr_t newobj = 0;
49700             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHECKSIGNAL*/ meltfrout->tabval[8])), (1), "CLASS_NREP_CHECKSIGNAL");
49701             /*_.INST__V24*/
49702             meltfptr[23] =
49703                 newobj;
49704         };
49705         ;
49706         /*^putslot*/
49707         /*putslot*/
49708         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ meltfptr[23])) == MELTOBMAG_OBJECT);
49709         melt_putfield_object((/*_.INST__V24*/ meltfptr[23]), (0), (/*_.SLOC__V18*/ meltfptr[13]), "NREP_LOC");
49710         ;
49711         /*^touchobj*/
49712
49713         melt_dbgtrace_written_object (/*_.INST__V24*/ meltfptr[23], "newly made instance");
49714         ;
49715         /*_.NCHINT__V23*/
49716         meltfptr[22] = /*_.INST__V24*/ meltfptr[23];;
49717
49718         MELT_CHECK_SIGNAL();
49719         ;
49720         MELT_LOCATION("warmelt-normal.melt:3535:/ quasiblock");
49721
49722
49723         /*^rawallocobj*/
49724         /*rawallocobj*/
49725         {
49726             melt_ptr_t newobj = 0;
49727             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[9])), (4), "CLASS_NORMAL_LET_BINDING");
49728             /*_.INST__V26*/
49729             meltfptr[25] =
49730                 newobj;
49731         };
49732         ;
49733         /*^putslot*/
49734         /*putslot*/
49735         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ meltfptr[25])) == MELTOBMAG_OBJECT);
49736         melt_putfield_object((/*_.INST__V26*/ meltfptr[25]), (0), (/*_.CINTSYMB__V22*/ meltfptr[21]), "BINDER");
49737         ;
49738         /*^putslot*/
49739         /*putslot*/
49740         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ meltfptr[25])) == MELTOBMAG_OBJECT);
49741         melt_putfield_object((/*_.INST__V26*/ meltfptr[25]), (1), ((/*!CTYPE_VOID*/ meltfrout->tabval[5])), "LETBIND_TYPE");
49742         ;
49743         /*^putslot*/
49744         /*putslot*/
49745         melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ meltfptr[25])) == MELTOBMAG_OBJECT);
49746         melt_putfield_object((/*_.INST__V26*/ meltfptr[25]), (2), (/*_.NCHINT__V23*/ meltfptr[22]), "LETBIND_EXPR");
49747         ;
49748         /*^touchobj*/
49749
49750         melt_dbgtrace_written_object (/*_.INST__V26*/ meltfptr[25], "newly made instance");
49751         ;
49752         /*_.CINTBIND__V25*/
49753         meltfptr[24] = /*_.INST__V26*/ meltfptr[25];;
49754
49755         MELT_CHECK_SIGNAL();
49756         ;
49757         MELT_LOCATION("warmelt-normal.melt:3540:/ quasiblock");
49758
49759
49760         /*^multimsend*/
49761         /*multimsend*/
49762         {
49763             union meltparam_un argtab[3];
49764             union meltparam_un restab[1];
49765             memset(&argtab, 0, sizeof(argtab));
49766             memset(&restab, 0, sizeof(restab));
49767             /*^multimsend.arg*/
49768             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multimsend.arg*/
49769             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multimsend.arg*/
49770             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13];
49771             /*^multimsend.xres*/
49772             restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDIF__V29*/ meltfptr[28];/*^multimsend.send*/
49773             /*_.NTEST__V28*/
49774             meltfptr[27] =  meltgc_send ((melt_ptr_t)(/*_.STEST__V19*/ meltfptr[18]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
49775         }
49776         ;
49777         /*^quasiblock*/
49778
49779
49780
49781 #if MELT_HAVE_DEBUG
49782         MELT_LOCATION("warmelt-normal.melt:3543:/ cppif.then");
49783         /*^block*/
49784         /*anyblock*/
49785         {
49786
49787
49788             MELT_CHECK_SIGNAL();
49789             ;
49790             /*_#IS_LIST_OR_NULL__L6*/
49791             meltfnum[4] =
49792                 ((/*_.NBINDIF__V29*/ meltfptr[28]) == NULL
49793                  || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDIF__V29*/ meltfptr[28])) == MELTOBMAG_LIST));;
49794             MELT_LOCATION("warmelt-normal.melt:3543:/ cond");
49795             /*cond*/
49796             if (/*_#IS_LIST_OR_NULL__L6*/ meltfnum[4]) /*then*/
49797                 {
49798                     /*^cond.then*/
49799                     /*_._IFELSE___V31*/ meltfptr[30] = (/*nil*/NULL);;
49800                 }
49801             else
49802                 {
49803                     MELT_LOCATION("warmelt-normal.melt:3543:/ cond.else");
49804
49805                     /*^block*/
49806                     /*anyblock*/
49807                     {
49808
49809
49810                         MELT_CHECK_SIGNAL();
49811                         ;
49812                         /*^apply*/
49813                         /*apply*/
49814                         {
49815                             union meltparam_un argtab[4];
49816                             memset(&argtab, 0, sizeof(argtab));
49817                             /*^apply.arg*/
49818                             argtab[0].meltbp_cstring =  "check nbindif test";
49819                             /*^apply.arg*/
49820                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
49821                             /*^apply.arg*/
49822                             argtab[2].meltbp_long = 3543;
49823                             /*^apply.arg*/
49824                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDIF__V29*/ meltfptr[28];
49825                             /*_.MELT_ASSERT_FAILURE_FUN__V32*/
49826                             meltfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
49827                         }
49828                         ;
49829                         /*_._IFELSE___V31*/
49830                         meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];;
49831                         /*epilog*/
49832
49833                         MELT_LOCATION("warmelt-normal.melt:3543:/ clear");
49834                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/
49835                         meltfptr[31] = 0 ;
49836                     }
49837                     ;
49838                 }
49839             ;
49840             /*_.IFCPP___V30*/
49841             meltfptr[29] = /*_._IFELSE___V31*/ meltfptr[30];;
49842             /*epilog*/
49843
49844             MELT_LOCATION("warmelt-normal.melt:3543:/ clear");
49845             /*clear*/ /*_#IS_LIST_OR_NULL__L6*/
49846             meltfnum[4] = 0 ;
49847             /*^clear*/
49848             /*clear*/ /*_._IFELSE___V31*/
49849             meltfptr[30] = 0 ;
49850         }
49851
49852 #else /*MELT_HAVE_DEBUG*/
49853         /*^cppif.else*/
49854         /*_.IFCPP___V30*/ meltfptr[29] = (/*nil*/NULL);
49855 #endif /*MELT_HAVE_DEBUG*/
49856         ;
49857
49858 #if MELT_HAVE_DEBUG
49859         MELT_LOCATION("warmelt-normal.melt:3544:/ cppif.then");
49860         /*^block*/
49861         /*anyblock*/
49862         {
49863
49864
49865             {
49866                 /*^locexp*/
49867                 /*melt_increment_dbgcounter*/
49868 #if MELT_HAVE_DEBUG
49869                 melt_dbgcounter++;
49870 #endif
49871                 ;
49872             }
49873             ;
49874
49875             MELT_CHECK_SIGNAL();
49876             ;
49877             /*_#MELT_NEED_DBG__L7*/
49878             meltfnum[0] =
49879                 /*MELT_NEED_DBG*/
49880 #if MELT_HAVE_DEBUG
49881                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
49882 #else
49883                 0 /* no melt_need_dbg */
49884 #endif /*MELT_HAVE_DEBUG*/
49885                 ;;
49886             MELT_LOCATION("warmelt-normal.melt:3544:/ cond");
49887             /*cond*/
49888             if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/
49889                 {
49890                     /*^cond.then*/
49891                     /*^block*/
49892                     /*anyblock*/
49893                     {
49894
49895                         /*_#MELT_CALLCOUNT__L8*/ meltfnum[4] =
49896                             /* for melt_callcount */
49897 #if MELT_HAVE_DEBUG && defined (meltcallcount)
49898                             meltcallcount  /* melt_callcount debugging */
49899 #else
49900                             0L  /* melt_callcount without debug */
49901 #endif /* MELT_HAVE_DEBUG melt_callcount */
49902                             ;;
49903
49904                         MELT_CHECK_SIGNAL();
49905                         ;
49906                         MELT_LOCATION("warmelt-normal.melt:3544:/ apply");
49907                         /*apply*/
49908                         {
49909                             union meltparam_un argtab[7];
49910                             memset(&argtab, 0, sizeof(argtab));
49911                             /*^apply.arg*/
49912                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[4];
49913                             /*^apply.arg*/
49914                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
49915                             /*^apply.arg*/
49916                             argtab[2].meltbp_long = 3544;
49917                             /*^apply.arg*/
49918                             argtab[3].meltbp_cstring =  "normexp_if ntest=";
49919                             /*^apply.arg*/
49920                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NTEST__V28*/ meltfptr[27];
49921                             /*^apply.arg*/
49922                             argtab[5].meltbp_cstring =  " cintbind=";
49923                             /*^apply.arg*/
49924                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CINTBIND__V25*/ meltfptr[24];
49925                             /*_.MELT_DEBUG_FUN__V34*/
49926                             meltfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
49927                         }
49928                         ;
49929                         /*_._IF___V33*/
49930                         meltfptr[31] = /*_.MELT_DEBUG_FUN__V34*/ meltfptr[30];;
49931                         /*epilog*/
49932
49933                         MELT_LOCATION("warmelt-normal.melt:3544:/ clear");
49934                         /*clear*/ /*_#MELT_CALLCOUNT__L8*/
49935                         meltfnum[4] = 0 ;
49936                         /*^clear*/
49937                         /*clear*/ /*_.MELT_DEBUG_FUN__V34*/
49938                         meltfptr[30] = 0 ;
49939                     }
49940                     ;
49941                 }
49942             else    /*^cond.else*/
49943                 {
49944
49945                     /*_._IF___V33*/ meltfptr[31] =  /*reallynil*/ NULL ;;
49946                 }
49947             ;
49948
49949             {
49950                 MELT_LOCATION("warmelt-normal.melt:3544:/ locexp");
49951                 /*void*/
49952                 (void)0;
49953             }
49954             ;
49955             /*^quasiblock*/
49956
49957
49958             /*epilog*/
49959
49960             /*^clear*/
49961             /*clear*/ /*_#MELT_NEED_DBG__L7*/
49962             meltfnum[0] = 0 ;
49963             /*^clear*/
49964             /*clear*/ /*_._IF___V33*/
49965             meltfptr[31] = 0 ;
49966         }
49967
49968 #else /*MELT_HAVE_DEBUG*/
49969         /*^cppif.else*/
49970         /*^block*/
49971         /*anyblock*/
49972         {
49973
49974
49975             {
49976                 /*^locexp*/
49977                 /*void*/(void)0;
49978             }
49979             ;
49980             /*epilog*/
49981         }
49982
49983 #endif /*MELT_HAVE_DEBUG*/
49984         ;
49985
49986         MELT_CHECK_SIGNAL();
49987         ;
49988         /*_#NULL__L9*/
49989         meltfnum[4] =
49990             (/*null*/(/*_.NBINDIF__V29*/ meltfptr[28]) == NULL);;
49991         MELT_LOCATION("warmelt-normal.melt:3546:/ cond");
49992         /*cond*/
49993         if (/*_#NULL__L9*/ meltfnum[4]) /*then*/
49994             {
49995                 /*^cond.then*/
49996                 /*^block*/
49997                 /*anyblock*/
49998                 {
49999
50000                     MELT_LOCATION("warmelt-normal.melt:3547:/ blockmultialloc");
50001                     /*multiallocblock*/
50002                     {
50003                         struct meltletrec_1_st
50004                         {
50005                             struct meltpair_st rpair_0__CINTBIND_x3;
50006                             struct meltlist_st rlist_1__LIST_;
50007                             long meltletrec_1_endgap;
50008                         } *meltletrec_1_ptr = 0;
50009                         meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0);
50010                         /*^blockmultialloc.initfill*/
50011                         /*inipair rpair_0__CINTBIND_x3*/
50012                         /*_.CINTBIND__V37*/
50013                         meltfptr[36] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x3;
50014                         meltletrec_1_ptr->rpair_0__CINTBIND_x3.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR))));
50015
50016                         /*inilist rlist_1__LIST_*/
50017                         /*_.LIST___V38*/
50018                         meltfptr[37] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_;
50019                         meltletrec_1_ptr->rlist_1__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST))));
50020
50021
50022
50023                         /*^putpairhead*/
50024                         /*putpairhead*/
50025                         melt_assertmsg("putpairhead /4 checkpair", melt_magic_discr((melt_ptr_t)(/*_.CINTBIND__V37*/ meltfptr[36]))== MELTOBMAG_PAIR);
50026                         ((meltpair_ptr_t)(/*_.CINTBIND__V37*/ meltfptr[36]))->hd = (melt_ptr_t) (/*_.CINTBIND__V25*/ meltfptr[24]);
50027                         ;
50028                         /*^touch*/
50029                         meltgc_touch(/*_.CINTBIND__V37*/ meltfptr[36]);
50030                         ;
50031                         /*^putlist*/
50032                         /*putlist*/
50033                         melt_assertmsg("putlist checklist", melt_magic_discr((melt_ptr_t)(/*_.LIST___V38*/ meltfptr[37]))== MELTOBMAG_LIST);
50034                         ((meltlist_ptr_t)(/*_.LIST___V38*/ meltfptr[37]))->first = (meltpair_ptr_t) (/*_.CINTBIND__V37*/ meltfptr[36]);
50035                         ((meltlist_ptr_t)(/*_.LIST___V38*/ meltfptr[37]))->last = (meltpair_ptr_t) (/*_.CINTBIND__V37*/ meltfptr[36]);
50036                         ;
50037                         /*^touch*/
50038                         meltgc_touch(/*_.LIST___V38*/ meltfptr[37]);
50039                         ;
50040                         /*_.LIST___V36*/
50041                         meltfptr[31] = /*_.LIST___V38*/ meltfptr[37];;
50042                         /*epilog*/
50043
50044                         MELT_LOCATION("warmelt-normal.melt:3547:/ clear");
50045                         /*clear*/ /*_.CINTBIND__V37*/
50046                         meltfptr[36] = 0 ;
50047                         /*^clear*/
50048                         /*clear*/ /*_.LIST___V38*/
50049                         meltfptr[37] = 0 ;
50050                         /*^clear*/
50051                         /*clear*/ /*_.CINTBIND__V37*/
50052                         meltfptr[36] = 0 ;
50053                         /*^clear*/
50054                         /*clear*/ /*_.LIST___V38*/
50055                         meltfptr[37] = 0 ;
50056                     } /*end multiallocblock*/
50057                     ;
50058                     /*^compute*/
50059                     /*_.NBINDIF__V29*/
50060                     meltfptr[28] = /*_.SETQ___V39*/ meltfptr[36] = /*_.LIST___V36*/ meltfptr[31];;
50061                     /*_._IFELSE___V35*/
50062                     meltfptr[30] = /*_.SETQ___V39*/ meltfptr[36];;
50063                     /*epilog*/
50064
50065                     MELT_LOCATION("warmelt-normal.melt:3546:/ clear");
50066                     /*clear*/ /*_.LIST___V36*/
50067                     meltfptr[31] = 0 ;
50068                     /*^clear*/
50069                     /*clear*/ /*_.SETQ___V39*/
50070                     meltfptr[36] = 0 ;
50071                 }
50072                 ;
50073             }
50074         else    /*^cond.else*/
50075             {
50076
50077                 /*^block*/
50078                 /*anyblock*/
50079                 {
50080
50081
50082
50083
50084                     {
50085                         MELT_LOCATION("warmelt-normal.melt:3548:/ locexp");
50086                         meltgc_prepend_list((melt_ptr_t)(/*_.NBINDIF__V29*/ meltfptr[28]), (melt_ptr_t)(/*_.CINTBIND__V25*/ meltfptr[24]));
50087                     }
50088                     ;
50089                     /*clear*/ /*_._IFELSE___V35*/
50090                     meltfptr[30] = 0 ;
50091                     /*epilog*/
50092                 }
50093                 ;
50094             }
50095         ;
50096
50097         MELT_CHECK_SIGNAL();
50098         ;
50099         MELT_LOCATION("warmelt-normal.melt:3554:/ quasiblock");
50100
50101
50102         /*^multimsend*/
50103         /*multimsend*/
50104         {
50105             union meltparam_un argtab[3];
50106             union meltparam_un restab[1];
50107             memset(&argtab, 0, sizeof(argtab));
50108             memset(&restab, 0, sizeof(restab));
50109             /*^multimsend.arg*/
50110             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multimsend.arg*/
50111             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multimsend.arg*/
50112             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13];
50113             /*^multimsend.xres*/
50114             restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDTHEN__V42*/ meltfptr[36];/*^multimsend.send*/
50115             /*_.NTHEN__V41*/
50116             meltfptr[31] =  meltgc_send ((melt_ptr_t)(/*_.STHEN__V21*/ meltfptr[20]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[10]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
50117         }
50118         ;
50119         /*^quasiblock*/
50120
50121
50122
50123 #if MELT_HAVE_DEBUG
50124         MELT_LOCATION("warmelt-normal.melt:3557:/ cppif.then");
50125         /*^block*/
50126         /*anyblock*/
50127         {
50128
50129
50130             {
50131                 /*^locexp*/
50132                 /*melt_increment_dbgcounter*/
50133 #if MELT_HAVE_DEBUG
50134                 melt_dbgcounter++;
50135 #endif
50136                 ;
50137             }
50138             ;
50139
50140             MELT_CHECK_SIGNAL();
50141             ;
50142             /*_#MELT_NEED_DBG__L10*/
50143             meltfnum[0] =
50144                 /*MELT_NEED_DBG*/
50145 #if MELT_HAVE_DEBUG
50146                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
50147 #else
50148                 0 /* no melt_need_dbg */
50149 #endif /*MELT_HAVE_DEBUG*/
50150                 ;;
50151             MELT_LOCATION("warmelt-normal.melt:3557:/ cond");
50152             /*cond*/
50153             if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/
50154                 {
50155                     /*^cond.then*/
50156                     /*^block*/
50157                     /*anyblock*/
50158                     {
50159
50160                         /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] =
50161                             /* for melt_callcount */
50162 #if MELT_HAVE_DEBUG && defined (meltcallcount)
50163                             meltcallcount  /* melt_callcount debugging */
50164 #else
50165                             0L  /* melt_callcount without debug */
50166 #endif /* MELT_HAVE_DEBUG melt_callcount */
50167                             ;;
50168
50169                         MELT_CHECK_SIGNAL();
50170                         ;
50171                         MELT_LOCATION("warmelt-normal.melt:3557:/ apply");
50172                         /*apply*/
50173                         {
50174                             union meltparam_un argtab[5];
50175                             memset(&argtab, 0, sizeof(argtab));
50176                             /*^apply.arg*/
50177                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L11*/ meltfnum[10];
50178                             /*^apply.arg*/
50179                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
50180                             /*^apply.arg*/
50181                             argtab[2].meltbp_long = 3557;
50182                             /*^apply.arg*/
50183                             argtab[3].meltbp_cstring =  "normexp_if nthen";
50184                             /*^apply.arg*/
50185                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NTHEN__V41*/ meltfptr[31];
50186                             /*_.MELT_DEBUG_FUN__V44*/
50187                             meltfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
50188                         }
50189                         ;
50190                         /*_._IF___V43*/
50191                         meltfptr[42] = /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43];;
50192                         /*epilog*/
50193
50194                         MELT_LOCATION("warmelt-normal.melt:3557:/ clear");
50195                         /*clear*/ /*_#MELT_CALLCOUNT__L11*/
50196                         meltfnum[10] = 0 ;
50197                         /*^clear*/
50198                         /*clear*/ /*_.MELT_DEBUG_FUN__V44*/
50199                         meltfptr[43] = 0 ;
50200                     }
50201                     ;
50202                 }
50203             else    /*^cond.else*/
50204                 {
50205
50206                     /*_._IF___V43*/ meltfptr[42] =  /*reallynil*/ NULL ;;
50207                 }
50208             ;
50209
50210             {
50211                 MELT_LOCATION("warmelt-normal.melt:3557:/ locexp");
50212                 /*void*/
50213                 (void)0;
50214             }
50215             ;
50216             /*^quasiblock*/
50217
50218
50219             /*epilog*/
50220
50221             /*^clear*/
50222             /*clear*/ /*_#MELT_NEED_DBG__L10*/
50223             meltfnum[0] = 0 ;
50224             /*^clear*/
50225             /*clear*/ /*_._IF___V43*/
50226             meltfptr[42] = 0 ;
50227         }
50228
50229 #else /*MELT_HAVE_DEBUG*/
50230         /*^cppif.else*/
50231         /*^block*/
50232         /*anyblock*/
50233         {
50234
50235
50236             {
50237                 /*^locexp*/
50238                 /*void*/(void)0;
50239             }
50240             ;
50241             /*epilog*/
50242         }
50243
50244 #endif /*MELT_HAVE_DEBUG*/
50245         ;
50246
50247 #if MELT_HAVE_DEBUG
50248         MELT_LOCATION("warmelt-normal.melt:3558:/ cppif.then");
50249         /*^block*/
50250         /*anyblock*/
50251         {
50252
50253
50254             MELT_CHECK_SIGNAL();
50255             ;
50256             /*_#IS_LIST_OR_NULL__L12*/
50257             meltfnum[10] =
50258                 ((/*_.NBINDTHEN__V42*/ meltfptr[36]) == NULL
50259                  || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDTHEN__V42*/ meltfptr[36])) == MELTOBMAG_LIST));;
50260             MELT_LOCATION("warmelt-normal.melt:3558:/ cond");
50261             /*cond*/
50262             if (/*_#IS_LIST_OR_NULL__L12*/ meltfnum[10]) /*then*/
50263                 {
50264                     /*^cond.then*/
50265                     /*_._IFELSE___V46*/ meltfptr[42] = (/*nil*/NULL);;
50266                 }
50267             else
50268                 {
50269                     MELT_LOCATION("warmelt-normal.melt:3558:/ cond.else");
50270
50271                     /*^block*/
50272                     /*anyblock*/
50273                     {
50274
50275
50276                         MELT_CHECK_SIGNAL();
50277                         ;
50278                         /*^apply*/
50279                         /*apply*/
50280                         {
50281                             union meltparam_un argtab[4];
50282                             memset(&argtab, 0, sizeof(argtab));
50283                             /*^apply.arg*/
50284                             argtab[0].meltbp_cstring =  "check nbindthen";
50285                             /*^apply.arg*/
50286                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
50287                             /*^apply.arg*/
50288                             argtab[2].meltbp_long = 3558;
50289                             /*^apply.arg*/
50290                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDTHEN__V42*/ meltfptr[36];
50291                             /*_.MELT_ASSERT_FAILURE_FUN__V47*/
50292                             meltfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
50293                         }
50294                         ;
50295                         /*_._IFELSE___V46*/
50296                         meltfptr[42] = /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[46];;
50297                         /*epilog*/
50298
50299                         MELT_LOCATION("warmelt-normal.melt:3558:/ clear");
50300                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V47*/
50301                         meltfptr[46] = 0 ;
50302                     }
50303                     ;
50304                 }
50305             ;
50306             /*_.IFCPP___V45*/
50307             meltfptr[43] = /*_._IFELSE___V46*/ meltfptr[42];;
50308             /*epilog*/
50309
50310             MELT_LOCATION("warmelt-normal.melt:3558:/ clear");
50311             /*clear*/ /*_#IS_LIST_OR_NULL__L12*/
50312             meltfnum[10] = 0 ;
50313             /*^clear*/
50314             /*clear*/ /*_._IFELSE___V46*/
50315             meltfptr[42] = 0 ;
50316         }
50317
50318 #else /*MELT_HAVE_DEBUG*/
50319         /*^cppif.else*/
50320         /*_.IFCPP___V45*/ meltfptr[43] = (/*nil*/NULL);
50321 #endif /*MELT_HAVE_DEBUG*/
50322         ;
50323         MELT_LOCATION("warmelt-normal.melt:3559:/ quasiblock");
50324
50325
50326
50327         MELT_CHECK_SIGNAL();
50328         ;
50329         /*^apply*/
50330         /*apply*/
50331         {
50332             /*_.NEWTHENENV__V49*/ meltfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
50333         }
50334         ;
50335         MELT_LOCATION("warmelt-normal.melt:3562:/ quasiblock");
50336
50337
50338         /*^newclosure*/
50339         /*newclosure*/ /*_.LAMBDA___V51*/
50340         meltfptr[50] =
50341             (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ meltfrout->tabval[14])), (1));
50342         ;
50343         /*^putclosedv*/
50344         /*putclosv*/
50345         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V51*/ meltfptr[50])) == MELTOBMAG_CLOSURE);
50346         melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V51*/ meltfptr[50])));
50347         ((meltclosure_ptr_t)/*_.LAMBDA___V51*/ meltfptr[50])->tabval[0] = (melt_ptr_t)(/*_.NEWTHENENV__V49*/ meltfptr[42]);
50348         ;
50349         /*_.LAMBDA___V50*/
50350         meltfptr[49] = /*_.LAMBDA___V51*/ meltfptr[50];;
50351
50352         MELT_CHECK_SIGNAL();
50353         ;
50354         MELT_LOCATION("warmelt-normal.melt:3560:/ apply");
50355         /*apply*/
50356         {
50357             union meltparam_un argtab[1];
50358             memset(&argtab, 0, sizeof(argtab));
50359             /*^apply.arg*/
50360             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V50*/ meltfptr[49];
50361             /*_.LIST_EVERY__V52*/
50362             meltfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.NBINDTHEN__V42*/ meltfptr[36]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
50363         }
50364         ;
50365
50366         MELT_CHECK_SIGNAL();
50367         ;
50368         MELT_LOCATION("warmelt-normal.melt:3564:/ msend");
50369         /*msend*/
50370         {
50371             union meltparam_un argtab[1];
50372             memset(&argtab, 0, sizeof(argtab));
50373             /*^ojbmsend.arg*/
50374             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWTHENENV__V49*/ meltfptr[42];
50375             /*_.GET_CTYPE__V53*/
50376             meltfptr[52] = meltgc_send((melt_ptr_t)(/*_.NTHEN__V41*/ meltfptr[31]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[15])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
50377         }
50378         ;
50379         /*^compute*/
50380         /*_.CTYPIF__V20*/
50381         meltfptr[19] = /*_.SETQ___V54*/ meltfptr[53] = /*_.GET_CTYPE__V53*/ meltfptr[52];;
50382         MELT_LOCATION("warmelt-normal.melt:3566:/ quasiblock");
50383
50384
50385
50386         MELT_CHECK_SIGNAL();
50387         ;
50388         /*^apply*/
50389         /*apply*/
50390         {
50391             /*_.CSYM__V56*/ meltfptr[55] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[6])), (melt_ptr_t)((/*!konst_16__IF_*/ meltfrout->tabval[16])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
50392         }
50393         ;
50394
50395         MELT_CHECK_SIGNAL();
50396         ;
50397         MELT_LOCATION("warmelt-normal.melt:3567:/ quasiblock");
50398
50399
50400         /*^rawallocobj*/
50401         /*rawallocobj*/
50402         {
50403             melt_ptr_t newobj = 0;
50404             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[17])), (4), "CLASS_NREP_LOCSYMOCC");
50405             /*_.INST__V58*/
50406             meltfptr[57] =
50407                 newobj;
50408         };
50409         ;
50410         /*^putslot*/
50411         /*putslot*/
50412         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ meltfptr[57])) == MELTOBMAG_OBJECT);
50413         melt_putfield_object((/*_.INST__V58*/ meltfptr[57]), (0), (/*_.SLOC__V18*/ meltfptr[13]), "NREP_LOC");
50414         ;
50415         /*^putslot*/
50416         /*putslot*/
50417         melt_assertmsg("checkobj putslot  _ @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ meltfptr[57])) == MELTOBMAG_OBJECT);
50418         melt_putfield_object((/*_.INST__V58*/ meltfptr[57]), (2), (/*_.CTYPIF__V20*/ meltfptr[19]), "NOCC_CTYP");
50419         ;
50420         /*^putslot*/
50421         /*putslot*/
50422         melt_assertmsg("checkobj putslot  _ @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ meltfptr[57])) == MELTOBMAG_OBJECT);
50423         melt_putfield_object((/*_.INST__V58*/ meltfptr[57]), (1), (/*_.CSYM__V56*/ meltfptr[55]), "NOCC_SYMB");
50424         ;
50425         /*^touchobj*/
50426
50427         melt_dbgtrace_written_object (/*_.INST__V58*/ meltfptr[57], "newly made instance");
50428         ;
50429         /*_.CLOCC__V57*/
50430         meltfptr[56] = /*_.INST__V58*/ meltfptr[57];;
50431
50432         MELT_CHECK_SIGNAL();
50433         ;
50434         MELT_LOCATION("warmelt-normal.melt:3571:/ apply");
50435         /*apply*/
50436         {
50437             union meltparam_un argtab[2];
50438             memset(&argtab, 0, sizeof(argtab));
50439             /*^apply.arg*/
50440             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDTHEN__V42*/ meltfptr[36];
50441             /*^apply.arg*/
50442             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V18*/ meltfptr[13];
50443             /*_.WTHEN__V59*/
50444             meltfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NTHEN__V41*/ meltfptr[31]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
50445         }
50446         ;
50447
50448         MELT_CHECK_SIGNAL();
50449         ;
50450
50451         MELT_CHECK_SIGNAL();
50452         ;
50453         MELT_LOCATION("warmelt-normal.melt:3577:/ quasiblock");
50454
50455
50456         /*^rawallocobj*/
50457         /*rawallocobj*/
50458         {
50459             melt_ptr_t newobj = 0;
50460             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_IF*/ meltfrout->tabval[19])), (5), "CLASS_NREP_IF");
50461             /*_.INST__V61*/
50462             meltfptr[60] =
50463                 newobj;
50464         };
50465         ;
50466         /*^putslot*/
50467         /*putslot*/
50468         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[60])) == MELTOBMAG_OBJECT);
50469         melt_putfield_object((/*_.INST__V61*/ meltfptr[60]), (0), (/*_.SLOC__V18*/ meltfptr[13]), "NREP_LOC");
50470         ;
50471         /*^putslot*/
50472         /*putslot*/
50473         melt_assertmsg("checkobj putslot  _ @NIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[60])) == MELTOBMAG_OBJECT);
50474         melt_putfield_object((/*_.INST__V61*/ meltfptr[60]), (4), (/*_.NTEST__V28*/ meltfptr[27]), "NIF_TEST");
50475         ;
50476         /*^putslot*/
50477         /*putslot*/
50478         melt_assertmsg("checkobj putslot  _ @NIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[60])) == MELTOBMAG_OBJECT);
50479         melt_putfield_object((/*_.INST__V61*/ meltfptr[60]), (2), (/*_.WTHEN__V59*/ meltfptr[58]), "NIF_THEN");
50480         ;
50481         /*^putslot*/
50482         /*putslot*/
50483         melt_assertmsg("checkobj putslot  _ @NIF_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[60])) == MELTOBMAG_OBJECT);
50484         melt_putfield_object((/*_.INST__V61*/ meltfptr[60]), (3), ((/*nil*/NULL)), "NIF_ELSE");
50485         ;
50486         /*^putslot*/
50487         /*putslot*/
50488         melt_assertmsg("checkobj putslot  _ @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ meltfptr[60])) == MELTOBMAG_OBJECT);
50489         melt_putfield_object((/*_.INST__V61*/ meltfptr[60]), (1), (/*_.CTYPIF__V20*/ meltfptr[19]), "NEXPR_CTYP");
50490         ;
50491         /*^touchobj*/
50492
50493         melt_dbgtrace_written_object (/*_.INST__V61*/ meltfptr[60], "newly made instance");
50494         ;
50495         /*_.INST___V60*/
50496         meltfptr[59] = /*_.INST__V61*/ meltfptr[60];;
50497         MELT_LOCATION("warmelt-normal.melt:3572:/ quasiblock");
50498
50499
50500         /*^rawallocobj*/
50501         /*rawallocobj*/
50502         {
50503             melt_ptr_t newobj = 0;
50504             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[9])), (4), "CLASS_NORMAL_LET_BINDING");
50505             /*_.INST__V63*/
50506             meltfptr[62] =
50507                 newobj;
50508         };
50509         ;
50510         /*^putslot*/
50511         /*putslot*/
50512         melt_assertmsg("checkobj putslot  _ @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ meltfptr[62])) == MELTOBMAG_OBJECT);
50513         melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (3), (/*_.SLOC__V18*/ meltfptr[13]), "LETBIND_LOC");
50514         ;
50515         /*^putslot*/
50516         /*putslot*/
50517         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ meltfptr[62])) == MELTOBMAG_OBJECT);
50518         melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (0), (/*_.CSYM__V56*/ meltfptr[55]), "BINDER");
50519         ;
50520         /*^putslot*/
50521         /*putslot*/
50522         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ meltfptr[62])) == MELTOBMAG_OBJECT);
50523         melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (1), (/*_.CTYPIF__V20*/ meltfptr[19]), "LETBIND_TYPE");
50524         ;
50525         /*^putslot*/
50526         /*putslot*/
50527         melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ meltfptr[62])) == MELTOBMAG_OBJECT);
50528         melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (2), (/*_.INST___V60*/ meltfptr[59]), "LETBIND_EXPR");
50529         ;
50530         /*^touchobj*/
50531
50532         melt_dbgtrace_written_object (/*_.INST__V63*/ meltfptr[62], "newly made instance");
50533         ;
50534         /*_.CBIND__V62*/
50535         meltfptr[61] = /*_.INST__V63*/ meltfptr[62];;
50536
50537         MELT_CHECK_SIGNAL();
50538         ;
50539         MELT_LOCATION("warmelt-normal.melt:3585:/ quasiblock");
50540
50541
50542         /*^putslot*/
50543         /*putslot*/
50544         melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.CLOCC__V57*/ meltfptr[56])) == MELTOBMAG_OBJECT);
50545         melt_putfield_object((/*_.CLOCC__V57*/ meltfptr[56]), (3), (/*_.CBIND__V62*/ meltfptr[61]), "NOCC_BIND");
50546         ;
50547         /*^touch*/
50548         meltgc_touch(/*_.CLOCC__V57*/ meltfptr[56]);
50549         ;
50550         /*^touchobj*/
50551
50552         melt_dbgtrace_written_object (/*_.CLOCC__V57*/ meltfptr[56], "put-fields");
50553         ;
50554
50555
50556         MELT_CHECK_SIGNAL();
50557         ;
50558         /*_#IS_LIST__L13*/
50559         meltfnum[0] =
50560             (melt_magic_discr((melt_ptr_t)(/*_.NBINDIF__V29*/ meltfptr[28])) == MELTOBMAG_LIST);;
50561         /*^compute*/
50562         /*_#NOT__L14*/
50563         meltfnum[10] =
50564             (!(/*_#IS_LIST__L13*/ meltfnum[0]));;
50565         MELT_LOCATION("warmelt-normal.melt:3586:/ cond");
50566         /*cond*/
50567         if (/*_#NOT__L14*/ meltfnum[10]) /*then*/
50568             {
50569                 /*^cond.then*/
50570                 /*^block*/
50571                 /*anyblock*/
50572                 {
50573
50574                     /*_.MAKE_LIST__V65*/ meltfptr[64] =
50575                         (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[20]))));;
50576                     MELT_LOCATION("warmelt-normal.melt:3587:/ compute");
50577                     /*_.NBINDIF__V29*/
50578                     meltfptr[28] = /*_.SETQ___V66*/ meltfptr[65] = /*_.MAKE_LIST__V65*/ meltfptr[64];;
50579                     /*_._IF___V64*/
50580                     meltfptr[63] = /*_.SETQ___V66*/ meltfptr[65];;
50581                     /*epilog*/
50582
50583                     MELT_LOCATION("warmelt-normal.melt:3586:/ clear");
50584                     /*clear*/ /*_.MAKE_LIST__V65*/
50585                     meltfptr[64] = 0 ;
50586                     /*^clear*/
50587                     /*clear*/ /*_.SETQ___V66*/
50588                     meltfptr[65] = 0 ;
50589                 }
50590                 ;
50591             }
50592         else    /*^cond.else*/
50593             {
50594
50595                 /*_._IF___V64*/ meltfptr[63] =  /*reallynil*/ NULL ;;
50596             }
50597         ;
50598
50599         {
50600             MELT_LOCATION("warmelt-normal.melt:3588:/ locexp");
50601             meltgc_append_list((melt_ptr_t)(/*_.NBINDIF__V29*/ meltfptr[28]), (melt_ptr_t)(/*_.CBIND__V62*/ meltfptr[61]));
50602         }
50603         ;
50604
50605 #if MELT_HAVE_DEBUG
50606         MELT_LOCATION("warmelt-normal.melt:3589:/ cppif.then");
50607         /*^block*/
50608         /*anyblock*/
50609         {
50610
50611
50612             {
50613                 /*^locexp*/
50614                 /*melt_increment_dbgcounter*/
50615 #if MELT_HAVE_DEBUG
50616                 melt_dbgcounter++;
50617 #endif
50618                 ;
50619             }
50620             ;
50621
50622             MELT_CHECK_SIGNAL();
50623             ;
50624             /*_#MELT_NEED_DBG__L15*/
50625             meltfnum[14] =
50626                 /*MELT_NEED_DBG*/
50627 #if MELT_HAVE_DEBUG
50628                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
50629 #else
50630                 0 /* no melt_need_dbg */
50631 #endif /*MELT_HAVE_DEBUG*/
50632                 ;;
50633             MELT_LOCATION("warmelt-normal.melt:3589:/ cond");
50634             /*cond*/
50635             if (/*_#MELT_NEED_DBG__L15*/ meltfnum[14]) /*then*/
50636                 {
50637                     /*^cond.then*/
50638                     /*^block*/
50639                     /*anyblock*/
50640                     {
50641
50642                         /*_#MELT_CALLCOUNT__L16*/ meltfnum[15] =
50643                             /* for melt_callcount */
50644 #if MELT_HAVE_DEBUG && defined (meltcallcount)
50645                             meltcallcount  /* melt_callcount debugging */
50646 #else
50647                             0L  /* melt_callcount without debug */
50648 #endif /* MELT_HAVE_DEBUG melt_callcount */
50649                             ;;
50650
50651                         MELT_CHECK_SIGNAL();
50652                         ;
50653                         MELT_LOCATION("warmelt-normal.melt:3589:/ apply");
50654                         /*apply*/
50655                         {
50656                             union meltparam_un argtab[7];
50657                             memset(&argtab, 0, sizeof(argtab));
50658                             /*^apply.arg*/
50659                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L16*/ meltfnum[15];
50660                             /*^apply.arg*/
50661                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
50662                             /*^apply.arg*/
50663                             argtab[2].meltbp_long = 3589;
50664                             /*^apply.arg*/
50665                             argtab[3].meltbp_cstring =  "normexp_if result clocc=";
50666                             /*^apply.arg*/
50667                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V57*/ meltfptr[56];
50668                             /*^apply.arg*/
50669                             argtab[5].meltbp_cstring =  " nbindif=";
50670                             /*^apply.arg*/
50671                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDIF__V29*/ meltfptr[28];
50672                             /*_.MELT_DEBUG_FUN__V68*/
50673                             meltfptr[65] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
50674                         }
50675                         ;
50676                         /*_._IF___V67*/
50677                         meltfptr[64] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[65];;
50678                         /*epilog*/
50679
50680                         MELT_LOCATION("warmelt-normal.melt:3589:/ clear");
50681                         /*clear*/ /*_#MELT_CALLCOUNT__L16*/
50682                         meltfnum[15] = 0 ;
50683                         /*^clear*/
50684                         /*clear*/ /*_.MELT_DEBUG_FUN__V68*/
50685                         meltfptr[65] = 0 ;
50686                     }
50687                     ;
50688                 }
50689             else    /*^cond.else*/
50690                 {
50691
50692                     /*_._IF___V67*/ meltfptr[64] =  /*reallynil*/ NULL ;;
50693                 }
50694             ;
50695
50696             {
50697                 MELT_LOCATION("warmelt-normal.melt:3589:/ locexp");
50698                 /*void*/
50699                 (void)0;
50700             }
50701             ;
50702             /*^quasiblock*/
50703
50704
50705             /*epilog*/
50706
50707             /*^clear*/
50708             /*clear*/ /*_#MELT_NEED_DBG__L15*/
50709             meltfnum[14] = 0 ;
50710             /*^clear*/
50711             /*clear*/ /*_._IF___V67*/
50712             meltfptr[64] = 0 ;
50713         }
50714
50715 #else /*MELT_HAVE_DEBUG*/
50716         /*^cppif.else*/
50717         /*^block*/
50718         /*anyblock*/
50719         {
50720
50721
50722             {
50723                 /*^locexp*/
50724                 /*void*/(void)0;
50725             }
50726             ;
50727             /*epilog*/
50728         }
50729
50730 #endif /*MELT_HAVE_DEBUG*/
50731         ;
50732
50733         MELT_CHECK_SIGNAL();
50734         ;
50735         MELT_LOCATION("warmelt-normal.melt:3590:/ quasiblock");
50736
50737
50738         /*_._RETVAL___V1*/
50739         meltfptr[0] = /*_.CLOCC__V57*/ meltfptr[56];;
50740         MELT_LOCATION("warmelt-normal.melt:3590:/ putxtraresult");
50741         if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
50742         if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
50743         if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.NBINDIF__V29*/ meltfptr[28]);
50744         ;
50745         /*^finalreturn*/
50746         ;
50747         /*finalret*/
50748         goto meltlabend_rout ;
50749         /*_.LET___V55*/
50750         meltfptr[54] = /*_.RETURN___V69*/ meltfptr[65];;
50751
50752         MELT_LOCATION("warmelt-normal.melt:3566:/ clear");
50753         /*clear*/ /*_.CSYM__V56*/
50754         meltfptr[55] = 0 ;
50755         /*^clear*/
50756         /*clear*/ /*_.CLOCC__V57*/
50757         meltfptr[56] = 0 ;
50758         /*^clear*/
50759         /*clear*/ /*_.WTHEN__V59*/
50760         meltfptr[58] = 0 ;
50761         /*^clear*/
50762         /*clear*/ /*_.INST___V60*/
50763         meltfptr[59] = 0 ;
50764         /*^clear*/
50765         /*clear*/ /*_.CBIND__V62*/
50766         meltfptr[61] = 0 ;
50767         /*^clear*/
50768         /*clear*/ /*_#IS_LIST__L13*/
50769         meltfnum[0] = 0 ;
50770         /*^clear*/
50771         /*clear*/ /*_#NOT__L14*/
50772         meltfnum[10] = 0 ;
50773         /*^clear*/
50774         /*clear*/ /*_._IF___V64*/
50775         meltfptr[63] = 0 ;
50776         /*^clear*/
50777         /*clear*/ /*_.RETURN___V69*/
50778         meltfptr[65] = 0 ;
50779         /*_.LET___V48*/
50780         meltfptr[46] = /*_.LET___V55*/ meltfptr[54];;
50781
50782         MELT_LOCATION("warmelt-normal.melt:3559:/ clear");
50783         /*clear*/ /*_.NEWTHENENV__V49*/
50784         meltfptr[42] = 0 ;
50785         /*^clear*/
50786         /*clear*/ /*_.LAMBDA___V50*/
50787         meltfptr[49] = 0 ;
50788         /*^clear*/
50789         /*clear*/ /*_.LIST_EVERY__V52*/
50790         meltfptr[51] = 0 ;
50791         /*^clear*/
50792         /*clear*/ /*_.GET_CTYPE__V53*/
50793         meltfptr[52] = 0 ;
50794         /*^clear*/
50795         /*clear*/ /*_.SETQ___V54*/
50796         meltfptr[53] = 0 ;
50797         /*^clear*/
50798         /*clear*/ /*_.LET___V55*/
50799         meltfptr[54] = 0 ;
50800
50801         MELT_CHECK_SIGNAL();
50802         ;
50803         /*_.MULTI___V40*/
50804         meltfptr[37] = /*_.LET___V48*/ meltfptr[46];;
50805
50806         MELT_LOCATION("warmelt-normal.melt:3554:/ clear");
50807         /*clear*/ /*_.IFCPP___V45*/
50808         meltfptr[43] = 0 ;
50809         /*^clear*/
50810         /*clear*/ /*_.LET___V48*/
50811         meltfptr[46] = 0 ;
50812
50813         /*^clear*/
50814         /*clear*/ /*_.NBINDTHEN__V42*/
50815         meltfptr[36] = 0 ;
50816
50817         MELT_CHECK_SIGNAL();
50818         ;
50819         /*_.MULTI___V27*/
50820         meltfptr[26] = /*_.MULTI___V40*/ meltfptr[37];;
50821
50822         MELT_LOCATION("warmelt-normal.melt:3540:/ clear");
50823         /*clear*/ /*_.IFCPP___V30*/
50824         meltfptr[29] = 0 ;
50825         /*^clear*/
50826         /*clear*/ /*_#NULL__L9*/
50827         meltfnum[4] = 0 ;
50828         /*^clear*/
50829         /*clear*/ /*_._IFELSE___V35*/
50830         meltfptr[30] = 0 ;
50831         /*^clear*/
50832         /*clear*/ /*_.MULTI___V40*/
50833         meltfptr[37] = 0 ;
50834
50835         /*^clear*/
50836         /*clear*/ /*_.NBINDIF__V29*/
50837         meltfptr[28] = 0 ;
50838         /*_.LET___V17*/
50839         meltfptr[6] = /*_.MULTI___V27*/ meltfptr[26];;
50840
50841         MELT_LOCATION("warmelt-normal.melt:3528:/ clear");
50842         /*clear*/ /*_.SLOC__V18*/
50843         meltfptr[13] = 0 ;
50844         /*^clear*/
50845         /*clear*/ /*_.STEST__V19*/
50846         meltfptr[18] = 0 ;
50847         /*^clear*/
50848         /*clear*/ /*_.CTYPIF__V20*/
50849         meltfptr[19] = 0 ;
50850         /*^clear*/
50851         /*clear*/ /*_.STHEN__V21*/
50852         meltfptr[20] = 0 ;
50853         /*^clear*/
50854         /*clear*/ /*_.CINTSYMB__V22*/
50855         meltfptr[21] = 0 ;
50856         /*^clear*/
50857         /*clear*/ /*_.NCHINT__V23*/
50858         meltfptr[22] = 0 ;
50859         /*^clear*/
50860         /*clear*/ /*_.CINTBIND__V25*/
50861         meltfptr[24] = 0 ;
50862         /*^clear*/
50863         /*clear*/ /*_.MULTI___V27*/
50864         meltfptr[26] = 0 ;
50865
50866         MELT_CHECK_SIGNAL();
50867         ;
50868         MELT_LOCATION("warmelt-normal.melt:3523:/ quasiblock");
50869
50870
50871         /*_._RETVAL___V1*/
50872         meltfptr[0] = /*_.LET___V17*/ meltfptr[6];;
50873
50874         {
50875             MELT_LOCATION("warmelt-normal.melt:3523:/ locexp");
50876             /*ochecknores compilobj_nrep_return*/
50877 #if MELT_HAVE_DEBUG
50878             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
50879                 melt_warn_for_no_expected_secondary_results();
50880             /* we warned when secondary results are expected but not returned. */
50881 #endif /*MELT_HAVE_DEBUG*/
50882             ;
50883         }
50884         ;
50885         /*^finalreturn*/
50886         ;
50887         /*finalret*/
50888         goto meltlabend_rout ;
50889         /*epilog*/
50890
50891         /*^clear*/
50892         /*clear*/ /*_.IFCPP___V6*/
50893         meltfptr[5] = 0 ;
50894         /*^clear*/
50895         /*clear*/ /*_.IFCPP___V9*/
50896         meltfptr[7] = 0 ;
50897         /*^clear*/
50898         /*clear*/ /*_.IFCPP___V12*/
50899         meltfptr[10] = 0 ;
50900         /*^clear*/
50901         /*clear*/ /*_.LET___V17*/
50902         meltfptr[6] = 0 ;
50903     }
50904
50905     ;
50906     goto meltlabend_rout;
50907 meltlabend_rout:
50908     melt_trace_end("NORMEXP_IF", meltcallcount);
50909     melt_blocklevel_signals = current_blocklevel_signals_meltrout_51_WARMELTmiNORMAL_NORMEXP_IF_melt;
50910     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
50911 #undef meltcallcount
50912 #undef meltfram__
50913 #undef MELTFRAM_NBVARNUM
50914 #undef MELTFRAM_NBVARPTR
50915 } /*end meltrout_51_WARMELTmiNORMAL_NORMEXP_IF*/
50916
50917
50918
50919
50920
50921
50922 melt_ptr_t MELT_MODULE_VISIBILITY
50923 meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
50924                                        const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
50925 {
50926     long current_blocklevel_signals_meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6_melt =  melt_blocklevel_signals;
50927
50928 #if MELT_HAVE_DEBUG
50929     static long melt_call_counter__;
50930     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
50931 #undef meltcallcount
50932 #define meltcallcount melt_thiscallcounter__
50933 #else
50934 #undef meltcallcount
50935 #define meltcallcount 0L
50936 #endif
50937 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
50938
50939     /* start of frame for routine meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6 fromline 1752 */
50940
50941     /** start of frame for meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6 of CLASS_PROCROUTINEOBJ from 1555**/
50942
50943     /*curframdeclclassy*/ class MeltFrame_meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6// fromline 1568
50944         : public Melt_CallFrameWithValues<3>
50945     {
50946     public: /* fromline 1572*/
50947 // no classy longs
50948         /*classy others*/
50949         long _meltsparel;
50950         void melt_mark_stuff (void)
50951         {
50952         } /*end melt_mark_stuff*/
50953         virtual void melt_mark_ggc_data (void)
50954         {
50955             melt_mark_values ();
50956             melt_mark_stuff ();
50957         }; /*end melt_mark_ggc_data*/
50958         MeltFrame_meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6(meltclosure_ptr_t clos) //the closure constructor fromline 1630
50959             : Melt_CallFrameWithValues<3> (
50960 #if ENABLE_CHECKING /*fromline 1634*/
50961                 __FILE__, __LINE__,
50962 #endif /* ENABLE_CHECKING fromline 1638*/
50963                 sizeof(MeltFrame_meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6), clos) {};
50964         MeltFrame_meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6() //the constructor fromline 1642
50965             : Melt_CallFrameWithValues<3> (
50966 #if ENABLE_CHECKING /*fromline 1646*/
50967                 __FILE__, __LINE__,
50968 #endif /* ENABLE_CHECKING fromline 1650*/
50969                 sizeof(MeltFrame_meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6)) {};
50970 #if ENABLE_CHECKING /*fromline 1654*/
50971         MeltFrame_meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6(const char*fil, int lin) //the constructor fromline 1656
50972             : Melt_CallFrameWithValues<3> (fil,lin, sizeof(MeltFrame_meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6)) {};
50973         MeltFrame_meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
50974             : Melt_CallFrameWithValues<3> (fil,lin, sizeof(MeltFrame_meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6), clos) {};
50975 #endif /* ENABLE_CHECKING fromline 1666*/
50976
50977     }; // end  class MeltFrame_meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6
50978
50979
50980     /** end of frame for meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6 fromline 1697**/
50981
50982     /* end of frame for routine meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6 fromline 1756 */
50983
50984     /* classy proc frame meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6 */
50985     MeltFrame_meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6
50986     meltfram__ /*declfrastruct fromline 1780*/
50987     /*classyprocarg meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6 fromline 1785*/
50988 #if ENABLE_CHECKING
50989     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
50990 #else /*ENABLE_CHECKING */
50991     (meltclosp_) /* fromline 1793*/
50992 #endif /*ENABLE_CHECKING */
50993
50994     ;
50995 #define meltframe meltfram__
50996
50997     melt_trace_start("LAMBDA_cl6", meltcallcount);
50998     /*use arguments*/
50999     (void) meltclosp_;
51000     (void)meltfirstargp_;
51001     (void)meltxargdescr_;
51002     (void)meltxargtab_;
51003     (void)meltxresdescr_;
51004     (void)meltxrestab_;
51005     /*getargs*/
51006
51007     /*getarg#0*/
51008     MELT_LOCATION("warmelt-normal.melt:3562:/ getarg");
51009     /*_.B__V2*/
51010     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
51011     ;
51012     goto meltlab_endgetargs;
51013 meltlab_endgetargs:
51014     ;
51015     /*body*/
51016     /*^block*/
51017     /*anyblock*/
51018     {
51019
51020
51021         MELT_CHECK_SIGNAL();
51022         ;
51023         /*^apply*/
51024         /*apply*/
51025         {
51026             union meltparam_un argtab[1];
51027             memset(&argtab, 0, sizeof(argtab));
51028             /*^apply.arg*/
51029             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.B__V2*/ meltfptr[1];
51030             /*_.PUT_ENV__V3*/
51031             meltfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~NEWTHENENV*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
51032         }
51033         ;
51034         /*^quasiblock*/
51035
51036
51037         /*_._RETVAL___V1*/
51038         meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];;
51039
51040         {
51041             MELT_LOCATION("warmelt-normal.melt:3562:/ locexp");
51042             /*ochecknores compilobj_nrep_return*/
51043 #if MELT_HAVE_DEBUG
51044             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
51045                 melt_warn_for_no_expected_secondary_results();
51046             /* we warned when secondary results are expected but not returned. */
51047 #endif /*MELT_HAVE_DEBUG*/
51048             ;
51049         }
51050         ;
51051         /*^finalreturn*/
51052         ;
51053         /*finalret*/
51054         goto meltlabend_rout ;
51055         /*epilog*/
51056
51057         /*^clear*/
51058         /*clear*/ /*_.PUT_ENV__V3*/
51059         meltfptr[2] = 0 ;
51060     }
51061
51062     ;
51063     goto meltlabend_rout;
51064 meltlabend_rout:
51065     melt_trace_end("LAMBDA_cl6", meltcallcount);
51066     melt_blocklevel_signals = current_blocklevel_signals_meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6_melt;
51067     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
51068 #undef meltcallcount
51069 #undef meltfram__
51070 #undef MELTFRAM_NBVARNUM
51071 #undef MELTFRAM_NBVARPTR
51072 } /*end meltrout_52_WARMELTmiNORMAL_LAMBDA_cl6*/
51073
51074
51075
51076
51077
51078
51079 melt_ptr_t MELT_MODULE_VISIBILITY
51080 meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
51081         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
51082 {
51083     long current_blocklevel_signals_meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE_melt =  melt_blocklevel_signals;
51084
51085 #if MELT_HAVE_DEBUG
51086     static long melt_call_counter__;
51087     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
51088 #undef meltcallcount
51089 #define meltcallcount melt_thiscallcounter__
51090 #else
51091 #undef meltcallcount
51092 #define meltcallcount 0L
51093 #endif
51094 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
51095
51096     /* start of frame for routine meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE fromline 1752 */
51097
51098     /** start of frame for meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE of CLASS_PROCROUTINEOBJ from 1555**/
51099
51100     /*curframdeclclassy*/ class MeltFrame_meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE// fromline 1568
51101         : public Melt_CallFrameWithValues<114>
51102     {
51103     public: /* fromline 1572*/
51104         long mcfr_varnum[38];
51105         /*classy others*/
51106         long _meltsparel;
51107         void melt_mark_stuff (void)
51108         {
51109         } /*end melt_mark_stuff*/
51110         virtual void melt_mark_ggc_data (void)
51111         {
51112             melt_mark_values ();
51113             melt_mark_stuff ();
51114         }; /*end melt_mark_ggc_data*/
51115         MeltFrame_meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE(meltclosure_ptr_t clos) //the closure constructor fromline 1630
51116             : Melt_CallFrameWithValues<114> (
51117 #if ENABLE_CHECKING /*fromline 1634*/
51118                 __FILE__, __LINE__,
51119 #endif /* ENABLE_CHECKING fromline 1638*/
51120                 sizeof(MeltFrame_meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE), clos) {};
51121         MeltFrame_meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE() //the constructor fromline 1642
51122             : Melt_CallFrameWithValues<114> (
51123 #if ENABLE_CHECKING /*fromline 1646*/
51124                 __FILE__, __LINE__,
51125 #endif /* ENABLE_CHECKING fromline 1650*/
51126                 sizeof(MeltFrame_meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE)) {};
51127 #if ENABLE_CHECKING /*fromline 1654*/
51128         MeltFrame_meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE(const char*fil, int lin) //the constructor fromline 1656
51129             : Melt_CallFrameWithValues<114> (fil,lin, sizeof(MeltFrame_meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE)) {};
51130         MeltFrame_meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
51131             : Melt_CallFrameWithValues<114> (fil,lin, sizeof(MeltFrame_meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE), clos) {};
51132 #endif /* ENABLE_CHECKING fromline 1666*/
51133
51134     }; // end  class MeltFrame_meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE
51135
51136
51137     /** end of frame for meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE fromline 1697**/
51138
51139     /* end of frame for routine meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE fromline 1756 */
51140
51141     /* classy proc frame meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE */
51142     MeltFrame_meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE
51143     meltfram__ /*declfrastruct fromline 1780*/
51144     /*classyprocarg meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE fromline 1785*/
51145 #if ENABLE_CHECKING
51146     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
51147 #else /*ENABLE_CHECKING */
51148     (meltclosp_) /* fromline 1793*/
51149 #endif /*ENABLE_CHECKING */
51150
51151     ;
51152 #define meltframe meltfram__
51153
51154     melt_trace_start("NORMEXP_IFELSE", meltcallcount);
51155     /*use arguments*/
51156     (void) meltclosp_;
51157     (void)meltfirstargp_;
51158     (void)meltxargdescr_;
51159     (void)meltxargtab_;
51160     (void)meltxresdescr_;
51161     (void)meltxrestab_;
51162     /*getargs*/
51163
51164     /*getarg#0*/
51165     MELT_LOCATION("warmelt-normal.melt:3598:/ getarg");
51166     /*_.RECV__V2*/
51167     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
51168
51169     /*getarg#1*/
51170     /*^getarg*/
51171     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
51172     /*_.ENV__V3*/
51173     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
51174     gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
51175
51176
51177     /*getarg#2*/
51178     /*^getarg*/
51179     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
51180     /*_.NCX__V4*/
51181     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
51182     gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL);
51183
51184
51185     /*getarg#3*/
51186     /*^getarg*/
51187     if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
51188     /*_.PSLOC__V5*/
51189     meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
51190     gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL);
51191
51192     ;
51193     goto meltlab_endgetargs;
51194 meltlab_endgetargs:
51195     ;
51196     /*body*/
51197     /*^block*/
51198     /*anyblock*/
51199     {
51200
51201
51202 #if MELT_HAVE_DEBUG
51203         MELT_LOCATION("warmelt-normal.melt:3599:/ cppif.then");
51204         /*^block*/
51205         /*anyblock*/
51206         {
51207
51208
51209             {
51210                 /*^locexp*/
51211                 /*melt_increment_dbgcounter*/
51212 #if MELT_HAVE_DEBUG
51213                 melt_dbgcounter++;
51214 #endif
51215                 ;
51216             }
51217             ;
51218
51219             MELT_CHECK_SIGNAL();
51220             ;
51221             /*_#MELT_NEED_DBG__L1*/
51222             meltfnum[0] =
51223                 /*MELT_NEED_DBG*/
51224 #if MELT_HAVE_DEBUG
51225                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
51226 #else
51227                 0 /* no melt_need_dbg */
51228 #endif /*MELT_HAVE_DEBUG*/
51229                 ;;
51230             MELT_LOCATION("warmelt-normal.melt:3599:/ cond");
51231             /*cond*/
51232             if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
51233                 {
51234                     /*^cond.then*/
51235                     /*^block*/
51236                     /*anyblock*/
51237                     {
51238
51239                         /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
51240                             /* for melt_callcount */
51241 #if MELT_HAVE_DEBUG && defined (meltcallcount)
51242                             meltcallcount  /* melt_callcount debugging */
51243 #else
51244                             0L  /* melt_callcount without debug */
51245 #endif /* MELT_HAVE_DEBUG melt_callcount */
51246                             ;;
51247                         MELT_LOCATION("warmelt-normal.melt:3600:/ cond");
51248                         /*cond*/
51249                         if (
51250                             /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]),
51251                                                           (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])))
51252                         ) /*then*/
51253                             {
51254                                 /*^cond.then*/
51255                                 /*^getslot*/
51256                                 {
51257                                     melt_ptr_t slot=NULL, obj=NULL;
51258                                     obj = (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]) /*=obj*/;
51259                                     melt_object_get_field(slot,obj, 1, "ENV_PREV");
51260                                     /*_.ENV_PREV__V7*/
51261                                     meltfptr[6] = slot;
51262                                 };
51263                                 ;
51264                             }
51265                         else    /*^cond.else*/
51266                             {
51267
51268                                 /*_.ENV_PREV__V7*/ meltfptr[6] =  /*reallynil*/ NULL ;;
51269                             }
51270                         ;
51271
51272                         MELT_CHECK_SIGNAL();
51273                         ;
51274                         MELT_LOCATION("warmelt-normal.melt:3599:/ apply");
51275                         /*apply*/
51276                         {
51277                             union meltparam_un argtab[12];
51278                             memset(&argtab, 0, sizeof(argtab));
51279                             /*^apply.arg*/
51280                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
51281                             /*^apply.arg*/
51282                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
51283                             /*^apply.arg*/
51284                             argtab[2].meltbp_long = 3599;
51285                             /*^apply.arg*/
51286                             argtab[3].meltbp_cstring =  "normexp_ifelse recv=";
51287                             /*^apply.arg*/
51288                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
51289                             /*^apply.arg*/
51290                             argtab[5].meltbp_cstring =  "\n.. env=";
51291                             /*^apply.arg*/
51292                             argtab[6].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_MORE*/ meltfrout->tabval[1]);
51293                             /*^apply.arg*/
51294                             argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
51295                             /*^apply.arg*/
51296                             argtab[8].meltbp_cstring =  "\n.. of prec=";
51297                             /*^apply.arg*/
51298                             argtab[9].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[2]);
51299                             /*^apply.arg*/
51300                             argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.ENV_PREV__V7*/ meltfptr[6];
51301                             /*^apply.arg*/
51302                             argtab[11].meltbp_cstring =  "\n";
51303                             /*_.MELT_DEBUG_FUN__V8*/
51304                             meltfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
51305                         }
51306                         ;
51307                         /*_._IF___V6*/
51308                         meltfptr[5] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];;
51309                         /*epilog*/
51310
51311                         MELT_LOCATION("warmelt-normal.melt:3599:/ clear");
51312                         /*clear*/ /*_#MELT_CALLCOUNT__L2*/
51313                         meltfnum[1] = 0 ;
51314                         /*^clear*/
51315                         /*clear*/ /*_.ENV_PREV__V7*/
51316                         meltfptr[6] = 0 ;
51317                         /*^clear*/
51318                         /*clear*/ /*_.MELT_DEBUG_FUN__V8*/
51319                         meltfptr[7] = 0 ;
51320                     }
51321                     ;
51322                 }
51323             else    /*^cond.else*/
51324                 {
51325
51326                     /*_._IF___V6*/ meltfptr[5] =  /*reallynil*/ NULL ;;
51327                 }
51328             ;
51329
51330             {
51331                 MELT_LOCATION("warmelt-normal.melt:3599:/ locexp");
51332                 /*void*/
51333                 (void)0;
51334             }
51335             ;
51336             /*^quasiblock*/
51337
51338
51339             /*epilog*/
51340
51341             /*^clear*/
51342             /*clear*/ /*_#MELT_NEED_DBG__L1*/
51343             meltfnum[0] = 0 ;
51344             /*^clear*/
51345             /*clear*/ /*_._IF___V6*/
51346             meltfptr[5] = 0 ;
51347         }
51348
51349 #else /*MELT_HAVE_DEBUG*/
51350         /*^cppif.else*/
51351         /*^block*/
51352         /*anyblock*/
51353         {
51354
51355
51356             {
51357                 /*^locexp*/
51358                 /*void*/(void)0;
51359             }
51360             ;
51361             /*epilog*/
51362         }
51363
51364 #endif /*MELT_HAVE_DEBUG*/
51365         ;
51366
51367 #if MELT_HAVE_DEBUG
51368         MELT_LOCATION("warmelt-normal.melt:3601:/ cppif.then");
51369         /*^block*/
51370         /*anyblock*/
51371         {
51372
51373
51374             MELT_CHECK_SIGNAL();
51375             ;
51376             /*_#IS_A__L3*/
51377             meltfnum[1] =
51378                 melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_IFELSE*/ meltfrout->tabval[4])));;
51379             MELT_LOCATION("warmelt-normal.melt:3601:/ cond");
51380             /*cond*/
51381             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
51382                 {
51383                     /*^cond.then*/
51384                     /*_._IFELSE___V10*/ meltfptr[7] = (/*nil*/NULL);;
51385                 }
51386             else
51387                 {
51388                     MELT_LOCATION("warmelt-normal.melt:3601:/ cond.else");
51389
51390                     /*^block*/
51391                     /*anyblock*/
51392                     {
51393
51394
51395                         MELT_CHECK_SIGNAL();
51396                         ;
51397                         /*^apply*/
51398                         /*apply*/
51399                         {
51400                             union meltparam_un argtab[4];
51401                             memset(&argtab, 0, sizeof(argtab));
51402                             /*^apply.arg*/
51403                             argtab[0].meltbp_cstring =  "check if recv";
51404                             /*^apply.arg*/
51405                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
51406                             /*^apply.arg*/
51407                             argtab[2].meltbp_long = 3601;
51408                             /*^apply.arg*/
51409                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1];
51410                             /*_.MELT_ASSERT_FAILURE_FUN__V11*/
51411                             meltfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
51412                         }
51413                         ;
51414                         /*_._IFELSE___V10*/
51415                         meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[5];;
51416                         /*epilog*/
51417
51418                         MELT_LOCATION("warmelt-normal.melt:3601:/ clear");
51419                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/
51420                         meltfptr[5] = 0 ;
51421                     }
51422                     ;
51423                 }
51424             ;
51425             /*_.IFCPP___V9*/
51426             meltfptr[6] = /*_._IFELSE___V10*/ meltfptr[7];;
51427             /*epilog*/
51428
51429             MELT_LOCATION("warmelt-normal.melt:3601:/ clear");
51430             /*clear*/ /*_#IS_A__L3*/
51431             meltfnum[1] = 0 ;
51432             /*^clear*/
51433             /*clear*/ /*_._IFELSE___V10*/
51434             meltfptr[7] = 0 ;
51435         }
51436
51437 #else /*MELT_HAVE_DEBUG*/
51438         /*^cppif.else*/
51439         /*_.IFCPP___V9*/ meltfptr[6] = (/*nil*/NULL);
51440 #endif /*MELT_HAVE_DEBUG*/
51441         ;
51442
51443 #if MELT_HAVE_DEBUG
51444         MELT_LOCATION("warmelt-normal.melt:3602:/ cppif.then");
51445         /*^block*/
51446         /*anyblock*/
51447         {
51448
51449
51450             MELT_CHECK_SIGNAL();
51451             ;
51452             /*_#IS_A__L4*/
51453             meltfnum[0] =
51454                 melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));;
51455             MELT_LOCATION("warmelt-normal.melt:3602:/ cond");
51456             /*cond*/
51457             if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/
51458                 {
51459                     /*^cond.then*/
51460                     /*_._IFELSE___V13*/ meltfptr[7] = (/*nil*/NULL);;
51461                 }
51462             else
51463                 {
51464                     MELT_LOCATION("warmelt-normal.melt:3602:/ cond.else");
51465
51466                     /*^block*/
51467                     /*anyblock*/
51468                     {
51469
51470
51471                         MELT_CHECK_SIGNAL();
51472                         ;
51473                         /*^apply*/
51474                         /*apply*/
51475                         {
51476                             union meltparam_un argtab[4];
51477                             memset(&argtab, 0, sizeof(argtab));
51478                             /*^apply.arg*/
51479                             argtab[0].meltbp_cstring =  "check env";
51480                             /*^apply.arg*/
51481                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
51482                             /*^apply.arg*/
51483                             argtab[2].meltbp_long = 3602;
51484                             /*^apply.arg*/
51485                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
51486                             /*_.MELT_ASSERT_FAILURE_FUN__V14*/
51487                             meltfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
51488                         }
51489                         ;
51490                         /*_._IFELSE___V13*/
51491                         meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];;
51492                         /*epilog*/
51493
51494                         MELT_LOCATION("warmelt-normal.melt:3602:/ clear");
51495                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/
51496                         meltfptr[13] = 0 ;
51497                     }
51498                     ;
51499                 }
51500             ;
51501             /*_.IFCPP___V12*/
51502             meltfptr[5] = /*_._IFELSE___V13*/ meltfptr[7];;
51503             /*epilog*/
51504
51505             MELT_LOCATION("warmelt-normal.melt:3602:/ clear");
51506             /*clear*/ /*_#IS_A__L4*/
51507             meltfnum[0] = 0 ;
51508             /*^clear*/
51509             /*clear*/ /*_._IFELSE___V13*/
51510             meltfptr[7] = 0 ;
51511         }
51512
51513 #else /*MELT_HAVE_DEBUG*/
51514         /*^cppif.else*/
51515         /*_.IFCPP___V12*/ meltfptr[5] = (/*nil*/NULL);
51516 #endif /*MELT_HAVE_DEBUG*/
51517         ;
51518
51519 #if MELT_HAVE_DEBUG
51520         MELT_LOCATION("warmelt-normal.melt:3603:/ cppif.then");
51521         /*^block*/
51522         /*anyblock*/
51523         {
51524
51525
51526             MELT_CHECK_SIGNAL();
51527             ;
51528             /*_#IS_A__L5*/
51529             meltfnum[1] =
51530                 melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[6])));;
51531             MELT_LOCATION("warmelt-normal.melt:3603:/ cond");
51532             /*cond*/
51533             if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/
51534                 {
51535                     /*^cond.then*/
51536                     /*_._IFELSE___V16*/ meltfptr[7] = (/*nil*/NULL);;
51537                 }
51538             else
51539                 {
51540                     MELT_LOCATION("warmelt-normal.melt:3603:/ cond.else");
51541
51542                     /*^block*/
51543                     /*anyblock*/
51544                     {
51545
51546
51547                         MELT_CHECK_SIGNAL();
51548                         ;
51549                         /*^apply*/
51550                         /*apply*/
51551                         {
51552                             union meltparam_un argtab[4];
51553                             memset(&argtab, 0, sizeof(argtab));
51554                             /*^apply.arg*/
51555                             argtab[0].meltbp_cstring =  "check ncx";
51556                             /*^apply.arg*/
51557                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
51558                             /*^apply.arg*/
51559                             argtab[2].meltbp_long = 3603;
51560                             /*^apply.arg*/
51561                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];
51562                             /*_.MELT_ASSERT_FAILURE_FUN__V17*/
51563                             meltfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
51564                         }
51565                         ;
51566                         /*_._IFELSE___V16*/
51567                         meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];;
51568                         /*epilog*/
51569
51570                         MELT_LOCATION("warmelt-normal.melt:3603:/ clear");
51571                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/
51572                         meltfptr[16] = 0 ;
51573                     }
51574                     ;
51575                 }
51576             ;
51577             /*_.IFCPP___V15*/
51578             meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[7];;
51579             /*epilog*/
51580
51581             MELT_LOCATION("warmelt-normal.melt:3603:/ clear");
51582             /*clear*/ /*_#IS_A__L5*/
51583             meltfnum[1] = 0 ;
51584             /*^clear*/
51585             /*clear*/ /*_._IFELSE___V16*/
51586             meltfptr[7] = 0 ;
51587         }
51588
51589 #else /*MELT_HAVE_DEBUG*/
51590         /*^cppif.else*/
51591         /*_.IFCPP___V15*/ meltfptr[13] = (/*nil*/NULL);
51592 #endif /*MELT_HAVE_DEBUG*/
51593         ;
51594         MELT_LOCATION("warmelt-normal.melt:3604:/ quasiblock");
51595
51596
51597         /*^getslot*/
51598         {
51599             melt_ptr_t slot=NULL, obj=NULL;
51600             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
51601             melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
51602             /*_.SLOC__V19*/
51603             meltfptr[7] = slot;
51604         };
51605         ;
51606         MELT_LOCATION("warmelt-normal.melt:3605:/ getslot");
51607         {
51608             melt_ptr_t slot=NULL, obj=NULL;
51609             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
51610             melt_object_get_field(slot,obj, 2, "SIF_TEST");
51611             /*_.STEST__V20*/
51612             meltfptr[19] = slot;
51613         };
51614         ;
51615         /*_.CTYPIF__V21*/
51616         meltfptr[20] = (/*!CTYPE_VOID*/ meltfrout->tabval[7]);;
51617         MELT_LOCATION("warmelt-normal.melt:3607:/ getslot");
51618         {
51619             melt_ptr_t slot=NULL, obj=NULL;
51620             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
51621             melt_object_get_field(slot,obj, 3, "SIF_THEN");
51622             /*_.STHEN__V22*/
51623             meltfptr[21] = slot;
51624         };
51625         ;
51626         MELT_LOCATION("warmelt-normal.melt:3608:/ getslot");
51627         {
51628             melt_ptr_t slot=NULL, obj=NULL;
51629             obj = (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]) /*=obj*/;
51630             melt_object_get_field(slot,obj, 4, "SIF_ELSE");
51631             /*_.SELSE__V23*/
51632             meltfptr[22] = slot;
51633         };
51634         ;
51635
51636 #if MELT_HAVE_DEBUG
51637         MELT_LOCATION("warmelt-normal.melt:3610:/ cppif.then");
51638         /*^block*/
51639         /*anyblock*/
51640         {
51641
51642
51643             {
51644                 /*^locexp*/
51645                 /*melt_increment_dbgcounter*/
51646 #if MELT_HAVE_DEBUG
51647                 melt_dbgcounter++;
51648 #endif
51649                 ;
51650             }
51651             ;
51652
51653             MELT_CHECK_SIGNAL();
51654             ;
51655             /*_#MELT_NEED_DBG__L6*/
51656             meltfnum[0] =
51657                 /*MELT_NEED_DBG*/
51658 #if MELT_HAVE_DEBUG
51659                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
51660 #else
51661                 0 /* no melt_need_dbg */
51662 #endif /*MELT_HAVE_DEBUG*/
51663                 ;;
51664             MELT_LOCATION("warmelt-normal.melt:3610:/ cond");
51665             /*cond*/
51666             if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/
51667                 {
51668                     /*^cond.then*/
51669                     /*^block*/
51670                     /*anyblock*/
51671                     {
51672
51673                         /*_#MELT_CALLCOUNT__L7*/ meltfnum[1] =
51674                             /* for melt_callcount */
51675 #if MELT_HAVE_DEBUG && defined (meltcallcount)
51676                             meltcallcount  /* melt_callcount debugging */
51677 #else
51678                             0L  /* melt_callcount without debug */
51679 #endif /* MELT_HAVE_DEBUG melt_callcount */
51680                             ;;
51681
51682                         MELT_CHECK_SIGNAL();
51683                         ;
51684                         MELT_LOCATION("warmelt-normal.melt:3610:/ apply");
51685                         /*apply*/
51686                         {
51687                             union meltparam_un argtab[8];
51688                             memset(&argtab, 0, sizeof(argtab));
51689                             /*^apply.arg*/
51690                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L7*/ meltfnum[1];
51691                             /*^apply.arg*/
51692                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
51693                             /*^apply.arg*/
51694                             argtab[2].meltbp_long = 3610;
51695                             /*^apply.arg*/
51696                             argtab[3].meltbp_cstring =  "normexp_ifelse sloc=";
51697                             /*^apply.arg*/
51698                             argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[2]);
51699                             /*^apply.arg*/
51700                             argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[7];
51701                             /*^apply.arg*/
51702                             argtab[6].meltbp_cstring =  "; stest=";
51703                             /*^apply.arg*/
51704                             argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.STEST__V20*/ meltfptr[19];
51705                             /*_.MELT_DEBUG_FUN__V25*/
51706                             meltfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
51707                         }
51708                         ;
51709                         /*_._IF___V24*/
51710                         meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];;
51711                         /*epilog*/
51712
51713                         MELT_LOCATION("warmelt-normal.melt:3610:/ clear");
51714                         /*clear*/ /*_#MELT_CALLCOUNT__L7*/
51715                         meltfnum[1] = 0 ;
51716                         /*^clear*/
51717                         /*clear*/ /*_.MELT_DEBUG_FUN__V25*/
51718                         meltfptr[24] = 0 ;
51719                     }
51720                     ;
51721                 }
51722             else    /*^cond.else*/
51723                 {
51724
51725                     /*_._IF___V24*/ meltfptr[23] =  /*reallynil*/ NULL ;;
51726                 }
51727             ;
51728
51729             {
51730                 MELT_LOCATION("warmelt-normal.melt:3610:/ locexp");
51731                 /*void*/
51732                 (void)0;
51733             }
51734             ;
51735             /*^quasiblock*/
51736
51737
51738             /*epilog*/
51739
51740             /*^clear*/
51741             /*clear*/ /*_#MELT_NEED_DBG__L6*/
51742             meltfnum[0] = 0 ;
51743             /*^clear*/
51744             /*clear*/ /*_._IF___V24*/
51745             meltfptr[23] = 0 ;
51746         }
51747
51748 #else /*MELT_HAVE_DEBUG*/
51749         /*^cppif.else*/
51750         /*^block*/
51751         /*anyblock*/
51752         {
51753
51754
51755             {
51756                 /*^locexp*/
51757                 /*void*/(void)0;
51758             }
51759             ;
51760             /*epilog*/
51761         }
51762
51763 #endif /*MELT_HAVE_DEBUG*/
51764         ;
51765
51766         MELT_CHECK_SIGNAL();
51767         ;
51768         MELT_LOCATION("warmelt-normal.melt:3611:/ quasiblock");
51769
51770
51771         /*^multimsend*/
51772         /*multimsend*/
51773         {
51774             union meltparam_un argtab[3];
51775             union meltparam_un restab[1];
51776             memset(&argtab, 0, sizeof(argtab));
51777             memset(&restab, 0, sizeof(restab));
51778             /*^multimsend.arg*/
51779             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multimsend.arg*/
51780             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multimsend.arg*/
51781             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[7];
51782             /*^multimsend.xres*/
51783             restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDIF__V28*/ meltfptr[27];/*^multimsend.send*/
51784             /*_.NTEST__V27*/
51785             meltfptr[23] =  meltgc_send ((melt_ptr_t)(/*_.STEST__V20*/ meltfptr[19]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[8]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
51786         }
51787         ;
51788         /*^quasiblock*/
51789
51790
51791
51792 #if MELT_HAVE_DEBUG
51793         MELT_LOCATION("warmelt-normal.melt:3614:/ cppif.then");
51794         /*^block*/
51795         /*anyblock*/
51796         {
51797
51798
51799             {
51800                 /*^locexp*/
51801                 /*melt_increment_dbgcounter*/
51802 #if MELT_HAVE_DEBUG
51803                 melt_dbgcounter++;
51804 #endif
51805                 ;
51806             }
51807             ;
51808
51809             MELT_CHECK_SIGNAL();
51810             ;
51811             /*_#MELT_NEED_DBG__L8*/
51812             meltfnum[1] =
51813                 /*MELT_NEED_DBG*/
51814 #if MELT_HAVE_DEBUG
51815                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
51816 #else
51817                 0 /* no melt_need_dbg */
51818 #endif /*MELT_HAVE_DEBUG*/
51819                 ;;
51820             MELT_LOCATION("warmelt-normal.melt:3614:/ cond");
51821             /*cond*/
51822             if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/
51823                 {
51824                     /*^cond.then*/
51825                     /*^block*/
51826                     /*anyblock*/
51827                     {
51828
51829                         /*_#MELT_CALLCOUNT__L9*/ meltfnum[0] =
51830                             /* for melt_callcount */
51831 #if MELT_HAVE_DEBUG && defined (meltcallcount)
51832                             meltcallcount  /* melt_callcount debugging */
51833 #else
51834                             0L  /* melt_callcount without debug */
51835 #endif /* MELT_HAVE_DEBUG melt_callcount */
51836                             ;;
51837
51838                         MELT_CHECK_SIGNAL();
51839                         ;
51840                         MELT_LOCATION("warmelt-normal.melt:3614:/ apply");
51841                         /*apply*/
51842                         {
51843                             union meltparam_un argtab[7];
51844                             memset(&argtab, 0, sizeof(argtab));
51845                             /*^apply.arg*/
51846                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L9*/ meltfnum[0];
51847                             /*^apply.arg*/
51848                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
51849                             /*^apply.arg*/
51850                             argtab[2].meltbp_long = 3614;
51851                             /*^apply.arg*/
51852                             argtab[3].meltbp_cstring =  "normexp_ifelse ntest=";
51853                             /*^apply.arg*/
51854                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NTEST__V27*/ meltfptr[23];
51855                             /*^apply.arg*/
51856                             argtab[5].meltbp_cstring =  "; nbindif=";
51857                             /*^apply.arg*/
51858                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDIF__V28*/ meltfptr[27];
51859                             /*_.MELT_DEBUG_FUN__V30*/
51860                             meltfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
51861                         }
51862                         ;
51863                         /*_._IF___V29*/
51864                         meltfptr[28] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];;
51865                         /*epilog*/
51866
51867                         MELT_LOCATION("warmelt-normal.melt:3614:/ clear");
51868                         /*clear*/ /*_#MELT_CALLCOUNT__L9*/
51869                         meltfnum[0] = 0 ;
51870                         /*^clear*/
51871                         /*clear*/ /*_.MELT_DEBUG_FUN__V30*/
51872                         meltfptr[29] = 0 ;
51873                     }
51874                     ;
51875                 }
51876             else    /*^cond.else*/
51877                 {
51878
51879                     /*_._IF___V29*/ meltfptr[28] =  /*reallynil*/ NULL ;;
51880                 }
51881             ;
51882
51883             {
51884                 MELT_LOCATION("warmelt-normal.melt:3614:/ locexp");
51885                 /*void*/
51886                 (void)0;
51887             }
51888             ;
51889             /*^quasiblock*/
51890
51891
51892             /*epilog*/
51893
51894             /*^clear*/
51895             /*clear*/ /*_#MELT_NEED_DBG__L8*/
51896             meltfnum[1] = 0 ;
51897             /*^clear*/
51898             /*clear*/ /*_._IF___V29*/
51899             meltfptr[28] = 0 ;
51900         }
51901
51902 #else /*MELT_HAVE_DEBUG*/
51903         /*^cppif.else*/
51904         /*^block*/
51905         /*anyblock*/
51906         {
51907
51908
51909             {
51910                 /*^locexp*/
51911                 /*void*/(void)0;
51912             }
51913             ;
51914             /*epilog*/
51915         }
51916
51917 #endif /*MELT_HAVE_DEBUG*/
51918         ;
51919
51920 #if MELT_HAVE_DEBUG
51921         MELT_LOCATION("warmelt-normal.melt:3615:/ cppif.then");
51922         /*^block*/
51923         /*anyblock*/
51924         {
51925
51926
51927             MELT_CHECK_SIGNAL();
51928             ;
51929             /*_#IS_LIST_OR_NULL__L10*/
51930             meltfnum[0] =
51931                 ((/*_.NBINDIF__V28*/ meltfptr[27]) == NULL
51932                  || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDIF__V28*/ meltfptr[27])) == MELTOBMAG_LIST));;
51933             MELT_LOCATION("warmelt-normal.melt:3615:/ cond");
51934             /*cond*/
51935             if (/*_#IS_LIST_OR_NULL__L10*/ meltfnum[0]) /*then*/
51936                 {
51937                     /*^cond.then*/
51938                     /*_._IFELSE___V32*/ meltfptr[28] = (/*nil*/NULL);;
51939                 }
51940             else
51941                 {
51942                     MELT_LOCATION("warmelt-normal.melt:3615:/ cond.else");
51943
51944                     /*^block*/
51945                     /*anyblock*/
51946                     {
51947
51948
51949                         MELT_CHECK_SIGNAL();
51950                         ;
51951                         /*^apply*/
51952                         /*apply*/
51953                         {
51954                             union meltparam_un argtab[4];
51955                             memset(&argtab, 0, sizeof(argtab));
51956                             /*^apply.arg*/
51957                             argtab[0].meltbp_cstring =  "check nbindif test";
51958                             /*^apply.arg*/
51959                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
51960                             /*^apply.arg*/
51961                             argtab[2].meltbp_long = 3615;
51962                             /*^apply.arg*/
51963                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDIF__V28*/ meltfptr[27];
51964                             /*_.MELT_ASSERT_FAILURE_FUN__V33*/
51965                             meltfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
51966                         }
51967                         ;
51968                         /*_._IFELSE___V32*/
51969                         meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32];;
51970                         /*epilog*/
51971
51972                         MELT_LOCATION("warmelt-normal.melt:3615:/ clear");
51973                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V33*/
51974                         meltfptr[32] = 0 ;
51975                     }
51976                     ;
51977                 }
51978             ;
51979             /*_.IFCPP___V31*/
51980             meltfptr[29] = /*_._IFELSE___V32*/ meltfptr[28];;
51981             /*epilog*/
51982
51983             MELT_LOCATION("warmelt-normal.melt:3615:/ clear");
51984             /*clear*/ /*_#IS_LIST_OR_NULL__L10*/
51985             meltfnum[0] = 0 ;
51986             /*^clear*/
51987             /*clear*/ /*_._IFELSE___V32*/
51988             meltfptr[28] = 0 ;
51989         }
51990
51991 #else /*MELT_HAVE_DEBUG*/
51992         /*^cppif.else*/
51993         /*_.IFCPP___V31*/ meltfptr[29] = (/*nil*/NULL);
51994 #endif /*MELT_HAVE_DEBUG*/
51995         ;
51996         MELT_LOCATION("warmelt-normal.melt:3617:/ quasiblock");
51997
51998
51999
52000         MELT_CHECK_SIGNAL();
52001         ;
52002         /*^apply*/
52003         /*apply*/
52004         {
52005             /*_.CINTSYMB__V35*/ meltfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[9])), (melt_ptr_t)((/*!konst_10__IFELSE_INTER_*/ meltfrout->tabval[10])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
52006         }
52007         ;
52008
52009         MELT_CHECK_SIGNAL();
52010         ;
52011         MELT_LOCATION("warmelt-normal.melt:3618:/ quasiblock");
52012
52013
52014         /*^rawallocobj*/
52015         /*rawallocobj*/
52016         {
52017             melt_ptr_t newobj = 0;
52018             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CHECKSIGNAL*/ meltfrout->tabval[11])), (1), "CLASS_NREP_CHECKSIGNAL");
52019             /*_.INST__V37*/
52020             meltfptr[36] =
52021                 newobj;
52022         };
52023         ;
52024         /*^putslot*/
52025         /*putslot*/
52026         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ meltfptr[36])) == MELTOBMAG_OBJECT);
52027         melt_putfield_object((/*_.INST__V37*/ meltfptr[36]), (0), (/*_.SLOC__V19*/ meltfptr[7]), "NREP_LOC");
52028         ;
52029         /*^touchobj*/
52030
52031         melt_dbgtrace_written_object (/*_.INST__V37*/ meltfptr[36], "newly made instance");
52032         ;
52033         /*_.NCHINT__V36*/
52034         meltfptr[35] = /*_.INST__V37*/ meltfptr[36];;
52035
52036         MELT_CHECK_SIGNAL();
52037         ;
52038         MELT_LOCATION("warmelt-normal.melt:3620:/ quasiblock");
52039
52040
52041         /*^rawallocobj*/
52042         /*rawallocobj*/
52043         {
52044             melt_ptr_t newobj = 0;
52045             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[12])), (4), "CLASS_NORMAL_LET_BINDING");
52046             /*_.INST__V39*/
52047             meltfptr[38] =
52048                 newobj;
52049         };
52050         ;
52051         /*^putslot*/
52052         /*putslot*/
52053         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ meltfptr[38])) == MELTOBMAG_OBJECT);
52054         melt_putfield_object((/*_.INST__V39*/ meltfptr[38]), (0), (/*_.CINTSYMB__V35*/ meltfptr[28]), "BINDER");
52055         ;
52056         /*^putslot*/
52057         /*putslot*/
52058         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ meltfptr[38])) == MELTOBMAG_OBJECT);
52059         melt_putfield_object((/*_.INST__V39*/ meltfptr[38]), (1), ((/*!CTYPE_VOID*/ meltfrout->tabval[7])), "LETBIND_TYPE");
52060         ;
52061         /*^putslot*/
52062         /*putslot*/
52063         melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ meltfptr[38])) == MELTOBMAG_OBJECT);
52064         melt_putfield_object((/*_.INST__V39*/ meltfptr[38]), (2), (/*_.NCHINT__V36*/ meltfptr[35]), "LETBIND_EXPR");
52065         ;
52066         /*^touchobj*/
52067
52068         melt_dbgtrace_written_object (/*_.INST__V39*/ meltfptr[38], "newly made instance");
52069         ;
52070         /*_.CINTBIND__V38*/
52071         meltfptr[37] = /*_.INST__V39*/ meltfptr[38];;
52072
52073         MELT_CHECK_SIGNAL();
52074         ;
52075         /*^compute*/
52076         /*_#IS_LIST__L11*/
52077         meltfnum[1] =
52078             (melt_magic_discr((melt_ptr_t)(/*_.NBINDIF__V28*/ meltfptr[27])) == MELTOBMAG_LIST);;
52079         MELT_LOCATION("warmelt-normal.melt:3625:/ cond");
52080         /*cond*/
52081         if (/*_#IS_LIST__L11*/ meltfnum[1]) /*then*/
52082             {
52083                 /*^cond.then*/
52084                 /*^block*/
52085                 /*anyblock*/
52086                 {
52087
52088
52089
52090
52091                     {
52092                         MELT_LOCATION("warmelt-normal.melt:3626:/ locexp");
52093                         meltgc_prepend_list((melt_ptr_t)(/*_.NBINDIF__V28*/ meltfptr[27]), (melt_ptr_t)(/*_.CINTBIND__V38*/ meltfptr[37]));
52094                     }
52095                     ;
52096                     /*clear*/ /*_._IFELSE___V40*/
52097                     meltfptr[39] = 0 ;
52098                     /*epilog*/
52099                 }
52100                 ;
52101             }
52102         else
52103             {
52104                 MELT_LOCATION("warmelt-normal.melt:3625:/ cond.else");
52105
52106                 /*^block*/
52107                 /*anyblock*/
52108                 {
52109
52110                     MELT_LOCATION("warmelt-normal.melt:3627:/ blockmultialloc");
52111                     /*multiallocblock*/
52112                     {
52113                         struct meltletrec_1_st
52114                         {
52115                             struct meltpair_st rpair_0__CINTBIND_x4;
52116                             struct meltlist_st rlist_1__LIST_;
52117                             long meltletrec_1_endgap;
52118                         } *meltletrec_1_ptr = 0;
52119                         meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0);
52120                         /*^blockmultialloc.initfill*/
52121                         /*inipair rpair_0__CINTBIND_x4*/
52122                         /*_.CINTBIND__V42*/
52123                         meltfptr[41] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0__CINTBIND_x4;
52124                         meltletrec_1_ptr->rpair_0__CINTBIND_x4.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR))));
52125
52126                         /*inilist rlist_1__LIST_*/
52127                         /*_.LIST___V43*/
52128                         meltfptr[42] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_;
52129                         meltletrec_1_ptr->rlist_1__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST))));
52130
52131
52132
52133                         /*^putpairhead*/
52134                         /*putpairhead*/
52135                         melt_assertmsg("putpairhead /5 checkpair", melt_magic_discr((melt_ptr_t)(/*_.CINTBIND__V42*/ meltfptr[41]))== MELTOBMAG_PAIR);
52136                         ((meltpair_ptr_t)(/*_.CINTBIND__V42*/ meltfptr[41]))->hd = (melt_ptr_t) (/*_.CINTBIND__V38*/ meltfptr[37]);
52137                         ;
52138                         /*^touch*/
52139                         meltgc_touch(/*_.CINTBIND__V42*/ meltfptr[41]);
52140                         ;
52141                         /*^putlist*/
52142                         /*putlist*/
52143                         melt_assertmsg("putlist checklist", melt_magic_discr((melt_ptr_t)(/*_.LIST___V43*/ meltfptr[42]))== MELTOBMAG_LIST);
52144                         ((meltlist_ptr_t)(/*_.LIST___V43*/ meltfptr[42]))->first = (meltpair_ptr_t) (/*_.CINTBIND__V42*/ meltfptr[41]);
52145                         ((meltlist_ptr_t)(/*_.LIST___V43*/ meltfptr[42]))->last = (meltpair_ptr_t) (/*_.CINTBIND__V42*/ meltfptr[41]);
52146                         ;
52147                         /*^touch*/
52148                         meltgc_touch(/*_.LIST___V43*/ meltfptr[42]);
52149                         ;
52150                         /*_.LIST___V41*/
52151                         meltfptr[40] = /*_.LIST___V43*/ meltfptr[42];;
52152                         /*epilog*/
52153
52154                         MELT_LOCATION("warmelt-normal.melt:3627:/ clear");
52155                         /*clear*/ /*_.CINTBIND__V42*/
52156                         meltfptr[41] = 0 ;
52157                         /*^clear*/
52158                         /*clear*/ /*_.LIST___V43*/
52159                         meltfptr[42] = 0 ;
52160                         /*^clear*/
52161                         /*clear*/ /*_.CINTBIND__V42*/
52162                         meltfptr[41] = 0 ;
52163                         /*^clear*/
52164                         /*clear*/ /*_.LIST___V43*/
52165                         meltfptr[42] = 0 ;
52166                     } /*end multiallocblock*/
52167                     ;
52168                     /*^compute*/
52169                     /*_.NBINDIF__V28*/
52170                     meltfptr[27] = /*_.SETQ___V44*/ meltfptr[41] = /*_.LIST___V41*/ meltfptr[40];;
52171                     /*_._IFELSE___V40*/
52172                     meltfptr[39] = /*_.SETQ___V44*/ meltfptr[41];;
52173                     /*epilog*/
52174
52175                     MELT_LOCATION("warmelt-normal.melt:3625:/ clear");
52176                     /*clear*/ /*_.LIST___V41*/
52177                     meltfptr[40] = 0 ;
52178                     /*^clear*/
52179                     /*clear*/ /*_.SETQ___V44*/
52180                     meltfptr[41] = 0 ;
52181                 }
52182                 ;
52183             }
52184         ;
52185         /*_.LET___V34*/
52186         meltfptr[32] = /*_._IFELSE___V40*/ meltfptr[39];;
52187
52188         MELT_LOCATION("warmelt-normal.melt:3617:/ clear");
52189         /*clear*/ /*_.CINTSYMB__V35*/
52190         meltfptr[28] = 0 ;
52191         /*^clear*/
52192         /*clear*/ /*_.NCHINT__V36*/
52193         meltfptr[35] = 0 ;
52194         /*^clear*/
52195         /*clear*/ /*_.CINTBIND__V38*/
52196         meltfptr[37] = 0 ;
52197         /*^clear*/
52198         /*clear*/ /*_#IS_LIST__L11*/
52199         meltfnum[1] = 0 ;
52200         /*^clear*/
52201         /*clear*/ /*_._IFELSE___V40*/
52202         meltfptr[39] = 0 ;
52203
52204 #if MELT_HAVE_DEBUG
52205         MELT_LOCATION("warmelt-normal.melt:3632:/ cppif.then");
52206         /*^block*/
52207         /*anyblock*/
52208         {
52209
52210
52211             {
52212                 /*^locexp*/
52213                 /*melt_increment_dbgcounter*/
52214 #if MELT_HAVE_DEBUG
52215                 melt_dbgcounter++;
52216 #endif
52217                 ;
52218             }
52219             ;
52220
52221             MELT_CHECK_SIGNAL();
52222             ;
52223             /*_#MELT_NEED_DBG__L12*/
52224             meltfnum[0] =
52225                 /*MELT_NEED_DBG*/
52226 #if MELT_HAVE_DEBUG
52227                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
52228 #else
52229                 0 /* no melt_need_dbg */
52230 #endif /*MELT_HAVE_DEBUG*/
52231                 ;;
52232             MELT_LOCATION("warmelt-normal.melt:3632:/ cond");
52233             /*cond*/
52234             if (/*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then*/
52235                 {
52236                     /*^cond.then*/
52237                     /*^block*/
52238                     /*anyblock*/
52239                     {
52240
52241                         /*_#MELT_CALLCOUNT__L13*/ meltfnum[1] =
52242                             /* for melt_callcount */
52243 #if MELT_HAVE_DEBUG && defined (meltcallcount)
52244                             meltcallcount  /* melt_callcount debugging */
52245 #else
52246                             0L  /* melt_callcount without debug */
52247 #endif /* MELT_HAVE_DEBUG melt_callcount */
52248                             ;;
52249
52250                         MELT_CHECK_SIGNAL();
52251                         ;
52252                         MELT_LOCATION("warmelt-normal.melt:3632:/ apply");
52253                         /*apply*/
52254                         {
52255                             union meltparam_un argtab[8];
52256                             memset(&argtab, 0, sizeof(argtab));
52257                             /*^apply.arg*/
52258                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L13*/ meltfnum[1];
52259                             /*^apply.arg*/
52260                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
52261                             /*^apply.arg*/
52262                             argtab[2].meltbp_long = 3632;
52263                             /*^apply.arg*/
52264                             argtab[3].meltbp_cstring =  "normexp_ifelse sloc=";
52265                             /*^apply.arg*/
52266                             argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[2]);
52267                             /*^apply.arg*/
52268                             argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[7];
52269                             /*^apply.arg*/
52270                             argtab[6].meltbp_cstring =  "; sthen=";
52271                             /*^apply.arg*/
52272                             argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.STHEN__V22*/ meltfptr[21];
52273                             /*_.MELT_DEBUG_FUN__V46*/
52274                             meltfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
52275                         }
52276                         ;
52277                         /*_._IF___V45*/
52278                         meltfptr[42] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[40];;
52279                         /*epilog*/
52280
52281                         MELT_LOCATION("warmelt-normal.melt:3632:/ clear");
52282                         /*clear*/ /*_#MELT_CALLCOUNT__L13*/
52283                         meltfnum[1] = 0 ;
52284                         /*^clear*/
52285                         /*clear*/ /*_.MELT_DEBUG_FUN__V46*/
52286                         meltfptr[40] = 0 ;
52287                     }
52288                     ;
52289                 }
52290             else    /*^cond.else*/
52291                 {
52292
52293                     /*_._IF___V45*/ meltfptr[42] =  /*reallynil*/ NULL ;;
52294                 }
52295             ;
52296
52297             {
52298                 MELT_LOCATION("warmelt-normal.melt:3632:/ locexp");
52299                 /*void*/
52300                 (void)0;
52301             }
52302             ;
52303             /*^quasiblock*/
52304
52305
52306             /*epilog*/
52307
52308             /*^clear*/
52309             /*clear*/ /*_#MELT_NEED_DBG__L12*/
52310             meltfnum[0] = 0 ;
52311             /*^clear*/
52312             /*clear*/ /*_._IF___V45*/
52313             meltfptr[42] = 0 ;
52314         }
52315
52316 #else /*MELT_HAVE_DEBUG*/
52317         /*^cppif.else*/
52318         /*^block*/
52319         /*anyblock*/
52320         {
52321
52322
52323             {
52324                 /*^locexp*/
52325                 /*void*/(void)0;
52326             }
52327             ;
52328             /*epilog*/
52329         }
52330
52331 #endif /*MELT_HAVE_DEBUG*/
52332         ;
52333
52334         MELT_CHECK_SIGNAL();
52335         ;
52336         MELT_LOCATION("warmelt-normal.melt:3633:/ quasiblock");
52337
52338
52339         /*^multimsend*/
52340         /*multimsend*/
52341         {
52342             union meltparam_un argtab[3];
52343             union meltparam_un restab[1];
52344             memset(&argtab, 0, sizeof(argtab));
52345             memset(&restab, 0, sizeof(restab));
52346             /*^multimsend.arg*/
52347             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multimsend.arg*/
52348             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multimsend.arg*/
52349             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[7];
52350             /*^multimsend.xres*/
52351             restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDTHEN__V49*/ meltfptr[35];/*^multimsend.send*/
52352             /*_.NTHEN__V48*/
52353             meltfptr[28] =  meltgc_send ((melt_ptr_t)(/*_.STHEN__V22*/ meltfptr[21]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[8]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
52354         }
52355         ;
52356         /*^quasiblock*/
52357
52358
52359
52360 #if MELT_HAVE_DEBUG
52361         MELT_LOCATION("warmelt-normal.melt:3636:/ cppif.then");
52362         /*^block*/
52363         /*anyblock*/
52364         {
52365
52366
52367             {
52368                 /*^locexp*/
52369                 /*melt_increment_dbgcounter*/
52370 #if MELT_HAVE_DEBUG
52371                 melt_dbgcounter++;
52372 #endif
52373                 ;
52374             }
52375             ;
52376
52377             MELT_CHECK_SIGNAL();
52378             ;
52379             /*_#MELT_NEED_DBG__L14*/
52380             meltfnum[1] =
52381                 /*MELT_NEED_DBG*/
52382 #if MELT_HAVE_DEBUG
52383                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
52384 #else
52385                 0 /* no melt_need_dbg */
52386 #endif /*MELT_HAVE_DEBUG*/
52387                 ;;
52388             MELT_LOCATION("warmelt-normal.melt:3636:/ cond");
52389             /*cond*/
52390             if (/*_#MELT_NEED_DBG__L14*/ meltfnum[1]) /*then*/
52391                 {
52392                     /*^cond.then*/
52393                     /*^block*/
52394                     /*anyblock*/
52395                     {
52396
52397                         /*_#MELT_CALLCOUNT__L15*/ meltfnum[0] =
52398                             /* for melt_callcount */
52399 #if MELT_HAVE_DEBUG && defined (meltcallcount)
52400                             meltcallcount  /* melt_callcount debugging */
52401 #else
52402                             0L  /* melt_callcount without debug */
52403 #endif /* MELT_HAVE_DEBUG melt_callcount */
52404                             ;;
52405
52406                         MELT_CHECK_SIGNAL();
52407                         ;
52408                         MELT_LOCATION("warmelt-normal.melt:3636:/ apply");
52409                         /*apply*/
52410                         {
52411                             union meltparam_un argtab[7];
52412                             memset(&argtab, 0, sizeof(argtab));
52413                             /*^apply.arg*/
52414                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L15*/ meltfnum[0];
52415                             /*^apply.arg*/
52416                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
52417                             /*^apply.arg*/
52418                             argtab[2].meltbp_long = 3636;
52419                             /*^apply.arg*/
52420                             argtab[3].meltbp_cstring =  "normexp_ifelse nthen=";
52421                             /*^apply.arg*/
52422                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NTHEN__V48*/ meltfptr[28];
52423                             /*^apply.arg*/
52424                             argtab[5].meltbp_cstring =  " nbindthen=";
52425                             /*^apply.arg*/
52426                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDTHEN__V49*/ meltfptr[35];
52427                             /*_.MELT_DEBUG_FUN__V51*/
52428                             meltfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
52429                         }
52430                         ;
52431                         /*_._IF___V50*/
52432                         meltfptr[37] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[39];;
52433                         /*epilog*/
52434
52435                         MELT_LOCATION("warmelt-normal.melt:3636:/ clear");
52436                         /*clear*/ /*_#MELT_CALLCOUNT__L15*/
52437                         meltfnum[0] = 0 ;
52438                         /*^clear*/
52439                         /*clear*/ /*_.MELT_DEBUG_FUN__V51*/
52440                         meltfptr[39] = 0 ;
52441                     }
52442                     ;
52443                 }
52444             else    /*^cond.else*/
52445                 {
52446
52447                     /*_._IF___V50*/ meltfptr[37] =  /*reallynil*/ NULL ;;
52448                 }
52449             ;
52450
52451             {
52452                 MELT_LOCATION("warmelt-normal.melt:3636:/ locexp");
52453                 /*void*/
52454                 (void)0;
52455             }
52456             ;
52457             /*^quasiblock*/
52458
52459
52460             /*epilog*/
52461
52462             /*^clear*/
52463             /*clear*/ /*_#MELT_NEED_DBG__L14*/
52464             meltfnum[1] = 0 ;
52465             /*^clear*/
52466             /*clear*/ /*_._IF___V50*/
52467             meltfptr[37] = 0 ;
52468         }
52469
52470 #else /*MELT_HAVE_DEBUG*/
52471         /*^cppif.else*/
52472         /*^block*/
52473         /*anyblock*/
52474         {
52475
52476
52477             {
52478                 /*^locexp*/
52479                 /*void*/(void)0;
52480             }
52481             ;
52482             /*epilog*/
52483         }
52484
52485 #endif /*MELT_HAVE_DEBUG*/
52486         ;
52487
52488 #if MELT_HAVE_DEBUG
52489         MELT_LOCATION("warmelt-normal.melt:3637:/ cppif.then");
52490         /*^block*/
52491         /*anyblock*/
52492         {
52493
52494
52495             MELT_CHECK_SIGNAL();
52496             ;
52497             /*_#IS_LIST_OR_NULL__L16*/
52498             meltfnum[0] =
52499                 ((/*_.NBINDTHEN__V49*/ meltfptr[35]) == NULL
52500                  || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDTHEN__V49*/ meltfptr[35])) == MELTOBMAG_LIST));;
52501             MELT_LOCATION("warmelt-normal.melt:3637:/ cond");
52502             /*cond*/
52503             if (/*_#IS_LIST_OR_NULL__L16*/ meltfnum[0]) /*then*/
52504                 {
52505                     /*^cond.then*/
52506                     /*_._IFELSE___V53*/ meltfptr[42] = (/*nil*/NULL);;
52507                 }
52508             else
52509                 {
52510                     MELT_LOCATION("warmelt-normal.melt:3637:/ cond.else");
52511
52512                     /*^block*/
52513                     /*anyblock*/
52514                     {
52515
52516
52517                         MELT_CHECK_SIGNAL();
52518                         ;
52519                         /*^apply*/
52520                         /*apply*/
52521                         {
52522                             union meltparam_un argtab[4];
52523                             memset(&argtab, 0, sizeof(argtab));
52524                             /*^apply.arg*/
52525                             argtab[0].meltbp_cstring =  "check nbindthen";
52526                             /*^apply.arg*/
52527                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
52528                             /*^apply.arg*/
52529                             argtab[2].meltbp_long = 3637;
52530                             /*^apply.arg*/
52531                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDTHEN__V49*/ meltfptr[35];
52532                             /*_.MELT_ASSERT_FAILURE_FUN__V54*/
52533                             meltfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
52534                         }
52535                         ;
52536                         /*_._IFELSE___V53*/
52537                         meltfptr[42] = /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[39];;
52538                         /*epilog*/
52539
52540                         MELT_LOCATION("warmelt-normal.melt:3637:/ clear");
52541                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V54*/
52542                         meltfptr[39] = 0 ;
52543                     }
52544                     ;
52545                 }
52546             ;
52547             /*_.IFCPP___V52*/
52548             meltfptr[40] = /*_._IFELSE___V53*/ meltfptr[42];;
52549             /*epilog*/
52550
52551             MELT_LOCATION("warmelt-normal.melt:3637:/ clear");
52552             /*clear*/ /*_#IS_LIST_OR_NULL__L16*/
52553             meltfnum[0] = 0 ;
52554             /*^clear*/
52555             /*clear*/ /*_._IFELSE___V53*/
52556             meltfptr[42] = 0 ;
52557         }
52558
52559 #else /*MELT_HAVE_DEBUG*/
52560         /*^cppif.else*/
52561         /*_.IFCPP___V52*/ meltfptr[40] = (/*nil*/NULL);
52562 #endif /*MELT_HAVE_DEBUG*/
52563         ;
52564         MELT_LOCATION("warmelt-normal.melt:3638:/ quasiblock");
52565
52566
52567
52568         MELT_CHECK_SIGNAL();
52569         ;
52570         /*^apply*/
52571         /*apply*/
52572         {
52573             /*_.NEWTHENENV__V56*/ meltfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
52574         }
52575         ;
52576
52577 #if MELT_HAVE_DEBUG
52578         MELT_LOCATION("warmelt-normal.melt:3639:/ cppif.then");
52579         /*^block*/
52580         /*anyblock*/
52581         {
52582
52583
52584             {
52585                 /*^locexp*/
52586                 /*melt_increment_dbgcounter*/
52587 #if MELT_HAVE_DEBUG
52588                 melt_dbgcounter++;
52589 #endif
52590                 ;
52591             }
52592             ;
52593
52594             MELT_CHECK_SIGNAL();
52595             ;
52596             /*_#MELT_NEED_DBG__L17*/
52597             meltfnum[1] =
52598                 /*MELT_NEED_DBG*/
52599 #if MELT_HAVE_DEBUG
52600                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
52601 #else
52602                 0 /* no melt_need_dbg */
52603 #endif /*MELT_HAVE_DEBUG*/
52604                 ;;
52605             MELT_LOCATION("warmelt-normal.melt:3639:/ cond");
52606             /*cond*/
52607             if (/*_#MELT_NEED_DBG__L17*/ meltfnum[1]) /*then*/
52608                 {
52609                     /*^cond.then*/
52610                     /*^block*/
52611                     /*anyblock*/
52612                     {
52613
52614                         /*_#MELT_CALLCOUNT__L18*/ meltfnum[0] =
52615                             /* for melt_callcount */
52616 #if MELT_HAVE_DEBUG && defined (meltcallcount)
52617                             meltcallcount  /* melt_callcount debugging */
52618 #else
52619                             0L  /* melt_callcount without debug */
52620 #endif /* MELT_HAVE_DEBUG melt_callcount */
52621                             ;;
52622
52623                         MELT_CHECK_SIGNAL();
52624                         ;
52625                         MELT_LOCATION("warmelt-normal.melt:3639:/ apply");
52626                         /*apply*/
52627                         {
52628                             union meltparam_un argtab[8];
52629                             memset(&argtab, 0, sizeof(argtab));
52630                             /*^apply.arg*/
52631                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L18*/ meltfnum[0];
52632                             /*^apply.arg*/
52633                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
52634                             /*^apply.arg*/
52635                             argtab[2].meltbp_long = 3639;
52636                             /*^apply.arg*/
52637                             argtab[3].meltbp_cstring =  "normexp_ifelse sloc=";
52638                             /*^apply.arg*/
52639                             argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[2]);
52640                             /*^apply.arg*/
52641                             argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[7];
52642                             /*^apply.arg*/
52643                             argtab[6].meltbp_cstring =  "; newthenenv=";
52644                             /*^apply.arg*/
52645                             argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.NEWTHENENV__V56*/ meltfptr[39];
52646                             /*_.MELT_DEBUG_FUN__V58*/
52647                             meltfptr[57] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
52648                         }
52649                         ;
52650                         /*_._IF___V57*/
52651                         meltfptr[42] = /*_.MELT_DEBUG_FUN__V58*/ meltfptr[57];;
52652                         /*epilog*/
52653
52654                         MELT_LOCATION("warmelt-normal.melt:3639:/ clear");
52655                         /*clear*/ /*_#MELT_CALLCOUNT__L18*/
52656                         meltfnum[0] = 0 ;
52657                         /*^clear*/
52658                         /*clear*/ /*_.MELT_DEBUG_FUN__V58*/
52659                         meltfptr[57] = 0 ;
52660                     }
52661                     ;
52662                 }
52663             else    /*^cond.else*/
52664                 {
52665
52666                     /*_._IF___V57*/ meltfptr[42] =  /*reallynil*/ NULL ;;
52667                 }
52668             ;
52669
52670             {
52671                 MELT_LOCATION("warmelt-normal.melt:3639:/ locexp");
52672                 /*void*/
52673                 (void)0;
52674             }
52675             ;
52676             /*^quasiblock*/
52677
52678
52679             /*epilog*/
52680
52681             /*^clear*/
52682             /*clear*/ /*_#MELT_NEED_DBG__L17*/
52683             meltfnum[1] = 0 ;
52684             /*^clear*/
52685             /*clear*/ /*_._IF___V57*/
52686             meltfptr[42] = 0 ;
52687         }
52688
52689 #else /*MELT_HAVE_DEBUG*/
52690         /*^cppif.else*/
52691         /*^block*/
52692         /*anyblock*/
52693         {
52694
52695
52696             {
52697                 /*^locexp*/
52698                 /*void*/(void)0;
52699             }
52700             ;
52701             /*epilog*/
52702         }
52703
52704 #endif /*MELT_HAVE_DEBUG*/
52705         ;
52706         MELT_LOCATION("warmelt-normal.melt:3642:/ quasiblock");
52707
52708
52709         /*^newclosure*/
52710         /*newclosure*/ /*_.LAMBDA___V60*/
52711         meltfptr[42] =
52712             (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_16*/ meltfrout->tabval[16])), (1));
52713         ;
52714         /*^putclosedv*/
52715         /*putclosv*/
52716         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V60*/ meltfptr[42])) == MELTOBMAG_CLOSURE);
52717         melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V60*/ meltfptr[42])));
52718         ((meltclosure_ptr_t)/*_.LAMBDA___V60*/ meltfptr[42])->tabval[0] = (melt_ptr_t)(/*_.NEWTHENENV__V56*/ meltfptr[39]);
52719         ;
52720         /*_.LAMBDA___V59*/
52721         meltfptr[57] = /*_.LAMBDA___V60*/ meltfptr[42];;
52722
52723         MELT_CHECK_SIGNAL();
52724         ;
52725         MELT_LOCATION("warmelt-normal.melt:3640:/ apply");
52726         /*apply*/
52727         {
52728             union meltparam_un argtab[1];
52729             memset(&argtab, 0, sizeof(argtab));
52730             /*^apply.arg*/
52731             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V59*/ meltfptr[57];
52732             /*_.LIST_EVERY__V61*/
52733             meltfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NBINDTHEN__V49*/ meltfptr[35]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
52734         }
52735         ;
52736
52737         MELT_CHECK_SIGNAL();
52738         ;
52739         MELT_LOCATION("warmelt-normal.melt:3644:/ msend");
52740         /*msend*/
52741         {
52742             union meltparam_un argtab[1];
52743             memset(&argtab, 0, sizeof(argtab));
52744             /*^ojbmsend.arg*/
52745             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWTHENENV__V56*/ meltfptr[39];
52746             /*_.GET_CTYPE__V62*/
52747             meltfptr[61] = meltgc_send((melt_ptr_t)(/*_.NTHEN__V48*/ meltfptr[28]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[17])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
52748         }
52749         ;
52750         /*^compute*/
52751         /*_.CTYPIF__V21*/
52752         meltfptr[20] = /*_.SETQ___V63*/ meltfptr[62] = /*_.GET_CTYPE__V62*/ meltfptr[61];;
52753
52754 #if MELT_HAVE_DEBUG
52755         MELT_LOCATION("warmelt-normal.melt:3645:/ cppif.then");
52756         /*^block*/
52757         /*anyblock*/
52758         {
52759
52760
52761             {
52762                 /*^locexp*/
52763                 /*melt_increment_dbgcounter*/
52764 #if MELT_HAVE_DEBUG
52765                 melt_dbgcounter++;
52766 #endif
52767                 ;
52768             }
52769             ;
52770
52771             MELT_CHECK_SIGNAL();
52772             ;
52773             /*_#MELT_NEED_DBG__L19*/
52774             meltfnum[0] =
52775                 /*MELT_NEED_DBG*/
52776 #if MELT_HAVE_DEBUG
52777                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
52778 #else
52779                 0 /* no melt_need_dbg */
52780 #endif /*MELT_HAVE_DEBUG*/
52781                 ;;
52782             MELT_LOCATION("warmelt-normal.melt:3645:/ cond");
52783             /*cond*/
52784             if (/*_#MELT_NEED_DBG__L19*/ meltfnum[0]) /*then*/
52785                 {
52786                     /*^cond.then*/
52787                     /*^block*/
52788                     /*anyblock*/
52789                     {
52790
52791                         /*_#MELT_CALLCOUNT__L20*/ meltfnum[1] =
52792                             /* for melt_callcount */
52793 #if MELT_HAVE_DEBUG && defined (meltcallcount)
52794                             meltcallcount  /* melt_callcount debugging */
52795 #else
52796                             0L  /* melt_callcount without debug */
52797 #endif /* MELT_HAVE_DEBUG melt_callcount */
52798                             ;;
52799
52800                         MELT_CHECK_SIGNAL();
52801                         ;
52802                         MELT_LOCATION("warmelt-normal.melt:3645:/ apply");
52803                         /*apply*/
52804                         {
52805                             union meltparam_un argtab[8];
52806                             memset(&argtab, 0, sizeof(argtab));
52807                             /*^apply.arg*/
52808                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L20*/ meltfnum[1];
52809                             /*^apply.arg*/
52810                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
52811                             /*^apply.arg*/
52812                             argtab[2].meltbp_long = 3645;
52813                             /*^apply.arg*/
52814                             argtab[3].meltbp_cstring =  "normexp_ifelse sloc=";
52815                             /*^apply.arg*/
52816                             argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[2]);
52817                             /*^apply.arg*/
52818                             argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[7];
52819                             /*^apply.arg*/
52820                             argtab[6].meltbp_cstring =  "; selse=";
52821                             /*^apply.arg*/
52822                             argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.SELSE__V23*/ meltfptr[22];
52823                             /*_.MELT_DEBUG_FUN__V65*/
52824                             meltfptr[64] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
52825                         }
52826                         ;
52827                         /*_._IF___V64*/
52828                         meltfptr[63] = /*_.MELT_DEBUG_FUN__V65*/ meltfptr[64];;
52829                         /*epilog*/
52830
52831                         MELT_LOCATION("warmelt-normal.melt:3645:/ clear");
52832                         /*clear*/ /*_#MELT_CALLCOUNT__L20*/
52833                         meltfnum[1] = 0 ;
52834                         /*^clear*/
52835                         /*clear*/ /*_.MELT_DEBUG_FUN__V65*/
52836                         meltfptr[64] = 0 ;
52837                     }
52838                     ;
52839                 }
52840             else    /*^cond.else*/
52841                 {
52842
52843                     /*_._IF___V64*/ meltfptr[63] =  /*reallynil*/ NULL ;;
52844                 }
52845             ;
52846
52847             {
52848                 MELT_LOCATION("warmelt-normal.melt:3645:/ locexp");
52849                 /*void*/
52850                 (void)0;
52851             }
52852             ;
52853             /*^quasiblock*/
52854
52855
52856             /*epilog*/
52857
52858             /*^clear*/
52859             /*clear*/ /*_#MELT_NEED_DBG__L19*/
52860             meltfnum[0] = 0 ;
52861             /*^clear*/
52862             /*clear*/ /*_._IF___V64*/
52863             meltfptr[63] = 0 ;
52864         }
52865
52866 #else /*MELT_HAVE_DEBUG*/
52867         /*^cppif.else*/
52868         /*^block*/
52869         /*anyblock*/
52870         {
52871
52872
52873             {
52874                 /*^locexp*/
52875                 /*void*/(void)0;
52876             }
52877             ;
52878             /*epilog*/
52879         }
52880
52881 #endif /*MELT_HAVE_DEBUG*/
52882         ;
52883
52884         MELT_CHECK_SIGNAL();
52885         ;
52886         MELT_LOCATION("warmelt-normal.melt:3646:/ quasiblock");
52887
52888
52889         /*^multimsend*/
52890         /*multimsend*/
52891         {
52892             union meltparam_un argtab[3];
52893             union meltparam_un restab[1];
52894             memset(&argtab, 0, sizeof(argtab));
52895             memset(&restab, 0, sizeof(restab));
52896             /*^multimsend.arg*/
52897             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multimsend.arg*/
52898             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multimsend.arg*/
52899             argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[7];
52900             /*^multimsend.xres*/
52901             restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDELSE__V68*/ meltfptr[67];/*^multimsend.send*/
52902             /*_.NELSE__V67*/
52903             meltfptr[63] =  meltgc_send ((melt_ptr_t)(/*_.SELSE__V23*/ meltfptr[22]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[8]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab);
52904         }
52905         ;
52906         /*^quasiblock*/
52907
52908
52909
52910 #if MELT_HAVE_DEBUG
52911         MELT_LOCATION("warmelt-normal.melt:3649:/ cppif.then");
52912         /*^block*/
52913         /*anyblock*/
52914         {
52915
52916
52917             {
52918                 /*^locexp*/
52919                 /*melt_increment_dbgcounter*/
52920 #if MELT_HAVE_DEBUG
52921                 melt_dbgcounter++;
52922 #endif
52923                 ;
52924             }
52925             ;
52926
52927             MELT_CHECK_SIGNAL();
52928             ;
52929             /*_#MELT_NEED_DBG__L21*/
52930             meltfnum[1] =
52931                 /*MELT_NEED_DBG*/
52932 #if MELT_HAVE_DEBUG
52933                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
52934 #else
52935                 0 /* no melt_need_dbg */
52936 #endif /*MELT_HAVE_DEBUG*/
52937                 ;;
52938             MELT_LOCATION("warmelt-normal.melt:3649:/ cond");
52939             /*cond*/
52940             if (/*_#MELT_NEED_DBG__L21*/ meltfnum[1]) /*then*/
52941                 {
52942                     /*^cond.then*/
52943                     /*^block*/
52944                     /*anyblock*/
52945                     {
52946
52947                         /*_#MELT_CALLCOUNT__L22*/ meltfnum[0] =
52948                             /* for melt_callcount */
52949 #if MELT_HAVE_DEBUG && defined (meltcallcount)
52950                             meltcallcount  /* melt_callcount debugging */
52951 #else
52952                             0L  /* melt_callcount without debug */
52953 #endif /* MELT_HAVE_DEBUG melt_callcount */
52954                             ;;
52955
52956                         MELT_CHECK_SIGNAL();
52957                         ;
52958                         MELT_LOCATION("warmelt-normal.melt:3649:/ apply");
52959                         /*apply*/
52960                         {
52961                             union meltparam_un argtab[7];
52962                             memset(&argtab, 0, sizeof(argtab));
52963                             /*^apply.arg*/
52964                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L22*/ meltfnum[0];
52965                             /*^apply.arg*/
52966                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
52967                             /*^apply.arg*/
52968                             argtab[2].meltbp_long = 3649;
52969                             /*^apply.arg*/
52970                             argtab[3].meltbp_cstring =  "normexp_ifelse nelse=";
52971                             /*^apply.arg*/
52972                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NELSE__V67*/ meltfptr[63];
52973                             /*^apply.arg*/
52974                             argtab[5].meltbp_cstring =  " nbindelse=";
52975                             /*^apply.arg*/
52976                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDELSE__V68*/ meltfptr[67];
52977                             /*_.MELT_DEBUG_FUN__V70*/
52978                             meltfptr[69] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
52979                         }
52980                         ;
52981                         /*_._IF___V69*/
52982                         meltfptr[68] = /*_.MELT_DEBUG_FUN__V70*/ meltfptr[69];;
52983                         /*epilog*/
52984
52985                         MELT_LOCATION("warmelt-normal.melt:3649:/ clear");
52986                         /*clear*/ /*_#MELT_CALLCOUNT__L22*/
52987                         meltfnum[0] = 0 ;
52988                         /*^clear*/
52989                         /*clear*/ /*_.MELT_DEBUG_FUN__V70*/
52990                         meltfptr[69] = 0 ;
52991                     }
52992                     ;
52993                 }
52994             else    /*^cond.else*/
52995                 {
52996
52997                     /*_._IF___V69*/ meltfptr[68] =  /*reallynil*/ NULL ;;
52998                 }
52999             ;
53000
53001             {
53002                 MELT_LOCATION("warmelt-normal.melt:3649:/ locexp");
53003                 /*void*/
53004                 (void)0;
53005             }
53006             ;
53007             /*^quasiblock*/
53008
53009
53010             /*epilog*/
53011
53012             /*^clear*/
53013             /*clear*/ /*_#MELT_NEED_DBG__L21*/
53014             meltfnum[1] = 0 ;
53015             /*^clear*/
53016             /*clear*/ /*_._IF___V69*/
53017             meltfptr[68] = 0 ;
53018         }
53019
53020 #else /*MELT_HAVE_DEBUG*/
53021         /*^cppif.else*/
53022         /*^block*/
53023         /*anyblock*/
53024         {
53025
53026
53027             {
53028                 /*^locexp*/
53029                 /*void*/(void)0;
53030             }
53031             ;
53032             /*epilog*/
53033         }
53034
53035 #endif /*MELT_HAVE_DEBUG*/
53036         ;
53037
53038 #if MELT_HAVE_DEBUG
53039         MELT_LOCATION("warmelt-normal.melt:3650:/ cppif.then");
53040         /*^block*/
53041         /*anyblock*/
53042         {
53043
53044
53045             MELT_CHECK_SIGNAL();
53046             ;
53047             /*_#IS_LIST_OR_NULL__L23*/
53048             meltfnum[0] =
53049                 ((/*_.NBINDELSE__V68*/ meltfptr[67]) == NULL
53050                  || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDELSE__V68*/ meltfptr[67])) == MELTOBMAG_LIST));;
53051             MELT_LOCATION("warmelt-normal.melt:3650:/ cond");
53052             /*cond*/
53053             if (/*_#IS_LIST_OR_NULL__L23*/ meltfnum[0]) /*then*/
53054                 {
53055                     /*^cond.then*/
53056                     /*_._IFELSE___V72*/ meltfptr[68] = (/*nil*/NULL);;
53057                 }
53058             else
53059                 {
53060                     MELT_LOCATION("warmelt-normal.melt:3650:/ cond.else");
53061
53062                     /*^block*/
53063                     /*anyblock*/
53064                     {
53065
53066
53067                         MELT_CHECK_SIGNAL();
53068                         ;
53069                         /*^apply*/
53070                         /*apply*/
53071                         {
53072                             union meltparam_un argtab[4];
53073                             memset(&argtab, 0, sizeof(argtab));
53074                             /*^apply.arg*/
53075                             argtab[0].meltbp_cstring =  "check nbindelse";
53076                             /*^apply.arg*/
53077                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
53078                             /*^apply.arg*/
53079                             argtab[2].meltbp_long = 3650;
53080                             /*^apply.arg*/
53081                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDELSE__V68*/ meltfptr[67];
53082                             /*_.MELT_ASSERT_FAILURE_FUN__V73*/
53083                             meltfptr[72] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
53084                         }
53085                         ;
53086                         /*_._IFELSE___V72*/
53087                         meltfptr[68] = /*_.MELT_ASSERT_FAILURE_FUN__V73*/ meltfptr[72];;
53088                         /*epilog*/
53089
53090                         MELT_LOCATION("warmelt-normal.melt:3650:/ clear");
53091                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V73*/
53092                         meltfptr[72] = 0 ;
53093                     }
53094                     ;
53095                 }
53096             ;
53097             /*_.IFCPP___V71*/
53098             meltfptr[69] = /*_._IFELSE___V72*/ meltfptr[68];;
53099             /*epilog*/
53100
53101             MELT_LOCATION("warmelt-normal.melt:3650:/ clear");
53102             /*clear*/ /*_#IS_LIST_OR_NULL__L23*/
53103             meltfnum[0] = 0 ;
53104             /*^clear*/
53105             /*clear*/ /*_._IFELSE___V72*/
53106             meltfptr[68] = 0 ;
53107         }
53108
53109 #else /*MELT_HAVE_DEBUG*/
53110         /*^cppif.else*/
53111         /*_.IFCPP___V71*/ meltfptr[69] = (/*nil*/NULL);
53112 #endif /*MELT_HAVE_DEBUG*/
53113         ;
53114         MELT_LOCATION("warmelt-normal.melt:3653:/ quasiblock");
53115
53116
53117         /*^quasiblock*/
53118
53119
53120
53121         MELT_CHECK_SIGNAL();
53122         ;
53123         /*^apply*/
53124         /*apply*/
53125         {
53126             /*_.NENV__V76*/ meltfptr[75] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
53127         }
53128         ;
53129         MELT_LOCATION("warmelt-normal.melt:3656:/ quasiblock");
53130
53131
53132         /*^newclosure*/
53133         /*newclosure*/ /*_.LAMBDA___V78*/
53134         meltfptr[77] =
53135             (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_19*/ meltfrout->tabval[19])), (1));
53136         ;
53137         /*^putclosedv*/
53138         /*putclosv*/
53139         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V78*/ meltfptr[77])) == MELTOBMAG_CLOSURE);
53140         melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V78*/ meltfptr[77])));
53141         ((meltclosure_ptr_t)/*_.LAMBDA___V78*/ meltfptr[77])->tabval[0] = (melt_ptr_t)(/*_.NENV__V76*/ meltfptr[75]);
53142         ;
53143         /*_.LAMBDA___V77*/
53144         meltfptr[76] = /*_.LAMBDA___V78*/ meltfptr[77];;
53145
53146         MELT_CHECK_SIGNAL();
53147         ;
53148         MELT_LOCATION("warmelt-normal.melt:3654:/ apply");
53149         /*apply*/
53150         {
53151             union meltparam_un argtab[1];
53152             memset(&argtab, 0, sizeof(argtab));
53153             /*^apply.arg*/
53154             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V77*/ meltfptr[76];
53155             /*_.LIST_EVERY__V79*/
53156             meltfptr[78] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.NBINDELSE__V68*/ meltfptr[67]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
53157         }
53158         ;
53159         /*_.LET___V75*/
53160         meltfptr[68] = /*_.NENV__V76*/ meltfptr[75];;
53161
53162         MELT_LOCATION("warmelt-normal.melt:3653:/ clear");
53163         /*clear*/ /*_.NENV__V76*/
53164         meltfptr[75] = 0 ;
53165         /*^clear*/
53166         /*clear*/ /*_.LAMBDA___V77*/
53167         meltfptr[76] = 0 ;
53168         /*^clear*/
53169         /*clear*/ /*_.LIST_EVERY__V79*/
53170         meltfptr[78] = 0 ;
53171         /*_.NEWELSEENV__V80*/
53172         meltfptr[75] = /*_.LET___V75*/ meltfptr[68];;
53173
53174         MELT_CHECK_SIGNAL();
53175         ;
53176         MELT_LOCATION("warmelt-normal.melt:3659:/ msend");
53177         /*msend*/
53178         {
53179             union meltparam_un argtab[1];
53180             memset(&argtab, 0, sizeof(argtab));
53181             /*^ojbmsend.arg*/
53182             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWELSEENV__V80*/ meltfptr[75];
53183             /*_.CTYPELSE__V81*/
53184             meltfptr[76] = meltgc_send((melt_ptr_t)(/*_.NELSE__V67*/ meltfptr[63]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[17])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
53185         }
53186         ;
53187
53188 #if MELT_HAVE_DEBUG
53189         MELT_LOCATION("warmelt-normal.melt:3661:/ cppif.then");
53190         /*^block*/
53191         /*anyblock*/
53192         {
53193
53194
53195             {
53196                 /*^locexp*/
53197                 /*melt_increment_dbgcounter*/
53198 #if MELT_HAVE_DEBUG
53199                 melt_dbgcounter++;
53200 #endif
53201                 ;
53202             }
53203             ;
53204
53205             MELT_CHECK_SIGNAL();
53206             ;
53207             /*_#MELT_NEED_DBG__L24*/
53208             meltfnum[1] =
53209                 /*MELT_NEED_DBG*/
53210 #if MELT_HAVE_DEBUG
53211                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
53212 #else
53213                 0 /* no melt_need_dbg */
53214 #endif /*MELT_HAVE_DEBUG*/
53215                 ;;
53216             MELT_LOCATION("warmelt-normal.melt:3661:/ cond");
53217             /*cond*/
53218             if (/*_#MELT_NEED_DBG__L24*/ meltfnum[1]) /*then*/
53219                 {
53220                     /*^cond.then*/
53221                     /*^block*/
53222                     /*anyblock*/
53223                     {
53224
53225                         /*_#MELT_CALLCOUNT__L25*/ meltfnum[0] =
53226                             /* for melt_callcount */
53227 #if MELT_HAVE_DEBUG && defined (meltcallcount)
53228                             meltcallcount  /* melt_callcount debugging */
53229 #else
53230                             0L  /* melt_callcount without debug */
53231 #endif /* MELT_HAVE_DEBUG melt_callcount */
53232                             ;;
53233
53234                         MELT_CHECK_SIGNAL();
53235                         ;
53236                         MELT_LOCATION("warmelt-normal.melt:3661:/ apply");
53237                         /*apply*/
53238                         {
53239                             union meltparam_un argtab[8];
53240                             memset(&argtab, 0, sizeof(argtab));
53241                             /*^apply.arg*/
53242                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L25*/ meltfnum[0];
53243                             /*^apply.arg*/
53244                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
53245                             /*^apply.arg*/
53246                             argtab[2].meltbp_long = 3661;
53247                             /*^apply.arg*/
53248                             argtab[3].meltbp_cstring =  "normexp_ifelse sloc=";
53249                             /*^apply.arg*/
53250                             argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[2]);
53251                             /*^apply.arg*/
53252                             argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[7];
53253                             /*^apply.arg*/
53254                             argtab[6].meltbp_cstring =  " newelseenv=";
53255                             /*^apply.arg*/
53256                             argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.NEWELSEENV__V80*/ meltfptr[75];
53257                             /*_.MELT_DEBUG_FUN__V83*/
53258                             meltfptr[82] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
53259                         }
53260                         ;
53261                         /*_._IF___V82*/
53262                         meltfptr[78] = /*_.MELT_DEBUG_FUN__V83*/ meltfptr[82];;
53263                         /*epilog*/
53264
53265                         MELT_LOCATION("warmelt-normal.melt:3661:/ clear");
53266                         /*clear*/ /*_#MELT_CALLCOUNT__L25*/
53267                         meltfnum[0] = 0 ;
53268                         /*^clear*/
53269                         /*clear*/ /*_.MELT_DEBUG_FUN__V83*/
53270                         meltfptr[82] = 0 ;
53271                     }
53272                     ;
53273                 }
53274             else    /*^cond.else*/
53275                 {
53276
53277                     /*_._IF___V82*/ meltfptr[78] =  /*reallynil*/ NULL ;;
53278                 }
53279             ;
53280
53281             {
53282                 MELT_LOCATION("warmelt-normal.melt:3661:/ locexp");
53283                 /*void*/
53284                 (void)0;
53285             }
53286             ;
53287             /*^quasiblock*/
53288
53289
53290             /*epilog*/
53291
53292             /*^clear*/
53293             /*clear*/ /*_#MELT_NEED_DBG__L24*/
53294             meltfnum[1] = 0 ;
53295             /*^clear*/
53296             /*clear*/ /*_._IF___V82*/
53297             meltfptr[78] = 0 ;
53298         }
53299
53300 #else /*MELT_HAVE_DEBUG*/
53301         /*^cppif.else*/
53302         /*^block*/
53303         /*anyblock*/
53304         {
53305
53306
53307             {
53308                 /*^locexp*/
53309                 /*void*/(void)0;
53310             }
53311             ;
53312             /*epilog*/
53313         }
53314
53315 #endif /*MELT_HAVE_DEBUG*/
53316         ;
53317
53318 #if MELT_HAVE_DEBUG
53319         MELT_LOCATION("warmelt-normal.melt:3662:/ cppif.then");
53320         /*^block*/
53321         /*anyblock*/
53322         {
53323
53324
53325             MELT_CHECK_SIGNAL();
53326             ;
53327             /*_#IS_A__L26*/
53328             meltfnum[0] =
53329                 melt_is_instance_of((melt_ptr_t)(/*_.CTYPIF__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[20])));;
53330             MELT_LOCATION("warmelt-normal.melt:3662:/ cond");
53331             /*cond*/
53332             if (/*_#IS_A__L26*/ meltfnum[0]) /*then*/
53333                 {
53334                     /*^cond.then*/
53335                     /*_._IFELSE___V85*/ meltfptr[78] = (/*nil*/NULL);;
53336                 }
53337             else
53338                 {
53339                     MELT_LOCATION("warmelt-normal.melt:3662:/ cond.else");
53340
53341                     /*^block*/
53342                     /*anyblock*/
53343                     {
53344
53345
53346                         MELT_CHECK_SIGNAL();
53347                         ;
53348                         /*^apply*/
53349                         /*apply*/
53350                         {
53351                             union meltparam_un argtab[4];
53352                             memset(&argtab, 0, sizeof(argtab));
53353                             /*^apply.arg*/
53354                             argtab[0].meltbp_cstring =  "check ctypif";
53355                             /*^apply.arg*/
53356                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
53357                             /*^apply.arg*/
53358                             argtab[2].meltbp_long = 3662;
53359                             /*^apply.arg*/
53360                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPIF__V21*/ meltfptr[20];
53361                             /*_.MELT_ASSERT_FAILURE_FUN__V86*/
53362                             meltfptr[85] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
53363                         }
53364                         ;
53365                         /*_._IFELSE___V85*/
53366                         meltfptr[78] = /*_.MELT_ASSERT_FAILURE_FUN__V86*/ meltfptr[85];;
53367                         /*epilog*/
53368
53369                         MELT_LOCATION("warmelt-normal.melt:3662:/ clear");
53370                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V86*/
53371                         meltfptr[85] = 0 ;
53372                     }
53373                     ;
53374                 }
53375             ;
53376             /*_.IFCPP___V84*/
53377             meltfptr[82] = /*_._IFELSE___V85*/ meltfptr[78];;
53378             /*epilog*/
53379
53380             MELT_LOCATION("warmelt-normal.melt:3662:/ clear");
53381             /*clear*/ /*_#IS_A__L26*/
53382             meltfnum[0] = 0 ;
53383             /*^clear*/
53384             /*clear*/ /*_._IFELSE___V85*/
53385             meltfptr[78] = 0 ;
53386         }
53387
53388 #else /*MELT_HAVE_DEBUG*/
53389         /*^cppif.else*/
53390         /*_.IFCPP___V84*/ meltfptr[82] = (/*nil*/NULL);
53391 #endif /*MELT_HAVE_DEBUG*/
53392         ;
53393
53394 #if MELT_HAVE_DEBUG
53395         MELT_LOCATION("warmelt-normal.melt:3663:/ cppif.then");
53396         /*^block*/
53397         /*anyblock*/
53398         {
53399
53400
53401             MELT_CHECK_SIGNAL();
53402             ;
53403             /*_#IS_A__L27*/
53404             meltfnum[1] =
53405                 melt_is_instance_of((melt_ptr_t)(/*_.CTYPELSE__V81*/ meltfptr[76]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[20])));;
53406             MELT_LOCATION("warmelt-normal.melt:3663:/ cond");
53407             /*cond*/
53408             if (/*_#IS_A__L27*/ meltfnum[1]) /*then*/
53409                 {
53410                     /*^cond.then*/
53411                     /*_._IFELSE___V88*/ meltfptr[78] = (/*nil*/NULL);;
53412                 }
53413             else
53414                 {
53415                     MELT_LOCATION("warmelt-normal.melt:3663:/ cond.else");
53416
53417                     /*^block*/
53418                     /*anyblock*/
53419                     {
53420
53421
53422                         MELT_CHECK_SIGNAL();
53423                         ;
53424                         /*^apply*/
53425                         /*apply*/
53426                         {
53427                             union meltparam_un argtab[4];
53428                             memset(&argtab, 0, sizeof(argtab));
53429                             /*^apply.arg*/
53430                             argtab[0].meltbp_cstring =  "check ctypelse";
53431                             /*^apply.arg*/
53432                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
53433                             /*^apply.arg*/
53434                             argtab[2].meltbp_long = 3663;
53435                             /*^apply.arg*/
53436                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPELSE__V81*/ meltfptr[76];
53437                             /*_.MELT_ASSERT_FAILURE_FUN__V89*/
53438                             meltfptr[88] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
53439                         }
53440                         ;
53441                         /*_._IFELSE___V88*/
53442                         meltfptr[78] = /*_.MELT_ASSERT_FAILURE_FUN__V89*/ meltfptr[88];;
53443                         /*epilog*/
53444
53445                         MELT_LOCATION("warmelt-normal.melt:3663:/ clear");
53446                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V89*/
53447                         meltfptr[88] = 0 ;
53448                     }
53449                     ;
53450                 }
53451             ;
53452             /*_.IFCPP___V87*/
53453             meltfptr[85] = /*_._IFELSE___V88*/ meltfptr[78];;
53454             /*epilog*/
53455
53456             MELT_LOCATION("warmelt-normal.melt:3663:/ clear");
53457             /*clear*/ /*_#IS_A__L27*/
53458             meltfnum[1] = 0 ;
53459             /*^clear*/
53460             /*clear*/ /*_._IFELSE___V88*/
53461             meltfptr[78] = 0 ;
53462         }
53463
53464 #else /*MELT_HAVE_DEBUG*/
53465         /*^cppif.else*/
53466         /*_.IFCPP___V87*/ meltfptr[85] = (/*nil*/NULL);
53467 #endif /*MELT_HAVE_DEBUG*/
53468         ;
53469
53470         MELT_CHECK_SIGNAL();
53471         ;
53472         /*^compute*/
53473         /*_#eqeq__L28*/
53474         meltfnum[0] =
53475             ((/*_.CTYPIF__V21*/ meltfptr[20]) == (/*_.CTYPELSE__V81*/ meltfptr[76]));;
53476         MELT_LOCATION("warmelt-normal.melt:3665:/ cond");
53477         /*cond*/
53478         if (/*_#eqeq__L28*/ meltfnum[0]) /*then*/
53479             {
53480                 /*^cond.then*/
53481                 /*_._IFELSE___V90*/ meltfptr[88] = (/*nil*/NULL);;
53482             }
53483         else
53484             {
53485                 MELT_LOCATION("warmelt-normal.melt:3665:/ cond.else");
53486
53487                 /*^block*/
53488                 /*anyblock*/
53489                 {
53490
53491
53492                     MELT_CHECK_SIGNAL();
53493                     ;
53494
53495                     MELT_CHECK_SIGNAL();
53496                     ;
53497                     /*_#exeq__L29*/
53498                     meltfnum[1] =
53499                         ((/*_.CTYPIF__V21*/ meltfptr[20]) != ((/*!CTYPE_VOID*/ meltfrout->tabval[7])));;
53500                     MELT_LOCATION("warmelt-normal.melt:3668:/ cond");
53501                     /*cond*/
53502                     if (/*_#exeq__L29*/ meltfnum[1]) /*then*/
53503                         {
53504                             /*^cond.then*/
53505                             /*^block*/
53506                             /*anyblock*/
53507                             {
53508
53509                                 /*_#eqeq__L31*/ meltfnum[30] =
53510                                     ((/*_.CTYPELSE__V81*/ meltfptr[76]) == ((/*!CTYPE_VOID*/ meltfrout->tabval[7])));;
53511                                 /*^compute*/
53512                                 /*_#_IF___L30*/
53513                                 meltfnum[29] = /*_#eqeq__L31*/ meltfnum[30];;
53514                                 /*epilog*/
53515
53516                                 MELT_LOCATION("warmelt-normal.melt:3668:/ clear");
53517                                 /*clear*/ /*_#eqeq__L31*/
53518                                 meltfnum[30] = 0 ;
53519                             }
53520                             ;
53521                         }
53522                     else    /*^cond.else*/
53523                         {
53524
53525                             /*_#_IF___L30*/ meltfnum[29] = 0;;
53526                         }
53527                     ;
53528                     MELT_LOCATION("warmelt-normal.melt:3668:/ cond");
53529                     /*cond*/
53530                     if (/*_#_IF___L30*/ meltfnum[29]) /*then*/
53531                         {
53532                             /*^cond.then*/
53533                             /*_._IFELSE___V91*/ meltfptr[78] = (/*nil*/NULL);;
53534                         }
53535                     else
53536                         {
53537                             MELT_LOCATION("warmelt-normal.melt:3668:/ cond.else");
53538
53539                             /*^block*/
53540                             /*anyblock*/
53541                             {
53542
53543
53544                                 MELT_CHECK_SIGNAL();
53545                                 ;
53546
53547                                 MELT_CHECK_SIGNAL();
53548                                 ;
53549                                 /*_#eqeq__L32*/
53550                                 meltfnum[30] =
53551                                     ((/*_.CTYPIF__V21*/ meltfptr[20]) == ((/*!CTYPE_VOID*/ meltfrout->tabval[7])));;
53552                                 MELT_LOCATION("warmelt-normal.melt:3671:/ cond");
53553                                 /*cond*/
53554                                 if (/*_#eqeq__L32*/ meltfnum[30]) /*then*/
53555                                     {
53556                                         /*^cond.then*/
53557                                         /*^block*/
53558                                         /*anyblock*/
53559                                         {
53560
53561                                             /*_#exeq__L34*/ meltfnum[33] =
53562                                                 ((/*_.CTYPELSE__V81*/ meltfptr[76]) != ((/*!CTYPE_VOID*/ meltfrout->tabval[7])));;
53563                                             /*^compute*/
53564                                             /*_#_IF___L33*/
53565                                             meltfnum[32] = /*_#exeq__L34*/ meltfnum[33];;
53566                                             /*epilog*/
53567
53568                                             MELT_LOCATION("warmelt-normal.melt:3671:/ clear");
53569                                             /*clear*/ /*_#exeq__L34*/
53570                                             meltfnum[33] = 0 ;
53571                                         }
53572                                         ;
53573                                     }
53574                                 else    /*^cond.else*/
53575                                     {
53576
53577                                         /*_#_IF___L33*/ meltfnum[32] = 0;;
53578                                     }
53579                                 ;
53580                                 MELT_LOCATION("warmelt-normal.melt:3671:/ cond");
53581                                 /*cond*/
53582                                 if (/*_#_IF___L33*/ meltfnum[32]) /*then*/
53583                                     {
53584                                         /*^cond.then*/
53585                                         /*^block*/
53586                                         /*anyblock*/
53587                                         {
53588
53589                                             MELT_LOCATION("warmelt-normal.melt:3672:/ compute");
53590                                             /*_.CTYPIF__V21*/
53591                                             meltfptr[20] = /*_.SETQ___V93*/ meltfptr[92] = /*_.CTYPELSE__V81*/ meltfptr[76];;
53592                                             /*_._IFELSE___V92*/
53593                                             meltfptr[91] = /*_.SETQ___V93*/ meltfptr[92];;
53594                                             /*epilog*/
53595
53596                                             MELT_LOCATION("warmelt-normal.melt:3671:/ clear");
53597                                             /*clear*/ /*_.SETQ___V93*/
53598                                             meltfptr[92] = 0 ;
53599                                         }
53600                                         ;
53601                                     }
53602                                 else    /*^cond.else*/
53603                                     {
53604
53605                                         /*^block*/
53606                                         /*anyblock*/
53607                                         {
53608
53609                                             MELT_LOCATION("warmelt-normal.melt:3677:/ getslot");
53610                                             {
53611                                                 melt_ptr_t slot=NULL, obj=NULL;
53612                                                 obj = (melt_ptr_t)(/*_.CTYPIF__V21*/ meltfptr[20]) /*=obj*/;
53613                                                 melt_object_get_field(slot,obj, 1, "NAMED_NAME");
53614                                                 /*_.NAMED_NAME__V94*/
53615                                                 meltfptr[92] = slot;
53616                                             };
53617                                             ;
53618                                             MELT_LOCATION("warmelt-normal.melt:3678:/ getslot");
53619                                             {
53620                                                 melt_ptr_t slot=NULL, obj=NULL;
53621                                                 obj = (melt_ptr_t)(/*_.CTYPELSE__V81*/ meltfptr[76]) /*=obj*/;
53622                                                 melt_object_get_field(slot,obj, 1, "NAMED_NAME");
53623                                                 /*_.NAMED_NAME__V95*/
53624                                                 meltfptr[94] = slot;
53625                                             };
53626                                             ;
53627
53628                                             MELT_CHECK_SIGNAL();
53629                                             ;
53630                                             MELT_LOCATION("warmelt-normal.melt:3675:/ apply");
53631                                             /*apply*/
53632                                             {
53633                                                 union meltparam_un argtab[3];
53634                                                 memset(&argtab, 0, sizeof(argtab));
53635                                                 /*^apply.arg*/
53636                                                 argtab[0].meltbp_cstring =  "incompatible types in conditional IF/OR/COND branches: then type is\
53637  $1 else type is $2";
53638                                                 /*^apply.arg*/
53639                                                 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V94*/ meltfptr[92];
53640                                                 /*^apply.arg*/
53641                                                 argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V95*/ meltfptr[94];
53642                                                 /*_.ERROR_AT__V96*/
53643                                                 meltfptr[95] =  melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.SLOC__V19*/ meltfptr[7]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
53644                                             }
53645                                             ;
53646                                             MELT_LOCATION("warmelt-normal.melt:3679:/ compute");
53647                                             /*_.CTYPIF__V21*/
53648                                             meltfptr[20] = /*_.SETQ___V97*/ meltfptr[96] = (/*!CTYPE_VOID*/ meltfrout->tabval[7]);;
53649                                             MELT_LOCATION("warmelt-normal.melt:3674:/ quasiblock");
53650
53651
53652                                             /*_.PROGN___V98*/
53653                                             meltfptr[97] = /*_.SETQ___V97*/ meltfptr[96];;
53654                                             /*^compute*/
53655                                             /*_._IFELSE___V92*/
53656                                             meltfptr[91] = /*_.PROGN___V98*/ meltfptr[97];;
53657                                             /*epilog*/
53658
53659                                             MELT_LOCATION("warmelt-normal.melt:3671:/ clear");
53660                                             /*clear*/ /*_.NAMED_NAME__V94*/
53661                                             meltfptr[92] = 0 ;
53662                                             /*^clear*/
53663                                             /*clear*/ /*_.NAMED_NAME__V95*/
53664                                             meltfptr[94] = 0 ;
53665                                             /*^clear*/
53666                                             /*clear*/ /*_.ERROR_AT__V96*/
53667                                             meltfptr[95] = 0 ;
53668                                             /*^clear*/
53669                                             /*clear*/ /*_.SETQ___V97*/
53670                                             meltfptr[96] = 0 ;
53671                                             /*^clear*/
53672                                             /*clear*/ /*_.PROGN___V98*/
53673                                             meltfptr[97] = 0 ;
53674                                         }
53675                                         ;
53676                                     }
53677                                 ;
53678                                 /*_._IFELSE___V91*/
53679                                 meltfptr[78] = /*_._IFELSE___V92*/ meltfptr[91];;
53680                                 /*epilog*/
53681
53682                                 MELT_LOCATION("warmelt-normal.melt:3668:/ clear");
53683                                 /*clear*/ /*_#eqeq__L32*/
53684                                 meltfnum[30] = 0 ;
53685                                 /*^clear*/
53686                                 /*clear*/ /*_#_IF___L33*/
53687                                 meltfnum[32] = 0 ;
53688                                 /*^clear*/
53689                                 /*clear*/ /*_._IFELSE___V92*/
53690                                 meltfptr[91] = 0 ;
53691                             }
53692                             ;
53693                         }
53694                     ;
53695                     /*_._IFELSE___V90*/
53696                     meltfptr[88] = /*_._IFELSE___V91*/ meltfptr[78];;
53697                     /*epilog*/
53698
53699                     MELT_LOCATION("warmelt-normal.melt:3665:/ clear");
53700                     /*clear*/ /*_#exeq__L29*/
53701                     meltfnum[1] = 0 ;
53702                     /*^clear*/
53703                     /*clear*/ /*_#_IF___L30*/
53704                     meltfnum[29] = 0 ;
53705                     /*^clear*/
53706                     /*clear*/ /*_._IFELSE___V91*/
53707                     meltfptr[78] = 0 ;
53708                 }
53709                 ;
53710             }
53711         ;
53712         /*_.LET___V74*/
53713         meltfptr[72] = /*_._IFELSE___V90*/ meltfptr[88];;
53714
53715         MELT_LOCATION("warmelt-normal.melt:3653:/ clear");
53716         /*clear*/ /*_.LET___V75*/
53717         meltfptr[68] = 0 ;
53718         /*^clear*/
53719         /*clear*/ /*_.NEWELSEENV__V80*/
53720         meltfptr[75] = 0 ;
53721         /*^clear*/
53722         /*clear*/ /*_.CTYPELSE__V81*/
53723         meltfptr[76] = 0 ;
53724         /*^clear*/
53725         /*clear*/ /*_.IFCPP___V84*/
53726         meltfptr[82] = 0 ;
53727         /*^clear*/
53728         /*clear*/ /*_.IFCPP___V87*/
53729         meltfptr[85] = 0 ;
53730         /*^clear*/
53731         /*clear*/ /*_#eqeq__L28*/
53732         meltfnum[0] = 0 ;
53733         /*^clear*/
53734         /*clear*/ /*_._IFELSE___V90*/
53735         meltfptr[88] = 0 ;
53736         MELT_LOCATION("warmelt-normal.melt:3684:/ quasiblock");
53737
53738
53739
53740         MELT_CHECK_SIGNAL();
53741         ;
53742         /*^apply*/
53743         /*apply*/
53744         {
53745             /*_.CSYM__V100*/ meltfptr[94] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[9])), (melt_ptr_t)((/*!konst_22__IFELSE_*/ meltfrout->tabval[22])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
53746         }
53747         ;
53748
53749         MELT_CHECK_SIGNAL();
53750         ;
53751         MELT_LOCATION("warmelt-normal.melt:3685:/ quasiblock");
53752
53753
53754         /*^rawallocobj*/
53755         /*rawallocobj*/
53756         {
53757             melt_ptr_t newobj = 0;
53758             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[23])), (4), "CLASS_NREP_LOCSYMOCC");
53759             /*_.INST__V102*/
53760             meltfptr[96] =
53761                 newobj;
53762         };
53763         ;
53764         /*^putslot*/
53765         /*putslot*/
53766         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V102*/ meltfptr[96])) == MELTOBMAG_OBJECT);
53767         melt_putfield_object((/*_.INST__V102*/ meltfptr[96]), (0), (/*_.SLOC__V19*/ meltfptr[7]), "NREP_LOC");
53768         ;
53769         /*^putslot*/
53770         /*putslot*/
53771         melt_assertmsg("checkobj putslot  _ @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V102*/ meltfptr[96])) == MELTOBMAG_OBJECT);
53772         melt_putfield_object((/*_.INST__V102*/ meltfptr[96]), (2), (/*_.CTYPIF__V21*/ meltfptr[20]), "NOCC_CTYP");
53773         ;
53774         /*^putslot*/
53775         /*putslot*/
53776         melt_assertmsg("checkobj putslot  _ @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V102*/ meltfptr[96])) == MELTOBMAG_OBJECT);
53777         melt_putfield_object((/*_.INST__V102*/ meltfptr[96]), (1), (/*_.CSYM__V100*/ meltfptr[94]), "NOCC_SYMB");
53778         ;
53779         /*^touchobj*/
53780
53781         melt_dbgtrace_written_object (/*_.INST__V102*/ meltfptr[96], "newly made instance");
53782         ;
53783         /*_.CLOCC__V101*/
53784         meltfptr[95] = /*_.INST__V102*/ meltfptr[96];;
53785
53786         MELT_CHECK_SIGNAL();
53787         ;
53788         MELT_LOCATION("warmelt-normal.melt:3689:/ apply");
53789         /*apply*/
53790         {
53791             union meltparam_un argtab[2];
53792             memset(&argtab, 0, sizeof(argtab));
53793             /*^apply.arg*/
53794             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDTHEN__V49*/ meltfptr[35];
53795             /*^apply.arg*/
53796             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[7];
53797             /*_.WTHEN__V103*/
53798             meltfptr[97] =  melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.NTHEN__V48*/ meltfptr[28]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
53799         }
53800         ;
53801
53802         MELT_CHECK_SIGNAL();
53803         ;
53804         MELT_LOCATION("warmelt-normal.melt:3690:/ apply");
53805         /*apply*/
53806         {
53807             union meltparam_un argtab[2];
53808             memset(&argtab, 0, sizeof(argtab));
53809             /*^apply.arg*/
53810             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDELSE__V68*/ meltfptr[67];
53811             /*^apply.arg*/
53812             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V19*/ meltfptr[7];
53813             /*_.WELSE__V104*/
53814             meltfptr[91] =  melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.NELSE__V67*/ meltfptr[63]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
53815         }
53816         ;
53817
53818         MELT_CHECK_SIGNAL();
53819         ;
53820
53821         MELT_CHECK_SIGNAL();
53822         ;
53823         MELT_LOCATION("warmelt-normal.melt:3696:/ quasiblock");
53824
53825
53826         /*^rawallocobj*/
53827         /*rawallocobj*/
53828         {
53829             melt_ptr_t newobj = 0;
53830             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_IF*/ meltfrout->tabval[25])), (5), "CLASS_NREP_IF");
53831             /*_.INST__V106*/
53832             meltfptr[68] =
53833                 newobj;
53834         };
53835         ;
53836         /*^putslot*/
53837         /*putslot*/
53838         melt_assertmsg("checkobj putslot  _ @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V106*/ meltfptr[68])) == MELTOBMAG_OBJECT);
53839         melt_putfield_object((/*_.INST__V106*/ meltfptr[68]), (0), (/*_.SLOC__V19*/ meltfptr[7]), "NREP_LOC");
53840         ;
53841         /*^putslot*/
53842         /*putslot*/
53843         melt_assertmsg("checkobj putslot  _ @NIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V106*/ meltfptr[68])) == MELTOBMAG_OBJECT);
53844         melt_putfield_object((/*_.INST__V106*/ meltfptr[68]), (4), (/*_.NTEST__V27*/ meltfptr[23]), "NIF_TEST");
53845         ;
53846         /*^putslot*/
53847         /*putslot*/
53848         melt_assertmsg("checkobj putslot  _ @NIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V106*/ meltfptr[68])) == MELTOBMAG_OBJECT);
53849         melt_putfield_object((/*_.INST__V106*/ meltfptr[68]), (2), (/*_.WTHEN__V103*/ meltfptr[97]), "NIF_THEN");
53850         ;
53851         /*^putslot*/
53852         /*putslot*/
53853         melt_assertmsg("checkobj putslot  _ @NIF_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V106*/ meltfptr[68])) == MELTOBMAG_OBJECT);
53854         melt_putfield_object((/*_.INST__V106*/ meltfptr[68]), (3), (/*_.WELSE__V104*/ meltfptr[91]), "NIF_ELSE");
53855         ;
53856         /*^putslot*/
53857         /*putslot*/
53858         melt_assertmsg("checkobj putslot  _ @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V106*/ meltfptr[68])) == MELTOBMAG_OBJECT);
53859         melt_putfield_object((/*_.INST__V106*/ meltfptr[68]), (1), (/*_.CTYPIF__V21*/ meltfptr[20]), "NEXPR_CTYP");
53860         ;
53861         /*^touchobj*/
53862
53863         melt_dbgtrace_written_object (/*_.INST__V106*/ meltfptr[68], "newly made instance");
53864         ;
53865         /*_.INST___V105*/
53866         meltfptr[78] = /*_.INST__V106*/ meltfptr[68];;
53867         MELT_LOCATION("warmelt-normal.melt:3691:/ quasiblock");
53868
53869
53870         /*^rawallocobj*/
53871         /*rawallocobj*/
53872         {
53873             melt_ptr_t newobj = 0;
53874             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[12])), (4), "CLASS_NORMAL_LET_BINDING");
53875             /*_.INST__V108*/
53876             meltfptr[76] =
53877                 newobj;
53878         };
53879         ;
53880         /*^putslot*/
53881         /*putslot*/
53882         melt_assertmsg("checkobj putslot  _ @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V108*/ meltfptr[76])) == MELTOBMAG_OBJECT);
53883         melt_putfield_object((/*_.INST__V108*/ meltfptr[76]), (3), (/*_.SLOC__V19*/ meltfptr[7]), "LETBIND_LOC");
53884         ;
53885         /*^putslot*/
53886         /*putslot*/
53887         melt_assertmsg("checkobj putslot  _ @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V108*/ meltfptr[76])) == MELTOBMAG_OBJECT);
53888         melt_putfield_object((/*_.INST__V108*/ meltfptr[76]), (0), (/*_.CSYM__V100*/ meltfptr[94]), "BINDER");
53889         ;
53890         /*^putslot*/
53891         /*putslot*/
53892         melt_assertmsg("checkobj putslot  _ @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V108*/ meltfptr[76])) == MELTOBMAG_OBJECT);
53893         melt_putfield_object((/*_.INST__V108*/ meltfptr[76]), (1), (/*_.CTYPIF__V21*/ meltfptr[20]), "LETBIND_TYPE");
53894         ;
53895         /*^putslot*/
53896         /*putslot*/
53897         melt_assertmsg("checkobj putslot  _ @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V108*/ meltfptr[76])) == MELTOBMAG_OBJECT);
53898         melt_putfield_object((/*_.INST__V108*/ meltfptr[76]), (2), (/*_.INST___V105*/ meltfptr[78]), "LETBIND_EXPR");
53899         ;
53900         /*^touchobj*/
53901
53902         melt_dbgtrace_written_object (/*_.INST__V108*/ meltfptr[76], "newly made instance");
53903         ;
53904         /*_.CBIND__V107*/
53905         meltfptr[75] = /*_.INST__V108*/ meltfptr[76];;
53906
53907         MELT_CHECK_SIGNAL();
53908         ;
53909         MELT_LOCATION("warmelt-normal.melt:3703:/ quasiblock");
53910
53911
53912         /*^putslot*/
53913         /*putslot*/
53914         melt_assertmsg("checkobj putslot  _ @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.CLOCC__V101*/ meltfptr[95])) == MELTOBMAG_OBJECT);
53915         melt_putfield_object((/*_.CLOCC__V101*/ meltfptr[95]), (3), (/*_.CBIND__V107*/ meltfptr[75]), "NOCC_BIND");
53916         ;
53917         /*^touch*/
53918         meltgc_touch(/*_.CLOCC__V101*/ meltfptr[95]);
53919         ;
53920         /*^touchobj*/
53921
53922         melt_dbgtrace_written_object (/*_.CLOCC__V101*/ meltfptr[95], "put-fields");
53923         ;
53924
53925
53926         MELT_CHECK_SIGNAL();
53927         ;
53928         /*_#IS_LIST__L35*/
53929         meltfnum[33] =
53930             (melt_magic_discr((melt_ptr_t)(/*_.NBINDIF__V28*/ meltfptr[27])) == MELTOBMAG_LIST);;
53931         /*^compute*/
53932         /*_#NOT__L36*/
53933         meltfnum[30] =
53934             (!(/*_#IS_LIST__L35*/ meltfnum[33]));;
53935         MELT_LOCATION("warmelt-normal.melt:3704:/ cond");
53936         /*cond*/
53937         if (/*_#NOT__L36*/ meltfnum[30]) /*then*/
53938             {
53939                 /*^cond.then*/
53940                 /*^block*/
53941                 /*anyblock*/
53942                 {
53943
53944                     /*_.MAKE_LIST__V110*/ meltfptr[85] =
53945                         (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[26]))));;
53946                     MELT_LOCATION("warmelt-normal.melt:3705:/ compute");
53947                     /*_.NBINDIF__V28*/
53948                     meltfptr[27] = /*_.SETQ___V111*/ meltfptr[88] = /*_.MAKE_LIST__V110*/ meltfptr[85];;
53949                     /*_._IF___V109*/
53950                     meltfptr[82] = /*_.SETQ___V111*/ meltfptr[88];;
53951                     /*epilog*/
53952
53953                     MELT_LOCATION("warmelt-normal.melt:3704:/ clear");
53954                     /*clear*/ /*_.MAKE_LIST__V110*/
53955                     meltfptr[85] = 0 ;
53956                     /*^clear*/
53957                     /*clear*/ /*_.SETQ___V111*/
53958                     meltfptr[88] = 0 ;
53959                 }
53960                 ;
53961             }
53962         else    /*^cond.else*/
53963             {
53964
53965                 /*_._IF___V109*/ meltfptr[82] =  /*reallynil*/ NULL ;;
53966             }
53967         ;
53968
53969         {
53970             MELT_LOCATION("warmelt-normal.melt:3706:/ locexp");
53971             meltgc_append_list((melt_ptr_t)(/*_.NBINDIF__V28*/ meltfptr[27]), (melt_ptr_t)(/*_.CBIND__V107*/ meltfptr[75]));
53972         }
53973         ;
53974
53975 #if MELT_HAVE_DEBUG
53976         MELT_LOCATION("warmelt-normal.melt:3707:/ cppif.then");
53977         /*^block*/
53978         /*anyblock*/
53979         {
53980
53981
53982             {
53983                 /*^locexp*/
53984                 /*melt_increment_dbgcounter*/
53985 #if MELT_HAVE_DEBUG
53986                 melt_dbgcounter++;
53987 #endif
53988                 ;
53989             }
53990             ;
53991
53992             MELT_CHECK_SIGNAL();
53993             ;
53994             /*_#MELT_NEED_DBG__L37*/
53995             meltfnum[32] =
53996                 /*MELT_NEED_DBG*/
53997 #if MELT_HAVE_DEBUG
53998                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
53999 #else
54000                 0 /* no melt_need_dbg */
54001 #endif /*MELT_HAVE_DEBUG*/
54002                 ;;
54003             MELT_LOCATION("warmelt-normal.melt:3707:/ cond");
54004             /*cond*/
54005             if (/*_#MELT_NEED_DBG__L37*/ meltfnum[32]) /*then*/
54006                 {
54007                     /*^cond.then*/
54008                     /*^block*/
54009                     /*anyblock*/
54010                     {
54011
54012                         /*_#MELT_CALLCOUNT__L38*/ meltfnum[1] =
54013                             /* for melt_callcount */
54014 #if MELT_HAVE_DEBUG && defined (meltcallcount)
54015                             meltcallcount  /* melt_callcount debugging */
54016 #else
54017                             0L  /* melt_callcount without debug */
54018 #endif /* MELT_HAVE_DEBUG melt_callcount */
54019                             ;;
54020
54021                         MELT_CHECK_SIGNAL();
54022                         ;
54023                         MELT_LOCATION("warmelt-normal.melt:3707:/ apply");
54024                         /*apply*/
54025                         {
54026                             union meltparam_un argtab[7];
54027                             memset(&argtab, 0, sizeof(argtab));
54028                             /*^apply.arg*/
54029                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L38*/ meltfnum[1];
54030                             /*^apply.arg*/
54031                             argtab[1].meltbp_cstring =  "warmelt-normal.melt";
54032                             /*^apply.arg*/
54033                             argtab[2].meltbp_long = 3707;
54034                             /*^apply.arg*/
54035                             argtab[3].meltbp_cstring =  "normexp_ifelse result clocc=";
54036                             /*^apply.arg*/
54037                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOCC__V101*/ meltfptr[95];
54038                             /*^apply.arg*/
54039                             argtab[5].meltbp_cstring =  " nbindif=";
54040                             /*^apply.arg*/
54041                             argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.NBINDIF__V28*/ meltfptr[27];
54042                             /*_.MELT_DEBUG_FUN__V113*/
54043                             meltfptr[88] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
54044                         }
54045                         ;
54046                         /*_._IF___V112*/
54047                         meltfptr[85] = /*_.MELT_DEBUG_FUN__V113*/ meltfptr[88];;
54048                         /*epilog*/
54049
54050                         MELT_LOCATION("warmelt-normal.melt:3707:/ clear");
54051                         /*clear*/ /*_#MELT_CALLCOUNT__L38*/
54052                         meltfnum[1] = 0 ;
54053                         /*^clear*/
54054                         /*clear*/ /*_.MELT_DEBUG_FUN__V113*/
54055                         meltfptr[88] = 0 ;
54056                     }
54057                     ;
54058                 }
54059             else    /*^cond.else*/
54060                 {
54061
54062                     /*_._IF___V112*/ meltfptr[85] =  /*reallynil*/ NULL ;;
54063                 }
54064             ;
54065
54066             {
54067                 MELT_LOCATION("warmelt-normal.melt:3707:/ locexp");
54068                 /*void*/
54069                 (void)0;
54070             }
54071             ;
54072             /*^quasiblock*/
54073
54074
54075             /*epilog*/
54076
54077             /*^clear*/
54078             /*clear*/ /*_#MELT_NEED_DBG__L37*/
54079             meltfnum[32] = 0 ;
54080             /*^clear*/
54081             /*clear*/ /*_._IF___V112*/
54082             meltfptr[85] = 0 ;
54083         }
54084
54085 #else /*MELT_HAVE_DEBUG*/
54086         /*^cppif.else*/
54087         /*^block*/
54088         /*anyblock*/
54089         {
54090
54091
54092             {
54093                 /*^locexp*/
54094                 /*void*/(void)0;
54095             }
54096             ;
54097             /*epilog*/
54098         }
54099
54100 #endif /*MELT_HAVE_DEBUG*/
54101         ;
54102
54103         MELT_CHECK_SIGNAL();
54104         ;
54105         MELT_LOCATION("warmelt-normal.melt:3708:/ quasiblock");
54106
54107
54108         /*_._RETVAL___V1*/
54109         meltfptr[0] = /*_.CLOCC__V101*/ meltfptr[95];;
54110         MELT_LOCATION("warmelt-normal.melt:3708:/ putxtraresult");
54111         if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout;
54112         if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout;
54113         if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.NBINDIF__V28*/ meltfptr[27]);
54114         ;
54115         /*^finalreturn*/
54116         ;
54117         /*finalret*/
54118         goto meltlabend_rout ;
54119         /*_.LET___V99*/
54120         meltfptr[92] = /*_.RETURN___V114*/ meltfptr[88];;
54121
54122         MELT_LOCATION("warmelt-normal.melt:3684:/ clear");
54123         /*clear*/ /*_.CSYM__V100*/
54124         meltfptr[94] = 0 ;
54125         /*^clear*/
54126         /*clear*/ /*_.CLOCC__V101*/
54127         meltfptr[95] = 0 ;
54128         /*^clear*/
54129         /*clear*/ /*_.WTHEN__V103*/
54130         meltfptr[97] = 0 ;
54131         /*^clear*/
54132         /*clear*/ /*_.WELSE__V104*/
54133         meltfptr[91] = 0 ;
54134         /*^clear*/
54135         /*clear*/ /*_.INST___V105*/
54136         meltfptr[78] = 0 ;
54137         /*^clear*/
54138         /*clear*/ /*_.CBIND__V107*/
54139         meltfptr[75] = 0 ;
54140         /*^clear*/
54141         /*clear*/ /*_#IS_LIST__L35*/
54142         meltfnum[33] = 0 ;
54143         /*^clear*/
54144         /*clear*/ /*_#NOT__L36*/
54145         meltfnum[30] = 0 ;
54146         /*^clear*/
54147         /*clear*/ /*_._IF___V109*/
54148         meltfptr[82] = 0 ;
54149         /*^clear*/
54150         /*clear*/ /*_.RETURN___V114*/
54151         meltfptr[88] = 0 ;
54152
54153         MELT_CHECK_SIGNAL();
54154         ;
54155         /*_.MULTI___V66*/
54156         meltfptr[64] = /*_.LET___V99*/ meltfptr[92];;
54157
54158         MELT_LOCATION("warmelt-normal.melt:3646:/ clear");
54159         /*clear*/ /*_.IFCPP___V71*/
54160         meltfptr[69] = 0 ;
54161         /*^clear*/
54162         /*clear*/ /*_.LET___V74*/
54163         meltfptr[72] = 0 ;
54164         /*^clear*/
54165         /*clear*/ /*_.LET___V99*/
54166         meltfptr[92] = 0 ;
54167
54168         /*^clear*/
54169         /*clear*/ /*_.NBINDELSE__V68*/
54170         meltfptr[67] = 0 ;
54171         /*_.LET___V55*/
54172         meltfptr[37] = /*_.MULTI___V66*/ meltfptr[64];;
54173
54174         MELT_LOCATION("warmelt-normal.melt:3638:/ clear");
54175         /*clear*/ /*_.NEWTHENENV__V56*/
54176         meltfptr[39] = 0 ;
54177         /*^clear*/
54178         /*clear*/ /*_.LAMBDA___V59*/
54179         meltfptr[57] = 0 ;
54180         /*^clear*/
54181         /*clear*/ /*_.LIST_EVERY__V61*/
54182         meltfptr[60] = 0 ;
54183         /*^clear*/
54184         /*clear*/ /*_.GET_CTYPE__V62*/
54185         meltfptr[61] = 0 ;
54186         /*^clear*/
54187         /*clear*/ /*_.SETQ___V63*/
54188         meltfptr[62] = 0 ;
54189         /*^clear*/
54190         /*clear*/ /*_.MULTI___V66*/
54191         meltfptr[64] = 0 ;
54192
54193         MELT_CHECK_SIGNAL();
54194         ;
54195         /*_.MULTI___V47*/
54196         meltfptr[41] = /*_.LET___V55*/ meltfptr[37];;
54197
54198         MELT_LOCATION("warmelt-normal.melt:3633:/ clear");
54199         /*clear*/ /*_.IFCPP___V52*/
54200         meltfptr[40] = 0 ;
54201         /*^clear*/
54202         /*clear*/ /*_.LET___V55*/
54203         meltfptr[37] = 0 ;
54204
54205         /*^clear*/
54206         /*clear*/ /*_.NBINDTHEN__V49*/
54207         meltfptr[35] = 0 ;
54208
54209         MELT_CHECK_SIGNAL();
54210         ;
54211         /*_.MULTI___V26*/
54212         meltfptr[24] = /*_.MULTI___V47*/ meltfptr[41];;
54213
54214         MELT_LOCATION("warmelt-normal.melt:3611:/ clear");
54215         /*clear*/ /*_.IFCPP___V31*/
54216         meltfptr[29] = 0 ;
54217         /*^clear*/
54218         /*clear*/ /*_.LET___V34*/
54219         meltfptr[32] = 0 ;
54220         /*^clear*/
54221         /*clear*/ /*_.MULTI___V47*/
54222         meltfptr[41] = 0 ;
54223
54224         /*^clear*/
54225         /*clear*/ /*_.NBINDIF__V28*/
54226         meltfptr[27] = 0 ;
54227         /*_.LET___V18*/
54228         meltfptr[16] = /*_.MULTI___V26*/ meltfptr[24];;
54229
54230         MELT_LOCATION("warmelt-normal.melt:3604:/ clear");
54231         /*clear*/ /*_.SLOC__V19*/
54232         meltfptr[7] = 0 ;
54233         /*^clear*/
54234         /*clear*/ /*_.STEST__V20*/
54235         meltfptr[19] = 0 ;
54236         /*^clear*/
54237         /*clear*/ /*_.CTYPIF__V21*/
54238         meltfptr[20] = 0 ;
54239         /*^clear*/
54240         /*clear*/ /*_.STHEN__V22*/
54241         meltfptr[21] = 0 ;
54242         /*^clear*/
54243         /*clear*/ /*_.SELSE__V23*/
54244         meltfptr[22] = 0 ;
54245         /*^clear*/
54246         /*clear*/ /*_.MULTI___V26*/
54247         meltfptr[24] = 0 ;
54248
54249         MELT_CHECK_SIGNAL();
54250         ;
54251         MELT_LOCATION("warmelt-normal.melt:3598:/ quasiblock");
54252
54253
54254         /*_._RETVAL___V1*/
54255         meltfptr[0] = /*_.LET___V18*/ meltfptr[16];;
54256
54257         {
54258             MELT_LOCATION("warmelt-normal.melt:3598:/ locexp");
54259             /*ochecknores compilobj_nrep_return*/
54260 #if MELT_HAVE_DEBUG
54261             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
54262                 melt_warn_for_no_expected_secondary_results();
54263             /* we warned when secondary results are expected but not returned. */
54264 #endif /*MELT_HAVE_DEBUG*/
54265             ;
54266         }
54267         ;
54268         /*^finalreturn*/
54269         ;
54270         /*finalret*/
54271         goto meltlabend_rout ;
54272         /*epilog*/
54273
54274         /*^clear*/
54275         /*clear*/ /*_.IFCPP___V9*/
54276         meltfptr[6] = 0 ;
54277         /*^clear*/
54278         /*clear*/ /*_.IFCPP___V12*/
54279         meltfptr[5] = 0 ;
54280         /*^clear*/
54281         /*clear*/ /*_.IFCPP___V15*/
54282         meltfptr[13] = 0 ;
54283         /*^clear*/
54284         /*clear*/ /*_.LET___V18*/
54285         meltfptr[16] = 0 ;
54286     }
54287
54288     ;
54289     goto meltlabend_rout;
54290 meltlabend_rout:
54291     melt_trace_end("NORMEXP_IFELSE", meltcallcount);
54292     melt_blocklevel_signals = current_blocklevel_signals_meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE_melt;
54293     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
54294 #undef meltcallcount
54295 #undef meltfram__
54296 #undef MELTFRAM_NBVARNUM
54297 #undef MELTFRAM_NBVARPTR
54298 } /*end meltrout_53_WARMELTmiNORMAL_NORMEXP_IFELSE*/
54299
54300
54301
54302
54303 /**** end of warmelt-normal+02.cc ****/