diff --git a/lib/oper1.g b/lib/oper1.g
index ff000facb3..c5fbcb9197 100644
--- a/lib/oper1.g
+++ b/lib/oper1.g
@@ -147,6 +147,10 @@ BIND_GLOBAL( "INSTALL_METHOD_FLAGS",
     function( opr, info, rel, flags, baserank, method )
     local   methods,  narg,  i,  k,  tmp, replace, match, j, lk, rank;
 
+    if IS_IDENTICAL_OBJ(opr, method) then
+        Error("Cannot install an operation as a method for itself");
+    fi;
+
     if IsHPCGAP then
         # TODO: once the GAP compiler supports 'atomic', use that
         # to replace the explicit locking and unlocking here.
diff --git a/src/c_oper1.c b/src/c_oper1.c
deleted file mode 100644
index 8dce139d38..0000000000
--- a/src/c_oper1.c
+++ /dev/null
@@ -1,6251 +0,0 @@
-#ifndef AVOID_PRECOMPILED
-/* C file produced by GAC */
-#include "compiled.h"
-#define FILE_CRC  "-76837766"
-
-/* global variables used in handlers */
-static GVar G_REREADING;
-static Obj  GC_REREADING;
-static GVar G_SHALLOW__COPY__OBJ;
-static Obj  GF_SHALLOW__COPY__OBJ;
-static GVar G_PRINT__OBJ;
-static Obj  GC_PRINT__OBJ;
-static GVar G_GAPInfo;
-static Obj  GC_GAPInfo;
-static GVar G_TYPE__FUNCTION__WITH__NAME;
-static Obj  GC_TYPE__FUNCTION__WITH__NAME;
-static GVar G_TYPE__OPERATION__WITH__NAME;
-static Obj  GC_TYPE__OPERATION__WITH__NAME;
-static GVar G_IS__FUNCTION;
-static Obj  GF_IS__FUNCTION;
-static GVar G_NAME__FUNC;
-static Obj  GF_NAME__FUNC;
-static GVar G_SET__NAME__FUNC;
-static Obj  GF_SET__NAME__FUNC;
-static GVar G_NARG__FUNC;
-static Obj  GF_NARG__FUNC;
-static GVar G_CHECK__REPEATED__ATTRIBUTE__SET;
-static GVar G_IS__OPERATION;
-static Obj  GF_IS__OPERATION;
-static GVar G_AINV;
-static Obj  GF_AINV;
-static GVar G_IS__INT;
-static Obj  GF_IS__INT;
-static GVar G_IS__LIST;
-static Obj  GF_IS__LIST;
-static GVar G_ADD__LIST;
-static Obj  GF_ADD__LIST;
-static GVar G_IS__STRING__REP;
-static Obj  GF_IS__STRING__REP;
-static GVar G_Error;
-static Obj  GF_Error;
-static GVar G_VAL__GVAR;
-static Obj  GF_VAL__GVAR;
-static GVar G_TYPE__OBJ;
-static Obj  GF_TYPE__OBJ;
-static GVar G_IMMUTABLE__COPY__OBJ;
-static Obj  GF_IMMUTABLE__COPY__OBJ;
-static GVar G_IS__IDENTICAL__OBJ;
-static Obj  GF_IS__IDENTICAL__OBJ;
-static GVar G_MakeImmutable;
-static Obj  GF_MakeImmutable;
-static GVar G_INPUT__FILENAME;
-static Obj  GF_INPUT__FILENAME;
-static GVar G_INPUT__LINENUMBER;
-static Obj  GF_INPUT__LINENUMBER;
-static GVar G_IS__OBJECT;
-static Obj  GC_IS__OBJECT;
-static GVar G_TRY__NEXT__METHOD;
-static Obj  GC_TRY__NEXT__METHOD;
-static GVar G_SUB__FLAGS;
-static Obj  GF_SUB__FLAGS;
-static GVar G_WITH__HIDDEN__IMPS__FLAGS;
-static Obj  GF_WITH__HIDDEN__IMPS__FLAGS;
-static GVar G_WITH__IMPS__FLAGS;
-static Obj  GF_WITH__IMPS__FLAGS;
-static GVar G_IS__SUBSET__FLAGS;
-static Obj  GF_IS__SUBSET__FLAGS;
-static GVar G_TRUES__FLAGS;
-static Obj  GF_TRUES__FLAGS;
-static GVar G_FLAG1__FILTER;
-static Obj  GF_FLAG1__FILTER;
-static GVar G_FLAGS__FILTER;
-static Obj  GF_FLAGS__FILTER;
-static GVar G_METHODS__OPERATION;
-static Obj  GF_METHODS__OPERATION;
-static GVar G_CHANGED__METHODS__OPERATION;
-static Obj  GF_CHANGED__METHODS__OPERATION;
-static GVar G_DO__NOTHING__SETTER;
-static Obj  GC_DO__NOTHING__SETTER;
-static GVar G_IS__CONSTRUCTOR;
-static Obj  GF_IS__CONSTRUCTOR;
-static GVar G_QUO__INT;
-static Obj  GF_QUO__INT;
-static GVar G_fail;
-static Obj  GC_fail;
-static GVar G_RETURN__TRUE;
-static Obj  GC_RETURN__TRUE;
-static GVar G_RETURN__FALSE;
-static Obj  GC_RETURN__FALSE;
-static GVar G_LEN__LIST;
-static Obj  GF_LEN__LIST;
-static GVar G_APPEND__LIST__INTR;
-static Obj  GF_APPEND__LIST__INTR;
-static GVar G_COPY__LIST__ENTRIES;
-static Obj  GF_COPY__LIST__ENTRIES;
-static GVar G_CONV__STRING;
-static Obj  GF_CONV__STRING;
-static GVar G_Print;
-static Obj  GF_Print;
-static GVar G_ViewObj;
-static Obj  GC_ViewObj;
-static GVar G_RUN__IMMEDIATE__METHODS__RUNS;
-static Obj  GC_RUN__IMMEDIATE__METHODS__RUNS;
-static GVar G_RUN__IMMEDIATE__METHODS__CHECKS;
-static Obj  GC_RUN__IMMEDIATE__METHODS__CHECKS;
-static GVar G_RUN__IMMEDIATE__METHODS__HITS;
-static Obj  GC_RUN__IMMEDIATE__METHODS__HITS;
-static GVar G_BIND__GLOBAL;
-static Obj  GF_BIND__GLOBAL;
-static GVar G_IGNORE__IMMEDIATE__METHODS;
-static Obj  GC_IGNORE__IMMEDIATE__METHODS;
-static GVar G_IMM__FLAGS;
-static Obj  GC_IMM__FLAGS;
-static GVar G_TRACE__IMMEDIATE__METHODS;
-static Obj  GC_TRACE__IMMEDIATE__METHODS;
-static GVar G_IMMEDIATES;
-static Obj  GC_IMMEDIATES;
-static GVar G_SIZE__IMMEDIATE__METHOD__ENTRY;
-static Obj  GC_SIZE__IMMEDIATE__METHOD__ENTRY;
-static GVar G_IMMEDIATE__METHODS;
-static Obj  GC_IMMEDIATE__METHODS;
-static GVar G_RankFilter;
-static Obj  GF_RankFilter;
-static GVar G_CHECK__INSTALL__METHOD;
-static Obj  GC_CHECK__INSTALL__METHOD;
-static GVar G_READEVALCOMMAND__LINENUMBER;
-static Obj  GC_READEVALCOMMAND__LINENUMBER;
-static GVar G_INSTALL__METHOD;
-static Obj  GF_INSTALL__METHOD;
-static GVar G_DeclareGlobalFunction;
-static Obj  GF_DeclareGlobalFunction;
-static GVar G_EvalString;
-static Obj  GF_EvalString;
-static GVar G_WRAPPER__OPERATIONS;
-static Obj  GC_WRAPPER__OPERATIONS;
-static GVar G_INFO__DEBUG;
-static Obj  GF_INFO__DEBUG;
-static GVar G_GET__OPER__FLAGS;
-static Obj  GF_GET__OPER__FLAGS;
-static GVar G_NamesFilter;
-static Obj  GF_NamesFilter;
-static GVar G_Ordinal;
-static Obj  GF_Ordinal;
-static GVar G_HasNameFunction;
-static Obj  GC_HasNameFunction;
-static GVar G_INSTALL__METHOD__FLAGS;
-static Obj  GF_INSTALL__METHOD__FLAGS;
-static GVar G_LENGTH__SETTER__METHODS__2;
-static Obj  GC_LENGTH__SETTER__METHODS__2;
-static GVar G_InstallAttributeFunction;
-static Obj  GF_InstallAttributeFunction;
-static GVar G_INFO__FILTERS;
-static Obj  GC_INFO__FILTERS;
-static GVar G_FNUM__CATS__AND__REPS;
-static Obj  GC_FNUM__CATS__AND__REPS;
-static GVar G_FILTERS;
-static Obj  GC_FILTERS;
-static GVar G_FNUM__PROS;
-static Obj  GC_FNUM__PROS;
-static GVar G_InstallOtherMethod;
-static Obj  GF_InstallOtherMethod;
-static GVar G_Tester;
-static Obj  GF_Tester;
-static GVar G_IsPrimeInt;
-static Obj  GF_IsPrimeInt;
-static GVar G_DeclareOperation;
-static Obj  GF_DeclareOperation;
-static GVar G_VALUE__GLOBAL;
-static Obj  GF_VALUE__GLOBAL;
-static GVar G_DeclareAttribute;
-static Obj  GF_DeclareAttribute;
-static GVar G_InstallMethod;
-static Obj  GF_InstallMethod;
-static GVar G_PositionSortedOddPositions;
-static Obj  GF_PositionSortedOddPositions;
-static GVar G_CallFuncList;
-static Obj  GF_CallFuncList;
-
-/* record names used in handlers */
-static RNam R_MaxNrArgsMethod;
-static RNam R_CommandLineOptions;
-static RNam R_N;
-
-/* information for the functions */
-static Obj  NameFunc[20];
-static Obj FileName;
-
-/* handler for function 2 */
-static Obj  HdlrFunc2 (
- Obj  self,
- Obj  a_obj,
- Obj  a_flags )
-{
- Obj l_flagspos = 0;
- Obj l_tried = 0;
- Obj l_type = 0;
- Obj l_j = 0;
- Obj l_imm = 0;
- Obj l_i = 0;
- Obj l_meth = 0;
- Obj l_res = 0;
- Obj l_loc = 0;
- Obj l_newflags = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- Obj t_7 = 0;
- Obj t_8 = 0;
- Obj t_9 = 0;
- Obj t_10 = 0;
- Obj t_11 = 0;
- Obj t_12 = 0;
- Obj t_13 = 0;
- Obj t_14 = 0;
- Obj t_15 = 0;
- Obj t_16 = 0;
- Obj t_17 = 0;
- (void)l_flagspos;
- (void)l_tried;
- (void)l_type;
- (void)l_j;
- (void)l_imm;
- (void)l_i;
- (void)l_meth;
- (void)l_res;
- (void)l_loc;
- (void)l_newflags;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* if IGNORE_IMMEDIATE_METHODS then */
- t_2 = GC_IGNORE__IMMEDIATE__METHODS;
- CHECK_BOUND( t_2, "IGNORE_IMMEDIATE_METHODS" );
- CHECK_BOOL( t_2 );
- t_1 = (Obj)(UInt)(t_2 != False);
- if ( t_1 ) {
-  
-  /* return; */
-  SWITCH_TO_OLD_FRAME(oldFrame);
-  return 0;
-  
- }
- /* fi */
- 
- /* if IS_SUBSET_FLAGS( IMM_FLAGS, flags ) then */
- t_3 = GF_IS__SUBSET__FLAGS;
- t_4 = GC_IMM__FLAGS;
- CHECK_BOUND( t_4, "IMM_FLAGS" );
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_2ARGS( t_3, t_4, a_flags );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( t_4, a_flags ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- CHECK_BOOL( t_2 );
- t_1 = (Obj)(UInt)(t_2 != False);
- if ( t_1 ) {
-  
-  /* return; */
-  SWITCH_TO_OLD_FRAME(oldFrame);
-  return 0;
-  
- }
- /* fi */
- 
- /* flags := SUB_FLAGS( flags, IMM_FLAGS ); */
- t_2 = GF_SUB__FLAGS;
- t_3 = GC_IMM__FLAGS;
- CHECK_BOUND( t_3, "IMM_FLAGS" );
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_2ARGS( t_2, a_flags, t_3 );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_flags, t_3 ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- a_flags = t_1;
- 
- /* flagspos := SHALLOW_COPY_OBJ( TRUES_FLAGS( flags ) ); */
- t_2 = GF_SHALLOW__COPY__OBJ;
- t_4 = GF_TRUES__FLAGS;
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, a_flags );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( a_flags ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, t_3 );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( t_3 ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_flagspos = t_1;
- 
- /* tried := [  ]; */
- t_1 = NEW_PLIST( T_PLIST, 0 );
- SET_LEN_PLIST( t_1, 0 );
- l_tried = t_1;
- 
- /* type := TYPE_OBJ( obj ); */
- t_2 = GF_TYPE__OBJ;
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, a_obj );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_obj ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_type = t_1;
- 
- /* flags := type![2]; */
- t_1 = ElmPosObj( l_type, 2 );
- a_flags = t_1;
- 
- /* RUN_IMMEDIATE_METHODS_RUNS := RUN_IMMEDIATE_METHODS_RUNS + 1; */
- t_2 = GC_RUN__IMMEDIATE__METHODS__RUNS;
- CHECK_BOUND( t_2, "RUN_IMMEDIATE_METHODS_RUNS" );
- C_SUM_FIA( t_1, t_2, INTOBJ_INT(1) )
- AssGVar( G_RUN__IMMEDIATE__METHODS__RUNS, t_1 );
- 
- /* if TRACE_IMMEDIATE_METHODS then */
- t_2 = GC_TRACE__IMMEDIATE__METHODS;
- CHECK_BOUND( t_2, "TRACE_IMMEDIATE_METHODS" );
- CHECK_BOOL( t_2 );
- t_1 = (Obj)(UInt)(t_2 != False);
- if ( t_1 ) {
-  
-  /* Print( "#I RunImmediateMethods\n" ); */
-  t_1 = GF_Print;
-  t_2 = MakeString( "#I RunImmediateMethods\n" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_1ARGS( t_1, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
-  }
-  
- }
- /* fi */
- 
- /* for j in flagspos do */
- t_4 = l_flagspos;
- if ( IS_SMALL_LIST(t_4) ) {
-  t_3 = (Obj)(UInt)1;
-  t_1 = INTOBJ_INT(1);
- }
- else {
-  t_3 = (Obj)(UInt)0;
-  t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
- }
- while ( 1 ) {
-  if ( t_3 ) {
-   if ( LEN_LIST(t_4) < Int_ObjInt(t_1) )  break;
-   t_2 = ELMV0_LIST( t_4, Int_ObjInt(t_1) );
-   t_1 = (Obj)(((UInt)t_1)+4);
-   if ( t_2 == 0 )  continue;
-  }
-  else {
-   if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
-   t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
-  }
-  l_j = t_2;
-  
-  /* if IsBound( IMMEDIATES[j] ) then */
-  t_7 = GC_IMMEDIATES;
-  CHECK_BOUND( t_7, "IMMEDIATES" );
-  CHECK_INT_POS( l_j );
-  t_6 = C_ISB_LIST( t_7, l_j );
-  t_5 = (Obj)(UInt)(t_6 != False);
-  if ( t_5 ) {
-   
-   /* imm := IMMEDIATES[j]; */
-   t_6 = GC_IMMEDIATES;
-   CHECK_BOUND( t_6, "IMMEDIATES" );
-   C_ELM_LIST_FPL( t_5, t_6, l_j )
-   l_imm = t_5;
-   
-   /* for i in [ 0, SIZE_IMMEDIATE_METHOD_ENTRY .. LEN_LIST( imm ) - SIZE_IMMEDIATE_METHOD_ENTRY ] do */
-   t_9 = GC_SIZE__IMMEDIATE__METHOD__ENTRY;
-   CHECK_BOUND( t_9, "SIZE_IMMEDIATE_METHOD_ENTRY" );
-   t_12 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_12 ) == T_FUNCTION ) {
-    t_11 = CALL_1ARGS( t_12, l_imm );
-   }
-   else {
-    t_11 = DoOperation2Args( CallFuncListOper, t_12, NewPlistFromArgs( l_imm ) );
-   }
-   CHECK_FUNC_RESULT( t_11 );
-   t_12 = GC_SIZE__IMMEDIATE__METHOD__ENTRY;
-   CHECK_BOUND( t_12, "SIZE_IMMEDIATE_METHOD_ENTRY" );
-   C_DIFF_FIA( t_10, t_11, t_12 )
-   t_8 = Range3Check( INTOBJ_INT(0), t_9, t_10 );
-   if ( IS_SMALL_LIST(t_8) ) {
-    t_7 = (Obj)(UInt)1;
-    t_5 = INTOBJ_INT(1);
-   }
-   else {
-    t_7 = (Obj)(UInt)0;
-    t_5 = CALL_1ARGS( GF_ITERATOR, t_8 );
-   }
-   while ( 1 ) {
-    if ( t_7 ) {
-     if ( LEN_LIST(t_8) < Int_ObjInt(t_5) )  break;
-     t_6 = ELMV0_LIST( t_8, Int_ObjInt(t_5) );
-     t_5 = (Obj)(((UInt)t_5)+4);
-     if ( t_6 == 0 )  continue;
-    }
-    else {
-     if ( CALL_1ARGS( GF_IS_DONE_ITER, t_5 ) != False )  break;
-     t_6 = CALL_1ARGS( GF_NEXT_ITER, t_5 );
-    }
-    l_i = t_6;
-    
-    /* if IS_SUBSET_FLAGS( flags, imm[i + 4] ) and not IS_SUBSET_FLAGS( flags, imm[i + 3] ) and not imm[i + 6] in tried then */
-    t_13 = GF_IS__SUBSET__FLAGS;
-    C_SUM_FIA( t_15, l_i, INTOBJ_INT(4) )
-    CHECK_INT_POS( t_15 );
-    C_ELM_LIST_FPL( t_14, l_imm, t_15 )
-    if ( TNUM_OBJ( t_13 ) == T_FUNCTION ) {
-     t_12 = CALL_2ARGS( t_13, a_flags, t_14 );
-    }
-    else {
-     t_12 = DoOperation2Args( CallFuncListOper, t_13, NewPlistFromArgs( a_flags, t_14 ) );
-    }
-    CHECK_FUNC_RESULT( t_12 );
-    CHECK_BOOL( t_12 );
-    t_11 = (Obj)(UInt)(t_12 != False);
-    t_10 = t_11;
-    if ( t_10 ) {
-     t_15 = GF_IS__SUBSET__FLAGS;
-     C_SUM_FIA( t_17, l_i, INTOBJ_INT(3) )
-     CHECK_INT_POS( t_17 );
-     C_ELM_LIST_FPL( t_16, l_imm, t_17 )
-     if ( TNUM_OBJ( t_15 ) == T_FUNCTION ) {
-      t_14 = CALL_2ARGS( t_15, a_flags, t_16 );
-     }
-     else {
-      t_14 = DoOperation2Args( CallFuncListOper, t_15, NewPlistFromArgs( a_flags, t_16 ) );
-     }
-     CHECK_FUNC_RESULT( t_14 );
-     CHECK_BOOL( t_14 );
-     t_13 = (Obj)(UInt)(t_14 != False);
-     t_12 = (Obj)(UInt)( ! ((Int)t_13) );
-     t_10 = t_12;
-    }
-    t_9 = t_10;
-    if ( t_9 ) {
-     C_SUM_FIA( t_14, l_i, INTOBJ_INT(6) )
-     CHECK_INT_POS( t_14 );
-     C_ELM_LIST_FPL( t_13, l_imm, t_14 )
-     t_12 = (Obj)(UInt)(IN( t_13, l_tried ));
-     t_11 = (Obj)(UInt)( ! ((Int)t_12) );
-     t_9 = t_11;
-    }
-    if ( t_9 ) {
-     
-     /* meth := IMMEDIATE_METHODS[imm[i + 6]]; */
-     t_10 = GC_IMMEDIATE__METHODS;
-     CHECK_BOUND( t_10, "IMMEDIATE_METHODS" );
-     C_SUM_FIA( t_12, l_i, INTOBJ_INT(6) )
-     CHECK_INT_POS( t_12 );
-     C_ELM_LIST_FPL( t_11, l_imm, t_12 )
-     CHECK_INT_POS( t_11 );
-     C_ELM_LIST_FPL( t_9, t_10, t_11 )
-     l_meth = t_9;
-     
-     /* res := meth( obj ); */
-     if ( TNUM_OBJ( l_meth ) == T_FUNCTION ) {
-      t_9 = CALL_1ARGS( l_meth, a_obj );
-     }
-     else {
-      t_9 = DoOperation2Args( CallFuncListOper, l_meth, NewPlistFromArgs( a_obj ) );
-     }
-     CHECK_FUNC_RESULT( t_9 );
-     l_res = t_9;
-     
-     /* ADD_LIST( tried, imm[i + 6] ); */
-     t_9 = GF_ADD__LIST;
-     C_SUM_FIA( t_11, l_i, INTOBJ_INT(6) )
-     CHECK_INT_POS( t_11 );
-     C_ELM_LIST_FPL( t_10, l_imm, t_11 )
-     if ( TNUM_OBJ( t_9 ) == T_FUNCTION ) {
-      CALL_2ARGS( t_9, l_tried, t_10 );
-     }
-     else {
-      DoOperation2Args( CallFuncListOper, t_9, NewPlistFromArgs( l_tried, t_10 ) );
-     }
-     
-     /* RUN_IMMEDIATE_METHODS_CHECKS := RUN_IMMEDIATE_METHODS_CHECKS + 1; */
-     t_10 = GC_RUN__IMMEDIATE__METHODS__CHECKS;
-     CHECK_BOUND( t_10, "RUN_IMMEDIATE_METHODS_CHECKS" );
-     C_SUM_FIA( t_9, t_10, INTOBJ_INT(1) )
-     AssGVar( G_RUN__IMMEDIATE__METHODS__CHECKS, t_9 );
-     
-     /* if TRACE_IMMEDIATE_METHODS then */
-     t_10 = GC_TRACE__IMMEDIATE__METHODS;
-     CHECK_BOUND( t_10, "TRACE_IMMEDIATE_METHODS" );
-     CHECK_BOOL( t_10 );
-     t_9 = (Obj)(UInt)(t_10 != False);
-     if ( t_9 ) {
-      
-      /* Print( "#I  immediate: ", NAME_FUNC( imm[i + 1] ) ); */
-      t_9 = GF_Print;
-      t_10 = MakeString( "#I  immediate: " );
-      t_12 = GF_NAME__FUNC;
-      C_SUM_FIA( t_14, l_i, INTOBJ_INT(1) )
-      CHECK_INT_POS( t_14 );
-      C_ELM_LIST_FPL( t_13, l_imm, t_14 )
-      if ( TNUM_OBJ( t_12 ) == T_FUNCTION ) {
-       t_11 = CALL_1ARGS( t_12, t_13 );
-      }
-      else {
-       t_11 = DoOperation2Args( CallFuncListOper, t_12, NewPlistFromArgs( t_13 ) );
-      }
-      CHECK_FUNC_RESULT( t_11 );
-      if ( TNUM_OBJ( t_9 ) == T_FUNCTION ) {
-       CALL_2ARGS( t_9, t_10, t_11 );
-      }
-      else {
-       DoOperation2Args( CallFuncListOper, t_9, NewPlistFromArgs( t_10, t_11 ) );
-      }
-      
-      /* if imm[i + 7] <> false then */
-      C_SUM_FIA( t_11, l_i, INTOBJ_INT(7) )
-      CHECK_INT_POS( t_11 );
-      C_ELM_LIST_FPL( t_10, l_imm, t_11 )
-      t_11 = False;
-      t_9 = (Obj)(UInt)( ! EQ( t_10, t_11 ));
-      if ( t_9 ) {
-       
-       /* Print( ": ", imm[i + 7] ); */
-       t_9 = GF_Print;
-       t_10 = MakeString( ": " );
-       C_SUM_FIA( t_12, l_i, INTOBJ_INT(7) )
-       CHECK_INT_POS( t_12 );
-       C_ELM_LIST_FPL( t_11, l_imm, t_12 )
-       if ( TNUM_OBJ( t_9 ) == T_FUNCTION ) {
-        CALL_2ARGS( t_9, t_10, t_11 );
-       }
-       else {
-        DoOperation2Args( CallFuncListOper, t_9, NewPlistFromArgs( t_10, t_11 ) );
-       }
-       
-      }
-      /* fi */
-      
-      /* Print( " at ", imm[i + 8][1], ":", imm[i + 8][2], "\n" ); */
-      t_9 = GF_Print;
-      t_10 = MakeString( " at " );
-      C_SUM_FIA( t_13, l_i, INTOBJ_INT(8) )
-      CHECK_INT_POS( t_13 );
-      C_ELM_LIST_FPL( t_12, l_imm, t_13 )
-      C_ELM_LIST_FPL( t_11, t_12, INTOBJ_INT(1) )
-      t_12 = MakeString( ":" );
-      C_SUM_FIA( t_15, l_i, INTOBJ_INT(8) )
-      CHECK_INT_POS( t_15 );
-      C_ELM_LIST_FPL( t_14, l_imm, t_15 )
-      C_ELM_LIST_FPL( t_13, t_14, INTOBJ_INT(2) )
-      t_14 = MakeString( "\n" );
-      if ( TNUM_OBJ( t_9 ) == T_FUNCTION ) {
-       CALL_5ARGS( t_9, t_10, t_11, t_12, t_13, t_14 );
-      }
-      else {
-       DoOperation2Args( CallFuncListOper, t_9, NewPlistFromArgs( t_10, t_11, t_12, t_13, t_14 ) );
-      }
-      
-     }
-     /* fi */
-     
-     /* if res <> TRY_NEXT_METHOD then */
-     t_10 = GC_TRY__NEXT__METHOD;
-     CHECK_BOUND( t_10, "TRY_NEXT_METHOD" );
-     t_9 = (Obj)(UInt)( ! EQ( l_res, t_10 ));
-     if ( t_9 ) {
-      
-      /* IGNORE_IMMEDIATE_METHODS := true; */
-      t_9 = True;
-      AssGVar( G_IGNORE__IMMEDIATE__METHODS, t_9 );
-      
-      /* imm[i + 2]( obj, res ); */
-      C_SUM_FIA( t_10, l_i, INTOBJ_INT(2) )
-      CHECK_INT_POS( t_10 );
-      C_ELM_LIST_FPL( t_9, l_imm, t_10 )
-      if ( TNUM_OBJ( t_9 ) == T_FUNCTION ) {
-       CALL_2ARGS( t_9, a_obj, l_res );
-      }
-      else {
-       DoOperation2Args( CallFuncListOper, t_9, NewPlistFromArgs( a_obj, l_res ) );
-      }
-      
-      /* IGNORE_IMMEDIATE_METHODS := false; */
-      t_9 = False;
-      AssGVar( G_IGNORE__IMMEDIATE__METHODS, t_9 );
-      
-      /* RUN_IMMEDIATE_METHODS_HITS := RUN_IMMEDIATE_METHODS_HITS + 1; */
-      t_10 = GC_RUN__IMMEDIATE__METHODS__HITS;
-      CHECK_BOUND( t_10, "RUN_IMMEDIATE_METHODS_HITS" );
-      C_SUM_FIA( t_9, t_10, INTOBJ_INT(1) )
-      AssGVar( G_RUN__IMMEDIATE__METHODS__HITS, t_9 );
-      
-      /* if not IS_IDENTICAL_OBJ( TYPE_OBJ( obj ), type ) then */
-      t_12 = GF_IS__IDENTICAL__OBJ;
-      t_14 = GF_TYPE__OBJ;
-      if ( TNUM_OBJ( t_14 ) == T_FUNCTION ) {
-       t_13 = CALL_1ARGS( t_14, a_obj );
-      }
-      else {
-       t_13 = DoOperation2Args( CallFuncListOper, t_14, NewPlistFromArgs( a_obj ) );
-      }
-      CHECK_FUNC_RESULT( t_13 );
-      if ( TNUM_OBJ( t_12 ) == T_FUNCTION ) {
-       t_11 = CALL_2ARGS( t_12, t_13, l_type );
-      }
-      else {
-       t_11 = DoOperation2Args( CallFuncListOper, t_12, NewPlistFromArgs( t_13, l_type ) );
-      }
-      CHECK_FUNC_RESULT( t_11 );
-      CHECK_BOOL( t_11 );
-      t_10 = (Obj)(UInt)(t_11 != False);
-      t_9 = (Obj)(UInt)( ! ((Int)t_10) );
-      if ( t_9 ) {
-       
-       /* type := TYPE_OBJ( obj ); */
-       t_10 = GF_TYPE__OBJ;
-       if ( TNUM_OBJ( t_10 ) == T_FUNCTION ) {
-        t_9 = CALL_1ARGS( t_10, a_obj );
-       }
-       else {
-        t_9 = DoOperation2Args( CallFuncListOper, t_10, NewPlistFromArgs( a_obj ) );
-       }
-       CHECK_FUNC_RESULT( t_9 );
-       l_type = t_9;
-       
-       /* newflags := SUB_FLAGS( type![2], IMM_FLAGS ); */
-       t_10 = GF_SUB__FLAGS;
-       t_11 = ElmPosObj( l_type, 2 );
-       t_12 = GC_IMM__FLAGS;
-       CHECK_BOUND( t_12, "IMM_FLAGS" );
-       if ( TNUM_OBJ( t_10 ) == T_FUNCTION ) {
-        t_9 = CALL_2ARGS( t_10, t_11, t_12 );
-       }
-       else {
-        t_9 = DoOperation2Args( CallFuncListOper, t_10, NewPlistFromArgs( t_11, t_12 ) );
-       }
-       CHECK_FUNC_RESULT( t_9 );
-       l_newflags = t_9;
-       
-       /* newflags := SUB_FLAGS( newflags, flags ); */
-       t_10 = GF_SUB__FLAGS;
-       if ( TNUM_OBJ( t_10 ) == T_FUNCTION ) {
-        t_9 = CALL_2ARGS( t_10, l_newflags, a_flags );
-       }
-       else {
-        t_9 = DoOperation2Args( CallFuncListOper, t_10, NewPlistFromArgs( l_newflags, a_flags ) );
-       }
-       CHECK_FUNC_RESULT( t_9 );
-       l_newflags = t_9;
-       
-       /* APPEND_LIST_INTR( flagspos, TRUES_FLAGS( newflags ) ); */
-       t_9 = GF_APPEND__LIST__INTR;
-       t_11 = GF_TRUES__FLAGS;
-       if ( TNUM_OBJ( t_11 ) == T_FUNCTION ) {
-        t_10 = CALL_1ARGS( t_11, l_newflags );
-       }
-       else {
-        t_10 = DoOperation2Args( CallFuncListOper, t_11, NewPlistFromArgs( l_newflags ) );
-       }
-       CHECK_FUNC_RESULT( t_10 );
-       if ( TNUM_OBJ( t_9 ) == T_FUNCTION ) {
-        CALL_2ARGS( t_9, l_flagspos, t_10 );
-       }
-       else {
-        DoOperation2Args( CallFuncListOper, t_9, NewPlistFromArgs( l_flagspos, t_10 ) );
-       }
-       
-       /* flags := type![2]; */
-       t_9 = ElmPosObj( l_type, 2 );
-       a_flags = t_9;
-       
-      }
-      /* fi */
-      
-     }
-     /* fi */
-     
-    }
-    /* fi */
-    
-   }
-   /* od */
-   
-  }
-  /* fi */
-  
- }
- /* od */
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 3 */
-static Obj  HdlrFunc3 (
- Obj  self,
- Obj  a_opr,
- Obj  a_info,
- Obj  a_rel,
- Obj  a_flags,
- Obj  a_baserank,
- Obj  a_method )
-{
- Obj l_methods = 0;
- Obj l_narg = 0;
- Obj l_i = 0;
- Obj l_k = 0;
- Obj l_tmp = 0;
- Obj l_replace = 0;
- Obj l_match = 0;
- Obj l_j = 0;
- Obj l_lk = 0;
- Obj l_rank = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- Obj t_7 = 0;
- Obj t_8 = 0;
- (void)l_methods;
- (void)l_narg;
- (void)l_i;
- (void)l_k;
- (void)l_tmp;
- (void)l_replace;
- (void)l_match;
- (void)l_j;
- (void)l_lk;
- (void)l_rank;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* if IS_FUNCTION( baserank ) then */
- t_3 = GF_IS__FUNCTION;
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, a_baserank );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_baserank ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- CHECK_BOOL( t_2 );
- t_1 = (Obj)(UInt)(t_2 != False);
- if ( t_1 ) {
-  
-  /* rank := baserank(  ); */
-  if ( TNUM_OBJ( a_baserank ) == T_FUNCTION ) {
-   t_1 = CALL_0ARGS( a_baserank );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, a_baserank, NewPlistFromArgs( ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  l_rank = t_1;
-  
- }
- 
- /* else */
- else {
-  
-  /* rank := baserank; */
-  l_rank = a_baserank;
-  
- }
- /* fi */
- 
- /* if IS_CONSTRUCTOR( opr ) then */
- t_3 = GF_IS__CONSTRUCTOR;
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, a_opr );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_opr ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- CHECK_BOOL( t_2 );
- t_1 = (Obj)(UInt)(t_2 != False);
- if ( t_1 ) {
-  
-  /* if 0 = LEN_LIST( flags ) then */
-  t_3 = GF_LEN__LIST;
-  if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-   t_2 = CALL_1ARGS( t_3, a_flags );
-  }
-  else {
-   t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_flags ) );
-  }
-  CHECK_FUNC_RESULT( t_2 );
-  t_1 = (Obj)(UInt)(EQ( INTOBJ_INT(0), t_2 ));
-  if ( t_1 ) {
-   
-   /* Error( NAME_FUNC( opr ), ": constructors must have at least one argument" ); */
-   t_1 = GF_Error;
-   t_3 = GF_NAME__FUNC;
-   if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-    t_2 = CALL_1ARGS( t_3, a_opr );
-   }
-   else {
-    t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_opr ) );
-   }
-   CHECK_FUNC_RESULT( t_2 );
-   t_3 = MakeString( ": constructors must have at least one argument" );
-   if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-    CALL_2ARGS( t_1, t_2, t_3 );
-   }
-   else {
-    DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
-   }
-   
-  }
-  /* fi */
-  
-  /* rank := rank - RankFilter( flags[1] ); */
-  t_3 = GF_RankFilter;
-  C_ELM_LIST_FPL( t_4, a_flags, INTOBJ_INT(1) )
-  if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-   t_2 = CALL_1ARGS( t_3, t_4 );
-  }
-  else {
-   t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( t_4 ) );
-  }
-  CHECK_FUNC_RESULT( t_2 );
-  C_DIFF_FIA( t_1, l_rank, t_2 )
-  l_rank = t_1;
-  
- }
- 
- /* else */
- else {
-  
-  /* for i in flags do */
-  t_4 = a_flags;
-  if ( IS_SMALL_LIST(t_4) ) {
-   t_3 = (Obj)(UInt)1;
-   t_1 = INTOBJ_INT(1);
-  }
-  else {
-   t_3 = (Obj)(UInt)0;
-   t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
-  }
-  while ( 1 ) {
-   if ( t_3 ) {
-    if ( LEN_LIST(t_4) < Int_ObjInt(t_1) )  break;
-    t_2 = ELMV0_LIST( t_4, Int_ObjInt(t_1) );
-    t_1 = (Obj)(((UInt)t_1)+4);
-    if ( t_2 == 0 )  continue;
-   }
-   else {
-    if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
-    t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
-   }
-   l_i = t_2;
-   
-   /* rank := rank + RankFilter( i ); */
-   t_7 = GF_RankFilter;
-   if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-    t_6 = CALL_1ARGS( t_7, l_i );
-   }
-   else {
-    t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( l_i ) );
-   }
-   CHECK_FUNC_RESULT( t_6 );
-   C_SUM_FIA( t_5, l_rank, t_6 )
-   l_rank = t_5;
-   
-  }
-  /* od */
-  
- }
- /* fi */
- 
- /* narg := LEN_LIST( flags ); */
- t_2 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, a_flags );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_flags ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_narg = t_1;
- 
- /* methods := METHODS_OPERATION( opr, narg ); */
- t_2 = GF_METHODS__OPERATION;
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_2ARGS( t_2, a_opr, l_narg );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_opr, l_narg ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_methods = t_1;
- 
- /* if info = false then */
- t_2 = False;
- t_1 = (Obj)(UInt)(EQ( a_info, t_2 ));
- if ( t_1 ) {
-  
-  /* info := NAME_FUNC( opr ); */
-  t_2 = GF_NAME__FUNC;
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_1ARGS( t_2, a_opr );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_opr ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  a_info = t_1;
-  
- }
- 
- /* else */
- else {
-  
-  /* k := SHALLOW_COPY_OBJ( NAME_FUNC( opr ) ); */
-  t_2 = GF_SHALLOW__COPY__OBJ;
-  t_4 = GF_NAME__FUNC;
-  if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-   t_3 = CALL_1ARGS( t_4, a_opr );
-  }
-  else {
-   t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( a_opr ) );
-  }
-  CHECK_FUNC_RESULT( t_3 );
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_1ARGS( t_2, t_3 );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( t_3 ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  l_k = t_1;
-  
-  /* APPEND_LIST_INTR( k, ": " ); */
-  t_1 = GF_APPEND__LIST__INTR;
-  t_2 = MakeString( ": " );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_2ARGS( t_1, l_k, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_k, t_2 ) );
-  }
-  
-  /* APPEND_LIST_INTR( k, info ); */
-  t_1 = GF_APPEND__LIST__INTR;
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_2ARGS( t_1, l_k, a_info );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_k, a_info ) );
-  }
-  
-  /* info := k; */
-  a_info = l_k;
-  
-  /* CONV_STRING( info ); */
-  t_1 = GF_CONV__STRING;
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_1ARGS( t_1, a_info );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( a_info ) );
-  }
-  
- }
- /* fi */
- 
- /* i := 0; */
- l_i = INTOBJ_INT(0);
- 
- /* while i < LEN_LIST( methods ) and rank < methods[i + (narg + 3)] do */
- while ( 1 ) {
-  t_4 = GF_LEN__LIST;
-  if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-   t_3 = CALL_1ARGS( t_4, l_methods );
-  }
-  else {
-   t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_methods ) );
-  }
-  CHECK_FUNC_RESULT( t_3 );
-  t_2 = (Obj)(UInt)(LT( l_i, t_3 ));
-  t_1 = t_2;
-  if ( t_1 ) {
-   C_SUM_FIA( t_6, l_narg, INTOBJ_INT(3) )
-   C_SUM_FIA( t_5, l_i, t_6 )
-   CHECK_INT_POS( t_5 );
-   C_ELM_LIST_FPL( t_4, l_methods, t_5 )
-   t_3 = (Obj)(UInt)(LT( l_rank, t_4 ));
-   t_1 = t_3;
-  }
-  if ( ! t_1 ) break;
-  
-  /* i := i + (narg + 6); */
-  C_SUM_FIA( t_2, l_narg, INTOBJ_INT(6) )
-  C_SUM_FIA( t_1, l_i, t_2 )
-  l_i = t_1;
-  
- }
- /* od */
- 
- /* replace := false; */
- t_1 = False;
- l_replace = t_1;
- 
- /* if REREADING then */
- t_2 = GC_REREADING;
- CHECK_BOUND( t_2, "REREADING" );
- CHECK_BOOL( t_2 );
- t_1 = (Obj)(UInt)(t_2 != False);
- if ( t_1 ) {
-  
-  /* k := i; */
-  l_k = l_i;
-  
-  /* while k < LEN_LIST( methods ) and rank = methods[k + narg + 3] do */
-  while ( 1 ) {
-   t_4 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-    t_3 = CALL_1ARGS( t_4, l_methods );
-   }
-   else {
-    t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_methods ) );
-   }
-   CHECK_FUNC_RESULT( t_3 );
-   t_2 = (Obj)(UInt)(LT( l_k, t_3 ));
-   t_1 = t_2;
-   if ( t_1 ) {
-    C_SUM_FIA( t_6, l_k, l_narg )
-    C_SUM_FIA( t_5, t_6, INTOBJ_INT(3) )
-    CHECK_INT_POS( t_5 );
-    C_ELM_LIST_FPL( t_4, l_methods, t_5 )
-    t_3 = (Obj)(UInt)(EQ( l_rank, t_4 ));
-    t_1 = t_3;
-   }
-   if ( ! t_1 ) break;
-   
-   /* if info = methods[k + narg + 4] then */
-   C_SUM_FIA( t_4, l_k, l_narg )
-   C_SUM_FIA( t_3, t_4, INTOBJ_INT(4) )
-   CHECK_INT_POS( t_3 );
-   C_ELM_LIST_FPL( t_2, l_methods, t_3 )
-   t_1 = (Obj)(UInt)(EQ( a_info, t_2 ));
-   if ( t_1 ) {
-    
-    /* match := true; */
-    t_1 = True;
-    l_match = t_1;
-    
-    /* for j in [ 1 .. narg ] do */
-    CHECK_INT_SMALL( l_narg );
-    t_2 = l_narg;
-    for ( t_1 = INTOBJ_INT(1);
-          ((Int)t_1) <= ((Int)t_2);
-          t_1 = (Obj)(((UInt)t_1)+4) ) {
-     l_j = t_1;
-     
-     /* match := match and methods[k + j + 1] = flags[j]; */
-     if ( l_match == False ) {
-      t_3 = l_match;
-     }
-     else if ( l_match == True ) {
-      C_SUM_FIA( t_7, l_k, l_j )
-      C_SUM_FIA( t_6, t_7, INTOBJ_INT(1) )
-      CHECK_INT_POS( t_6 );
-      C_ELM_LIST_FPL( t_5, l_methods, t_6 )
-      C_ELM_LIST_FPL( t_6, a_flags, l_j )
-      t_4 = (EQ( t_5, t_6 ) ? True : False);
-      t_3 = t_4;
-     }
-     else if (IS_FILTER( l_match ) ) {
-      C_SUM_FIA( t_8, l_k, l_j )
-      C_SUM_FIA( t_7, t_8, INTOBJ_INT(1) )
-      CHECK_INT_POS( t_7 );
-      C_ELM_LIST_FPL( t_6, l_methods, t_7 )
-      C_ELM_LIST_FPL( t_7, a_flags, l_j )
-      t_5 = (EQ( t_6, t_7 ) ? True : False);
-      t_3 = NewAndFilter( l_match, t_5 );
-     }
-     else {
-      RequireArgumentEx(0, l_match, "<expr>",
-      "must be 'true' or 'false' or a filter" );
-     }
-     l_match = t_3;
-     
-    }
-    /* od */
-    
-    /* if match then */
-    CHECK_BOOL( l_match );
-    t_1 = (Obj)(UInt)(l_match != False);
-    if ( t_1 ) {
-     
-     /* replace := true; */
-     t_1 = True;
-     l_replace = t_1;
-     
-     /* i := k; */
-     l_i = l_k;
-     
-     /* break; */
-     break;
-     
-    }
-    /* fi */
-    
-   }
-   /* fi */
-   
-   /* k := k + narg + 6; */
-   C_SUM_FIA( t_2, l_k, l_narg )
-   C_SUM_FIA( t_1, t_2, INTOBJ_INT(6) )
-   l_k = t_1;
-   
-  }
-  /* od */
-  
- }
- /* fi */
- 
- /* if not REREADING or not replace then */
- t_4 = GC_REREADING;
- CHECK_BOUND( t_4, "REREADING" );
- CHECK_BOOL( t_4 );
- t_3 = (Obj)(UInt)(t_4 != False);
- t_2 = (Obj)(UInt)( ! ((Int)t_3) );
- t_1 = t_2;
- if ( ! t_1 ) {
-  t_4 = (Obj)(UInt)(l_replace != False);
-  t_3 = (Obj)(UInt)( ! ((Int)t_4) );
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* COPY_LIST_ENTRIES( methods, i + 1, 1, methods, narg + 6 + i + 1, 1, LEN_LIST( methods ) - i ); */
-  t_1 = GF_COPY__LIST__ENTRIES;
-  t_2 = NEW_PLIST( T_PLIST, 7 );
-  SET_LEN_PLIST( t_2, 7 );
-  SET_ELM_PLIST( t_2, 1, l_methods );
-  CHANGED_BAG( t_2 );
-  C_SUM_FIA( t_3, l_i, INTOBJ_INT(1) )
-  SET_ELM_PLIST( t_2, 2, t_3 );
-  CHANGED_BAG( t_2 );
-  SET_ELM_PLIST( t_2, 3, INTOBJ_INT(1) );
-  SET_ELM_PLIST( t_2, 4, l_methods );
-  CHANGED_BAG( t_2 );
-  C_SUM_FIA( t_5, l_narg, INTOBJ_INT(6) )
-  C_SUM_FIA( t_4, t_5, l_i )
-  C_SUM_FIA( t_3, t_4, INTOBJ_INT(1) )
-  SET_ELM_PLIST( t_2, 5, t_3 );
-  CHANGED_BAG( t_2 );
-  SET_ELM_PLIST( t_2, 6, INTOBJ_INT(1) );
-  t_5 = GF_LEN__LIST;
-  if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-   t_4 = CALL_1ARGS( t_5, l_methods );
-  }
-  else {
-   t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_methods ) );
-  }
-  CHECK_FUNC_RESULT( t_4 );
-  C_DIFF_FIA( t_3, t_4, l_i )
-  SET_ELM_PLIST( t_2, 7, t_3 );
-  CHANGED_BAG( t_2 );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_XARGS( t_1, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, t_2 );
-  }
-  
- }
- /* fi */
- 
- /* if rel = true then */
- t_2 = True;
- t_1 = (Obj)(UInt)(EQ( a_rel, t_2 ));
- if ( t_1 ) {
-  
-  /* rel := RETURN_TRUE; */
-  t_1 = GC_RETURN__TRUE;
-  CHECK_BOUND( t_1, "RETURN_TRUE" );
-  a_rel = t_1;
-  
- }
- 
- /* elif rel = false then */
- else {
-  t_2 = False;
-  t_1 = (Obj)(UInt)(EQ( a_rel, t_2 ));
-  if ( t_1 ) {
-   
-   /* rel := RETURN_FALSE; */
-   t_1 = GC_RETURN__FALSE;
-   CHECK_BOUND( t_1, "RETURN_FALSE" );
-   a_rel = t_1;
-   
-  }
-  
-  /* elif IS_FUNCTION( rel ) then */
-  else {
-   t_3 = GF_IS__FUNCTION;
-   if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-    t_2 = CALL_1ARGS( t_3, a_rel );
-   }
-   else {
-    t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_rel ) );
-   }
-   CHECK_FUNC_RESULT( t_2 );
-   CHECK_BOOL( t_2 );
-   t_1 = (Obj)(UInt)(t_2 != False);
-   if ( t_1 ) {
-    
-    /* if CHECK_INSTALL_METHOD then */
-    t_2 = GC_CHECK__INSTALL__METHOD;
-    CHECK_BOUND( t_2, "CHECK_INSTALL_METHOD" );
-    CHECK_BOOL( t_2 );
-    t_1 = (Obj)(UInt)(t_2 != False);
-    if ( t_1 ) {
-     
-     /* tmp := NARG_FUNC( rel ); */
-     t_2 = GF_NARG__FUNC;
-     if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-      t_1 = CALL_1ARGS( t_2, a_rel );
-     }
-     else {
-      t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_rel ) );
-     }
-     CHECK_FUNC_RESULT( t_1 );
-     l_tmp = t_1;
-     
-     /* if tmp < AINV( narg ) - 1 or tmp >= 0 and tmp <> narg then */
-     t_5 = GF_AINV;
-     if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-      t_4 = CALL_1ARGS( t_5, l_narg );
-     }
-     else {
-      t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_narg ) );
-     }
-     CHECK_FUNC_RESULT( t_4 );
-     C_DIFF_FIA( t_3, t_4, INTOBJ_INT(1) )
-     t_2 = (Obj)(UInt)(LT( l_tmp, t_3 ));
-     t_1 = t_2;
-     if ( ! t_1 ) {
-      t_4 = (Obj)(UInt)(! LT( l_tmp, INTOBJ_INT(0) ));
-      t_3 = t_4;
-      if ( t_3 ) {
-       t_5 = (Obj)(UInt)( ! EQ( l_tmp, l_narg ));
-       t_3 = t_5;
-      }
-      t_1 = t_3;
-     }
-     if ( t_1 ) {
-      
-      /* Error( NAME_FUNC( opr ), ": <famrel> must accept ", narg, " arguments" ); */
-      t_1 = GF_Error;
-      t_3 = GF_NAME__FUNC;
-      if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-       t_2 = CALL_1ARGS( t_3, a_opr );
-      }
-      else {
-       t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_opr ) );
-      }
-      CHECK_FUNC_RESULT( t_2 );
-      t_3 = MakeString( ": <famrel> must accept " );
-      t_4 = MakeString( " arguments" );
-      if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-       CALL_4ARGS( t_1, t_2, t_3, l_narg, t_4 );
-      }
-      else {
-       DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, l_narg, t_4 ) );
-      }
-      
-     }
-     /* fi */
-     
-    }
-    /* fi */
-    
-   }
-   
-   /* else */
-   else {
-    
-    /* Error( NAME_FUNC( opr ), ": <famrel> must be a function, `true', or `false'" ); */
-    t_1 = GF_Error;
-    t_3 = GF_NAME__FUNC;
-    if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-     t_2 = CALL_1ARGS( t_3, a_opr );
-    }
-    else {
-     t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_opr ) );
-    }
-    CHECK_FUNC_RESULT( t_2 );
-    t_3 = MakeString( ": <famrel> must be a function, `true', or `false'" );
-    if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-     CALL_2ARGS( t_1, t_2, t_3 );
-    }
-    else {
-     DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
-    }
-    
-   }
-  }
- }
- /* fi */
- 
- /* if method = true then */
- t_2 = True;
- t_1 = (Obj)(UInt)(EQ( a_method, t_2 ));
- if ( t_1 ) {
-  
-  /* method := RETURN_TRUE; */
-  t_1 = GC_RETURN__TRUE;
-  CHECK_BOUND( t_1, "RETURN_TRUE" );
-  a_method = t_1;
-  
- }
- 
- /* elif method = false then */
- else {
-  t_2 = False;
-  t_1 = (Obj)(UInt)(EQ( a_method, t_2 ));
-  if ( t_1 ) {
-   
-   /* method := RETURN_FALSE; */
-   t_1 = GC_RETURN__FALSE;
-   CHECK_BOUND( t_1, "RETURN_FALSE" );
-   a_method = t_1;
-   
-  }
-  
-  /* elif IS_FUNCTION( method ) then */
-  else {
-   t_3 = GF_IS__FUNCTION;
-   if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-    t_2 = CALL_1ARGS( t_3, a_method );
-   }
-   else {
-    t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_method ) );
-   }
-   CHECK_FUNC_RESULT( t_2 );
-   CHECK_BOOL( t_2 );
-   t_1 = (Obj)(UInt)(t_2 != False);
-   if ( t_1 ) {
-    
-    /* if CHECK_INSTALL_METHOD and not IS_OPERATION( method ) then */
-    t_3 = GC_CHECK__INSTALL__METHOD;
-    CHECK_BOUND( t_3, "CHECK_INSTALL_METHOD" );
-    CHECK_BOOL( t_3 );
-    t_2 = (Obj)(UInt)(t_3 != False);
-    t_1 = t_2;
-    if ( t_1 ) {
-     t_6 = GF_IS__OPERATION;
-     if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-      t_5 = CALL_1ARGS( t_6, a_method );
-     }
-     else {
-      t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( a_method ) );
-     }
-     CHECK_FUNC_RESULT( t_5 );
-     CHECK_BOOL( t_5 );
-     t_4 = (Obj)(UInt)(t_5 != False);
-     t_3 = (Obj)(UInt)( ! ((Int)t_4) );
-     t_1 = t_3;
-    }
-    if ( t_1 ) {
-     
-     /* tmp := NARG_FUNC( method ); */
-     t_2 = GF_NARG__FUNC;
-     if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-      t_1 = CALL_1ARGS( t_2, a_method );
-     }
-     else {
-      t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_method ) );
-     }
-     CHECK_FUNC_RESULT( t_1 );
-     l_tmp = t_1;
-     
-     /* if tmp < AINV( narg ) - 1 or tmp >= 0 and tmp <> narg then */
-     t_5 = GF_AINV;
-     if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-      t_4 = CALL_1ARGS( t_5, l_narg );
-     }
-     else {
-      t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_narg ) );
-     }
-     CHECK_FUNC_RESULT( t_4 );
-     C_DIFF_FIA( t_3, t_4, INTOBJ_INT(1) )
-     t_2 = (Obj)(UInt)(LT( l_tmp, t_3 ));
-     t_1 = t_2;
-     if ( ! t_1 ) {
-      t_4 = (Obj)(UInt)(! LT( l_tmp, INTOBJ_INT(0) ));
-      t_3 = t_4;
-      if ( t_3 ) {
-       t_5 = (Obj)(UInt)( ! EQ( l_tmp, l_narg ));
-       t_3 = t_5;
-      }
-      t_1 = t_3;
-     }
-     if ( t_1 ) {
-      
-      /* Error( NAME_FUNC( opr ), ": <method> must accept ", narg, " arguments" ); */
-      t_1 = GF_Error;
-      t_3 = GF_NAME__FUNC;
-      if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-       t_2 = CALL_1ARGS( t_3, a_opr );
-      }
-      else {
-       t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_opr ) );
-      }
-      CHECK_FUNC_RESULT( t_2 );
-      t_3 = MakeString( ": <method> must accept " );
-      t_4 = MakeString( " arguments" );
-      if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-       CALL_4ARGS( t_1, t_2, t_3, l_narg, t_4 );
-      }
-      else {
-       DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, l_narg, t_4 ) );
-      }
-      
-     }
-     /* fi */
-     
-    }
-    /* fi */
-    
-   }
-   
-   /* else */
-   else {
-    
-    /* Error( NAME_FUNC( opr ), ": <method> must be a function, `true', or `false'" ); */
-    t_1 = GF_Error;
-    t_3 = GF_NAME__FUNC;
-    if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-     t_2 = CALL_1ARGS( t_3, a_opr );
-    }
-    else {
-     t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_opr ) );
-    }
-    CHECK_FUNC_RESULT( t_2 );
-    t_3 = MakeString( ": <method> must be a function, `true', or `false'" );
-    if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-     CALL_2ARGS( t_1, t_2, t_3 );
-    }
-    else {
-     DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
-    }
-    
-   }
-  }
- }
- /* fi */
- 
- /* methods[i + 1] := rel; */
- C_SUM_FIA( t_1, l_i, INTOBJ_INT(1) )
- CHECK_INT_POS( t_1 );
- C_ASS_LIST_FPL( l_methods, t_1, a_rel )
- 
- /* for k in [ 1 .. narg ] do */
- CHECK_INT_SMALL( l_narg );
- t_2 = l_narg;
- for ( t_1 = INTOBJ_INT(1);
-       ((Int)t_1) <= ((Int)t_2);
-       t_1 = (Obj)(((UInt)t_1)+4) ) {
-  l_k = t_1;
-  
-  /* methods[i + k + 1] := flags[k]; */
-  C_SUM_FIA( t_4, l_i, l_k )
-  C_SUM_FIA( t_3, t_4, INTOBJ_INT(1) )
-  CHECK_INT_POS( t_3 );
-  C_ELM_LIST_FPL( t_4, a_flags, l_k )
-  C_ASS_LIST_FPL( l_methods, t_3, t_4 )
-  
- }
- /* od */
- 
- /* methods[i + (narg + 2)] := method; */
- C_SUM_INTOBJS( t_2, l_narg, INTOBJ_INT(2) )
- C_SUM_FIA( t_1, l_i, t_2 )
- CHECK_INT_POS( t_1 );
- C_ASS_LIST_FPL( l_methods, t_1, a_method )
- 
- /* methods[i + (narg + 3)] := rank; */
- C_SUM_INTOBJS( t_2, l_narg, INTOBJ_INT(3) )
- C_SUM_FIA( t_1, l_i, t_2 )
- CHECK_INT_POS( t_1 );
- C_ASS_LIST_FPL( l_methods, t_1, l_rank )
- 
- /* methods[i + (narg + 4)] := IMMUTABLE_COPY_OBJ( info ); */
- C_SUM_INTOBJS( t_2, l_narg, INTOBJ_INT(4) )
- C_SUM_FIA( t_1, l_i, t_2 )
- CHECK_INT_POS( t_1 );
- t_3 = GF_IMMUTABLE__COPY__OBJ;
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, a_info );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_info ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- C_ASS_LIST_FPL( l_methods, t_1, t_2 )
- 
- /* if 6 >= 5 then */
- t_1 = (Obj)(UInt)(((Int)INTOBJ_INT(6)) >= ((Int)INTOBJ_INT(5)));
- if ( t_1 ) {
-  
-  /* methods[i + (narg + 5)] := MakeImmutable( [ INPUT_FILENAME(  ), READEVALCOMMAND_LINENUMBER, INPUT_LINENUMBER(  ) ] ); */
-  C_SUM_INTOBJS( t_2, l_narg, INTOBJ_INT(5) )
-  C_SUM_FIA( t_1, l_i, t_2 )
-  CHECK_INT_POS( t_1 );
-  t_3 = GF_MakeImmutable;
-  t_4 = NEW_PLIST( T_PLIST, 3 );
-  SET_LEN_PLIST( t_4, 3 );
-  t_6 = GF_INPUT__FILENAME;
-  if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-   t_5 = CALL_0ARGS( t_6 );
-  }
-  else {
-   t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( ) );
-  }
-  CHECK_FUNC_RESULT( t_5 );
-  SET_ELM_PLIST( t_4, 1, t_5 );
-  CHANGED_BAG( t_4 );
-  t_5 = GC_READEVALCOMMAND__LINENUMBER;
-  CHECK_BOUND( t_5, "READEVALCOMMAND_LINENUMBER" );
-  SET_ELM_PLIST( t_4, 2, t_5 );
-  CHANGED_BAG( t_4 );
-  t_6 = GF_INPUT__LINENUMBER;
-  if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-   t_5 = CALL_0ARGS( t_6 );
-  }
-  else {
-   t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( ) );
-  }
-  CHECK_FUNC_RESULT( t_5 );
-  SET_ELM_PLIST( t_4, 3, t_5 );
-  CHANGED_BAG( t_4 );
-  if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-   t_2 = CALL_1ARGS( t_3, t_4 );
-  }
-  else {
-   t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( t_4 ) );
-  }
-  CHECK_FUNC_RESULT( t_2 );
-  C_ASS_LIST_FPL( l_methods, t_1, t_2 )
-  
- }
- /* fi */
- 
- /* if 6 >= 6 then */
- t_1 = (Obj)(UInt)(((Int)INTOBJ_INT(6)) >= ((Int)INTOBJ_INT(6)));
- if ( t_1 ) {
-  
-  /* methods[i + (narg + 6)] := baserank; */
-  C_SUM_INTOBJS( t_2, l_narg, INTOBJ_INT(6) )
-  C_SUM_FIA( t_1, l_i, t_2 )
-  CHECK_INT_POS( t_1 );
-  C_ASS_LIST_FPL( l_methods, t_1, a_baserank )
-  
- }
- /* fi */
- 
- /* CHANGED_METHODS_OPERATION( opr, narg ); */
- t_1 = GF_CHANGED__METHODS__OPERATION;
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, a_opr, l_narg );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( a_opr, l_narg ) );
- }
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 4 */
-static Obj  HdlrFunc4 (
- Obj  self,
- Obj  a_arg )
-{
- Obj t_1 = 0;
- Obj t_2 = 0;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* INSTALL_METHOD( arg, true ); */
- t_1 = GF_INSTALL__METHOD;
- t_2 = True;
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, a_arg, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( a_arg, t_2 ) );
- }
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 5 */
-static Obj  HdlrFunc5 (
- Obj  self,
- Obj  a_arg )
-{
- Obj t_1 = 0;
- Obj t_2 = 0;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* INSTALL_METHOD( arg, false ); */
- t_1 = GF_INSTALL__METHOD;
- t_2 = False;
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, a_arg, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( a_arg, t_2 ) );
- }
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 6 */
-static Obj  HdlrFunc6 (
- Obj  self,
- Obj  a_arglist,
- Obj  a_check )
-{
- Obj l_len = 0;
- Obj l_opr = 0;
- Obj l_info = 0;
- Obj l_pos = 0;
- Obj l_rel = 0;
- Obj l_filters = 0;
- Obj l_info1 = 0;
- Obj l_isstr = 0;
- Obj l_flags = 0;
- Obj l_i = 0;
- Obj l_rank = 0;
- Obj l_method = 0;
- Obj l_oreqs = 0;
- Obj l_req = 0;
- Obj l_reqs = 0;
- Obj l_match = 0;
- Obj l_j = 0;
- Obj l_k = 0;
- Obj l_imp = 0;
- Obj l_notmatch = 0;
- Obj l_lk = 0;
- Obj l_funcname = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- Obj t_7 = 0;
- Obj t_8 = 0;
- Obj t_9 = 0;
- Obj t_10 = 0;
- Obj t_11 = 0;
- (void)l_len;
- (void)l_opr;
- (void)l_info;
- (void)l_pos;
- (void)l_rel;
- (void)l_filters;
- (void)l_info1;
- (void)l_isstr;
- (void)l_flags;
- (void)l_i;
- (void)l_rank;
- (void)l_method;
- (void)l_oreqs;
- (void)l_req;
- (void)l_reqs;
- (void)l_match;
- (void)l_j;
- (void)l_k;
- (void)l_imp;
- (void)l_notmatch;
- (void)l_lk;
- (void)l_funcname;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* len := LEN_LIST( arglist ); */
- t_2 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, a_arglist );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_arglist ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_len = t_1;
- 
- /* if len < 3 then */
- t_1 = (Obj)(UInt)(LT( l_len, INTOBJ_INT(3) ));
- if ( t_1 ) {
-  
-  /* Error( "too few arguments given in <arglist>" ); */
-  t_1 = GF_Error;
-  t_2 = MakeString( "too few arguments given in <arglist>" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_1ARGS( t_1, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
-  }
-  
- }
- /* fi */
- 
- /* opr := arglist[1]; */
- C_ELM_LIST_FPL( t_1, a_arglist, INTOBJ_INT(1) )
- l_opr = t_1;
- 
- /* if not IS_OPERATION( opr ) then */
- t_4 = GF_IS__OPERATION;
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, l_opr );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_opr ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- CHECK_BOOL( t_3 );
- t_2 = (Obj)(UInt)(t_3 != False);
- t_1 = (Obj)(UInt)( ! ((Int)t_2) );
- if ( t_1 ) {
-  
-  /* Error( "<opr> is not an operation" ); */
-  t_1 = GF_Error;
-  t_2 = MakeString( "<opr> is not an operation" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_1ARGS( t_1, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
-  }
-  
- }
- /* fi */
- 
- /* if IS_STRING_REP( arglist[2] ) or arglist[2] = false then */
- t_4 = GF_IS__STRING__REP;
- C_ELM_LIST_FPL( t_5, a_arglist, INTOBJ_INT(2) )
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, t_5 );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( t_5 ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- CHECK_BOOL( t_3 );
- t_2 = (Obj)(UInt)(t_3 != False);
- t_1 = t_2;
- if ( ! t_1 ) {
-  C_ELM_LIST_FPL( t_4, a_arglist, INTOBJ_INT(2) )
-  t_5 = False;
-  t_3 = (Obj)(UInt)(EQ( t_4, t_5 ));
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* info := arglist[2]; */
-  C_ELM_LIST_FPL( t_1, a_arglist, INTOBJ_INT(2) )
-  l_info = t_1;
-  
-  /* pos := 3; */
-  l_pos = INTOBJ_INT(3);
-  
- }
- 
- /* else */
- else {
-  
-  /* info := false; */
-  t_1 = False;
-  l_info = t_1;
-  
-  /* pos := 2; */
-  l_pos = INTOBJ_INT(2);
-  
- }
- /* fi */
- 
- /* if arglist[pos] = true or IS_FUNCTION( arglist[pos] ) then */
- C_ELM_LIST_FPL( t_3, a_arglist, l_pos )
- t_4 = True;
- t_2 = (Obj)(UInt)(EQ( t_3, t_4 ));
- t_1 = t_2;
- if ( ! t_1 ) {
-  t_5 = GF_IS__FUNCTION;
-  C_ELM_LIST_FPL( t_6, a_arglist, l_pos )
-  if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-   t_4 = CALL_1ARGS( t_5, t_6 );
-  }
-  else {
-   t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( t_6 ) );
-  }
-  CHECK_FUNC_RESULT( t_4 );
-  CHECK_BOOL( t_4 );
-  t_3 = (Obj)(UInt)(t_4 != False);
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* rel := arglist[pos]; */
-  C_ELM_LIST_FPL( t_1, a_arglist, l_pos )
-  l_rel = t_1;
-  
-  /* pos := pos + 1; */
-  C_SUM_INTOBJS( t_1, l_pos, INTOBJ_INT(1) )
-  l_pos = t_1;
-  
- }
- 
- /* else */
- else {
-  
-  /* rel := true; */
-  t_1 = True;
-  l_rel = t_1;
-  
- }
- /* fi */
- 
- /* if not IsBound( arglist[pos] ) or not IS_LIST( arglist[pos] ) then */
- CHECK_INT_POS( l_pos );
- t_4 = C_ISB_LIST( a_arglist, l_pos );
- t_3 = (Obj)(UInt)(t_4 != False);
- t_2 = (Obj)(UInt)( ! ((Int)t_3) );
- t_1 = t_2;
- if ( ! t_1 ) {
-  t_6 = GF_IS__LIST;
-  C_ELM_LIST_FPL( t_7, a_arglist, l_pos )
-  if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-   t_5 = CALL_1ARGS( t_6, t_7 );
-  }
-  else {
-   t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( t_7 ) );
-  }
-  CHECK_FUNC_RESULT( t_5 );
-  CHECK_BOOL( t_5 );
-  t_4 = (Obj)(UInt)(t_5 != False);
-  t_3 = (Obj)(UInt)( ! ((Int)t_4) );
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* Error( "<arglist>[", pos, "] must be a list of filters" ); */
-  t_1 = GF_Error;
-  t_2 = MakeString( "<arglist>[" );
-  t_3 = MakeString( "] must be a list of filters" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_3ARGS( t_1, t_2, l_pos, t_3 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, l_pos, t_3 ) );
-  }
-  
- }
- /* fi */
- 
- /* filters := arglist[pos]; */
- C_ELM_LIST_FPL( t_1, a_arglist, l_pos )
- l_filters = t_1;
- 
- /* if GAPInfo.MaxNrArgsMethod < LEN_LIST( filters ) then */
- t_3 = GC_GAPInfo;
- CHECK_BOUND( t_3, "GAPInfo" );
- t_2 = ELM_REC( t_3, R_MaxNrArgsMethod );
- t_4 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, l_filters );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_filters ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- t_1 = (Obj)(UInt)(LT( t_2, t_3 ));
- if ( t_1 ) {
-  
-  /* Error( "methods can have at most ", GAPInfo.MaxNrArgsMethod, " arguments" ); */
-  t_1 = GF_Error;
-  t_2 = MakeString( "methods can have at most " );
-  t_4 = GC_GAPInfo;
-  CHECK_BOUND( t_4, "GAPInfo" );
-  t_3 = ELM_REC( t_4, R_MaxNrArgsMethod );
-  t_4 = MakeString( " arguments" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_3ARGS( t_1, t_2, t_3, t_4 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, t_4 ) );
-  }
-  
- }
- /* fi */
- 
- /* if 0 < LEN_LIST( filters ) then */
- t_3 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, l_filters );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_filters ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- t_1 = (Obj)(UInt)(LT( INTOBJ_INT(0), t_2 ));
- if ( t_1 ) {
-  
-  /* info1 := "[ "; */
-  t_1 = MakeString( "[ " );
-  l_info1 = t_1;
-  
-  /* isstr := true; */
-  t_1 = True;
-  l_isstr = t_1;
-  
-  /* for i in [ 1 .. LEN_LIST( filters ) ] do */
-  t_3 = GF_LEN__LIST;
-  if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-   t_2 = CALL_1ARGS( t_3, l_filters );
-  }
-  else {
-   t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_filters ) );
-  }
-  CHECK_FUNC_RESULT( t_2 );
-  CHECK_INT_SMALL( t_2 );
-  for ( t_1 = INTOBJ_INT(1);
-        ((Int)t_1) <= ((Int)t_2);
-        t_1 = (Obj)(((UInt)t_1)+4) ) {
-   l_i = t_1;
-   
-   /* if IS_STRING_REP( filters[i] ) then */
-   t_5 = GF_IS__STRING__REP;
-   C_ELM_LIST_FPL( t_6, l_filters, l_i )
-   if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-    t_4 = CALL_1ARGS( t_5, t_6 );
-   }
-   else {
-    t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( t_6 ) );
-   }
-   CHECK_FUNC_RESULT( t_4 );
-   CHECK_BOOL( t_4 );
-   t_3 = (Obj)(UInt)(t_4 != False);
-   if ( t_3 ) {
-    
-    /* APPEND_LIST_INTR( info1, filters[i] ); */
-    t_3 = GF_APPEND__LIST__INTR;
-    C_ELM_LIST_FPL( t_4, l_filters, l_i )
-    if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-     CALL_2ARGS( t_3, l_info1, t_4 );
-    }
-    else {
-     DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_info1, t_4 ) );
-    }
-    
-    /* APPEND_LIST_INTR( info1, ", " ); */
-    t_3 = GF_APPEND__LIST__INTR;
-    t_4 = MakeString( ", " );
-    if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-     CALL_2ARGS( t_3, l_info1, t_4 );
-    }
-    else {
-     DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_info1, t_4 ) );
-    }
-    
-    /* filters[i] := EvalString( filters[i] ); */
-    t_4 = GF_EvalString;
-    C_ELM_LIST_FPL( t_5, l_filters, l_i )
-    if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-     t_3 = CALL_1ARGS( t_4, t_5 );
-    }
-    else {
-     t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( t_5 ) );
-    }
-    CHECK_FUNC_RESULT( t_3 );
-    C_ASS_LIST_FPL( l_filters, l_i, t_3 )
-    
-    /* if not IS_FUNCTION( filters[i] ) then */
-    t_6 = GF_IS__FUNCTION;
-    C_ELM_LIST_FPL( t_7, l_filters, l_i )
-    if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-     t_5 = CALL_1ARGS( t_6, t_7 );
-    }
-    else {
-     t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( t_7 ) );
-    }
-    CHECK_FUNC_RESULT( t_5 );
-    CHECK_BOOL( t_5 );
-    t_4 = (Obj)(UInt)(t_5 != False);
-    t_3 = (Obj)(UInt)( ! ((Int)t_4) );
-    if ( t_3 ) {
-     
-     /* Error( "string does not evaluate to a function" ); */
-     t_3 = GF_Error;
-     t_4 = MakeString( "string does not evaluate to a function" );
-     if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-      CALL_1ARGS( t_3, t_4 );
-     }
-     else {
-      DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( t_4 ) );
-     }
-     
-    }
-    /* fi */
-    
-   }
-   
-   /* else */
-   else {
-    
-    /* isstr := false; */
-    t_3 = False;
-    l_isstr = t_3;
-    
-    /* break; */
-    break;
-    
-   }
-   /* fi */
-   
-  }
-  /* od */
-  
-  /* if isstr and info = false then */
-  t_2 = (Obj)(UInt)(l_isstr != False);
-  t_1 = t_2;
-  if ( t_1 ) {
-   t_4 = False;
-   t_3 = (Obj)(UInt)(EQ( l_info, t_4 ));
-   t_1 = t_3;
-  }
-  if ( t_1 ) {
-   
-   /* info1[LEN_LIST( info1 ) - 1] := ' '; */
-   t_3 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-    t_2 = CALL_1ARGS( t_3, l_info1 );
-   }
-   else {
-    t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_info1 ) );
-   }
-   CHECK_FUNC_RESULT( t_2 );
-   C_DIFF_FIA( t_1, t_2, INTOBJ_INT(1) )
-   CHECK_INT_POS( t_1 );
-   t_2 = ObjsChar[32];
-   C_ASS_LIST_FPL( l_info1, t_1, t_2 )
-   
-   /* info1[LEN_LIST( info1 )] := ']'; */
-   t_2 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-    t_1 = CALL_1ARGS( t_2, l_info1 );
-   }
-   else {
-    t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( l_info1 ) );
-   }
-   CHECK_FUNC_RESULT( t_1 );
-   CHECK_INT_POS( t_1 );
-   t_2 = ObjsChar[93];
-   C_ASS_LIST_FPL( l_info1, t_1, t_2 )
-   
-   /* info := info1; */
-   l_info = l_info1;
-   
-  }
-  /* fi */
-  
- }
- /* fi */
- 
- /* pos := pos + 1; */
- C_SUM_FIA( t_1, l_pos, INTOBJ_INT(1) )
- l_pos = t_1;
- 
- /* flags := [  ]; */
- t_1 = NEW_PLIST( T_PLIST, 0 );
- SET_LEN_PLIST( t_1, 0 );
- l_flags = t_1;
- 
- /* for i in filters do */
- t_4 = l_filters;
- if ( IS_SMALL_LIST(t_4) ) {
-  t_3 = (Obj)(UInt)1;
-  t_1 = INTOBJ_INT(1);
- }
- else {
-  t_3 = (Obj)(UInt)0;
-  t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
- }
- while ( 1 ) {
-  if ( t_3 ) {
-   if ( LEN_LIST(t_4) < Int_ObjInt(t_1) )  break;
-   t_2 = ELMV0_LIST( t_4, Int_ObjInt(t_1) );
-   t_1 = (Obj)(((UInt)t_1)+4);
-   if ( t_2 == 0 )  continue;
-  }
-  else {
-   if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
-   t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
-  }
-  l_i = t_2;
-  
-  /* ADD_LIST( flags, FLAGS_FILTER( i ) ); */
-  t_5 = GF_ADD__LIST;
-  t_7 = GF_FLAGS__FILTER;
-  if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-   t_6 = CALL_1ARGS( t_7, l_i );
-  }
-  else {
-   t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( l_i ) );
-  }
-  CHECK_FUNC_RESULT( t_6 );
-  if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-   CALL_2ARGS( t_5, l_flags, t_6 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_flags, t_6 ) );
-  }
-  
- }
- /* od */
- 
- /* if not IsBound( arglist[pos] ) then */
- CHECK_INT_POS( l_pos );
- t_3 = C_ISB_LIST( a_arglist, l_pos );
- t_2 = (Obj)(UInt)(t_3 != False);
- t_1 = (Obj)(UInt)( ! ((Int)t_2) );
- if ( t_1 ) {
-  
-  /* Error( "the method is missing in <arglist>" ); */
-  t_1 = GF_Error;
-  t_2 = MakeString( "the method is missing in <arglist>" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_1ARGS( t_1, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
-  }
-  
- }
- 
- /* elif IS_INT( arglist[pos] ) or IS_FUNCTION( arglist[pos] ) and NARG_FUNC( arglist[pos] ) = 0 and pos < LEN_LIST( arglist ) then */
- else {
-  t_4 = GF_IS__INT;
-  C_ELM_LIST_FPL( t_5, a_arglist, l_pos )
-  if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-   t_3 = CALL_1ARGS( t_4, t_5 );
-  }
-  else {
-   t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( t_5 ) );
-  }
-  CHECK_FUNC_RESULT( t_3 );
-  CHECK_BOOL( t_3 );
-  t_2 = (Obj)(UInt)(t_3 != False);
-  t_1 = t_2;
-  if ( ! t_1 ) {
-   t_7 = GF_IS__FUNCTION;
-   C_ELM_LIST_FPL( t_8, a_arglist, l_pos )
-   if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-    t_6 = CALL_1ARGS( t_7, t_8 );
-   }
-   else {
-    t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( t_8 ) );
-   }
-   CHECK_FUNC_RESULT( t_6 );
-   CHECK_BOOL( t_6 );
-   t_5 = (Obj)(UInt)(t_6 != False);
-   t_4 = t_5;
-   if ( t_4 ) {
-    t_8 = GF_NARG__FUNC;
-    C_ELM_LIST_FPL( t_9, a_arglist, l_pos )
-    if ( TNUM_OBJ( t_8 ) == T_FUNCTION ) {
-     t_7 = CALL_1ARGS( t_8, t_9 );
-    }
-    else {
-     t_7 = DoOperation2Args( CallFuncListOper, t_8, NewPlistFromArgs( t_9 ) );
-    }
-    CHECK_FUNC_RESULT( t_7 );
-    t_6 = (Obj)(UInt)(EQ( t_7, INTOBJ_INT(0) ));
-    t_4 = t_6;
-   }
-   t_3 = t_4;
-   if ( t_3 ) {
-    t_7 = GF_LEN__LIST;
-    if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-     t_6 = CALL_1ARGS( t_7, a_arglist );
-    }
-    else {
-     t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( a_arglist ) );
-    }
-    CHECK_FUNC_RESULT( t_6 );
-    t_5 = (Obj)(UInt)(LT( l_pos, t_6 ));
-    t_3 = t_5;
-   }
-   t_1 = t_3;
-  }
-  if ( t_1 ) {
-   
-   /* rank := arglist[pos]; */
-   C_ELM_LIST_FPL( t_1, a_arglist, l_pos )
-   l_rank = t_1;
-   
-   /* pos := pos + 1; */
-   C_SUM_FIA( t_1, l_pos, INTOBJ_INT(1) )
-   l_pos = t_1;
-   
-  }
-  
-  /* else */
-  else {
-   
-   /* rank := 0; */
-   l_rank = INTOBJ_INT(0);
-   
-  }
- }
- /* fi */
- 
- /* if not IsBound( arglist[pos] ) then */
- CHECK_INT_POS( l_pos );
- t_3 = C_ISB_LIST( a_arglist, l_pos );
- t_2 = (Obj)(UInt)(t_3 != False);
- t_1 = (Obj)(UInt)( ! ((Int)t_2) );
- if ( t_1 ) {
-  
-  /* Error( "the method is missing in <arglist>" ); */
-  t_1 = GF_Error;
-  t_2 = MakeString( "the method is missing in <arglist>" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_1ARGS( t_1, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
-  }
-  
- }
- /* fi */
- 
- /* method := arglist[pos]; */
- C_ELM_LIST_FPL( t_1, a_arglist, l_pos )
- l_method = t_1;
- 
- /* if FLAG1_FILTER( opr ) <> 0 and (rel = true or rel = RETURN_TRUE) and LEN_LIST( filters ) = 1 and (method = true or method = RETURN_TRUE) then */
- t_6 = GF_FLAG1__FILTER;
- if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-  t_5 = CALL_1ARGS( t_6, l_opr );
- }
- else {
-  t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( l_opr ) );
- }
- CHECK_FUNC_RESULT( t_5 );
- t_4 = (Obj)(UInt)( ! EQ( t_5, INTOBJ_INT(0) ));
- t_3 = t_4;
- if ( t_3 ) {
-  t_7 = True;
-  t_6 = (Obj)(UInt)(EQ( l_rel, t_7 ));
-  t_5 = t_6;
-  if ( ! t_5 ) {
-   t_8 = GC_RETURN__TRUE;
-   CHECK_BOUND( t_8, "RETURN_TRUE" );
-   t_7 = (Obj)(UInt)(EQ( l_rel, t_8 ));
-   t_5 = t_7;
-  }
-  t_3 = t_5;
- }
- t_2 = t_3;
- if ( t_2 ) {
-  t_6 = GF_LEN__LIST;
-  if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-   t_5 = CALL_1ARGS( t_6, l_filters );
-  }
-  else {
-   t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( l_filters ) );
-  }
-  CHECK_FUNC_RESULT( t_5 );
-  t_4 = (Obj)(UInt)(EQ( t_5, INTOBJ_INT(1) ));
-  t_2 = t_4;
- }
- t_1 = t_2;
- if ( t_1 ) {
-  t_5 = True;
-  t_4 = (Obj)(UInt)(EQ( l_method, t_5 ));
-  t_3 = t_4;
-  if ( ! t_3 ) {
-   t_6 = GC_RETURN__TRUE;
-   CHECK_BOUND( t_6, "RETURN_TRUE" );
-   t_5 = (Obj)(UInt)(EQ( l_method, t_6 ));
-   t_3 = t_5;
-  }
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* Error( NAME_FUNC( opr ), ": use `InstallTrueMethod' for <opr>" ); */
-  t_1 = GF_Error;
-  t_3 = GF_NAME__FUNC;
-  if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-   t_2 = CALL_1ARGS( t_3, l_opr );
-  }
-  else {
-   t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_opr ) );
-  }
-  CHECK_FUNC_RESULT( t_2 );
-  t_3 = MakeString( ": use `InstallTrueMethod' for <opr>" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_2ARGS( t_1, t_2, t_3 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
-  }
-  
- }
- /* fi */
- 
- /* if CHECK_INSTALL_METHOD and check then */
- t_3 = GC_CHECK__INSTALL__METHOD;
- CHECK_BOUND( t_3, "CHECK_INSTALL_METHOD" );
- CHECK_BOOL( t_3 );
- t_2 = (Obj)(UInt)(t_3 != False);
- t_1 = t_2;
- if ( t_1 ) {
-  CHECK_BOOL( a_check );
-  t_3 = (Obj)(UInt)(a_check != False);
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* if opr in WRAPPER_OPERATIONS then */
-  t_2 = GC_WRAPPER__OPERATIONS;
-  CHECK_BOUND( t_2, "WRAPPER_OPERATIONS" );
-  t_1 = (Obj)(UInt)(IN( l_opr, t_2 ));
-  if ( t_1 ) {
-   
-   /* INFO_DEBUG( 1, "a method is installed for the wrapper operation ", NAME_FUNC( opr ), "\n", "#I  probably it should be installed for (one of) its\n", "#I  underlying operation(s)" ); */
-   t_1 = GF_INFO__DEBUG;
-   t_2 = MakeString( "a method is installed for the wrapper operation " );
-   t_4 = GF_NAME__FUNC;
-   if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-    t_3 = CALL_1ARGS( t_4, l_opr );
-   }
-   else {
-    t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_opr ) );
-   }
-   CHECK_FUNC_RESULT( t_3 );
-   t_4 = MakeString( "\n" );
-   t_5 = MakeString( "#I  probably it should be installed for (one of) its\n" );
-   t_6 = MakeString( "#I  underlying operation(s)" );
-   if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-    CALL_6ARGS( t_1, INTOBJ_INT(1), t_2, t_3, t_4, t_5, t_6 );
-   }
-   else {
-    DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( INTOBJ_INT(1), t_2, t_3, t_4, t_5, t_6 ) );
-   }
-   
-  }
-  /* fi */
-  
-  /* req := GET_OPER_FLAGS( opr ); */
-  t_2 = GF_GET__OPER__FLAGS;
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_1ARGS( t_2, l_opr );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( l_opr ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  l_req = t_1;
-  
-  /* if req = fail then */
-  t_2 = GC_fail;
-  CHECK_BOUND( t_2, "fail" );
-  t_1 = (Obj)(UInt)(EQ( l_req, t_2 ));
-  if ( t_1 ) {
-   
-   /* Error( "unknown operation ", NAME_FUNC( opr ) ); */
-   t_1 = GF_Error;
-   t_2 = MakeString( "unknown operation " );
-   t_4 = GF_NAME__FUNC;
-   if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-    t_3 = CALL_1ARGS( t_4, l_opr );
-   }
-   else {
-    t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_opr ) );
-   }
-   CHECK_FUNC_RESULT( t_3 );
-   if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-    CALL_2ARGS( t_1, t_2, t_3 );
-   }
-   else {
-    DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
-   }
-   
-  }
-  /* fi */
-  
-  /* imp := [  ]; */
-  t_1 = NEW_PLIST( T_PLIST, 0 );
-  SET_LEN_PLIST( t_1, 0 );
-  l_imp = t_1;
-  
-  /* for i in flags do */
-  t_4 = l_flags;
-  if ( IS_SMALL_LIST(t_4) ) {
-   t_3 = (Obj)(UInt)1;
-   t_1 = INTOBJ_INT(1);
-  }
-  else {
-   t_3 = (Obj)(UInt)0;
-   t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
-  }
-  while ( 1 ) {
-   if ( t_3 ) {
-    if ( LEN_LIST(t_4) < Int_ObjInt(t_1) )  break;
-    t_2 = ELMV0_LIST( t_4, Int_ObjInt(t_1) );
-    t_1 = (Obj)(((UInt)t_1)+4);
-    if ( t_2 == 0 )  continue;
-   }
-   else {
-    if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
-    t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
-   }
-   l_i = t_2;
-   
-   /* if not GAPInfo.CommandLineOptions.N then */
-   t_9 = GC_GAPInfo;
-   CHECK_BOUND( t_9, "GAPInfo" );
-   t_8 = ELM_REC( t_9, R_CommandLineOptions );
-   t_7 = ELM_REC( t_8, R_N );
-   CHECK_BOOL( t_7 );
-   t_6 = (Obj)(UInt)(t_7 != False);
-   t_5 = (Obj)(UInt)( ! ((Int)t_6) );
-   if ( t_5 ) {
-    
-    /* ADD_LIST( imp, WITH_HIDDEN_IMPS_FLAGS( i ) ); */
-    t_5 = GF_ADD__LIST;
-    t_7 = GF_WITH__HIDDEN__IMPS__FLAGS;
-    if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-     t_6 = CALL_1ARGS( t_7, l_i );
-    }
-    else {
-     t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( l_i ) );
-    }
-    CHECK_FUNC_RESULT( t_6 );
-    if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-     CALL_2ARGS( t_5, l_imp, t_6 );
-    }
-    else {
-     DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_imp, t_6 ) );
-    }
-    
-   }
-   
-   /* else */
-   else {
-    
-    /* ADD_LIST( imp, WITH_IMPS_FLAGS( i ) ); */
-    t_5 = GF_ADD__LIST;
-    t_7 = GF_WITH__IMPS__FLAGS;
-    if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-     t_6 = CALL_1ARGS( t_7, l_i );
-    }
-    else {
-     t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( l_i ) );
-    }
-    CHECK_FUNC_RESULT( t_6 );
-    if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-     CALL_2ARGS( t_5, l_imp, t_6 );
-    }
-    else {
-     DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_imp, t_6 ) );
-    }
-    
-   }
-   /* fi */
-   
-  }
-  /* od */
-  
-  /* j := 0; */
-  l_j = INTOBJ_INT(0);
-  
-  /* match := false; */
-  t_1 = False;
-  l_match = t_1;
-  
-  /* notmatch := 0; */
-  l_notmatch = INTOBJ_INT(0);
-  
-  /* while j < LEN_LIST( req ) and not match do */
-  while ( 1 ) {
-   t_4 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-    t_3 = CALL_1ARGS( t_4, l_req );
-   }
-   else {
-    t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_req ) );
-   }
-   CHECK_FUNC_RESULT( t_3 );
-   t_2 = (Obj)(UInt)(LT( l_j, t_3 ));
-   t_1 = t_2;
-   if ( t_1 ) {
-    t_4 = (Obj)(UInt)(l_match != False);
-    t_3 = (Obj)(UInt)( ! ((Int)t_4) );
-    t_1 = t_3;
-   }
-   if ( ! t_1 ) break;
-   
-   /* j := j + 1; */
-   C_SUM_FIA( t_1, l_j, INTOBJ_INT(1) )
-   l_j = t_1;
-   
-   /* reqs := req[j]; */
-   CHECK_INT_POS( l_j );
-   C_ELM_LIST_FPL( t_1, l_req, l_j )
-   l_reqs = t_1;
-   
-   /* if LEN_LIST( reqs ) = LEN_LIST( imp ) then */
-   t_3 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-    t_2 = CALL_1ARGS( t_3, l_reqs );
-   }
-   else {
-    t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_reqs ) );
-   }
-   CHECK_FUNC_RESULT( t_2 );
-   t_4 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-    t_3 = CALL_1ARGS( t_4, l_imp );
-   }
-   else {
-    t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_imp ) );
-   }
-   CHECK_FUNC_RESULT( t_3 );
-   t_1 = (Obj)(UInt)(EQ( t_2, t_3 ));
-   if ( t_1 ) {
-    
-    /* match := true; */
-    t_1 = True;
-    l_match = t_1;
-    
-    /* for i in [ 1 .. LEN_LIST( reqs ) ] do */
-    t_3 = GF_LEN__LIST;
-    if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-     t_2 = CALL_1ARGS( t_3, l_reqs );
-    }
-    else {
-     t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_reqs ) );
-    }
-    CHECK_FUNC_RESULT( t_2 );
-    CHECK_INT_SMALL( t_2 );
-    for ( t_1 = INTOBJ_INT(1);
-          ((Int)t_1) <= ((Int)t_2);
-          t_1 = (Obj)(((UInt)t_1)+4) ) {
-     l_i = t_1;
-     
-     /* if not IS_SUBSET_FLAGS( imp[i], reqs[i] ) then */
-     t_6 = GF_IS__SUBSET__FLAGS;
-     C_ELM_LIST_FPL( t_7, l_imp, l_i )
-     C_ELM_LIST_FPL( t_8, l_reqs, l_i )
-     if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-      t_5 = CALL_2ARGS( t_6, t_7, t_8 );
-     }
-     else {
-      t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( t_7, t_8 ) );
-     }
-     CHECK_FUNC_RESULT( t_5 );
-     CHECK_BOOL( t_5 );
-     t_4 = (Obj)(UInt)(t_5 != False);
-     t_3 = (Obj)(UInt)( ! ((Int)t_4) );
-     if ( t_3 ) {
-      
-      /* match := false; */
-      t_3 = False;
-      l_match = t_3;
-      
-      /* notmatch := i; */
-      l_notmatch = l_i;
-      
-      /* break; */
-      break;
-      
-     }
-     /* fi */
-     
-    }
-    /* od */
-    
-    /* if match then */
-    t_1 = (Obj)(UInt)(l_match != False);
-    if ( t_1 ) {
-     
-     /* break; */
-     break;
-     
-    }
-    /* fi */
-    
-   }
-   /* fi */
-   
-  }
-  /* od */
-  
-  /* if not match then */
-  t_2 = (Obj)(UInt)(l_match != False);
-  t_1 = (Obj)(UInt)( ! ((Int)t_2) );
-  if ( t_1 ) {
-   
-   /* if notmatch = 0 then */
-   t_1 = (Obj)(UInt)(((Int)l_notmatch) == ((Int)INTOBJ_INT(0)));
-   if ( t_1 ) {
-    
-    /* if not GAPInfo.CommandLineOptions.N then */
-    t_5 = GC_GAPInfo;
-    CHECK_BOUND( t_5, "GAPInfo" );
-    t_4 = ELM_REC( t_5, R_CommandLineOptions );
-    t_3 = ELM_REC( t_4, R_N );
-    CHECK_BOOL( t_3 );
-    t_2 = (Obj)(UInt)(t_3 != False);
-    t_1 = (Obj)(UInt)( ! ((Int)t_2) );
-    if ( t_1 ) {
-     
-     /* Error( "the number of arguments does not match a declaration of ", NAME_FUNC( opr ) ); */
-     t_1 = GF_Error;
-     t_2 = MakeString( "the number of arguments does not match a declaration of " );
-     t_4 = GF_NAME__FUNC;
-     if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-      t_3 = CALL_1ARGS( t_4, l_opr );
-     }
-     else {
-      t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_opr ) );
-     }
-     CHECK_FUNC_RESULT( t_3 );
-     if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-      CALL_2ARGS( t_1, t_2, t_3 );
-     }
-     else {
-      DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
-     }
-     
-    }
-    
-    /* else */
-    else {
-     
-     /* Print( "InstallMethod warning:  nr of args does not ", "match a declaration of ", NAME_FUNC( opr ), "\n" ); */
-     t_1 = GF_Print;
-     t_2 = MakeString( "InstallMethod warning:  nr of args does not " );
-     t_3 = MakeString( "match a declaration of " );
-     t_5 = GF_NAME__FUNC;
-     if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-      t_4 = CALL_1ARGS( t_5, l_opr );
-     }
-     else {
-      t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_opr ) );
-     }
-     CHECK_FUNC_RESULT( t_4 );
-     t_5 = MakeString( "\n" );
-     if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-      CALL_4ARGS( t_1, t_2, t_3, t_4, t_5 );
-     }
-     else {
-      DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, t_4, t_5 ) );
-     }
-     
-    }
-    /* fi */
-    
-   }
-   
-   /* else */
-   else {
-    
-    /* if not GAPInfo.CommandLineOptions.N then */
-    t_5 = GC_GAPInfo;
-    CHECK_BOUND( t_5, "GAPInfo" );
-    t_4 = ELM_REC( t_5, R_CommandLineOptions );
-    t_3 = ELM_REC( t_4, R_N );
-    CHECK_BOOL( t_3 );
-    t_2 = (Obj)(UInt)(t_3 != False);
-    t_1 = (Obj)(UInt)( ! ((Int)t_2) );
-    if ( t_1 ) {
-     
-     /* Error( "required filters ", NamesFilter( imp[notmatch] ), "\nfor ", Ordinal( notmatch ), " argument do not match a declaration of ", NAME_FUNC( opr ) ); */
-     t_1 = GF_Error;
-     t_2 = MakeString( "required filters " );
-     t_4 = GF_NamesFilter;
-     CHECK_INT_POS( l_notmatch );
-     C_ELM_LIST_FPL( t_5, l_imp, l_notmatch )
-     if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-      t_3 = CALL_1ARGS( t_4, t_5 );
-     }
-     else {
-      t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( t_5 ) );
-     }
-     CHECK_FUNC_RESULT( t_3 );
-     t_4 = MakeString( "\nfor " );
-     t_6 = GF_Ordinal;
-     if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-      t_5 = CALL_1ARGS( t_6, l_notmatch );
-     }
-     else {
-      t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( l_notmatch ) );
-     }
-     CHECK_FUNC_RESULT( t_5 );
-     t_6 = MakeString( " argument do not match a declaration of " );
-     t_8 = GF_NAME__FUNC;
-     if ( TNUM_OBJ( t_8 ) == T_FUNCTION ) {
-      t_7 = CALL_1ARGS( t_8, l_opr );
-     }
-     else {
-      t_7 = DoOperation2Args( CallFuncListOper, t_8, NewPlistFromArgs( l_opr ) );
-     }
-     CHECK_FUNC_RESULT( t_7 );
-     if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-      CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, t_6, t_7 );
-     }
-     else {
-      DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, t_4, t_5, t_6, t_7 ) );
-     }
-     
-    }
-    
-    /* else */
-    else {
-     
-     /* Print( "InstallMethod warning: ", NAME_FUNC( opr ), " at \c", INPUT_FILENAME(  ), ":", INPUT_LINENUMBER(  ), " \c", "required filter \c", NAME_FUNC( filters[notmatch] ), " for ", Ordinal( notmatch ), " argument does not match any ", 
- "declaration\n" ); */
-     t_1 = GF_Print;
-     t_2 = NEW_PLIST( T_PLIST, 13 );
-     SET_LEN_PLIST( t_2, 13 );
-     t_3 = MakeString( "InstallMethod warning: " );
-     SET_ELM_PLIST( t_2, 1, t_3 );
-     CHANGED_BAG( t_2 );
-     t_4 = GF_NAME__FUNC;
-     if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-      t_3 = CALL_1ARGS( t_4, l_opr );
-     }
-     else {
-      t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_opr ) );
-     }
-     CHECK_FUNC_RESULT( t_3 );
-     SET_ELM_PLIST( t_2, 2, t_3 );
-     CHANGED_BAG( t_2 );
-     t_3 = MakeString( " at \03" );
-     SET_ELM_PLIST( t_2, 3, t_3 );
-     CHANGED_BAG( t_2 );
-     t_4 = GF_INPUT__FILENAME;
-     if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-      t_3 = CALL_0ARGS( t_4 );
-     }
-     else {
-      t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( ) );
-     }
-     CHECK_FUNC_RESULT( t_3 );
-     SET_ELM_PLIST( t_2, 4, t_3 );
-     CHANGED_BAG( t_2 );
-     t_3 = MakeString( ":" );
-     SET_ELM_PLIST( t_2, 5, t_3 );
-     CHANGED_BAG( t_2 );
-     t_4 = GF_INPUT__LINENUMBER;
-     if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-      t_3 = CALL_0ARGS( t_4 );
-     }
-     else {
-      t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( ) );
-     }
-     CHECK_FUNC_RESULT( t_3 );
-     SET_ELM_PLIST( t_2, 6, t_3 );
-     CHANGED_BAG( t_2 );
-     t_3 = MakeString( " \03" );
-     SET_ELM_PLIST( t_2, 7, t_3 );
-     CHANGED_BAG( t_2 );
-     t_3 = MakeString( "required filter \03" );
-     SET_ELM_PLIST( t_2, 8, t_3 );
-     CHANGED_BAG( t_2 );
-     t_4 = GF_NAME__FUNC;
-     CHECK_INT_POS( l_notmatch );
-     C_ELM_LIST_FPL( t_5, l_filters, l_notmatch )
-     if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-      t_3 = CALL_1ARGS( t_4, t_5 );
-     }
-     else {
-      t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( t_5 ) );
-     }
-     CHECK_FUNC_RESULT( t_3 );
-     SET_ELM_PLIST( t_2, 9, t_3 );
-     CHANGED_BAG( t_2 );
-     t_3 = MakeString( " for " );
-     SET_ELM_PLIST( t_2, 10, t_3 );
-     CHANGED_BAG( t_2 );
-     t_4 = GF_Ordinal;
-     if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-      t_3 = CALL_1ARGS( t_4, l_notmatch );
-     }
-     else {
-      t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_notmatch ) );
-     }
-     CHECK_FUNC_RESULT( t_3 );
-     SET_ELM_PLIST( t_2, 11, t_3 );
-     CHANGED_BAG( t_2 );
-     t_3 = MakeString( " argument does not match any " );
-     SET_ELM_PLIST( t_2, 12, t_3 );
-     CHANGED_BAG( t_2 );
-     t_3 = MakeString( "declaration\n" );
-     SET_ELM_PLIST( t_2, 13, t_3 );
-     CHANGED_BAG( t_2 );
-     if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-      CALL_XARGS( t_1, t_2 );
-     }
-     else {
-      DoOperation2Args( CallFuncListOper, t_1, t_2 );
-     }
-     
-    }
-    /* fi */
-    
-   }
-   /* fi */
-   
-  }
-  
-  /* else */
-  else {
-   
-   /* oreqs := reqs; */
-   l_oreqs = l_reqs;
-   
-   /* for k in [ j + 1 .. LEN_LIST( req ) ] do */
-   C_SUM_FIA( t_2, l_j, INTOBJ_INT(1) )
-   CHECK_INT_SMALL( t_2 );
-   t_4 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-    t_3 = CALL_1ARGS( t_4, l_req );
-   }
-   else {
-    t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_req ) );
-   }
-   CHECK_FUNC_RESULT( t_3 );
-   CHECK_INT_SMALL( t_3 );
-   for ( t_1 = t_2;
-         ((Int)t_1) <= ((Int)t_3);
-         t_1 = (Obj)(((UInt)t_1)+4) ) {
-    l_k = t_1;
-    
-    /* reqs := req[k]; */
-    CHECK_INT_POS( l_k );
-    C_ELM_LIST_FPL( t_4, l_req, l_k )
-    l_reqs = t_4;
-    
-    /* if LEN_LIST( reqs ) = LEN_LIST( imp ) then */
-    t_6 = GF_LEN__LIST;
-    if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-     t_5 = CALL_1ARGS( t_6, l_reqs );
-    }
-    else {
-     t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( l_reqs ) );
-    }
-    CHECK_FUNC_RESULT( t_5 );
-    t_7 = GF_LEN__LIST;
-    if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-     t_6 = CALL_1ARGS( t_7, l_imp );
-    }
-    else {
-     t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( l_imp ) );
-    }
-    CHECK_FUNC_RESULT( t_6 );
-    t_4 = (Obj)(UInt)(EQ( t_5, t_6 ));
-    if ( t_4 ) {
-     
-     /* match := true; */
-     t_4 = True;
-     l_match = t_4;
-     
-     /* for i in [ 1 .. LEN_LIST( reqs ) ] do */
-     t_6 = GF_LEN__LIST;
-     if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-      t_5 = CALL_1ARGS( t_6, l_reqs );
-     }
-     else {
-      t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( l_reqs ) );
-     }
-     CHECK_FUNC_RESULT( t_5 );
-     CHECK_INT_SMALL( t_5 );
-     for ( t_4 = INTOBJ_INT(1);
-           ((Int)t_4) <= ((Int)t_5);
-           t_4 = (Obj)(((UInt)t_4)+4) ) {
-      l_i = t_4;
-      
-      /* if not IS_SUBSET_FLAGS( imp[i], reqs[i] ) then */
-      t_9 = GF_IS__SUBSET__FLAGS;
-      C_ELM_LIST_FPL( t_10, l_imp, l_i )
-      C_ELM_LIST_FPL( t_11, l_reqs, l_i )
-      if ( TNUM_OBJ( t_9 ) == T_FUNCTION ) {
-       t_8 = CALL_2ARGS( t_9, t_10, t_11 );
-      }
-      else {
-       t_8 = DoOperation2Args( CallFuncListOper, t_9, NewPlistFromArgs( t_10, t_11 ) );
-      }
-      CHECK_FUNC_RESULT( t_8 );
-      CHECK_BOOL( t_8 );
-      t_7 = (Obj)(UInt)(t_8 != False);
-      t_6 = (Obj)(UInt)( ! ((Int)t_7) );
-      if ( t_6 ) {
-       
-       /* match := false; */
-       t_6 = False;
-       l_match = t_6;
-       
-       /* break; */
-       break;
-       
-      }
-      /* fi */
-      
-     }
-     /* od */
-     
-     /* if match and reqs <> oreqs then */
-     t_5 = (Obj)(UInt)(l_match != False);
-     t_4 = t_5;
-     if ( t_4 ) {
-      t_6 = (Obj)(UInt)( ! EQ( l_reqs, l_oreqs ));
-      t_4 = t_6;
-     }
-     if ( t_4 ) {
-      
-      /* INFO_DEBUG( 1, "method installed for ", NAME_FUNC( opr ), " matches more than one declaration" ); */
-      t_4 = GF_INFO__DEBUG;
-      t_5 = MakeString( "method installed for " );
-      t_7 = GF_NAME__FUNC;
-      if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-       t_6 = CALL_1ARGS( t_7, l_opr );
-      }
-      else {
-       t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( l_opr ) );
-      }
-      CHECK_FUNC_RESULT( t_6 );
-      t_7 = MakeString( " matches more than one declaration" );
-      if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-       CALL_4ARGS( t_4, INTOBJ_INT(1), t_5, t_6, t_7 );
-      }
-      else {
-       DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( INTOBJ_INT(1), t_5, t_6, t_7 ) );
-      }
-      
-     }
-     /* fi */
-     
-    }
-    /* fi */
-    
-   }
-   /* od */
-   
-  }
-  /* fi */
-  
- }
- /* fi */
- 
- /* if IS_FUNCTION( method ) and IsBound( HasNameFunction ) and IsBound( TYPE_FUNCTION_WITH_NAME ) and IsBound( TYPE_OPERATION_WITH_NAME ) and not VAL_GVAR( "HasNameFunction" )( method ) then */
- t_7 = GF_IS__FUNCTION;
- if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-  t_6 = CALL_1ARGS( t_7, l_method );
- }
- else {
-  t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( l_method ) );
- }
- CHECK_FUNC_RESULT( t_6 );
- CHECK_BOOL( t_6 );
- t_5 = (Obj)(UInt)(t_6 != False);
- t_4 = t_5;
- if ( t_4 ) {
-  t_8 = GC_HasNameFunction;
-  t_7 = ((t_8 != 0) ? True : False);
-  t_6 = (Obj)(UInt)(t_7 != False);
-  t_4 = t_6;
- }
- t_3 = t_4;
- if ( t_3 ) {
-  t_7 = GC_TYPE__FUNCTION__WITH__NAME;
-  t_6 = ((t_7 != 0) ? True : False);
-  t_5 = (Obj)(UInt)(t_6 != False);
-  t_3 = t_5;
- }
- t_2 = t_3;
- if ( t_2 ) {
-  t_6 = GC_TYPE__OPERATION__WITH__NAME;
-  t_5 = ((t_6 != 0) ? True : False);
-  t_4 = (Obj)(UInt)(t_5 != False);
-  t_2 = t_4;
- }
- t_1 = t_2;
- if ( t_1 ) {
-  t_7 = GF_VAL__GVAR;
-  t_8 = MakeString( "HasNameFunction" );
-  if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-   t_6 = CALL_1ARGS( t_7, t_8 );
-  }
-  else {
-   t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( t_8 ) );
-  }
-  CHECK_FUNC_RESULT( t_6 );
-  if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-   t_5 = CALL_1ARGS( t_6, l_method );
-  }
-  else {
-   t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( l_method ) );
-  }
-  CHECK_FUNC_RESULT( t_5 );
-  CHECK_BOOL( t_5 );
-  t_4 = (Obj)(UInt)(t_5 != False);
-  t_3 = (Obj)(UInt)( ! ((Int)t_4) );
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* funcname := SHALLOW_COPY_OBJ( NAME_FUNC( opr ) ); */
-  t_2 = GF_SHALLOW__COPY__OBJ;
-  t_4 = GF_NAME__FUNC;
-  if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-   t_3 = CALL_1ARGS( t_4, l_opr );
-  }
-  else {
-   t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_opr ) );
-  }
-  CHECK_FUNC_RESULT( t_3 );
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_1ARGS( t_2, t_3 );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( t_3 ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  l_funcname = t_1;
-  
-  /* APPEND_LIST_INTR( funcname, " " ); */
-  t_1 = GF_APPEND__LIST__INTR;
-  t_2 = MakeString( " " );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_2ARGS( t_1, l_funcname, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_funcname, t_2 ) );
-  }
-  
-  /* if info <> false then */
-  t_2 = False;
-  t_1 = (Obj)(UInt)( ! EQ( l_info, t_2 ));
-  if ( t_1 ) {
-   
-   /* APPEND_LIST_INTR( funcname, info ); */
-   t_1 = GF_APPEND__LIST__INTR;
-   if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-    CALL_2ARGS( t_1, l_funcname, l_info );
-   }
-   else {
-    DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_funcname, l_info ) );
-   }
-   
-  }
-  
-  /* else */
-  else {
-   
-   /* APPEND_LIST_INTR( funcname, "method" ); */
-   t_1 = GF_APPEND__LIST__INTR;
-   t_2 = MakeString( "method" );
-   if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-    CALL_2ARGS( t_1, l_funcname, t_2 );
-   }
-   else {
-    DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_funcname, t_2 ) );
-   }
-   
-  }
-  /* fi */
-  
-  /* SET_NAME_FUNC( method, funcname ); */
-  t_1 = GF_SET__NAME__FUNC;
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_2ARGS( t_1, l_method, l_funcname );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_method, l_funcname ) );
-  }
-  
- }
- /* fi */
- 
- /* if IS_FUNCTION( rank ) and IsBound( HasNameFunction ) and IsBound( TYPE_FUNCTION_WITH_NAME ) and IsBound( TYPE_OPERATION_WITH_NAME ) and not VAL_GVAR( "HasNameFunction" )( rank ) then */
- t_7 = GF_IS__FUNCTION;
- CHECK_BOUND( l_rank, "rank" );
- if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-  t_6 = CALL_1ARGS( t_7, l_rank );
- }
- else {
-  t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( l_rank ) );
- }
- CHECK_FUNC_RESULT( t_6 );
- CHECK_BOOL( t_6 );
- t_5 = (Obj)(UInt)(t_6 != False);
- t_4 = t_5;
- if ( t_4 ) {
-  t_8 = GC_HasNameFunction;
-  t_7 = ((t_8 != 0) ? True : False);
-  t_6 = (Obj)(UInt)(t_7 != False);
-  t_4 = t_6;
- }
- t_3 = t_4;
- if ( t_3 ) {
-  t_7 = GC_TYPE__FUNCTION__WITH__NAME;
-  t_6 = ((t_7 != 0) ? True : False);
-  t_5 = (Obj)(UInt)(t_6 != False);
-  t_3 = t_5;
- }
- t_2 = t_3;
- if ( t_2 ) {
-  t_6 = GC_TYPE__OPERATION__WITH__NAME;
-  t_5 = ((t_6 != 0) ? True : False);
-  t_4 = (Obj)(UInt)(t_5 != False);
-  t_2 = t_4;
- }
- t_1 = t_2;
- if ( t_1 ) {
-  t_7 = GF_VAL__GVAR;
-  t_8 = MakeString( "HasNameFunction" );
-  if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-   t_6 = CALL_1ARGS( t_7, t_8 );
-  }
-  else {
-   t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( t_8 ) );
-  }
-  CHECK_FUNC_RESULT( t_6 );
-  if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-   t_5 = CALL_1ARGS( t_6, l_rank );
-  }
-  else {
-   t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( l_rank ) );
-  }
-  CHECK_FUNC_RESULT( t_5 );
-  CHECK_BOOL( t_5 );
-  t_4 = (Obj)(UInt)(t_5 != False);
-  t_3 = (Obj)(UInt)( ! ((Int)t_4) );
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* funcname := "Priority calculation for "; */
-  t_1 = MakeString( "Priority calculation for " );
-  l_funcname = t_1;
-  
-  /* APPEND_LIST_INTR( funcname, NAME_FUNC( opr ) ); */
-  t_1 = GF_APPEND__LIST__INTR;
-  t_3 = GF_NAME__FUNC;
-  if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-   t_2 = CALL_1ARGS( t_3, l_opr );
-  }
-  else {
-   t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_opr ) );
-  }
-  CHECK_FUNC_RESULT( t_2 );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_2ARGS( t_1, l_funcname, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_funcname, t_2 ) );
-  }
-  
-  /* if info <> false then */
-  t_2 = False;
-  t_1 = (Obj)(UInt)( ! EQ( l_info, t_2 ));
-  if ( t_1 ) {
-   
-   /* APPEND_LIST_INTR( funcname, " " ); */
-   t_1 = GF_APPEND__LIST__INTR;
-   t_2 = MakeString( " " );
-   if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-    CALL_2ARGS( t_1, l_funcname, t_2 );
-   }
-   else {
-    DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_funcname, t_2 ) );
-   }
-   
-   /* APPEND_LIST_INTR( funcname, info ); */
-   t_1 = GF_APPEND__LIST__INTR;
-   if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-    CALL_2ARGS( t_1, l_funcname, l_info );
-   }
-   else {
-    DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_funcname, l_info ) );
-   }
-   
-  }
-  /* fi */
-  
-  /* SET_NAME_FUNC( rank, funcname ); */
-  t_1 = GF_SET__NAME__FUNC;
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_2ARGS( t_1, l_rank, l_funcname );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_rank, l_funcname ) );
-  }
-  
- }
- /* fi */
- 
- /* INSTALL_METHOD_FLAGS( opr, info, rel, flags, rank, method ); */
- t_1 = GF_INSTALL__METHOD__FLAGS;
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_6ARGS( t_1, l_opr, l_info, l_rel, l_flags, l_rank, l_method );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_opr, l_info, l_rel, l_flags, l_rank, l_method ) );
- }
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 8 */
-static Obj  HdlrFunc8 (
- Obj  self,
- Obj  a_obj )
-{
- Obj l_found = 0;
- Obj l_prop = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- Obj t_7 = 0;
- Obj t_8 = 0;
- Obj t_9 = 0;
- Obj t_10 = 0;
- Obj t_11 = 0;
- (void)l_found;
- (void)l_prop;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* found := false; */
- t_1 = False;
- l_found = t_1;
- 
- /* for prop in props do */
- t_4 = OBJ_HVAR( (1 << 16) | 2 );
- CHECK_BOUND( t_4, "props" );
- if ( IS_SMALL_LIST(t_4) ) {
-  t_3 = (Obj)(UInt)1;
-  t_1 = INTOBJ_INT(1);
- }
- else {
-  t_3 = (Obj)(UInt)0;
-  t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
- }
- while ( 1 ) {
-  if ( t_3 ) {
-   if ( LEN_LIST(t_4) < Int_ObjInt(t_1) )  break;
-   t_2 = ELMV0_LIST( t_4, Int_ObjInt(t_1) );
-   t_1 = (Obj)(((UInt)t_1)+4);
-   if ( t_2 == 0 )  continue;
-  }
-  else {
-   if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
-   t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
-  }
-  l_prop = t_2;
-  
-  /* if not Tester( prop )( obj ) then */
-  t_9 = GF_Tester;
-  if ( TNUM_OBJ( t_9 ) == T_FUNCTION ) {
-   t_8 = CALL_1ARGS( t_9, l_prop );
-  }
-  else {
-   t_8 = DoOperation2Args( CallFuncListOper, t_9, NewPlistFromArgs( l_prop ) );
-  }
-  CHECK_FUNC_RESULT( t_8 );
-  if ( TNUM_OBJ( t_8 ) == T_FUNCTION ) {
-   t_7 = CALL_1ARGS( t_8, a_obj );
-  }
-  else {
-   t_7 = DoOperation2Args( CallFuncListOper, t_8, NewPlistFromArgs( a_obj ) );
-  }
-  CHECK_FUNC_RESULT( t_7 );
-  CHECK_BOOL( t_7 );
-  t_6 = (Obj)(UInt)(t_7 != False);
-  t_5 = (Obj)(UInt)( ! ((Int)t_6) );
-  if ( t_5 ) {
-   
-   /* found := true; */
-   t_5 = True;
-   l_found = t_5;
-   
-   /* if not (prop( obj ) and Tester( prop )( obj )) then */
-   if ( TNUM_OBJ( l_prop ) == T_FUNCTION ) {
-    t_8 = CALL_1ARGS( l_prop, a_obj );
-   }
-   else {
-    t_8 = DoOperation2Args( CallFuncListOper, l_prop, NewPlistFromArgs( a_obj ) );
-   }
-   CHECK_FUNC_RESULT( t_8 );
-   CHECK_BOOL( t_8 );
-   t_7 = (Obj)(UInt)(t_8 != False);
-   t_6 = t_7;
-   if ( t_6 ) {
-    t_11 = GF_Tester;
-    if ( TNUM_OBJ( t_11 ) == T_FUNCTION ) {
-     t_10 = CALL_1ARGS( t_11, l_prop );
-    }
-    else {
-     t_10 = DoOperation2Args( CallFuncListOper, t_11, NewPlistFromArgs( l_prop ) );
-    }
-    CHECK_FUNC_RESULT( t_10 );
-    if ( TNUM_OBJ( t_10 ) == T_FUNCTION ) {
-     t_9 = CALL_1ARGS( t_10, a_obj );
-    }
-    else {
-     t_9 = DoOperation2Args( CallFuncListOper, t_10, NewPlistFromArgs( a_obj ) );
-    }
-    CHECK_FUNC_RESULT( t_9 );
-    CHECK_BOOL( t_9 );
-    t_8 = (Obj)(UInt)(t_9 != False);
-    t_6 = t_8;
-   }
-   t_5 = (Obj)(UInt)( ! ((Int)t_6) );
-   if ( t_5 ) {
-    
-    /* TryNextMethod(); */
-    t_5 = GC_TRY__NEXT__METHOD;
-    CHECK_BOUND( t_5, "TRY_NEXT_METHOD" );
-    SWITCH_TO_OLD_FRAME(oldFrame);
-    return t_5;
-    
-   }
-   /* fi */
-   
-  }
-  /* fi */
-  
- }
- /* od */
- 
- /* if found then */
- t_1 = (Obj)(UInt)(l_found != False);
- if ( t_1 ) {
-  
-  /* return getter( obj ); */
-  t_2 = OBJ_HVAR( (1 << 16) | 1 );
-  CHECK_BOUND( t_2, "getter" );
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_1ARGS( t_2, a_obj );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_obj ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  SWITCH_TO_OLD_FRAME(oldFrame);
-  return t_1;
-  
- }
- 
- /* else */
- else {
-  
-  /* TryNextMethod(); */
-  t_1 = GC_TRY__NEXT__METHOD;
-  CHECK_BOUND( t_1, "TRY_NEXT_METHOD" );
-  SWITCH_TO_OLD_FRAME(oldFrame);
-  return t_1;
-  
- }
- /* fi */
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 7 */
-static Obj  HdlrFunc7 (
- Obj  self,
- Obj  a_name,
- Obj  a_filter,
- Obj  a_getter,
- Obj  a_setter,
- Obj  a_tester,
- Obj  a_mutflag )
-{
- Obj l_flags = 0;
- Obj l_rank = 0;
- Obj l_cats = 0;
- Obj l_i = 0;
- Obj l_lk = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- Obj t_7 = 0;
- Obj t_8 = 0;
- Obj t_9 = 0;
- (void)l_flags;
- (void)l_rank;
- (void)l_cats;
- (void)l_i;
- (void)l_lk;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,2,0,oldFrame);
- MakeHighVars(STATE(CurrLVars));
- ASS_LVAR( 1, a_getter );
- 
- /* if not IS_IDENTICAL_OBJ( filter, IS_OBJECT ) then */
- t_4 = GF_IS__IDENTICAL__OBJ;
- t_5 = GC_IS__OBJECT;
- CHECK_BOUND( t_5, "IS_OBJECT" );
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_2ARGS( t_4, a_filter, t_5 );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( a_filter, t_5 ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- CHECK_BOOL( t_3 );
- t_2 = (Obj)(UInt)(t_3 != False);
- t_1 = (Obj)(UInt)( ! ((Int)t_2) );
- if ( t_1 ) {
-  
-  /* flags := FLAGS_FILTER( filter ); */
-  t_2 = GF_FLAGS__FILTER;
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_1ARGS( t_2, a_filter );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_filter ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  l_flags = t_1;
-  
-  /* rank := 0; */
-  l_rank = INTOBJ_INT(0);
-  
-  /* cats := IS_OBJECT; */
-  t_1 = GC_IS__OBJECT;
-  CHECK_BOUND( t_1, "IS_OBJECT" );
-  l_cats = t_1;
-  
-  /* props := [  ]; */
-  t_1 = NEW_PLIST( T_PLIST, 0 );
-  SET_LEN_PLIST( t_1, 0 );
-  ASS_LVAR( 2, t_1 );
-  
-  /* for i in TRUES_FLAGS( flags ) do */
-  t_5 = GF_TRUES__FLAGS;
-  if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-   t_4 = CALL_1ARGS( t_5, l_flags );
-  }
-  else {
-   t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_flags ) );
-  }
-  CHECK_FUNC_RESULT( t_4 );
-  if ( IS_SMALL_LIST(t_4) ) {
-   t_3 = (Obj)(UInt)1;
-   t_1 = INTOBJ_INT(1);
-  }
-  else {
-   t_3 = (Obj)(UInt)0;
-   t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
-  }
-  while ( 1 ) {
-   if ( t_3 ) {
-    if ( LEN_LIST(t_4) < Int_ObjInt(t_1) )  break;
-    t_2 = ELMV0_LIST( t_4, Int_ObjInt(t_1) );
-    t_1 = (Obj)(((UInt)t_1)+4);
-    if ( t_2 == 0 )  continue;
-   }
-   else {
-    if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
-    t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
-   }
-   l_i = t_2;
-   
-   /* if INFO_FILTERS[i] in FNUM_CATS_AND_REPS then */
-   t_7 = GC_INFO__FILTERS;
-   CHECK_BOUND( t_7, "INFO_FILTERS" );
-   CHECK_INT_POS( l_i );
-   C_ELM_LIST_FPL( t_6, t_7, l_i )
-   t_7 = GC_FNUM__CATS__AND__REPS;
-   CHECK_BOUND( t_7, "FNUM_CATS_AND_REPS" );
-   t_5 = (Obj)(UInt)(IN( t_6, t_7 ));
-   if ( t_5 ) {
-    
-    /* cats := cats and FILTERS[i]; */
-    if ( l_cats == False ) {
-     t_5 = l_cats;
-    }
-    else if ( l_cats == True ) {
-     t_7 = GC_FILTERS;
-     CHECK_BOUND( t_7, "FILTERS" );
-     C_ELM_LIST_FPL( t_6, t_7, l_i )
-     CHECK_BOOL( t_6 );
-     t_5 = t_6;
-    }
-    else if (IS_FILTER( l_cats ) ) {
-     t_8 = GC_FILTERS;
-     CHECK_BOUND( t_8, "FILTERS" );
-     C_ELM_LIST_FPL( t_7, t_8, l_i )
-     t_5 = NewAndFilter( l_cats, t_7 );
-    }
-    else {
-     RequireArgumentEx(0, l_cats, "<expr>",
-     "must be 'true' or 'false' or a filter" );
-    }
-    l_cats = t_5;
-    
-    /* rank := rank - RankFilter( FILTERS[i] ); */
-    t_7 = GF_RankFilter;
-    t_9 = GC_FILTERS;
-    CHECK_BOUND( t_9, "FILTERS" );
-    C_ELM_LIST_FPL( t_8, t_9, l_i )
-    if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-     t_6 = CALL_1ARGS( t_7, t_8 );
-    }
-    else {
-     t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( t_8 ) );
-    }
-    CHECK_FUNC_RESULT( t_6 );
-    C_DIFF_FIA( t_5, l_rank, t_6 )
-    l_rank = t_5;
-    
-   }
-   
-   /* elif INFO_FILTERS[i] in FNUM_PROS then */
-   else {
-    t_7 = GC_INFO__FILTERS;
-    CHECK_BOUND( t_7, "INFO_FILTERS" );
-    C_ELM_LIST_FPL( t_6, t_7, l_i )
-    t_7 = GC_FNUM__PROS;
-    CHECK_BOUND( t_7, "FNUM_PROS" );
-    t_5 = (Obj)(UInt)(IN( t_6, t_7 ));
-    if ( t_5 ) {
-     
-     /* ADD_LIST( props, FILTERS[i] ); */
-     t_5 = GF_ADD__LIST;
-     t_6 = OBJ_LVAR( 2 );
-     CHECK_BOUND( t_6, "props" );
-     t_8 = GC_FILTERS;
-     CHECK_BOUND( t_8, "FILTERS" );
-     C_ELM_LIST_FPL( t_7, t_8, l_i )
-     if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-      CALL_2ARGS( t_5, t_6, t_7 );
-     }
-     else {
-      DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( t_6, t_7 ) );
-     }
-     
-    }
-   }
-   /* fi */
-   
-  }
-  /* od */
-  
-  /* MakeImmutable( props ); */
-  t_1 = GF_MakeImmutable;
-  t_2 = OBJ_LVAR( 2 );
-  CHECK_BOUND( t_2, "props" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_1ARGS( t_1, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
-  }
-  
-  /* if 0 < LEN_LIST( props ) then */
-  t_3 = GF_LEN__LIST;
-  t_4 = OBJ_LVAR( 2 );
-  CHECK_BOUND( t_4, "props" );
-  if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-   t_2 = CALL_1ARGS( t_3, t_4 );
-  }
-  else {
-   t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( t_4 ) );
-  }
-  CHECK_FUNC_RESULT( t_2 );
-  t_1 = (Obj)(UInt)(LT( INTOBJ_INT(0), t_2 ));
-  if ( t_1 ) {
-   
-   /* InstallOtherMethod( getter, "default method requiring categories and checking properties", true, [ cats ], rank, function ( obj )
-      local found, prop;
-      found := false;
-      for prop in props do
-          if not Tester( prop )( obj ) then
-              found := true;
-              if not (prop( obj ) and Tester( prop )( obj )) then
-                  TryNextMethod();
-              fi;
-          fi;
-      od;
-      if found then
-          return getter( obj );
-      else
-          TryNextMethod();
-      fi;
-      return;
-  end ); */
-   t_1 = GF_InstallOtherMethod;
-   t_2 = OBJ_LVAR( 1 );
-   CHECK_BOUND( t_2, "getter" );
-   t_3 = MakeString( "default method requiring categories and checking properties" );
-   t_4 = True;
-   t_5 = NEW_PLIST( T_PLIST, 1 );
-   SET_LEN_PLIST( t_5, 1 );
-   SET_ELM_PLIST( t_5, 1, l_cats );
-   CHANGED_BAG( t_5 );
-   t_6 = NewFunction( NameFunc[8], 1, ArgStringToList("obj"), HdlrFunc8 );
-   SET_ENVI_FUNC( t_6, STATE(CurrLVars) );
-   t_7 = NewFunctionBody();
-   SET_STARTLINE_BODY(t_7, 694);
-   SET_ENDLINE_BODY(t_7, 712);
-   SET_FILENAME_BODY(t_7, FileName);
-   SET_BODY_FUNC(t_6, t_7);
-   if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-    CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, l_rank, t_6 );
-   }
-   else {
-    DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, t_4, t_5, l_rank, t_6 ) );
-   }
-   
-  }
-  /* fi */
-  
- }
- /* fi */
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 9 */
-static Obj  HdlrFunc9 (
- Obj  self,
- Obj  a_name,
- Obj  a_filter,
- Obj  a_getter,
- Obj  a_setter,
- Obj  a_tester,
- Obj  a_mutflag )
-{
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* InstallOtherMethod( setter, "default method, does nothing", true, [ IS_OBJECT, IS_OBJECT ], 0, DO_NOTHING_SETTER ); */
- t_1 = GF_InstallOtherMethod;
- t_2 = MakeString( "default method, does nothing" );
- t_3 = True;
- t_4 = NEW_PLIST( T_PLIST, 2 );
- SET_LEN_PLIST( t_4, 2 );
- t_5 = GC_IS__OBJECT;
- CHECK_BOUND( t_5, "IS_OBJECT" );
- SET_ELM_PLIST( t_4, 1, t_5 );
- CHANGED_BAG( t_4 );
- t_5 = GC_IS__OBJECT;
- CHECK_BOUND( t_5, "IS_OBJECT" );
- SET_ELM_PLIST( t_4, 2, t_5 );
- CHANGED_BAG( t_4 );
- t_5 = GC_DO__NOTHING__SETTER;
- CHECK_BOUND( t_5, "DO_NOTHING_SETTER" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_6ARGS( t_1, a_setter, t_2, t_3, t_4, INTOBJ_INT(0), t_5 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( a_setter, t_2, t_3, t_4, INTOBJ_INT(0), t_5 ) );
- }
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 10 */
-static Obj  HdlrFunc10 (
- Obj  self,
- Obj  a_list,
- Obj  a_elm )
-{
- Obj l_i = 0;
- Obj l_j = 0;
- Obj l_k = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- (void)l_i;
- (void)l_j;
- (void)l_k;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* k := LEN_LIST( list ) + 1; */
- t_3 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, a_list );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_list ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- C_SUM_FIA( t_1, t_2, INTOBJ_INT(1) )
- l_k = t_1;
- 
- /* if k mod 2 = 0 then */
- t_2 = MOD( l_k, INTOBJ_INT(2) );
- t_1 = (Obj)(UInt)(EQ( t_2, INTOBJ_INT(0) ));
- if ( t_1 ) {
-  
-  /* k := k + 1; */
-  C_SUM_FIA( t_1, l_k, INTOBJ_INT(1) )
-  l_k = t_1;
-  
- }
- /* fi */
- 
- /* i := -1; */
- l_i = INTOBJ_INT(-1);
- 
- /* while i + 2 < k do */
- while ( 1 ) {
-  C_SUM_FIA( t_2, l_i, INTOBJ_INT(2) )
-  t_1 = (Obj)(UInt)(LT( t_2, l_k ));
-  if ( ! t_1 ) break;
-  
-  /* j := 2 * QUO_INT( (i + k + 2), 4 ) - 1; */
-  t_4 = GF_QUO__INT;
-  C_SUM_FIA( t_6, l_i, l_k )
-  C_SUM_FIA( t_5, t_6, INTOBJ_INT(2) )
-  if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-   t_3 = CALL_2ARGS( t_4, t_5, INTOBJ_INT(4) );
-  }
-  else {
-   t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( t_5, INTOBJ_INT(4) ) );
-  }
-  CHECK_FUNC_RESULT( t_3 );
-  C_PROD_FIA( t_2, INTOBJ_INT(2), t_3 )
-  C_DIFF_FIA( t_1, t_2, INTOBJ_INT(1) )
-  l_j = t_1;
-  
-  /* if list[j] < elm then */
-  CHECK_INT_POS( l_j );
-  C_ELM_LIST_FPL( t_2, a_list, l_j )
-  t_1 = (Obj)(UInt)(LT( t_2, a_elm ));
-  if ( t_1 ) {
-   
-   /* i := j; */
-   l_i = l_j;
-   
-  }
-  
-  /* else */
-  else {
-   
-   /* k := j; */
-   l_k = l_j;
-   
-  }
-  /* fi */
-  
- }
- /* od */
- 
- /* return k; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return l_k;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 12 */
-static Obj  HdlrFunc12 (
- Obj  self,
- Obj  a_key )
-{
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* if not IsPrimeInt( key ) then */
- t_4 = GF_IsPrimeInt;
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, a_key );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( a_key ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- CHECK_BOOL( t_3 );
- t_2 = (Obj)(UInt)(t_3 != False);
- t_1 = (Obj)(UInt)( ! ((Int)t_2) );
- if ( t_1 ) {
-  
-  /* Error( name, ": <p> must be a prime" ); */
-  t_1 = GF_Error;
-  t_2 = OBJ_HVAR( (1 << 16) | 1 );
-  CHECK_BOUND( t_2, "name" );
-  t_3 = MakeString( ": <p> must be a prime" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_2ARGS( t_1, t_2, t_3 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
-  }
-  
- }
- /* fi */
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 13 */
-static Obj  HdlrFunc13 (
- Obj  self,
- Obj  a_D )
-{
- Obj t_1 = 0;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* return [  ]; */
- t_1 = NEW_PLIST( T_PLIST, 0 );
- SET_LEN_PLIST( t_1, 0 );
- SWITCH_TO_OLD_FRAME(oldFrame);
- return t_1;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 14 */
-static Obj  HdlrFunc14 (
- Obj  self,
- Obj  a_D,
- Obj  a_key )
-{
- Obj l_known = 0;
- Obj l_i = 0;
- Obj l_erg = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- (void)l_known;
- (void)l_i;
- (void)l_erg;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* keytest( key ); */
- t_1 = OBJ_HVAR( (1 << 16) | 2 );
- CHECK_BOUND( t_1, "keytest" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_1ARGS( t_1, a_key );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( a_key ) );
- }
- 
- /* known := attr( D ); */
- t_2 = OBJ_HVAR( (1 << 16) | 4 );
- CHECK_BOUND( t_2, "attr" );
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, a_D );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_D ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_known = t_1;
- 
- /* i := PositionSortedOddPositions( known, key ); */
- t_2 = GF_PositionSortedOddPositions;
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_2ARGS( t_2, l_known, a_key );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( l_known, a_key ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_i = t_1;
- 
- /* if LEN_LIST( known ) < i or known[i] <> key then */
- t_4 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, l_known );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_known ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- t_2 = (Obj)(UInt)(LT( t_3, l_i ));
- t_1 = t_2;
- if ( ! t_1 ) {
-  CHECK_INT_POS( l_i );
-  C_ELM_LIST_FPL( t_4, l_known, l_i )
-  t_3 = (Obj)(UInt)( ! EQ( t_4, a_key ));
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* erg := oper( D, key ); */
-  t_2 = OBJ_HVAR( (1 << 16) | 3 );
-  CHECK_BOUND( t_2, "oper" );
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_2ARGS( t_2, a_D, a_key );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_D, a_key ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  l_erg = t_1;
-  
-  /* i := PositionSortedOddPositions( known, key ); */
-  t_2 = GF_PositionSortedOddPositions;
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_2ARGS( t_2, l_known, a_key );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( l_known, a_key ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  l_i = t_1;
-  
-  /* if LEN_LIST( known ) < i or known[i] <> key then */
-  t_4 = GF_LEN__LIST;
-  if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-   t_3 = CALL_1ARGS( t_4, l_known );
-  }
-  else {
-   t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_known ) );
-  }
-  CHECK_FUNC_RESULT( t_3 );
-  t_2 = (Obj)(UInt)(LT( t_3, l_i ));
-  t_1 = t_2;
-  if ( ! t_1 ) {
-   CHECK_INT_POS( l_i );
-   C_ELM_LIST_FPL( t_4, l_known, l_i )
-   t_3 = (Obj)(UInt)( ! EQ( t_4, a_key ));
-   t_1 = t_3;
-  }
-  if ( t_1 ) {
-   
-   /* known{[ i + 2 .. LEN_LIST( known ) + 2 ]} := known{[ i .. LEN_LIST( known ) ]}; */
-   C_SUM_FIA( t_2, l_i, INTOBJ_INT(2) )
-   t_5 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-    t_4 = CALL_1ARGS( t_5, l_known );
-   }
-   else {
-    t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_known ) );
-   }
-   CHECK_FUNC_RESULT( t_4 );
-   C_SUM_FIA( t_3, t_4, INTOBJ_INT(2) )
-   t_1 = Range2Check( t_2, t_3 );
-   t_5 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-    t_4 = CALL_1ARGS( t_5, l_known );
-   }
-   else {
-    t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_known ) );
-   }
-   CHECK_FUNC_RESULT( t_4 );
-   t_3 = Range2Check( l_i, t_4 );
-   t_2 = ElmsListCheck( l_known, t_3 );
-   AsssListCheck( l_known, t_1, t_2 );
-   
-   /* known[i] := IMMUTABLE_COPY_OBJ( key ); */
-   CHECK_INT_POS( l_i );
-   t_2 = GF_IMMUTABLE__COPY__OBJ;
-   if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-    t_1 = CALL_1ARGS( t_2, a_key );
-   }
-   else {
-    t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_key ) );
-   }
-   CHECK_FUNC_RESULT( t_1 );
-   C_ASS_LIST_FPL( l_known, l_i, t_1 )
-   
-   /* known[i + 1] := IMMUTABLE_COPY_OBJ( erg ); */
-   C_SUM_FIA( t_1, l_i, INTOBJ_INT(1) )
-   CHECK_INT_POS( t_1 );
-   t_3 = GF_IMMUTABLE__COPY__OBJ;
-   if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-    t_2 = CALL_1ARGS( t_3, l_erg );
-   }
-   else {
-    t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_erg ) );
-   }
-   CHECK_FUNC_RESULT( t_2 );
-   C_ASS_LIST_FPL( l_known, t_1, t_2 )
-   
-  }
-  /* fi */
-  
- }
- /* fi */
- 
- /* return known[i + 1]; */
- C_SUM_FIA( t_2, l_i, INTOBJ_INT(1) )
- CHECK_INT_POS( t_2 );
- C_ELM_LIST_FPL( t_1, l_known, t_2 )
- SWITCH_TO_OLD_FRAME(oldFrame);
- return t_1;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 15 */
-static Obj  HdlrFunc15 (
- Obj  self,
- Obj  a_D,
- Obj  a_key )
-{
- Obj l_known = 0;
- Obj l_i = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- (void)l_known;
- (void)l_i;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* keytest( key ); */
- t_1 = OBJ_HVAR( (1 << 16) | 2 );
- CHECK_BOUND( t_1, "keytest" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_1ARGS( t_1, a_key );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( a_key ) );
- }
- 
- /* known := attr( D ); */
- t_2 = OBJ_HVAR( (1 << 16) | 4 );
- CHECK_BOUND( t_2, "attr" );
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, a_D );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_D ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_known = t_1;
- 
- /* i := PositionSortedOddPositions( known, key ); */
- t_2 = GF_PositionSortedOddPositions;
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_2ARGS( t_2, l_known, a_key );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( l_known, a_key ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_i = t_1;
- 
- /* return i <= LEN_LIST( known ) and known[i] = key; */
- t_4 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, l_known );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_known ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- t_2 = (LT( t_3, l_i ) ?  False : True);
- if ( t_2 == False ) {
-  t_1 = t_2;
- }
- else if ( t_2 == True ) {
-  CHECK_INT_POS( l_i );
-  C_ELM_LIST_FPL( t_4, l_known, l_i )
-  t_3 = (EQ( t_4, a_key ) ? True : False);
-  t_1 = t_3;
- }
- else if (IS_FILTER( t_2 ) ) {
-  C_ELM_LIST_FPL( t_5, l_known, l_i )
-  t_4 = (EQ( t_5, a_key ) ? True : False);
-  t_1 = NewAndFilter( t_2, t_4 );
- }
- else {
-  RequireArgumentEx(0, t_2, "<expr>",
-  "must be 'true' or 'false' or a filter" );
- }
- SWITCH_TO_OLD_FRAME(oldFrame);
- return t_1;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 16 */
-static Obj  HdlrFunc16 (
- Obj  self,
- Obj  a_D,
- Obj  a_key,
- Obj  a_obj )
-{
- Obj l_known = 0;
- Obj l_i = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- (void)l_known;
- (void)l_i;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* keytest( key ); */
- t_1 = OBJ_HVAR( (1 << 16) | 2 );
- CHECK_BOUND( t_1, "keytest" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_1ARGS( t_1, a_key );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( a_key ) );
- }
- 
- /* known := attr( D ); */
- t_2 = OBJ_HVAR( (1 << 16) | 4 );
- CHECK_BOUND( t_2, "attr" );
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, a_D );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_D ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_known = t_1;
- 
- /* i := PositionSortedOddPositions( known, key ); */
- t_2 = GF_PositionSortedOddPositions;
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_2ARGS( t_2, l_known, a_key );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( l_known, a_key ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_i = t_1;
- 
- /* if LEN_LIST( known ) < i or known[i] <> key then */
- t_4 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, l_known );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_known ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- t_2 = (Obj)(UInt)(LT( t_3, l_i ));
- t_1 = t_2;
- if ( ! t_1 ) {
-  CHECK_INT_POS( l_i );
-  C_ELM_LIST_FPL( t_4, l_known, l_i )
-  t_3 = (Obj)(UInt)( ! EQ( t_4, a_key ));
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* known{[ i + 2 .. LEN_LIST( known ) + 2 ]} := known{[ i .. LEN_LIST( known ) ]}; */
-  C_SUM_FIA( t_2, l_i, INTOBJ_INT(2) )
-  t_5 = GF_LEN__LIST;
-  if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-   t_4 = CALL_1ARGS( t_5, l_known );
-  }
-  else {
-   t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_known ) );
-  }
-  CHECK_FUNC_RESULT( t_4 );
-  C_SUM_FIA( t_3, t_4, INTOBJ_INT(2) )
-  t_1 = Range2Check( t_2, t_3 );
-  t_5 = GF_LEN__LIST;
-  if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-   t_4 = CALL_1ARGS( t_5, l_known );
-  }
-  else {
-   t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_known ) );
-  }
-  CHECK_FUNC_RESULT( t_4 );
-  t_3 = Range2Check( l_i, t_4 );
-  t_2 = ElmsListCheck( l_known, t_3 );
-  AsssListCheck( l_known, t_1, t_2 );
-  
-  /* known[i] := IMMUTABLE_COPY_OBJ( key ); */
-  CHECK_INT_POS( l_i );
-  t_2 = GF_IMMUTABLE__COPY__OBJ;
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_1ARGS( t_2, a_key );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_key ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  C_ASS_LIST_FPL( l_known, l_i, t_1 )
-  
-  /* known[i + 1] := IMMUTABLE_COPY_OBJ( obj ); */
-  C_SUM_FIA( t_1, l_i, INTOBJ_INT(1) )
-  CHECK_INT_POS( t_1 );
-  t_3 = GF_IMMUTABLE__COPY__OBJ;
-  if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-   t_2 = CALL_1ARGS( t_3, a_obj );
-  }
-  else {
-   t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_obj ) );
-  }
-  CHECK_FUNC_RESULT( t_2 );
-  C_ASS_LIST_FPL( l_known, t_1, t_2 )
-  
- }
- /* fi */
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 11 */
-static Obj  HdlrFunc11 (
- Obj  self,
- Obj  a_name,
- Obj  a_domreq,
- Obj  a_keyreq,
- Obj  a_keytest )
-{
- Obj l_str = 0;
- Obj l_lk = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- Obj t_7 = 0;
- (void)l_str;
- (void)l_lk;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,4,0,oldFrame);
- MakeHighVars(STATE(CurrLVars));
- ASS_LVAR( 1, a_name );
- ASS_LVAR( 2, a_keytest );
- 
- /* if keytest = "prime" then */
- t_2 = OBJ_LVAR( 2 );
- CHECK_BOUND( t_2, "keytest" );
- t_3 = MakeString( "prime" );
- t_1 = (Obj)(UInt)(EQ( t_2, t_3 ));
- if ( t_1 ) {
-  
-  /* keytest := function ( key )
-      if not IsPrimeInt( key ) then
-          Error( name, ": <p> must be a prime" );
-      fi;
-      return;
-  end; */
-  t_1 = NewFunction( NameFunc[12], 1, ArgStringToList("key"), HdlrFunc12 );
-  SET_ENVI_FUNC( t_1, STATE(CurrLVars) );
-  t_2 = NewFunctionBody();
-  SET_STARTLINE_BODY(t_2, 891);
-  SET_ENDLINE_BODY(t_2, 895);
-  SET_FILENAME_BODY(t_2, FileName);
-  SET_BODY_FUNC(t_1, t_2);
-  ASS_LVAR( 2, t_1 );
-  
- }
- /* fi */
- 
- /* str := SHALLOW_COPY_OBJ( name ); */
- t_2 = GF_SHALLOW__COPY__OBJ;
- t_3 = OBJ_LVAR( 1 );
- CHECK_BOUND( t_3, "name" );
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, t_3 );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( t_3 ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_str = t_1;
- 
- /* APPEND_LIST_INTR( str, "Op" ); */
- t_1 = GF_APPEND__LIST__INTR;
- t_2 = MakeString( "Op" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, l_str, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_str, t_2 ) );
- }
- 
- /* DeclareOperation( str, [ domreq, keyreq ] ); */
- t_1 = GF_DeclareOperation;
- t_2 = NEW_PLIST( T_PLIST, 2 );
- SET_LEN_PLIST( t_2, 2 );
- SET_ELM_PLIST( t_2, 1, a_domreq );
- CHANGED_BAG( t_2 );
- SET_ELM_PLIST( t_2, 2, a_keyreq );
- CHANGED_BAG( t_2 );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, l_str, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_str, t_2 ) );
- }
- 
- /* oper := VALUE_GLOBAL( str ); */
- t_2 = GF_VALUE__GLOBAL;
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, l_str );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( l_str ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- ASS_LVAR( 3, t_1 );
- 
- /* str := "Computed"; */
- t_1 = MakeString( "Computed" );
- l_str = t_1;
- 
- /* APPEND_LIST_INTR( str, name ); */
- t_1 = GF_APPEND__LIST__INTR;
- t_2 = OBJ_LVAR( 1 );
- CHECK_BOUND( t_2, "name" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, l_str, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_str, t_2 ) );
- }
- 
- /* APPEND_LIST_INTR( str, "s" ); */
- t_1 = GF_APPEND__LIST__INTR;
- t_2 = MakeString( "s" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, l_str, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_str, t_2 ) );
- }
- 
- /* DeclareAttribute( str, domreq, "mutable" ); */
- t_1 = GF_DeclareAttribute;
- t_2 = MakeString( "mutable" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_3ARGS( t_1, l_str, a_domreq, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_str, a_domreq, t_2 ) );
- }
- 
- /* attr := VALUE_GLOBAL( str ); */
- t_2 = GF_VALUE__GLOBAL;
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, l_str );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( l_str ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- ASS_LVAR( 4, t_1 );
- 
- /* InstallMethod( attr, "default method", true, [ domreq ], 0, function ( D )
-      return [  ];
-  end ); */
- t_1 = GF_InstallMethod;
- t_2 = OBJ_LVAR( 4 );
- CHECK_BOUND( t_2, "attr" );
- t_3 = MakeString( "default method" );
- t_4 = True;
- t_5 = NEW_PLIST( T_PLIST, 1 );
- SET_LEN_PLIST( t_5, 1 );
- SET_ELM_PLIST( t_5, 1, a_domreq );
- CHANGED_BAG( t_5 );
- t_6 = NewFunction( NameFunc[13], 1, ArgStringToList("D"), HdlrFunc13 );
- SET_ENVI_FUNC( t_6, STATE(CurrLVars) );
- t_7 = NewFunctionBody();
- SET_STARTLINE_BODY(t_7, 912);
- SET_ENDLINE_BODY(t_7, 912);
- SET_FILENAME_BODY(t_7, FileName);
- SET_BODY_FUNC(t_6, t_7);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 ) );
- }
- 
- /* DeclareOperation( name, [ domreq, keyreq ] ); */
- t_1 = GF_DeclareOperation;
- t_2 = OBJ_LVAR( 1 );
- CHECK_BOUND( t_2, "name" );
- t_3 = NEW_PLIST( T_PLIST, 2 );
- SET_LEN_PLIST( t_3, 2 );
- SET_ELM_PLIST( t_3, 1, a_domreq );
- CHANGED_BAG( t_3 );
- SET_ELM_PLIST( t_3, 2, a_keyreq );
- CHANGED_BAG( t_3 );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* ADD_LIST( WRAPPER_OPERATIONS, VALUE_GLOBAL( name ) ); */
- t_1 = GF_ADD__LIST;
- t_2 = GC_WRAPPER__OPERATIONS;
- CHECK_BOUND( t_2, "WRAPPER_OPERATIONS" );
- t_4 = GF_VALUE__GLOBAL;
- t_5 = OBJ_LVAR( 1 );
- CHECK_BOUND( t_5, "name" );
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, t_5 );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( t_5 ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* InstallOtherMethod( VALUE_GLOBAL( name ), "default method", true, [ domreq, keyreq ], 0, function ( D, key )
-      local known, i, erg;
-      keytest( key );
-      known := attr( D );
-      i := PositionSortedOddPositions( known, key );
-      if LEN_LIST( known ) < i or known[i] <> key then
-          erg := oper( D, key );
-          i := PositionSortedOddPositions( known, key );
-          if LEN_LIST( known ) < i or known[i] <> key then
-              known{[ i + 2 .. LEN_LIST( known ) + 2 ]} := known{[ i .. LEN_LIST( known ) ]};
-              known[i] := IMMUTABLE_COPY_OBJ( key );
-              known[i + 1] := IMMUTABLE_COPY_OBJ( erg );
-          fi;
-      fi;
-      return known[i + 1];
-  end ); */
- t_1 = GF_InstallOtherMethod;
- t_3 = GF_VALUE__GLOBAL;
- t_4 = OBJ_LVAR( 1 );
- CHECK_BOUND( t_4, "name" );
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, t_4 );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( t_4 ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- t_3 = MakeString( "default method" );
- t_4 = True;
- t_5 = NEW_PLIST( T_PLIST, 2 );
- SET_LEN_PLIST( t_5, 2 );
- SET_ELM_PLIST( t_5, 1, a_domreq );
- CHANGED_BAG( t_5 );
- SET_ELM_PLIST( t_5, 2, a_keyreq );
- CHANGED_BAG( t_5 );
- t_6 = NewFunction( NameFunc[14], 2, ArgStringToList("D,key"), HdlrFunc14 );
- SET_ENVI_FUNC( t_6, STATE(CurrLVars) );
- t_7 = NewFunctionBody();
- SET_STARTLINE_BODY(t_7, 934);
- SET_ENDLINE_BODY(t_7, 957);
- SET_FILENAME_BODY(t_7, FileName);
- SET_BODY_FUNC(t_6, t_7);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 ) );
- }
- 
- /* str := "Has"; */
- t_1 = MakeString( "Has" );
- l_str = t_1;
- 
- /* APPEND_LIST_INTR( str, name ); */
- t_1 = GF_APPEND__LIST__INTR;
- t_2 = OBJ_LVAR( 1 );
- CHECK_BOUND( t_2, "name" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, l_str, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_str, t_2 ) );
- }
- 
- /* DeclareOperation( str, [ domreq, keyreq ] ); */
- t_1 = GF_DeclareOperation;
- t_2 = NEW_PLIST( T_PLIST, 2 );
- SET_LEN_PLIST( t_2, 2 );
- SET_ELM_PLIST( t_2, 1, a_domreq );
- CHANGED_BAG( t_2 );
- SET_ELM_PLIST( t_2, 2, a_keyreq );
- CHANGED_BAG( t_2 );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, l_str, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_str, t_2 ) );
- }
- 
- /* InstallOtherMethod( VALUE_GLOBAL( str ), "default method", true, [ domreq, keyreq ], 0, function ( D, key )
-      local known, i;
-      keytest( key );
-      known := attr( D );
-      i := PositionSortedOddPositions( known, key );
-      return i <= LEN_LIST( known ) and known[i] = key;
-  end ); */
- t_1 = GF_InstallOtherMethod;
- t_3 = GF_VALUE__GLOBAL;
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, l_str );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_str ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- t_3 = MakeString( "default method" );
- t_4 = True;
- t_5 = NEW_PLIST( T_PLIST, 2 );
- SET_LEN_PLIST( t_5, 2 );
- SET_ELM_PLIST( t_5, 1, a_domreq );
- CHANGED_BAG( t_5 );
- SET_ELM_PLIST( t_5, 2, a_keyreq );
- CHANGED_BAG( t_5 );
- t_6 = NewFunction( NameFunc[15], 2, ArgStringToList("D,key"), HdlrFunc15 );
- SET_ENVI_FUNC( t_6, STATE(CurrLVars) );
- t_7 = NewFunctionBody();
- SET_STARTLINE_BODY(t_7, 967);
- SET_ENDLINE_BODY(t_7, 975);
- SET_FILENAME_BODY(t_7, FileName);
- SET_BODY_FUNC(t_6, t_7);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 ) );
- }
- 
- /* str := "Set"; */
- t_1 = MakeString( "Set" );
- l_str = t_1;
- 
- /* APPEND_LIST_INTR( str, name ); */
- t_1 = GF_APPEND__LIST__INTR;
- t_2 = OBJ_LVAR( 1 );
- CHECK_BOUND( t_2, "name" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, l_str, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_str, t_2 ) );
- }
- 
- /* DeclareOperation( str, [ domreq, keyreq, IS_OBJECT ] ); */
- t_1 = GF_DeclareOperation;
- t_2 = NEW_PLIST( T_PLIST, 3 );
- SET_LEN_PLIST( t_2, 3 );
- SET_ELM_PLIST( t_2, 1, a_domreq );
- CHANGED_BAG( t_2 );
- SET_ELM_PLIST( t_2, 2, a_keyreq );
- CHANGED_BAG( t_2 );
- t_3 = GC_IS__OBJECT;
- CHECK_BOUND( t_3, "IS_OBJECT" );
- SET_ELM_PLIST( t_2, 3, t_3 );
- CHANGED_BAG( t_2 );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, l_str, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_str, t_2 ) );
- }
- 
- /* InstallOtherMethod( VALUE_GLOBAL( str ), "default method", true, [ domreq, keyreq, IS_OBJECT ], 0, function ( D, key, obj )
-      local known, i;
-      keytest( key );
-      known := attr( D );
-      i := PositionSortedOddPositions( known, key );
-      if LEN_LIST( known ) < i or known[i] <> key then
-          known{[ i + 2 .. LEN_LIST( known ) + 2 ]} := known{[ i .. LEN_LIST( known ) ]};
-          known[i] := IMMUTABLE_COPY_OBJ( key );
-          known[i + 1] := IMMUTABLE_COPY_OBJ( obj );
-      fi;
-      return;
-  end ); */
- t_1 = GF_InstallOtherMethod;
- t_3 = GF_VALUE__GLOBAL;
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, l_str );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_str ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- t_3 = MakeString( "default method" );
- t_4 = True;
- t_5 = NEW_PLIST( T_PLIST, 3 );
- SET_LEN_PLIST( t_5, 3 );
- SET_ELM_PLIST( t_5, 1, a_domreq );
- CHANGED_BAG( t_5 );
- SET_ELM_PLIST( t_5, 2, a_keyreq );
- CHANGED_BAG( t_5 );
- t_6 = GC_IS__OBJECT;
- CHECK_BOUND( t_6, "IS_OBJECT" );
- SET_ELM_PLIST( t_5, 3, t_6 );
- CHANGED_BAG( t_5 );
- t_6 = NewFunction( NameFunc[16], 3, ArgStringToList("D,key,obj"), HdlrFunc16 );
- SET_ENVI_FUNC( t_6, STATE(CurrLVars) );
- t_7 = NewFunctionBody();
- SET_STARTLINE_BODY(t_7, 984);
- SET_ENDLINE_BODY(t_7, 997);
- SET_FILENAME_BODY(t_7, FileName);
- SET_BODY_FUNC(t_6, t_7);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 ) );
- }
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 18 */
-static Obj  HdlrFunc18 (
- Obj  self,
- Obj  a_arg )
-{
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- Obj t_7 = 0;
- Obj t_8 = 0;
- Obj t_9 = 0;
- Obj t_10 = 0;
- Obj t_11 = 0;
- Obj t_12 = 0;
- Obj t_13 = 0;
- Obj t_14 = 0;
- Obj t_15 = 0;
- Obj t_16 = 0;
- Obj t_17 = 0;
- Obj t_18 = 0;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* re := false; */
- t_1 = False;
- ASS_HVAR( (1 << 16) | 4, t_1 );
- 
- /* for i in [ 1 .. LEN_LIST( reqs ) ] do */
- t_6 = GF_LEN__LIST;
- t_7 = OBJ_HVAR( (1 << 16) | 2 );
- CHECK_BOUND( t_7, "reqs" );
- if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-  t_5 = CALL_1ARGS( t_6, t_7 );
- }
- else {
-  t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( t_7 ) );
- }
- CHECK_FUNC_RESULT( t_5 );
- t_4 = Range2Check( INTOBJ_INT(1), t_5 );
- if ( IS_SMALL_LIST(t_4) ) {
-  t_3 = (Obj)(UInt)1;
-  t_1 = INTOBJ_INT(1);
- }
- else {
-  t_3 = (Obj)(UInt)0;
-  t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
- }
- while ( 1 ) {
-  if ( t_3 ) {
-   if ( LEN_LIST(t_4) < Int_ObjInt(t_1) )  break;
-   t_2 = ELMV0_LIST( t_4, Int_ObjInt(t_1) );
-   t_1 = (Obj)(((UInt)t_1)+4);
-   if ( t_2 == 0 )  continue;
-  }
-  else {
-   if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
-   t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
-  }
-  ASS_HVAR( (1 << 16) | 5, t_2 );
-  
-  /* re := re or IsBound( cond[i] ) and not Tester( cond[i] )( arg[i] ) and cond[i]( arg[i] ) and Tester( cond[i] )( arg[i] ); */
-  t_7 = OBJ_HVAR( (1 << 16) | 4 );
-  CHECK_BOUND( t_7, "re" );
-  CHECK_BOOL( t_7 );
-  t_6 = (Obj)(UInt)(t_7 != False);
-  t_5 = (t_6 ? True : False);
-  if ( t_5 == False ) {
-   t_12 = OBJ_HVAR( (1 << 16) | 3 );
-   CHECK_BOUND( t_12, "cond" );
-   t_13 = OBJ_HVAR( (1 << 16) | 5 );
-   CHECK_BOUND( t_13, "i" );
-   CHECK_INT_POS( t_13 );
-   t_11 = C_ISB_LIST( t_12, t_13 );
-   t_10 = (Obj)(UInt)(t_11 != False);
-   t_9 = t_10;
-   if ( t_9 ) {
-    t_15 = GF_Tester;
-    t_17 = OBJ_HVAR( (1 << 16) | 3 );
-    CHECK_BOUND( t_17, "cond" );
-    t_18 = OBJ_HVAR( (1 << 16) | 5 );
-    CHECK_BOUND( t_18, "i" );
-    CHECK_INT_POS( t_18 );
-    C_ELM_LIST_FPL( t_16, t_17, t_18 )
-    if ( TNUM_OBJ( t_15 ) == T_FUNCTION ) {
-     t_14 = CALL_1ARGS( t_15, t_16 );
-    }
-    else {
-     t_14 = DoOperation2Args( CallFuncListOper, t_15, NewPlistFromArgs( t_16 ) );
-    }
-    CHECK_FUNC_RESULT( t_14 );
-    t_16 = OBJ_HVAR( (1 << 16) | 5 );
-    CHECK_BOUND( t_16, "i" );
-    CHECK_INT_POS( t_16 );
-    C_ELM_LIST_FPL( t_15, a_arg, t_16 )
-    if ( TNUM_OBJ( t_14 ) == T_FUNCTION ) {
-     t_13 = CALL_1ARGS( t_14, t_15 );
-    }
-    else {
-     t_13 = DoOperation2Args( CallFuncListOper, t_14, NewPlistFromArgs( t_15 ) );
-    }
-    CHECK_FUNC_RESULT( t_13 );
-    CHECK_BOOL( t_13 );
-    t_12 = (Obj)(UInt)(t_13 != False);
-    t_11 = (Obj)(UInt)( ! ((Int)t_12) );
-    t_9 = t_11;
-   }
-   t_8 = t_9;
-   if ( t_8 ) {
-    t_13 = OBJ_HVAR( (1 << 16) | 3 );
-    CHECK_BOUND( t_13, "cond" );
-    t_14 = OBJ_HVAR( (1 << 16) | 5 );
-    CHECK_BOUND( t_14, "i" );
-    CHECK_INT_POS( t_14 );
-    C_ELM_LIST_FPL( t_12, t_13, t_14 )
-    t_14 = OBJ_HVAR( (1 << 16) | 5 );
-    CHECK_BOUND( t_14, "i" );
-    CHECK_INT_POS( t_14 );
-    C_ELM_LIST_FPL( t_13, a_arg, t_14 )
-    if ( TNUM_OBJ( t_12 ) == T_FUNCTION ) {
-     t_11 = CALL_1ARGS( t_12, t_13 );
-    }
-    else {
-     t_11 = DoOperation2Args( CallFuncListOper, t_12, NewPlistFromArgs( t_13 ) );
-    }
-    CHECK_FUNC_RESULT( t_11 );
-    CHECK_BOOL( t_11 );
-    t_10 = (Obj)(UInt)(t_11 != False);
-    t_8 = t_10;
-   }
-   t_7 = t_8;
-   if ( t_7 ) {
-    t_12 = GF_Tester;
-    t_14 = OBJ_HVAR( (1 << 16) | 3 );
-    CHECK_BOUND( t_14, "cond" );
-    t_15 = OBJ_HVAR( (1 << 16) | 5 );
-    CHECK_BOUND( t_15, "i" );
-    CHECK_INT_POS( t_15 );
-    C_ELM_LIST_FPL( t_13, t_14, t_15 )
-    if ( TNUM_OBJ( t_12 ) == T_FUNCTION ) {
-     t_11 = CALL_1ARGS( t_12, t_13 );
-    }
-    else {
-     t_11 = DoOperation2Args( CallFuncListOper, t_12, NewPlistFromArgs( t_13 ) );
-    }
-    CHECK_FUNC_RESULT( t_11 );
-    t_13 = OBJ_HVAR( (1 << 16) | 5 );
-    CHECK_BOUND( t_13, "i" );
-    CHECK_INT_POS( t_13 );
-    C_ELM_LIST_FPL( t_12, a_arg, t_13 )
-    if ( TNUM_OBJ( t_11 ) == T_FUNCTION ) {
-     t_10 = CALL_1ARGS( t_11, t_12 );
-    }
-    else {
-     t_10 = DoOperation2Args( CallFuncListOper, t_11, NewPlistFromArgs( t_12 ) );
-    }
-    CHECK_FUNC_RESULT( t_10 );
-    CHECK_BOOL( t_10 );
-    t_9 = (Obj)(UInt)(t_10 != False);
-    t_7 = t_9;
-   }
-   t_5 = (t_7 ? True : False);
-  }
-  ASS_HVAR( (1 << 16) | 4, t_5 );
-  
- }
- /* od */
- 
- /* if re then */
- t_2 = OBJ_HVAR( (1 << 16) | 4 );
- CHECK_BOUND( t_2, "re" );
- CHECK_BOOL( t_2 );
- t_1 = (Obj)(UInt)(t_2 != False);
- if ( t_1 ) {
-  
-  /* return CallFuncList( oper, arg ); */
-  t_2 = GF_CallFuncList;
-  t_3 = OBJ_HVAR( (1 << 16) | 1 );
-  CHECK_BOUND( t_3, "oper" );
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_2ARGS( t_2, t_3, a_arg );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( t_3, a_arg ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  SWITCH_TO_OLD_FRAME(oldFrame);
-  return t_1;
-  
- }
- 
- /* else */
- else {
-  
-  /* TryNextMethod(); */
-  t_1 = GC_TRY__NEXT__METHOD;
-  CHECK_BOUND( t_1, "TRY_NEXT_METHOD" );
-  SWITCH_TO_OLD_FRAME(oldFrame);
-  return t_1;
-  
- }
- /* fi */
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 17 */
-static Obj  HdlrFunc17 (
- Obj  self,
- Obj  a_arg )
-{
- Obj l_info = 0;
- Obj l_fampred = 0;
- Obj l_val = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- Obj t_7 = 0;
- Obj t_8 = 0;
- (void)l_info;
- (void)l_fampred;
- (void)l_val;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,5,0,oldFrame);
- MakeHighVars(STATE(CurrLVars));
- 
- /* if LEN_LIST( arg ) = 5 then */
- t_3 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, a_arg );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_arg ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- t_1 = (Obj)(UInt)(EQ( t_2, INTOBJ_INT(5) ));
- if ( t_1 ) {
-  
-  /* oper := arg[1]; */
-  C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(1) )
-  ASS_LVAR( 1, t_1 );
-  
-  /* info := " fallback method to test conditions"; */
-  t_1 = MakeString( " fallback method to test conditions" );
-  l_info = t_1;
-  
-  /* fampred := arg[2]; */
-  C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(2) )
-  l_fampred = t_1;
-  
-  /* reqs := arg[3]; */
-  C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(3) )
-  ASS_LVAR( 2, t_1 );
-  
-  /* cond := arg[4]; */
-  C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(4) )
-  ASS_LVAR( 3, t_1 );
-  
-  /* val := arg[5]; */
-  C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(5) )
-  l_val = t_1;
-  
- }
- 
- /* elif LEN_LIST( arg ) = 6 then */
- else {
-  t_3 = GF_LEN__LIST;
-  if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-   t_2 = CALL_1ARGS( t_3, a_arg );
-  }
-  else {
-   t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_arg ) );
-  }
-  CHECK_FUNC_RESULT( t_2 );
-  t_1 = (Obj)(UInt)(EQ( t_2, INTOBJ_INT(6) ));
-  if ( t_1 ) {
-   
-   /* oper := arg[1]; */
-   C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(1) )
-   ASS_LVAR( 1, t_1 );
-   
-   /* info := arg[2]; */
-   C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(2) )
-   l_info = t_1;
-   
-   /* fampred := arg[3]; */
-   C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(3) )
-   l_fampred = t_1;
-   
-   /* reqs := arg[4]; */
-   C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(4) )
-   ASS_LVAR( 2, t_1 );
-   
-   /* cond := arg[5]; */
-   C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(5) )
-   ASS_LVAR( 3, t_1 );
-   
-   /* val := arg[6]; */
-   C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(6) )
-   l_val = t_1;
-   
-  }
-  
-  /* else */
-  else {
-   
-   /* Error( "Usage: RedispatchOnCondition(oper[,info],fampred,reqs,cond,val)" ); */
-   t_1 = GF_Error;
-   t_2 = MakeString( "Usage: RedispatchOnCondition(oper[,info],fampred,reqs,cond,val)" );
-   if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-    CALL_1ARGS( t_1, t_2 );
-   }
-   else {
-    DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
-   }
-   
-  }
- }
- /* fi */
- 
- /* for i in reqs do */
- t_4 = OBJ_LVAR( 2 );
- CHECK_BOUND( t_4, "reqs" );
- if ( IS_SMALL_LIST(t_4) ) {
-  t_3 = (Obj)(UInt)1;
-  t_1 = INTOBJ_INT(1);
- }
- else {
-  t_3 = (Obj)(UInt)0;
-  t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
- }
- while ( 1 ) {
-  if ( t_3 ) {
-   if ( LEN_LIST(t_4) < Int_ObjInt(t_1) )  break;
-   t_2 = ELMV0_LIST( t_4, Int_ObjInt(t_1) );
-   t_1 = (Obj)(((UInt)t_1)+4);
-   if ( t_2 == 0 )  continue;
-  }
-  else {
-   if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
-   t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
-  }
-  ASS_LVAR( 5, t_2 );
-  
-  /* val := val - RankFilter( i ); */
-  CHECK_BOUND( l_val, "val" );
-  t_7 = GF_RankFilter;
-  t_8 = OBJ_LVAR( 5 );
-  CHECK_BOUND( t_8, "i" );
-  if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-   t_6 = CALL_1ARGS( t_7, t_8 );
-  }
-  else {
-   t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( t_8 ) );
-  }
-  CHECK_FUNC_RESULT( t_6 );
-  C_DIFF_FIA( t_5, l_val, t_6 )
-  l_val = t_5;
-  
- }
- /* od */
- 
- /* InstallOtherMethod( oper, info, fampred, reqs, val, function ( arg... )
-      re := false;
-      for i in [ 1 .. LEN_LIST( reqs ) ] do
-          re := re or IsBound( cond[i] ) and not Tester( cond[i] )( arg[i] ) and cond[i]( arg[i] ) and Tester( cond[i] )( arg[i] );
-      od;
-      if re then
-          return CallFuncList( oper, arg );
-      else
-          TryNextMethod();
-      fi;
-      return;
-  end ); */
- t_1 = GF_InstallOtherMethod;
- t_2 = OBJ_LVAR( 1 );
- CHECK_BOUND( t_2, "oper" );
- CHECK_BOUND( l_info, "info" );
- CHECK_BOUND( l_fampred, "fampred" );
- t_3 = OBJ_LVAR( 2 );
- CHECK_BOUND( t_3, "reqs" );
- t_4 = NewFunction( NameFunc[18], -1, ArgStringToList("arg"), HdlrFunc18 );
- SET_ENVI_FUNC( t_4, STATE(CurrLVars) );
- t_5 = NewFunctionBody();
- SET_STARTLINE_BODY(t_5, 1063);
- SET_ENDLINE_BODY(t_5, 1079);
- SET_FILENAME_BODY(t_5, FileName);
- SET_BODY_FUNC(t_4, t_5);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_6ARGS( t_1, t_2, l_info, l_fampred, t_3, l_val, t_4 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, l_info, l_fampred, t_3, l_val, t_4 ) );
- }
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 19 */
-static Obj  HdlrFunc19 (
- Obj  self,
- Obj  a_obj,
- Obj  a_name,
- Obj  a_val )
-{
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 1 */
-static Obj  HdlrFunc1 (
- Obj  self )
-{
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* RUN_IMMEDIATE_METHODS_RUNS := 0; */
- AssGVar( G_RUN__IMMEDIATE__METHODS__RUNS, INTOBJ_INT(0) );
- 
- /* RUN_IMMEDIATE_METHODS_CHECKS := 0; */
- AssGVar( G_RUN__IMMEDIATE__METHODS__CHECKS, INTOBJ_INT(0) );
- 
- /* RUN_IMMEDIATE_METHODS_HITS := 0; */
- AssGVar( G_RUN__IMMEDIATE__METHODS__HITS, INTOBJ_INT(0) );
- 
- /* BIND_GLOBAL( "RunImmediateMethods", function ( obj, flags )
-      local flagspos, tried, type, j, imm, i, meth, res, loc, newflags;
-      if IGNORE_IMMEDIATE_METHODS then
-          return;
-      fi;
-      if IS_SUBSET_FLAGS( IMM_FLAGS, flags ) then
-          return;
-      fi;
-      flags := SUB_FLAGS( flags, IMM_FLAGS );
-      flagspos := SHALLOW_COPY_OBJ( TRUES_FLAGS( flags ) );
-      tried := [  ];
-      type := TYPE_OBJ( obj );
-      flags := type![2];
-      RUN_IMMEDIATE_METHODS_RUNS := RUN_IMMEDIATE_METHODS_RUNS + 1;
-      if TRACE_IMMEDIATE_METHODS then
-          Print( "#I RunImmediateMethods\n" );
-      fi;
-      for j in flagspos do
-          if IsBound( IMMEDIATES[j] ) then
-              imm := IMMEDIATES[j];
-              for i in [ 0, SIZE_IMMEDIATE_METHOD_ENTRY .. LEN_LIST( imm ) - SIZE_IMMEDIATE_METHOD_ENTRY ] do
-                  if IS_SUBSET_FLAGS( flags, imm[i + 4] ) and not IS_SUBSET_FLAGS( flags, imm[i + 3] ) and not imm[i + 6] in tried then
-                      meth := IMMEDIATE_METHODS[imm[i + 6]];
-                      res := meth( obj );
-                      ADD_LIST( tried, imm[i + 6] );
-                      RUN_IMMEDIATE_METHODS_CHECKS := RUN_IMMEDIATE_METHODS_CHECKS + 1;
-                      if TRACE_IMMEDIATE_METHODS then
-                          Print( "#I  immediate: ", NAME_FUNC( imm[i + 1] ) );
-                          if imm[i + 7] <> false then
-                              Print( ": ", imm[i + 7] );
-                          fi;
-                          Print( " at ", imm[i + 8][1], ":", imm[i + 8][2], "\n" );
-                      fi;
-                      if res <> TRY_NEXT_METHOD then
-                          IGNORE_IMMEDIATE_METHODS := true;
-                          imm[i + 2]( obj, res );
-                          IGNORE_IMMEDIATE_METHODS := false;
-                          RUN_IMMEDIATE_METHODS_HITS := RUN_IMMEDIATE_METHODS_HITS + 1;
-                          if not IS_IDENTICAL_OBJ( TYPE_OBJ( obj ), type ) then
-                              type := TYPE_OBJ( obj );
-                              newflags := SUB_FLAGS( type![2], IMM_FLAGS );
-                              newflags := SUB_FLAGS( newflags, flags );
-                              APPEND_LIST_INTR( flagspos, TRUES_FLAGS( newflags ) );
-                              flags := type![2];
-                          fi;
-                      fi;
-                  fi;
-              od;
-          fi;
-      od;
-      return;
-  end ); */
- t_1 = GF_BIND__GLOBAL;
- t_2 = MakeString( "RunImmediateMethods" );
- t_3 = NewFunction( NameFunc[2], 2, ArgStringToList("obj,flags"), HdlrFunc2 );
- SET_ENVI_FUNC( t_3, STATE(CurrLVars) );
- t_4 = NewFunctionBody();
- SET_STARTLINE_BODY(t_4, 28);
- SET_ENDLINE_BODY(t_4, 127);
- SET_FILENAME_BODY(t_4, FileName);
- SET_BODY_FUNC(t_3, t_4);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* BIND_GLOBAL( "INSTALL_METHOD_FLAGS", function ( opr, info, rel, flags, baserank, method )
-      local methods, narg, i, k, tmp, replace, match, j, lk, rank;
-      ;
-      if IS_FUNCTION( baserank ) then
-          rank := baserank(  );
-      else
-          rank := baserank;
-      fi;
-      if IS_CONSTRUCTOR( opr ) then
-          if 0 = LEN_LIST( flags ) then
-              Error( NAME_FUNC( opr ), ": constructors must have at least one argument" );
-          fi;
-          rank := rank - RankFilter( flags[1] );
-      else
-          for i in flags do
-              rank := rank + RankFilter( i );
-          od;
-      fi;
-      narg := LEN_LIST( flags );
-      methods := METHODS_OPERATION( opr, narg );
-      ;
-      if info = false then
-          info := NAME_FUNC( opr );
-      else
-          k := SHALLOW_COPY_OBJ( NAME_FUNC( opr ) );
-          APPEND_LIST_INTR( k, ": " );
-          APPEND_LIST_INTR( k, info );
-          info := k;
-          CONV_STRING( info );
-      fi;
-      i := 0;
-      while i < LEN_LIST( methods ) and rank < methods[i + (narg + 3)] do
-          i := i + (narg + 6);
-      od;
-      replace := false;
-      if REREADING then
-          k := i;
-          while k < LEN_LIST( methods ) and rank = methods[k + narg + 3] do
-              if info = methods[k + narg + 4] then
-                  match := true;
-                  for j in [ 1 .. narg ] do
-                      match := match and methods[k + j + 1] = flags[j];
-                  od;
-                  if match then
-                      replace := true;
-                      i := k;
-                      break;
-                  fi;
-              fi;
-              k := k + narg + 6;
-          od;
-      fi;
-      if not REREADING or not replace then
-          COPY_LIST_ENTRIES( methods, i + 1, 1, methods, narg + 6 + i + 1, 1, LEN_LIST( methods ) - i );
-      fi;
-      if rel = true then
-          rel := RETURN_TRUE;
-      elif rel = false then
-          rel := RETURN_FALSE;
-      elif IS_FUNCTION( rel ) then
-          if CHECK_INSTALL_METHOD then
-              tmp := NARG_FUNC( rel );
-              if tmp < AINV( narg ) - 1 or tmp >= 0 and tmp <> narg then
-                  Error( NAME_FUNC( opr ), ": <famrel> must accept ", narg, " arguments" );
-              fi;
-          fi;
-      else
-          Error( NAME_FUNC( opr ), ": <famrel> must be a function, `true', or `false'" );
-      fi;
-      if method = true then
-          method := RETURN_TRUE;
-      elif method = false then
-          method := RETURN_FALSE;
-      elif IS_FUNCTION( method ) then
-          if CHECK_INSTALL_METHOD and not IS_OPERATION( method ) then
-              tmp := NARG_FUNC( method );
-              if tmp < AINV( narg ) - 1 or tmp >= 0 and tmp <> narg then
-                  Error( NAME_FUNC( opr ), ": <method> must accept ", narg, " arguments" );
-              fi;
-          fi;
-      else
-          Error( NAME_FUNC( opr ), ": <method> must be a function, `true', or `false'" );
-      fi;
-      methods[i + 1] := rel;
-      for k in [ 1 .. narg ] do
-          methods[i + k + 1] := flags[k];
-      od;
-      methods[i + (narg + 2)] := method;
-      methods[i + (narg + 3)] := rank;
-      methods[i + (narg + 4)] := IMMUTABLE_COPY_OBJ( info );
-      if 6 >= 5 then
-          methods[i + (narg + 5)] := MakeImmutable( [ INPUT_FILENAME(  ), READEVALCOMMAND_LINENUMBER, INPUT_LINENUMBER(  ) ] );
-      fi;
-      if 6 >= 6 then
-          methods[i + (narg + 6)] := baserank;
-      fi;
-      CHANGED_METHODS_OPERATION( opr, narg );
-      return;
-  end ); */
- t_1 = GF_BIND__GLOBAL;
- t_2 = MakeString( "INSTALL_METHOD_FLAGS" );
- t_3 = NewFunction( NameFunc[3], 6, ArgStringToList("opr,info,rel,flags,baserank,method"), HdlrFunc3 );
- SET_ENVI_FUNC( t_3, STATE(CurrLVars) );
- t_4 = NewFunctionBody();
- SET_STARTLINE_BODY(t_4, 147);
- SET_ENDLINE_BODY(t_4, 289);
- SET_FILENAME_BODY(t_4, FileName);
- SET_BODY_FUNC(t_3, t_4);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* BIND_GLOBAL( "InstallMethod", function ( arg... )
-      INSTALL_METHOD( arg, true );
-      return;
-  end ); */
- t_1 = GF_BIND__GLOBAL;
- t_2 = MakeString( "InstallMethod" );
- t_3 = NewFunction( NameFunc[4], -1, ArgStringToList("arg"), HdlrFunc4 );
- SET_ENVI_FUNC( t_3, STATE(CurrLVars) );
- t_4 = NewFunctionBody();
- SET_STARTLINE_BODY(t_4, 338);
- SET_ENDLINE_BODY(t_4, 340);
- SET_FILENAME_BODY(t_4, FileName);
- SET_BODY_FUNC(t_3, t_4);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* BIND_GLOBAL( "InstallOtherMethod", function ( arg... )
-      INSTALL_METHOD( arg, false );
-      return;
-  end ); */
- t_1 = GF_BIND__GLOBAL;
- t_2 = MakeString( "InstallOtherMethod" );
- t_3 = NewFunction( NameFunc[5], -1, ArgStringToList("arg"), HdlrFunc5 );
- SET_ENVI_FUNC( t_3, STATE(CurrLVars) );
- t_4 = NewFunctionBody();
- SET_STARTLINE_BODY(t_4, 365);
- SET_ENDLINE_BODY(t_4, 367);
- SET_FILENAME_BODY(t_4, FileName);
- SET_BODY_FUNC(t_3, t_4);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* DeclareGlobalFunction( "EvalString" ); */
- t_1 = GF_DeclareGlobalFunction;
- t_2 = MakeString( "EvalString" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_1ARGS( t_1, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
- }
- 
- /* Unbind( INSTALL_METHOD ); */
- AssGVar( G_INSTALL__METHOD, 0 );
- 
- /* BIND_GLOBAL( "INSTALL_METHOD", function ( arglist, check )
-      local len, opr, info, pos, rel, filters, info1, isstr, flags, i, rank, method, oreqs, req, reqs, match, j, k, imp, notmatch, lk, funcname;
-      ;
-      len := LEN_LIST( arglist );
-      if len < 3 then
-          Error( "too few arguments given in <arglist>" );
-      fi;
-      opr := arglist[1];
-      if not IS_OPERATION( opr ) then
-          Error( "<opr> is not an operation" );
-      fi;
-      if IS_STRING_REP( arglist[2] ) or arglist[2] = false then
-          info := arglist[2];
-          pos := 3;
-      else
-          info := false;
-          pos := 2;
-      fi;
-      if arglist[pos] = true or IS_FUNCTION( arglist[pos] ) then
-          rel := arglist[pos];
-          pos := pos + 1;
-      else
-          rel := true;
-      fi;
-      if not IsBound( arglist[pos] ) or not IS_LIST( arglist[pos] ) then
-          Error( "<arglist>[", pos, "] must be a list of filters" );
-      fi;
-      filters := arglist[pos];
-      if GAPInfo.MaxNrArgsMethod < LEN_LIST( filters ) then
-          Error( "methods can have at most ", GAPInfo.MaxNrArgsMethod, " arguments" );
-      fi;
-      if 0 < LEN_LIST( filters ) then
-          info1 := "[ ";
-          isstr := true;
-          for i in [ 1 .. LEN_LIST( filters ) ] do
-              if IS_STRING_REP( filters[i] ) then
-                  APPEND_LIST_INTR( info1, filters[i] );
-                  APPEND_LIST_INTR( info1, ", " );
-                  filters[i] := EvalString( filters[i] );
-                  if not IS_FUNCTION( filters[i] ) then
-                      Error( "string does not evaluate to a function" );
-                  fi;
-              else
-                  isstr := false;
-                  break;
-              fi;
-          od;
-          if isstr and info = false then
-              info1[LEN_LIST( info1 ) - 1] := ' ';
-              info1[LEN_LIST( info1 )] := ']';
-              info := info1;
-          fi;
-      fi;
-      pos := pos + 1;
-      flags := [  ];
-      for i in filters do
-          ADD_LIST( flags, FLAGS_FILTER( i ) );
-      od;
-      if not IsBound( arglist[pos] ) then
-          Error( "the method is missing in <arglist>" );
-      elif IS_INT( arglist[pos] ) or IS_FUNCTION( arglist[pos] ) and NARG_FUNC( arglist[pos] ) = 0 and pos < LEN_LIST( arglist ) then
-          rank := arglist[pos];
-          pos := pos + 1;
-      else
-          rank := 0;
-      fi;
-      if not IsBound( arglist[pos] ) then
-          Error( "the method is missing in <arglist>" );
-      fi;
-      method := arglist[pos];
-      if FLAG1_FILTER( opr ) <> 0 and (rel = true or rel = RETURN_TRUE) and LEN_LIST( filters ) = 1 and (method = true or method = RETURN_TRUE) then
-          Error( NAME_FUNC( opr ), ": use `InstallTrueMethod' for <opr>" );
-      fi;
-      if CHECK_INSTALL_METHOD and check then
-          if opr in WRAPPER_OPERATIONS then
-              INFO_DEBUG( 1, "a method is installed for the wrapper operation ", NAME_FUNC( opr ), "\n", "#I  probably it should be installed for (one of) its\n", "#I  underlying operation(s)" );
-          fi;
-          req := GET_OPER_FLAGS( opr );
-          if req = fail then
-              Error( "unknown operation ", NAME_FUNC( opr ) );
-          fi;
-          imp := [  ];
-          for i in flags do
-              if not GAPInfo.CommandLineOptions.N then
-                  ADD_LIST( imp, WITH_HIDDEN_IMPS_FLAGS( i ) );
-              else
-                  ADD_LIST( imp, WITH_IMPS_FLAGS( i ) );
-              fi;
-          od;
-          j := 0;
-          match := false;
-          notmatch := 0;
-          while j < LEN_LIST( req ) and not match do
-              j := j + 1;
-              reqs := req[j];
-              if LEN_LIST( reqs ) = LEN_LIST( imp ) then
-                  match := true;
-                  for i in [ 1 .. LEN_LIST( reqs ) ] do
-                      if not IS_SUBSET_FLAGS( imp[i], reqs[i] ) then
-                          match := false;
-                          notmatch := i;
-                          break;
-                      fi;
-                  od;
-                  if match then
-                      break;
-                  fi;
-              fi;
-          od;
-          if not match then
-              if notmatch = 0 then
-                  if not GAPInfo.CommandLineOptions.N then
-                      Error( "the number of arguments does not match a declaration of ", NAME_FUNC( opr ) );
-                  else
-                      Print( "InstallMethod warning:  nr of args does not ", "match a declaration of ", NAME_FUNC( opr ), "\n" );
-                  fi;
-              else
-                  if not GAPInfo.CommandLineOptions.N then
-                      Error( "required filters ", NamesFilter( imp[notmatch] ), "\nfor ", Ordinal( notmatch ), " argument do not match a declaration of ", NAME_FUNC( opr ) );
-                  else
-                      Print( "InstallMethod warning: ", NAME_FUNC( opr ), " at \c", INPUT_FILENAME(  ), ":", INPUT_LINENUMBER(  ), " \c", "required filter \c", NAME_FUNC( filters[notmatch] ), " for ", Ordinal( notmatch ), " argument does not match any "
-                        , "declaration\n" );
-                  fi;
-              fi;
-          else
-              oreqs := reqs;
-              for k in [ j + 1 .. LEN_LIST( req ) ] do
-                  reqs := req[k];
-                  if LEN_LIST( reqs ) = LEN_LIST( imp ) then
-                      match := true;
-                      for i in [ 1 .. LEN_LIST( reqs ) ] do
-                          if not IS_SUBSET_FLAGS( imp[i], reqs[i] ) then
-                              match := false;
-                              break;
-                          fi;
-                      od;
-                      if match and reqs <> oreqs then
-                          INFO_DEBUG( 1, "method installed for ", NAME_FUNC( opr ), " matches more than one declaration" );
-                      fi;
-                  fi;
-              od;
-          fi;
-      fi;
-      if IS_FUNCTION( method ) and IsBound( HasNameFunction ) and IsBound( TYPE_FUNCTION_WITH_NAME ) and IsBound( TYPE_OPERATION_WITH_NAME ) and not VAL_GVAR( "HasNameFunction" )( method ) then
-          funcname := SHALLOW_COPY_OBJ( NAME_FUNC( opr ) );
-          APPEND_LIST_INTR( funcname, " " );
-          if info <> false then
-              APPEND_LIST_INTR( funcname, info );
-          else
-              APPEND_LIST_INTR( funcname, "method" );
-          fi;
-          SET_NAME_FUNC( method, funcname );
-      fi;
-      if IS_FUNCTION( rank ) and IsBound( HasNameFunction ) and IsBound( TYPE_FUNCTION_WITH_NAME ) and IsBound( TYPE_OPERATION_WITH_NAME ) and not VAL_GVAR( "HasNameFunction" )( rank ) then
-          funcname := "Priority calculation for ";
-          APPEND_LIST_INTR( funcname, NAME_FUNC( opr ) );
-          if info <> false then
-              APPEND_LIST_INTR( funcname, " " );
-              APPEND_LIST_INTR( funcname, info );
-          fi;
-          SET_NAME_FUNC( rank, funcname );
-      fi;
-      INSTALL_METHOD_FLAGS( opr, info, rel, flags, rank, method );
-      ;
-      return;
-  end ); */
- t_1 = GF_BIND__GLOBAL;
- t_2 = MakeString( "INSTALL_METHOD" );
- t_3 = NewFunction( NameFunc[6], 2, ArgStringToList("arglist,check"), HdlrFunc6 );
- SET_ENVI_FUNC( t_3, STATE(CurrLVars) );
- t_4 = NewFunctionBody();
- SET_STARTLINE_BODY(t_4, 378);
- SET_ENDLINE_BODY(t_4, 633);
- SET_FILENAME_BODY(t_4, FileName);
- SET_BODY_FUNC(t_3, t_4);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* LENGTH_SETTER_METHODS_2 := LENGTH_SETTER_METHODS_2 + (6 + 2); */
- t_2 = GC_LENGTH__SETTER__METHODS__2;
- CHECK_BOUND( t_2, "LENGTH_SETTER_METHODS_2" );
- C_SUM_INTOBJS( t_3, INTOBJ_INT(6), INTOBJ_INT(2) )
- C_SUM_FIA( t_1, t_2, t_3 )
- AssGVar( G_LENGTH__SETTER__METHODS__2, t_1 );
- 
- /* InstallAttributeFunction( function ( name, filter, getter, setter, tester, mutflag )
-      local flags, rank, cats, props, i, lk;
-      if not IS_IDENTICAL_OBJ( filter, IS_OBJECT ) then
-          flags := FLAGS_FILTER( filter );
-          rank := 0;
-          cats := IS_OBJECT;
-          props := [  ];
-          ;
-          for i in TRUES_FLAGS( flags ) do
-              if INFO_FILTERS[i] in FNUM_CATS_AND_REPS then
-                  cats := cats and FILTERS[i];
-                  rank := rank - RankFilter( FILTERS[i] );
-              elif INFO_FILTERS[i] in FNUM_PROS then
-                  ADD_LIST( props, FILTERS[i] );
-              fi;
-          od;
-          ;
-          MakeImmutable( props );
-          if 0 < LEN_LIST( props ) then
-              InstallOtherMethod( getter, "default method requiring categories and checking properties", true, [ cats ], rank, function ( obj )
-                    local found, prop;
-                    found := false;
-                    for prop in props do
-                        if not Tester( prop )( obj ) then
-                            found := true;
-                            if not (prop( obj ) and Tester( prop )( obj )) then
-                                TryNextMethod();
-                            fi;
-                        fi;
-                    od;
-                    if found then
-                        return getter( obj );
-                    else
-                        TryNextMethod();
-                    fi;
-                    return;
-                end );
-          fi;
-      fi;
-      return;
-  end ); */
- t_1 = GF_InstallAttributeFunction;
- t_2 = NewFunction( NameFunc[7], 6, ArgStringToList("name,filter,getter,setter,tester,mutflag"), HdlrFunc7 );
- SET_ENVI_FUNC( t_2, STATE(CurrLVars) );
- t_3 = NewFunctionBody();
- SET_STARTLINE_BODY(t_3, 652);
- SET_ENDLINE_BODY(t_3, 716);
- SET_FILENAME_BODY(t_3, FileName);
- SET_BODY_FUNC(t_2, t_3);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_1ARGS( t_1, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
- }
- 
- /* InstallAttributeFunction( function ( name, filter, getter, setter, tester, mutflag )
-      InstallOtherMethod( setter, "default method, does nothing", true, [ IS_OBJECT, IS_OBJECT ], 0, DO_NOTHING_SETTER );
-      return;
-  end ); */
- t_1 = GF_InstallAttributeFunction;
- t_2 = NewFunction( NameFunc[9], 6, ArgStringToList("name,filter,getter,setter,tester,mutflag"), HdlrFunc9 );
- SET_ENVI_FUNC( t_2, STATE(CurrLVars) );
- t_3 = NewFunctionBody();
- SET_STARTLINE_BODY(t_3, 719);
- SET_ENDLINE_BODY(t_3, 725);
- SET_FILENAME_BODY(t_3, FileName);
- SET_BODY_FUNC(t_2, t_3);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_1ARGS( t_1, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
- }
- 
- /* BIND_GLOBAL( "PositionSortedOddPositions", function ( list, elm )
-      local i, j, k;
-      k := LEN_LIST( list ) + 1;
-      if k mod 2 = 0 then
-          k := k + 1;
-      fi;
-      i := -1;
-      while i + 2 < k do
-          j := 2 * QUO_INT( (i + k + 2), 4 ) - 1;
-          if list[j] < elm then
-              i := j;
-          else
-              k := j;
-          fi;
-      od;
-      return k;
-  end ); */
- t_1 = GF_BIND__GLOBAL;
- t_2 = MakeString( "PositionSortedOddPositions" );
- t_3 = NewFunction( NameFunc[10], 2, ArgStringToList("list,elm"), HdlrFunc10 );
- SET_ENVI_FUNC( t_3, STATE(CurrLVars) );
- t_4 = NewFunctionBody();
- SET_STARTLINE_BODY(t_4, 738);
- SET_ENDLINE_BODY(t_4, 762);
- SET_FILENAME_BODY(t_4, FileName);
- SET_BODY_FUNC(t_3, t_4);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* IsPrimeInt := "2b defined"; */
- t_1 = MakeString( "2b defined" );
- AssGVar( G_IsPrimeInt, t_1 );
- 
- /* BIND_GLOBAL( "KeyDependentOperation", function ( name, domreq, keyreq, keytest )
-      local str, oper, attr, lk;
-      if keytest = "prime" then
-          keytest := function ( key )
-                if not IsPrimeInt( key ) then
-                    Error( name, ": <p> must be a prime" );
-                fi;
-                return;
-            end;
-      fi;
-      str := SHALLOW_COPY_OBJ( name );
-      APPEND_LIST_INTR( str, "Op" );
-      DeclareOperation( str, [ domreq, keyreq ] );
-      oper := VALUE_GLOBAL( str );
-      str := "Computed";
-      APPEND_LIST_INTR( str, name );
-      APPEND_LIST_INTR( str, "s" );
-      DeclareAttribute( str, domreq, "mutable" );
-      attr := VALUE_GLOBAL( str );
-      InstallMethod( attr, "default method", true, [ domreq ], 0, function ( D )
-            return [  ];
-        end );
-      DeclareOperation( name, [ domreq, keyreq ] );
-      ;
-      ADD_LIST( WRAPPER_OPERATIONS, VALUE_GLOBAL( name ) );
-      ;
-      InstallOtherMethod( VALUE_GLOBAL( name ), "default method", true, [ domreq, keyreq ], 0, function ( D, key )
-            local known, i, erg;
-            keytest( key );
-            known := attr( D );
-            i := PositionSortedOddPositions( known, key );
-            if LEN_LIST( known ) < i or known[i] <> key then
-                erg := oper( D, key );
-                i := PositionSortedOddPositions( known, key );
-                if LEN_LIST( known ) < i or known[i] <> key then
-                    known{[ i + 2 .. LEN_LIST( known ) + 2 ]} := known{[ i .. LEN_LIST( known ) ]};
-                    known[i] := IMMUTABLE_COPY_OBJ( key );
-                    known[i + 1] := IMMUTABLE_COPY_OBJ( erg );
-                fi;
-            fi;
-            return known[i + 1];
-        end );
-      str := "Has";
-      APPEND_LIST_INTR( str, name );
-      DeclareOperation( str, [ domreq, keyreq ] );
-      InstallOtherMethod( VALUE_GLOBAL( str ), "default method", true, [ domreq, keyreq ], 0, function ( D, key )
-            local known, i;
-            keytest( key );
-            known := attr( D );
-            i := PositionSortedOddPositions( known, key );
-            return i <= LEN_LIST( known ) and known[i] = key;
-        end );
-      str := "Set";
-      APPEND_LIST_INTR( str, name );
-      DeclareOperation( str, [ domreq, keyreq, IS_OBJECT ] );
-      InstallOtherMethod( VALUE_GLOBAL( str ), "default method", true, [ domreq, keyreq, IS_OBJECT ], 0, function ( D, key, obj )
-            local known, i;
-            keytest( key );
-            known := attr( D );
-            i := PositionSortedOddPositions( known, key );
-            if LEN_LIST( known ) < i or known[i] <> key then
-                known{[ i + 2 .. LEN_LIST( known ) + 2 ]} := known{[ i .. LEN_LIST( known ) ]};
-                known[i] := IMMUTABLE_COPY_OBJ( key );
-                known[i + 1] := IMMUTABLE_COPY_OBJ( obj );
-            fi;
-            return;
-        end );
-      return;
-  end ); */
- t_1 = GF_BIND__GLOBAL;
- t_2 = MakeString( "KeyDependentOperation" );
- t_3 = NewFunction( NameFunc[11], 4, ArgStringToList("name,domreq,keyreq,keytest"), HdlrFunc11 );
- SET_ENVI_FUNC( t_3, STATE(CurrLVars) );
- t_4 = NewFunctionBody();
- SET_STARTLINE_BODY(t_4, 887);
- SET_ENDLINE_BODY(t_4, 998);
- SET_FILENAME_BODY(t_4, FileName);
- SET_BODY_FUNC(t_3, t_4);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* CallFuncList := "2b defined"; */
- t_1 = MakeString( "2b defined" );
- AssGVar( G_CallFuncList, t_1 );
- 
- /* BIND_GLOBAL( "RedispatchOnCondition", function ( arg... )
-      local oper, info, fampred, reqs, cond, val, re, i;
-      if LEN_LIST( arg ) = 5 then
-          oper := arg[1];
-          info := " fallback method to test conditions";
-          fampred := arg[2];
-          reqs := arg[3];
-          cond := arg[4];
-          val := arg[5];
-      elif LEN_LIST( arg ) = 6 then
-          oper := arg[1];
-          info := arg[2];
-          fampred := arg[3];
-          reqs := arg[4];
-          cond := arg[5];
-          val := arg[6];
-      else
-          Error( "Usage: RedispatchOnCondition(oper[,info],fampred,reqs,cond,val)" );
-      fi;
-      for i in reqs do
-          val := val - RankFilter( i );
-      od;
-      InstallOtherMethod( oper, info, fampred, reqs, val, function ( arg... )
-            re := false;
-            for i in [ 1 .. LEN_LIST( reqs ) ] do
-                re := re or IsBound( cond[i] ) and not Tester( cond[i] )( arg[i] ) and cond[i]( arg[i] ) and Tester( cond[i] )( arg[i] );
-            od;
-            if re then
-                return CallFuncList( oper, arg );
-            else
-                TryNextMethod();
-            fi;
-            return;
-        end );
-      return;
-  end ); */
- t_1 = GF_BIND__GLOBAL;
- t_2 = MakeString( "RedispatchOnCondition" );
- t_3 = NewFunction( NameFunc[17], -1, ArgStringToList("arg"), HdlrFunc17 );
- SET_ENVI_FUNC( t_3, STATE(CurrLVars) );
- t_4 = NewFunctionBody();
- SET_STARTLINE_BODY(t_4, 1033);
- SET_ENDLINE_BODY(t_4, 1080);
- SET_FILENAME_BODY(t_4, FileName);
- SET_BODY_FUNC(t_3, t_4);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* InstallMethod( ViewObj, "default method using `PrintObj'", true, [ IS_OBJECT ], 0, PRINT_OBJ ); */
- t_1 = GF_InstallMethod;
- t_2 = GC_ViewObj;
- CHECK_BOUND( t_2, "ViewObj" );
- t_3 = MakeString( "default method using `PrintObj'" );
- t_4 = True;
- t_5 = NEW_PLIST( T_PLIST, 1 );
- SET_LEN_PLIST( t_5, 1 );
- t_6 = GC_IS__OBJECT;
- CHECK_BOUND( t_6, "IS_OBJECT" );
- SET_ELM_PLIST( t_5, 1, t_6 );
- CHANGED_BAG( t_5 );
- t_6 = GC_PRINT__OBJ;
- CHECK_BOUND( t_6, "PRINT_OBJ" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 ) );
- }
- 
- /* CHECK_REPEATED_ATTRIBUTE_SET := function ( obj, name, val )
-      return;
-  end; */
- t_1 = NewFunction( NameFunc[19], 3, ArgStringToList("obj,name,val"), HdlrFunc19 );
- SET_ENVI_FUNC( t_1, STATE(CurrLVars) );
- t_2 = NewFunctionBody();
- SET_STARTLINE_BODY(t_2, 1096);
- SET_ENDLINE_BODY(t_2, 1096);
- SET_FILENAME_BODY(t_2, FileName);
- SET_BODY_FUNC(t_1, t_2);
- AssGVar( G_CHECK__REPEATED__ATTRIBUTE__SET, t_1 );
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* 'PostRestore' restore gvars, rnams, functions */
-static Int PostRestore ( StructInitInfo * module )
-{
- 
- /* global variables used in handlers */
- G_REREADING = GVarName( "REREADING" );
- G_SHALLOW__COPY__OBJ = GVarName( "SHALLOW_COPY_OBJ" );
- G_PRINT__OBJ = GVarName( "PRINT_OBJ" );
- G_GAPInfo = GVarName( "GAPInfo" );
- G_TYPE__FUNCTION__WITH__NAME = GVarName( "TYPE_FUNCTION_WITH_NAME" );
- G_TYPE__OPERATION__WITH__NAME = GVarName( "TYPE_OPERATION_WITH_NAME" );
- G_IS__FUNCTION = GVarName( "IS_FUNCTION" );
- G_NAME__FUNC = GVarName( "NAME_FUNC" );
- G_SET__NAME__FUNC = GVarName( "SET_NAME_FUNC" );
- G_NARG__FUNC = GVarName( "NARG_FUNC" );
- G_CHECK__REPEATED__ATTRIBUTE__SET = GVarName( "CHECK_REPEATED_ATTRIBUTE_SET" );
- G_IS__OPERATION = GVarName( "IS_OPERATION" );
- G_AINV = GVarName( "AINV" );
- G_IS__INT = GVarName( "IS_INT" );
- G_IS__LIST = GVarName( "IS_LIST" );
- G_ADD__LIST = GVarName( "ADD_LIST" );
- G_IS__STRING__REP = GVarName( "IS_STRING_REP" );
- G_Error = GVarName( "Error" );
- G_VAL__GVAR = GVarName( "VAL_GVAR" );
- G_TYPE__OBJ = GVarName( "TYPE_OBJ" );
- G_IMMUTABLE__COPY__OBJ = GVarName( "IMMUTABLE_COPY_OBJ" );
- G_IS__IDENTICAL__OBJ = GVarName( "IS_IDENTICAL_OBJ" );
- G_MakeImmutable = GVarName( "MakeImmutable" );
- G_INPUT__FILENAME = GVarName( "INPUT_FILENAME" );
- G_INPUT__LINENUMBER = GVarName( "INPUT_LINENUMBER" );
- G_IS__OBJECT = GVarName( "IS_OBJECT" );
- G_TRY__NEXT__METHOD = GVarName( "TRY_NEXT_METHOD" );
- G_SUB__FLAGS = GVarName( "SUB_FLAGS" );
- G_WITH__HIDDEN__IMPS__FLAGS = GVarName( "WITH_HIDDEN_IMPS_FLAGS" );
- G_WITH__IMPS__FLAGS = GVarName( "WITH_IMPS_FLAGS" );
- G_IS__SUBSET__FLAGS = GVarName( "IS_SUBSET_FLAGS" );
- G_TRUES__FLAGS = GVarName( "TRUES_FLAGS" );
- G_FLAG1__FILTER = GVarName( "FLAG1_FILTER" );
- G_FLAGS__FILTER = GVarName( "FLAGS_FILTER" );
- G_METHODS__OPERATION = GVarName( "METHODS_OPERATION" );
- G_CHANGED__METHODS__OPERATION = GVarName( "CHANGED_METHODS_OPERATION" );
- G_DO__NOTHING__SETTER = GVarName( "DO_NOTHING_SETTER" );
- G_IS__CONSTRUCTOR = GVarName( "IS_CONSTRUCTOR" );
- G_QUO__INT = GVarName( "QUO_INT" );
- G_fail = GVarName( "fail" );
- G_RETURN__TRUE = GVarName( "RETURN_TRUE" );
- G_RETURN__FALSE = GVarName( "RETURN_FALSE" );
- G_LEN__LIST = GVarName( "LEN_LIST" );
- G_APPEND__LIST__INTR = GVarName( "APPEND_LIST_INTR" );
- G_COPY__LIST__ENTRIES = GVarName( "COPY_LIST_ENTRIES" );
- G_CONV__STRING = GVarName( "CONV_STRING" );
- G_Print = GVarName( "Print" );
- G_ViewObj = GVarName( "ViewObj" );
- G_RUN__IMMEDIATE__METHODS__RUNS = GVarName( "RUN_IMMEDIATE_METHODS_RUNS" );
- G_RUN__IMMEDIATE__METHODS__CHECKS = GVarName( "RUN_IMMEDIATE_METHODS_CHECKS" );
- G_RUN__IMMEDIATE__METHODS__HITS = GVarName( "RUN_IMMEDIATE_METHODS_HITS" );
- G_BIND__GLOBAL = GVarName( "BIND_GLOBAL" );
- G_IGNORE__IMMEDIATE__METHODS = GVarName( "IGNORE_IMMEDIATE_METHODS" );
- G_IMM__FLAGS = GVarName( "IMM_FLAGS" );
- G_TRACE__IMMEDIATE__METHODS = GVarName( "TRACE_IMMEDIATE_METHODS" );
- G_IMMEDIATES = GVarName( "IMMEDIATES" );
- G_SIZE__IMMEDIATE__METHOD__ENTRY = GVarName( "SIZE_IMMEDIATE_METHOD_ENTRY" );
- G_IMMEDIATE__METHODS = GVarName( "IMMEDIATE_METHODS" );
- G_RankFilter = GVarName( "RankFilter" );
- G_CHECK__INSTALL__METHOD = GVarName( "CHECK_INSTALL_METHOD" );
- G_READEVALCOMMAND__LINENUMBER = GVarName( "READEVALCOMMAND_LINENUMBER" );
- G_INSTALL__METHOD = GVarName( "INSTALL_METHOD" );
- G_DeclareGlobalFunction = GVarName( "DeclareGlobalFunction" );
- G_EvalString = GVarName( "EvalString" );
- G_WRAPPER__OPERATIONS = GVarName( "WRAPPER_OPERATIONS" );
- G_INFO__DEBUG = GVarName( "INFO_DEBUG" );
- G_GET__OPER__FLAGS = GVarName( "GET_OPER_FLAGS" );
- G_NamesFilter = GVarName( "NamesFilter" );
- G_Ordinal = GVarName( "Ordinal" );
- G_HasNameFunction = GVarName( "HasNameFunction" );
- G_INSTALL__METHOD__FLAGS = GVarName( "INSTALL_METHOD_FLAGS" );
- G_LENGTH__SETTER__METHODS__2 = GVarName( "LENGTH_SETTER_METHODS_2" );
- G_InstallAttributeFunction = GVarName( "InstallAttributeFunction" );
- G_INFO__FILTERS = GVarName( "INFO_FILTERS" );
- G_FNUM__CATS__AND__REPS = GVarName( "FNUM_CATS_AND_REPS" );
- G_FILTERS = GVarName( "FILTERS" );
- G_FNUM__PROS = GVarName( "FNUM_PROS" );
- G_InstallOtherMethod = GVarName( "InstallOtherMethod" );
- G_Tester = GVarName( "Tester" );
- G_IsPrimeInt = GVarName( "IsPrimeInt" );
- G_DeclareOperation = GVarName( "DeclareOperation" );
- G_VALUE__GLOBAL = GVarName( "VALUE_GLOBAL" );
- G_DeclareAttribute = GVarName( "DeclareAttribute" );
- G_InstallMethod = GVarName( "InstallMethod" );
- G_PositionSortedOddPositions = GVarName( "PositionSortedOddPositions" );
- G_CallFuncList = GVarName( "CallFuncList" );
- 
- /* record names used in handlers */
- R_MaxNrArgsMethod = RNamName( "MaxNrArgsMethod" );
- R_CommandLineOptions = RNamName( "CommandLineOptions" );
- R_N = RNamName( "N" );
- 
- /* information for the functions */
- NameFunc[1] = 0;
- NameFunc[2] = 0;
- NameFunc[3] = 0;
- NameFunc[4] = 0;
- NameFunc[5] = 0;
- NameFunc[6] = 0;
- NameFunc[7] = 0;
- NameFunc[8] = 0;
- NameFunc[9] = 0;
- NameFunc[10] = 0;
- NameFunc[11] = 0;
- NameFunc[12] = 0;
- NameFunc[13] = 0;
- NameFunc[14] = 0;
- NameFunc[15] = 0;
- NameFunc[16] = 0;
- NameFunc[17] = 0;
- NameFunc[18] = 0;
- NameFunc[19] = 0;
- 
- return 0;
- 
-}
-
-
-/* 'InitKernel' sets up data structures, fopies, copies, handlers */
-static Int InitKernel ( StructInitInfo * module )
-{
- 
- /* global variables used in handlers */
- InitCopyGVar( "REREADING", &GC_REREADING );
- InitFopyGVar( "SHALLOW_COPY_OBJ", &GF_SHALLOW__COPY__OBJ );
- InitCopyGVar( "PRINT_OBJ", &GC_PRINT__OBJ );
- InitCopyGVar( "GAPInfo", &GC_GAPInfo );
- InitCopyGVar( "TYPE_FUNCTION_WITH_NAME", &GC_TYPE__FUNCTION__WITH__NAME );
- InitCopyGVar( "TYPE_OPERATION_WITH_NAME", &GC_TYPE__OPERATION__WITH__NAME );
- InitFopyGVar( "IS_FUNCTION", &GF_IS__FUNCTION );
- InitFopyGVar( "NAME_FUNC", &GF_NAME__FUNC );
- InitFopyGVar( "SET_NAME_FUNC", &GF_SET__NAME__FUNC );
- InitFopyGVar( "NARG_FUNC", &GF_NARG__FUNC );
- InitFopyGVar( "IS_OPERATION", &GF_IS__OPERATION );
- InitFopyGVar( "AINV", &GF_AINV );
- InitFopyGVar( "IS_INT", &GF_IS__INT );
- InitFopyGVar( "IS_LIST", &GF_IS__LIST );
- InitFopyGVar( "ADD_LIST", &GF_ADD__LIST );
- InitFopyGVar( "IS_STRING_REP", &GF_IS__STRING__REP );
- InitFopyGVar( "Error", &GF_Error );
- InitFopyGVar( "VAL_GVAR", &GF_VAL__GVAR );
- InitFopyGVar( "TYPE_OBJ", &GF_TYPE__OBJ );
- InitFopyGVar( "IMMUTABLE_COPY_OBJ", &GF_IMMUTABLE__COPY__OBJ );
- InitFopyGVar( "IS_IDENTICAL_OBJ", &GF_IS__IDENTICAL__OBJ );
- InitFopyGVar( "MakeImmutable", &GF_MakeImmutable );
- InitFopyGVar( "INPUT_FILENAME", &GF_INPUT__FILENAME );
- InitFopyGVar( "INPUT_LINENUMBER", &GF_INPUT__LINENUMBER );
- InitCopyGVar( "IS_OBJECT", &GC_IS__OBJECT );
- InitCopyGVar( "TRY_NEXT_METHOD", &GC_TRY__NEXT__METHOD );
- InitFopyGVar( "SUB_FLAGS", &GF_SUB__FLAGS );
- InitFopyGVar( "WITH_HIDDEN_IMPS_FLAGS", &GF_WITH__HIDDEN__IMPS__FLAGS );
- InitFopyGVar( "WITH_IMPS_FLAGS", &GF_WITH__IMPS__FLAGS );
- InitFopyGVar( "IS_SUBSET_FLAGS", &GF_IS__SUBSET__FLAGS );
- InitFopyGVar( "TRUES_FLAGS", &GF_TRUES__FLAGS );
- InitFopyGVar( "FLAG1_FILTER", &GF_FLAG1__FILTER );
- InitFopyGVar( "FLAGS_FILTER", &GF_FLAGS__FILTER );
- InitFopyGVar( "METHODS_OPERATION", &GF_METHODS__OPERATION );
- InitFopyGVar( "CHANGED_METHODS_OPERATION", &GF_CHANGED__METHODS__OPERATION );
- InitCopyGVar( "DO_NOTHING_SETTER", &GC_DO__NOTHING__SETTER );
- InitFopyGVar( "IS_CONSTRUCTOR", &GF_IS__CONSTRUCTOR );
- InitFopyGVar( "QUO_INT", &GF_QUO__INT );
- InitCopyGVar( "fail", &GC_fail );
- InitCopyGVar( "RETURN_TRUE", &GC_RETURN__TRUE );
- InitCopyGVar( "RETURN_FALSE", &GC_RETURN__FALSE );
- InitFopyGVar( "LEN_LIST", &GF_LEN__LIST );
- InitFopyGVar( "APPEND_LIST_INTR", &GF_APPEND__LIST__INTR );
- InitFopyGVar( "COPY_LIST_ENTRIES", &GF_COPY__LIST__ENTRIES );
- InitFopyGVar( "CONV_STRING", &GF_CONV__STRING );
- InitFopyGVar( "Print", &GF_Print );
- InitCopyGVar( "ViewObj", &GC_ViewObj );
- InitCopyGVar( "RUN_IMMEDIATE_METHODS_RUNS", &GC_RUN__IMMEDIATE__METHODS__RUNS );
- InitCopyGVar( "RUN_IMMEDIATE_METHODS_CHECKS", &GC_RUN__IMMEDIATE__METHODS__CHECKS );
- InitCopyGVar( "RUN_IMMEDIATE_METHODS_HITS", &GC_RUN__IMMEDIATE__METHODS__HITS );
- InitFopyGVar( "BIND_GLOBAL", &GF_BIND__GLOBAL );
- InitCopyGVar( "IGNORE_IMMEDIATE_METHODS", &GC_IGNORE__IMMEDIATE__METHODS );
- InitCopyGVar( "IMM_FLAGS", &GC_IMM__FLAGS );
- InitCopyGVar( "TRACE_IMMEDIATE_METHODS", &GC_TRACE__IMMEDIATE__METHODS );
- InitCopyGVar( "IMMEDIATES", &GC_IMMEDIATES );
- InitCopyGVar( "SIZE_IMMEDIATE_METHOD_ENTRY", &GC_SIZE__IMMEDIATE__METHOD__ENTRY );
- InitCopyGVar( "IMMEDIATE_METHODS", &GC_IMMEDIATE__METHODS );
- InitFopyGVar( "RankFilter", &GF_RankFilter );
- InitCopyGVar( "CHECK_INSTALL_METHOD", &GC_CHECK__INSTALL__METHOD );
- InitCopyGVar( "READEVALCOMMAND_LINENUMBER", &GC_READEVALCOMMAND__LINENUMBER );
- InitFopyGVar( "INSTALL_METHOD", &GF_INSTALL__METHOD );
- InitFopyGVar( "DeclareGlobalFunction", &GF_DeclareGlobalFunction );
- InitFopyGVar( "EvalString", &GF_EvalString );
- InitCopyGVar( "WRAPPER_OPERATIONS", &GC_WRAPPER__OPERATIONS );
- InitFopyGVar( "INFO_DEBUG", &GF_INFO__DEBUG );
- InitFopyGVar( "GET_OPER_FLAGS", &GF_GET__OPER__FLAGS );
- InitFopyGVar( "NamesFilter", &GF_NamesFilter );
- InitFopyGVar( "Ordinal", &GF_Ordinal );
- InitCopyGVar( "HasNameFunction", &GC_HasNameFunction );
- InitFopyGVar( "INSTALL_METHOD_FLAGS", &GF_INSTALL__METHOD__FLAGS );
- InitCopyGVar( "LENGTH_SETTER_METHODS_2", &GC_LENGTH__SETTER__METHODS__2 );
- InitFopyGVar( "InstallAttributeFunction", &GF_InstallAttributeFunction );
- InitCopyGVar( "INFO_FILTERS", &GC_INFO__FILTERS );
- InitCopyGVar( "FNUM_CATS_AND_REPS", &GC_FNUM__CATS__AND__REPS );
- InitCopyGVar( "FILTERS", &GC_FILTERS );
- InitCopyGVar( "FNUM_PROS", &GC_FNUM__PROS );
- InitFopyGVar( "InstallOtherMethod", &GF_InstallOtherMethod );
- InitFopyGVar( "Tester", &GF_Tester );
- InitFopyGVar( "IsPrimeInt", &GF_IsPrimeInt );
- InitFopyGVar( "DeclareOperation", &GF_DeclareOperation );
- InitFopyGVar( "VALUE_GLOBAL", &GF_VALUE__GLOBAL );
- InitFopyGVar( "DeclareAttribute", &GF_DeclareAttribute );
- InitFopyGVar( "InstallMethod", &GF_InstallMethod );
- InitFopyGVar( "PositionSortedOddPositions", &GF_PositionSortedOddPositions );
- InitFopyGVar( "CallFuncList", &GF_CallFuncList );
- 
- /* information for the functions */
- InitGlobalBag( &FileName, "GAPROOT/lib/oper1.g:FileName("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc1, "GAPROOT/lib/oper1.g:HdlrFunc1("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[1]), "GAPROOT/lib/oper1.g:NameFunc[1]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc2, "GAPROOT/lib/oper1.g:HdlrFunc2("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[2]), "GAPROOT/lib/oper1.g:NameFunc[2]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc3, "GAPROOT/lib/oper1.g:HdlrFunc3("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[3]), "GAPROOT/lib/oper1.g:NameFunc[3]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc4, "GAPROOT/lib/oper1.g:HdlrFunc4("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[4]), "GAPROOT/lib/oper1.g:NameFunc[4]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc5, "GAPROOT/lib/oper1.g:HdlrFunc5("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[5]), "GAPROOT/lib/oper1.g:NameFunc[5]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc6, "GAPROOT/lib/oper1.g:HdlrFunc6("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[6]), "GAPROOT/lib/oper1.g:NameFunc[6]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc7, "GAPROOT/lib/oper1.g:HdlrFunc7("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[7]), "GAPROOT/lib/oper1.g:NameFunc[7]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc8, "GAPROOT/lib/oper1.g:HdlrFunc8("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[8]), "GAPROOT/lib/oper1.g:NameFunc[8]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc9, "GAPROOT/lib/oper1.g:HdlrFunc9("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[9]), "GAPROOT/lib/oper1.g:NameFunc[9]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc10, "GAPROOT/lib/oper1.g:HdlrFunc10("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[10]), "GAPROOT/lib/oper1.g:NameFunc[10]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc11, "GAPROOT/lib/oper1.g:HdlrFunc11("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[11]), "GAPROOT/lib/oper1.g:NameFunc[11]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc12, "GAPROOT/lib/oper1.g:HdlrFunc12("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[12]), "GAPROOT/lib/oper1.g:NameFunc[12]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc13, "GAPROOT/lib/oper1.g:HdlrFunc13("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[13]), "GAPROOT/lib/oper1.g:NameFunc[13]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc14, "GAPROOT/lib/oper1.g:HdlrFunc14("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[14]), "GAPROOT/lib/oper1.g:NameFunc[14]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc15, "GAPROOT/lib/oper1.g:HdlrFunc15("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[15]), "GAPROOT/lib/oper1.g:NameFunc[15]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc16, "GAPROOT/lib/oper1.g:HdlrFunc16("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[16]), "GAPROOT/lib/oper1.g:NameFunc[16]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc17, "GAPROOT/lib/oper1.g:HdlrFunc17("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[17]), "GAPROOT/lib/oper1.g:NameFunc[17]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc18, "GAPROOT/lib/oper1.g:HdlrFunc18("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[18]), "GAPROOT/lib/oper1.g:NameFunc[18]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc19, "GAPROOT/lib/oper1.g:HdlrFunc19("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[19]), "GAPROOT/lib/oper1.g:NameFunc[19]("FILE_CRC")" );
- 
- return 0;
- 
-}
-
-/* 'InitLibrary' sets up gvars, rnams, functions */
-static Int InitLibrary ( StructInitInfo * module )
-{
- Obj func1;
- Obj body1;
- 
- /* Complete Copy/Fopy registration */
- UpdateCopyFopyInfo();
- FileName = MakeImmString( "GAPROOT/lib/oper1.g" );
- PostRestore(module);
- 
- /* create all the functions defined in this module */
- func1 = NewFunction(NameFunc[1],0,0,HdlrFunc1);
- SET_ENVI_FUNC( func1, STATE(CurrLVars) );
- body1 = NewFunctionBody();
- SET_BODY_FUNC( func1, body1 );
- CHANGED_BAG( func1 );
- CALL_0ARGS( func1 );
- 
- return 0;
- 
-}
-
-/* <name> returns the description of this module */
-static StructInitInfo module = {
- .type        = MODULE_STATIC,
- .name        = "GAPROOT/lib/oper1.g",
- .crc         = -76837766,
- .initKernel  = InitKernel,
- .initLibrary = InitLibrary,
- .postRestore = PostRestore,
-};
-
-StructInitInfo * Init__oper1 ( void )
-{
- return &module;
-}
-
-/* compiled code ends here */
-#endif
diff --git a/src/hpc/c_oper1.c b/src/hpc/c_oper1.c
deleted file mode 100644
index 79f741a93e..0000000000
--- a/src/hpc/c_oper1.c
+++ /dev/null
@@ -1,6412 +0,0 @@
-#ifndef AVOID_PRECOMPILED
-/* C file produced by GAC */
-#include "compiled.h"
-#define FILE_CRC  "-76837766"
-
-/* global variables used in handlers */
-static GVar G_REREADING;
-static Obj  GC_REREADING;
-static GVar G_SHALLOW__COPY__OBJ;
-static Obj  GF_SHALLOW__COPY__OBJ;
-static GVar G_PRINT__OBJ;
-static Obj  GC_PRINT__OBJ;
-static GVar G_GAPInfo;
-static Obj  GC_GAPInfo;
-static GVar G_TYPE__FUNCTION__WITH__NAME;
-static Obj  GC_TYPE__FUNCTION__WITH__NAME;
-static GVar G_TYPE__OPERATION__WITH__NAME;
-static Obj  GC_TYPE__OPERATION__WITH__NAME;
-static GVar G_IS__FUNCTION;
-static Obj  GF_IS__FUNCTION;
-static GVar G_NAME__FUNC;
-static Obj  GF_NAME__FUNC;
-static GVar G_SET__NAME__FUNC;
-static Obj  GF_SET__NAME__FUNC;
-static GVar G_NARG__FUNC;
-static Obj  GF_NARG__FUNC;
-static GVar G_CHECK__REPEATED__ATTRIBUTE__SET;
-static GVar G_IS__OPERATION;
-static Obj  GF_IS__OPERATION;
-static GVar G_AINV;
-static Obj  GF_AINV;
-static GVar G_IS__INT;
-static Obj  GF_IS__INT;
-static GVar G_IS__LIST;
-static Obj  GF_IS__LIST;
-static GVar G_ADD__LIST;
-static Obj  GF_ADD__LIST;
-static GVar G_IS__STRING__REP;
-static Obj  GF_IS__STRING__REP;
-static GVar G_Error;
-static Obj  GF_Error;
-static GVar G_VAL__GVAR;
-static Obj  GF_VAL__GVAR;
-static GVar G_TYPE__OBJ;
-static Obj  GF_TYPE__OBJ;
-static GVar G_IMMUTABLE__COPY__OBJ;
-static Obj  GF_IMMUTABLE__COPY__OBJ;
-static GVar G_IS__IDENTICAL__OBJ;
-static Obj  GF_IS__IDENTICAL__OBJ;
-static GVar G_MakeImmutable;
-static Obj  GF_MakeImmutable;
-static GVar G_INPUT__FILENAME;
-static Obj  GF_INPUT__FILENAME;
-static GVar G_INPUT__LINENUMBER;
-static Obj  GF_INPUT__LINENUMBER;
-static GVar G_IS__OBJECT;
-static Obj  GC_IS__OBJECT;
-static GVar G_TRY__NEXT__METHOD;
-static Obj  GC_TRY__NEXT__METHOD;
-static GVar G_SUB__FLAGS;
-static Obj  GF_SUB__FLAGS;
-static GVar G_WITH__HIDDEN__IMPS__FLAGS;
-static Obj  GF_WITH__HIDDEN__IMPS__FLAGS;
-static GVar G_WITH__IMPS__FLAGS;
-static Obj  GF_WITH__IMPS__FLAGS;
-static GVar G_IS__SUBSET__FLAGS;
-static Obj  GF_IS__SUBSET__FLAGS;
-static GVar G_TRUES__FLAGS;
-static Obj  GF_TRUES__FLAGS;
-static GVar G_FLAG1__FILTER;
-static Obj  GF_FLAG1__FILTER;
-static GVar G_FLAGS__FILTER;
-static Obj  GF_FLAGS__FILTER;
-static GVar G_METHODS__OPERATION;
-static Obj  GF_METHODS__OPERATION;
-static GVar G_SET__METHODS__OPERATION;
-static Obj  GF_SET__METHODS__OPERATION;
-static GVar G_DO__NOTHING__SETTER;
-static Obj  GC_DO__NOTHING__SETTER;
-static GVar G_IS__CONSTRUCTOR;
-static Obj  GF_IS__CONSTRUCTOR;
-static GVar G_QUO__INT;
-static Obj  GF_QUO__INT;
-static GVar G_fail;
-static Obj  GC_fail;
-static GVar G_RETURN__TRUE;
-static Obj  GC_RETURN__TRUE;
-static GVar G_RETURN__FALSE;
-static Obj  GC_RETURN__FALSE;
-static GVar G_LEN__LIST;
-static Obj  GF_LEN__LIST;
-static GVar G_APPEND__LIST__INTR;
-static Obj  GF_APPEND__LIST__INTR;
-static GVar G_COPY__LIST__ENTRIES;
-static Obj  GF_COPY__LIST__ENTRIES;
-static GVar G_CONV__STRING;
-static Obj  GF_CONV__STRING;
-static GVar G_Print;
-static Obj  GF_Print;
-static GVar G_ViewObj;
-static Obj  GC_ViewObj;
-static GVar G_WRITE__LOCK;
-static Obj  GF_WRITE__LOCK;
-static GVar G_READ__LOCK;
-static Obj  GF_READ__LOCK;
-static GVar G_UNLOCK;
-static Obj  GF_UNLOCK;
-static GVar G_MakeReadOnlySingleObj;
-static Obj  GF_MakeReadOnlySingleObj;
-static GVar G_RUN__IMMEDIATE__METHODS__RUNS;
-static Obj  GC_RUN__IMMEDIATE__METHODS__RUNS;
-static GVar G_RUN__IMMEDIATE__METHODS__CHECKS;
-static Obj  GC_RUN__IMMEDIATE__METHODS__CHECKS;
-static GVar G_RUN__IMMEDIATE__METHODS__HITS;
-static Obj  GC_RUN__IMMEDIATE__METHODS__HITS;
-static GVar G_BIND__GLOBAL;
-static Obj  GF_BIND__GLOBAL;
-static GVar G_IGNORE__IMMEDIATE__METHODS;
-static Obj  GC_IGNORE__IMMEDIATE__METHODS;
-static GVar G_IMM__FLAGS;
-static Obj  GC_IMM__FLAGS;
-static GVar G_TRACE__IMMEDIATE__METHODS;
-static Obj  GC_TRACE__IMMEDIATE__METHODS;
-static GVar G_IMMEDIATES;
-static Obj  GC_IMMEDIATES;
-static GVar G_SIZE__IMMEDIATE__METHOD__ENTRY;
-static Obj  GC_SIZE__IMMEDIATE__METHOD__ENTRY;
-static GVar G_IMMEDIATE__METHODS;
-static Obj  GC_IMMEDIATE__METHODS;
-static GVar G_NewSpecialRegion;
-static Obj  GF_NewSpecialRegion;
-static GVar G_METHODS__OPERATION__REGION;
-static Obj  GC_METHODS__OPERATION__REGION;
-static GVar G_RankFilter;
-static Obj  GF_RankFilter;
-static GVar G_CHECK__INSTALL__METHOD;
-static Obj  GC_CHECK__INSTALL__METHOD;
-static GVar G_READEVALCOMMAND__LINENUMBER;
-static Obj  GC_READEVALCOMMAND__LINENUMBER;
-static GVar G_INSTALL__METHOD;
-static Obj  GF_INSTALL__METHOD;
-static GVar G_DeclareGlobalFunction;
-static Obj  GF_DeclareGlobalFunction;
-static GVar G_OPERATIONS__REGION;
-static Obj  GC_OPERATIONS__REGION;
-static GVar G_EvalString;
-static Obj  GF_EvalString;
-static GVar G_WRAPPER__OPERATIONS;
-static Obj  GC_WRAPPER__OPERATIONS;
-static GVar G_INFO__DEBUG;
-static Obj  GF_INFO__DEBUG;
-static GVar G_GET__OPER__FLAGS;
-static Obj  GF_GET__OPER__FLAGS;
-static GVar G_NamesFilter;
-static Obj  GF_NamesFilter;
-static GVar G_Ordinal;
-static Obj  GF_Ordinal;
-static GVar G_HasNameFunction;
-static Obj  GC_HasNameFunction;
-static GVar G_INSTALL__METHOD__FLAGS;
-static Obj  GF_INSTALL__METHOD__FLAGS;
-static GVar G_LENGTH__SETTER__METHODS__2;
-static Obj  GC_LENGTH__SETTER__METHODS__2;
-static GVar G_InstallAttributeFunction;
-static Obj  GF_InstallAttributeFunction;
-static GVar G_FILTER__REGION;
-static Obj  GC_FILTER__REGION;
-static GVar G_INFO__FILTERS;
-static Obj  GC_INFO__FILTERS;
-static GVar G_FNUM__CATS__AND__REPS;
-static Obj  GC_FNUM__CATS__AND__REPS;
-static GVar G_FILTERS;
-static Obj  GC_FILTERS;
-static GVar G_FNUM__PROS;
-static Obj  GC_FNUM__PROS;
-static GVar G_InstallOtherMethod;
-static Obj  GF_InstallOtherMethod;
-static GVar G_Tester;
-static Obj  GF_Tester;
-static GVar G_IsPrimeInt;
-static Obj  GF_IsPrimeInt;
-static GVar G_DeclareOperation;
-static Obj  GF_DeclareOperation;
-static GVar G_VALUE__GLOBAL;
-static Obj  GF_VALUE__GLOBAL;
-static GVar G_DeclareAttribute;
-static Obj  GF_DeclareAttribute;
-static GVar G_InstallMethod;
-static Obj  GF_InstallMethod;
-static GVar G_PositionSortedOddPositions;
-static Obj  GF_PositionSortedOddPositions;
-static GVar G_CallFuncList;
-static Obj  GF_CallFuncList;
-
-/* record names used in handlers */
-static RNam R_MaxNrArgsMethod;
-static RNam R_CommandLineOptions;
-static RNam R_N;
-
-/* information for the functions */
-static Obj  NameFunc[20];
-static Obj FileName;
-
-/* handler for function 2 */
-static Obj  HdlrFunc2 (
- Obj  self,
- Obj  a_obj,
- Obj  a_flags )
-{
- Obj l_flagspos = 0;
- Obj l_tried = 0;
- Obj l_type = 0;
- Obj l_j = 0;
- Obj l_imm = 0;
- Obj l_i = 0;
- Obj l_meth = 0;
- Obj l_res = 0;
- Obj l_loc = 0;
- Obj l_newflags = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- Obj t_7 = 0;
- Obj t_8 = 0;
- Obj t_9 = 0;
- Obj t_10 = 0;
- Obj t_11 = 0;
- Obj t_12 = 0;
- Obj t_13 = 0;
- Obj t_14 = 0;
- Obj t_15 = 0;
- Obj t_16 = 0;
- Obj t_17 = 0;
- (void)l_flagspos;
- (void)l_tried;
- (void)l_type;
- (void)l_j;
- (void)l_imm;
- (void)l_i;
- (void)l_meth;
- (void)l_res;
- (void)l_loc;
- (void)l_newflags;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* if IGNORE_IMMEDIATE_METHODS then */
- t_2 = GC_IGNORE__IMMEDIATE__METHODS;
- CHECK_BOUND( t_2, "IGNORE_IMMEDIATE_METHODS" );
- CHECK_BOOL( t_2 );
- t_1 = (Obj)(UInt)(t_2 != False);
- if ( t_1 ) {
-  
-  /* return; */
-  SWITCH_TO_OLD_FRAME(oldFrame);
-  return 0;
-  
- }
- /* fi */
- 
- /* if IS_SUBSET_FLAGS( IMM_FLAGS, flags ) then */
- t_3 = GF_IS__SUBSET__FLAGS;
- t_4 = GC_IMM__FLAGS;
- CHECK_BOUND( t_4, "IMM_FLAGS" );
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_2ARGS( t_3, t_4, a_flags );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( t_4, a_flags ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- CHECK_BOOL( t_2 );
- t_1 = (Obj)(UInt)(t_2 != False);
- if ( t_1 ) {
-  
-  /* return; */
-  SWITCH_TO_OLD_FRAME(oldFrame);
-  return 0;
-  
- }
- /* fi */
- 
- /* flags := SUB_FLAGS( flags, IMM_FLAGS ); */
- t_2 = GF_SUB__FLAGS;
- t_3 = GC_IMM__FLAGS;
- CHECK_BOUND( t_3, "IMM_FLAGS" );
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_2ARGS( t_2, a_flags, t_3 );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_flags, t_3 ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- a_flags = t_1;
- 
- /* flagspos := SHALLOW_COPY_OBJ( TRUES_FLAGS( flags ) ); */
- t_2 = GF_SHALLOW__COPY__OBJ;
- t_4 = GF_TRUES__FLAGS;
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, a_flags );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( a_flags ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, t_3 );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( t_3 ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_flagspos = t_1;
- 
- /* tried := [  ]; */
- t_1 = NEW_PLIST( T_PLIST, 0 );
- SET_LEN_PLIST( t_1, 0 );
- l_tried = t_1;
- 
- /* type := TYPE_OBJ( obj ); */
- t_2 = GF_TYPE__OBJ;
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, a_obj );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_obj ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_type = t_1;
- 
- /* flags := type![2]; */
- t_1 = ElmPosObj( l_type, 2 );
- a_flags = t_1;
- 
- /* RUN_IMMEDIATE_METHODS_RUNS := RUN_IMMEDIATE_METHODS_RUNS + 1; */
- t_2 = GC_RUN__IMMEDIATE__METHODS__RUNS;
- CHECK_BOUND( t_2, "RUN_IMMEDIATE_METHODS_RUNS" );
- C_SUM_FIA( t_1, t_2, INTOBJ_INT(1) )
- AssGVar( G_RUN__IMMEDIATE__METHODS__RUNS, t_1 );
- 
- /* if TRACE_IMMEDIATE_METHODS then */
- t_2 = GC_TRACE__IMMEDIATE__METHODS;
- CHECK_BOUND( t_2, "TRACE_IMMEDIATE_METHODS" );
- CHECK_BOOL( t_2 );
- t_1 = (Obj)(UInt)(t_2 != False);
- if ( t_1 ) {
-  
-  /* Print( "#I RunImmediateMethods\n" ); */
-  t_1 = GF_Print;
-  t_2 = MakeString( "#I RunImmediateMethods\n" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_1ARGS( t_1, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
-  }
-  
- }
- /* fi */
- 
- /* for j in flagspos do */
- t_4 = l_flagspos;
- if ( IS_SMALL_LIST(t_4) ) {
-  t_3 = (Obj)(UInt)1;
-  t_1 = INTOBJ_INT(1);
- }
- else {
-  t_3 = (Obj)(UInt)0;
-  t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
- }
- while ( 1 ) {
-  if ( t_3 ) {
-   if ( LEN_LIST(t_4) < Int_ObjInt(t_1) )  break;
-   t_2 = ELMV0_LIST( t_4, Int_ObjInt(t_1) );
-   t_1 = (Obj)(((UInt)t_1)+4);
-   if ( t_2 == 0 )  continue;
-  }
-  else {
-   if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
-   t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
-  }
-  l_j = t_2;
-  
-  /* if IsBound( IMMEDIATES[j] ) then */
-  t_7 = GC_IMMEDIATES;
-  CHECK_BOUND( t_7, "IMMEDIATES" );
-  CHECK_INT_POS( l_j );
-  t_6 = C_ISB_LIST( t_7, l_j );
-  t_5 = (Obj)(UInt)(t_6 != False);
-  if ( t_5 ) {
-   
-   /* imm := IMMEDIATES[j]; */
-   t_6 = GC_IMMEDIATES;
-   CHECK_BOUND( t_6, "IMMEDIATES" );
-   C_ELM_LIST_FPL( t_5, t_6, l_j )
-   l_imm = t_5;
-   
-   /* for i in [ 0, SIZE_IMMEDIATE_METHOD_ENTRY .. LEN_LIST( imm ) - SIZE_IMMEDIATE_METHOD_ENTRY ] do */
-   t_9 = GC_SIZE__IMMEDIATE__METHOD__ENTRY;
-   CHECK_BOUND( t_9, "SIZE_IMMEDIATE_METHOD_ENTRY" );
-   t_12 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_12 ) == T_FUNCTION ) {
-    t_11 = CALL_1ARGS( t_12, l_imm );
-   }
-   else {
-    t_11 = DoOperation2Args( CallFuncListOper, t_12, NewPlistFromArgs( l_imm ) );
-   }
-   CHECK_FUNC_RESULT( t_11 );
-   t_12 = GC_SIZE__IMMEDIATE__METHOD__ENTRY;
-   CHECK_BOUND( t_12, "SIZE_IMMEDIATE_METHOD_ENTRY" );
-   C_DIFF_FIA( t_10, t_11, t_12 )
-   t_8 = Range3Check( INTOBJ_INT(0), t_9, t_10 );
-   if ( IS_SMALL_LIST(t_8) ) {
-    t_7 = (Obj)(UInt)1;
-    t_5 = INTOBJ_INT(1);
-   }
-   else {
-    t_7 = (Obj)(UInt)0;
-    t_5 = CALL_1ARGS( GF_ITERATOR, t_8 );
-   }
-   while ( 1 ) {
-    if ( t_7 ) {
-     if ( LEN_LIST(t_8) < Int_ObjInt(t_5) )  break;
-     t_6 = ELMV0_LIST( t_8, Int_ObjInt(t_5) );
-     t_5 = (Obj)(((UInt)t_5)+4);
-     if ( t_6 == 0 )  continue;
-    }
-    else {
-     if ( CALL_1ARGS( GF_IS_DONE_ITER, t_5 ) != False )  break;
-     t_6 = CALL_1ARGS( GF_NEXT_ITER, t_5 );
-    }
-    l_i = t_6;
-    
-    /* if IS_SUBSET_FLAGS( flags, imm[i + 4] ) and not IS_SUBSET_FLAGS( flags, imm[i + 3] ) and not imm[i + 6] in tried then */
-    t_13 = GF_IS__SUBSET__FLAGS;
-    C_SUM_FIA( t_15, l_i, INTOBJ_INT(4) )
-    CHECK_INT_POS( t_15 );
-    C_ELM_LIST_FPL( t_14, l_imm, t_15 )
-    if ( TNUM_OBJ( t_13 ) == T_FUNCTION ) {
-     t_12 = CALL_2ARGS( t_13, a_flags, t_14 );
-    }
-    else {
-     t_12 = DoOperation2Args( CallFuncListOper, t_13, NewPlistFromArgs( a_flags, t_14 ) );
-    }
-    CHECK_FUNC_RESULT( t_12 );
-    CHECK_BOOL( t_12 );
-    t_11 = (Obj)(UInt)(t_12 != False);
-    t_10 = t_11;
-    if ( t_10 ) {
-     t_15 = GF_IS__SUBSET__FLAGS;
-     C_SUM_FIA( t_17, l_i, INTOBJ_INT(3) )
-     CHECK_INT_POS( t_17 );
-     C_ELM_LIST_FPL( t_16, l_imm, t_17 )
-     if ( TNUM_OBJ( t_15 ) == T_FUNCTION ) {
-      t_14 = CALL_2ARGS( t_15, a_flags, t_16 );
-     }
-     else {
-      t_14 = DoOperation2Args( CallFuncListOper, t_15, NewPlistFromArgs( a_flags, t_16 ) );
-     }
-     CHECK_FUNC_RESULT( t_14 );
-     CHECK_BOOL( t_14 );
-     t_13 = (Obj)(UInt)(t_14 != False);
-     t_12 = (Obj)(UInt)( ! ((Int)t_13) );
-     t_10 = t_12;
-    }
-    t_9 = t_10;
-    if ( t_9 ) {
-     C_SUM_FIA( t_14, l_i, INTOBJ_INT(6) )
-     CHECK_INT_POS( t_14 );
-     C_ELM_LIST_FPL( t_13, l_imm, t_14 )
-     t_12 = (Obj)(UInt)(IN( t_13, l_tried ));
-     t_11 = (Obj)(UInt)( ! ((Int)t_12) );
-     t_9 = t_11;
-    }
-    if ( t_9 ) {
-     
-     /* meth := IMMEDIATE_METHODS[imm[i + 6]]; */
-     t_10 = GC_IMMEDIATE__METHODS;
-     CHECK_BOUND( t_10, "IMMEDIATE_METHODS" );
-     C_SUM_FIA( t_12, l_i, INTOBJ_INT(6) )
-     CHECK_INT_POS( t_12 );
-     C_ELM_LIST_FPL( t_11, l_imm, t_12 )
-     CHECK_INT_POS( t_11 );
-     C_ELM_LIST_FPL( t_9, t_10, t_11 )
-     l_meth = t_9;
-     
-     /* res := meth( obj ); */
-     if ( TNUM_OBJ( l_meth ) == T_FUNCTION ) {
-      t_9 = CALL_1ARGS( l_meth, a_obj );
-     }
-     else {
-      t_9 = DoOperation2Args( CallFuncListOper, l_meth, NewPlistFromArgs( a_obj ) );
-     }
-     CHECK_FUNC_RESULT( t_9 );
-     l_res = t_9;
-     
-     /* ADD_LIST( tried, imm[i + 6] ); */
-     t_9 = GF_ADD__LIST;
-     C_SUM_FIA( t_11, l_i, INTOBJ_INT(6) )
-     CHECK_INT_POS( t_11 );
-     C_ELM_LIST_FPL( t_10, l_imm, t_11 )
-     if ( TNUM_OBJ( t_9 ) == T_FUNCTION ) {
-      CALL_2ARGS( t_9, l_tried, t_10 );
-     }
-     else {
-      DoOperation2Args( CallFuncListOper, t_9, NewPlistFromArgs( l_tried, t_10 ) );
-     }
-     
-     /* RUN_IMMEDIATE_METHODS_CHECKS := RUN_IMMEDIATE_METHODS_CHECKS + 1; */
-     t_10 = GC_RUN__IMMEDIATE__METHODS__CHECKS;
-     CHECK_BOUND( t_10, "RUN_IMMEDIATE_METHODS_CHECKS" );
-     C_SUM_FIA( t_9, t_10, INTOBJ_INT(1) )
-     AssGVar( G_RUN__IMMEDIATE__METHODS__CHECKS, t_9 );
-     
-     /* if TRACE_IMMEDIATE_METHODS then */
-     t_10 = GC_TRACE__IMMEDIATE__METHODS;
-     CHECK_BOUND( t_10, "TRACE_IMMEDIATE_METHODS" );
-     CHECK_BOOL( t_10 );
-     t_9 = (Obj)(UInt)(t_10 != False);
-     if ( t_9 ) {
-      
-      /* Print( "#I  immediate: ", NAME_FUNC( imm[i + 1] ) ); */
-      t_9 = GF_Print;
-      t_10 = MakeString( "#I  immediate: " );
-      t_12 = GF_NAME__FUNC;
-      C_SUM_FIA( t_14, l_i, INTOBJ_INT(1) )
-      CHECK_INT_POS( t_14 );
-      C_ELM_LIST_FPL( t_13, l_imm, t_14 )
-      if ( TNUM_OBJ( t_12 ) == T_FUNCTION ) {
-       t_11 = CALL_1ARGS( t_12, t_13 );
-      }
-      else {
-       t_11 = DoOperation2Args( CallFuncListOper, t_12, NewPlistFromArgs( t_13 ) );
-      }
-      CHECK_FUNC_RESULT( t_11 );
-      if ( TNUM_OBJ( t_9 ) == T_FUNCTION ) {
-       CALL_2ARGS( t_9, t_10, t_11 );
-      }
-      else {
-       DoOperation2Args( CallFuncListOper, t_9, NewPlistFromArgs( t_10, t_11 ) );
-      }
-      
-      /* if imm[i + 7] <> false then */
-      C_SUM_FIA( t_11, l_i, INTOBJ_INT(7) )
-      CHECK_INT_POS( t_11 );
-      C_ELM_LIST_FPL( t_10, l_imm, t_11 )
-      t_11 = False;
-      t_9 = (Obj)(UInt)( ! EQ( t_10, t_11 ));
-      if ( t_9 ) {
-       
-       /* Print( ": ", imm[i + 7] ); */
-       t_9 = GF_Print;
-       t_10 = MakeString( ": " );
-       C_SUM_FIA( t_12, l_i, INTOBJ_INT(7) )
-       CHECK_INT_POS( t_12 );
-       C_ELM_LIST_FPL( t_11, l_imm, t_12 )
-       if ( TNUM_OBJ( t_9 ) == T_FUNCTION ) {
-        CALL_2ARGS( t_9, t_10, t_11 );
-       }
-       else {
-        DoOperation2Args( CallFuncListOper, t_9, NewPlistFromArgs( t_10, t_11 ) );
-       }
-       
-      }
-      /* fi */
-      
-      /* Print( " at ", imm[i + 8][1], ":", imm[i + 8][2], "\n" ); */
-      t_9 = GF_Print;
-      t_10 = MakeString( " at " );
-      C_SUM_FIA( t_13, l_i, INTOBJ_INT(8) )
-      CHECK_INT_POS( t_13 );
-      C_ELM_LIST_FPL( t_12, l_imm, t_13 )
-      C_ELM_LIST_FPL( t_11, t_12, INTOBJ_INT(1) )
-      t_12 = MakeString( ":" );
-      C_SUM_FIA( t_15, l_i, INTOBJ_INT(8) )
-      CHECK_INT_POS( t_15 );
-      C_ELM_LIST_FPL( t_14, l_imm, t_15 )
-      C_ELM_LIST_FPL( t_13, t_14, INTOBJ_INT(2) )
-      t_14 = MakeString( "\n" );
-      if ( TNUM_OBJ( t_9 ) == T_FUNCTION ) {
-       CALL_5ARGS( t_9, t_10, t_11, t_12, t_13, t_14 );
-      }
-      else {
-       DoOperation2Args( CallFuncListOper, t_9, NewPlistFromArgs( t_10, t_11, t_12, t_13, t_14 ) );
-      }
-      
-     }
-     /* fi */
-     
-     /* if res <> TRY_NEXT_METHOD then */
-     t_10 = GC_TRY__NEXT__METHOD;
-     CHECK_BOUND( t_10, "TRY_NEXT_METHOD" );
-     t_9 = (Obj)(UInt)( ! EQ( l_res, t_10 ));
-     if ( t_9 ) {
-      
-      /* IGNORE_IMMEDIATE_METHODS := true; */
-      t_9 = True;
-      AssGVar( G_IGNORE__IMMEDIATE__METHODS, t_9 );
-      
-      /* imm[i + 2]( obj, res ); */
-      C_SUM_FIA( t_10, l_i, INTOBJ_INT(2) )
-      CHECK_INT_POS( t_10 );
-      C_ELM_LIST_FPL( t_9, l_imm, t_10 )
-      if ( TNUM_OBJ( t_9 ) == T_FUNCTION ) {
-       CALL_2ARGS( t_9, a_obj, l_res );
-      }
-      else {
-       DoOperation2Args( CallFuncListOper, t_9, NewPlistFromArgs( a_obj, l_res ) );
-      }
-      
-      /* IGNORE_IMMEDIATE_METHODS := false; */
-      t_9 = False;
-      AssGVar( G_IGNORE__IMMEDIATE__METHODS, t_9 );
-      
-      /* RUN_IMMEDIATE_METHODS_HITS := RUN_IMMEDIATE_METHODS_HITS + 1; */
-      t_10 = GC_RUN__IMMEDIATE__METHODS__HITS;
-      CHECK_BOUND( t_10, "RUN_IMMEDIATE_METHODS_HITS" );
-      C_SUM_FIA( t_9, t_10, INTOBJ_INT(1) )
-      AssGVar( G_RUN__IMMEDIATE__METHODS__HITS, t_9 );
-      
-      /* if not IS_IDENTICAL_OBJ( TYPE_OBJ( obj ), type ) then */
-      t_12 = GF_IS__IDENTICAL__OBJ;
-      t_14 = GF_TYPE__OBJ;
-      if ( TNUM_OBJ( t_14 ) == T_FUNCTION ) {
-       t_13 = CALL_1ARGS( t_14, a_obj );
-      }
-      else {
-       t_13 = DoOperation2Args( CallFuncListOper, t_14, NewPlistFromArgs( a_obj ) );
-      }
-      CHECK_FUNC_RESULT( t_13 );
-      if ( TNUM_OBJ( t_12 ) == T_FUNCTION ) {
-       t_11 = CALL_2ARGS( t_12, t_13, l_type );
-      }
-      else {
-       t_11 = DoOperation2Args( CallFuncListOper, t_12, NewPlistFromArgs( t_13, l_type ) );
-      }
-      CHECK_FUNC_RESULT( t_11 );
-      CHECK_BOOL( t_11 );
-      t_10 = (Obj)(UInt)(t_11 != False);
-      t_9 = (Obj)(UInt)( ! ((Int)t_10) );
-      if ( t_9 ) {
-       
-       /* type := TYPE_OBJ( obj ); */
-       t_10 = GF_TYPE__OBJ;
-       if ( TNUM_OBJ( t_10 ) == T_FUNCTION ) {
-        t_9 = CALL_1ARGS( t_10, a_obj );
-       }
-       else {
-        t_9 = DoOperation2Args( CallFuncListOper, t_10, NewPlistFromArgs( a_obj ) );
-       }
-       CHECK_FUNC_RESULT( t_9 );
-       l_type = t_9;
-       
-       /* newflags := SUB_FLAGS( type![2], IMM_FLAGS ); */
-       t_10 = GF_SUB__FLAGS;
-       t_11 = ElmPosObj( l_type, 2 );
-       t_12 = GC_IMM__FLAGS;
-       CHECK_BOUND( t_12, "IMM_FLAGS" );
-       if ( TNUM_OBJ( t_10 ) == T_FUNCTION ) {
-        t_9 = CALL_2ARGS( t_10, t_11, t_12 );
-       }
-       else {
-        t_9 = DoOperation2Args( CallFuncListOper, t_10, NewPlistFromArgs( t_11, t_12 ) );
-       }
-       CHECK_FUNC_RESULT( t_9 );
-       l_newflags = t_9;
-       
-       /* newflags := SUB_FLAGS( newflags, flags ); */
-       t_10 = GF_SUB__FLAGS;
-       if ( TNUM_OBJ( t_10 ) == T_FUNCTION ) {
-        t_9 = CALL_2ARGS( t_10, l_newflags, a_flags );
-       }
-       else {
-        t_9 = DoOperation2Args( CallFuncListOper, t_10, NewPlistFromArgs( l_newflags, a_flags ) );
-       }
-       CHECK_FUNC_RESULT( t_9 );
-       l_newflags = t_9;
-       
-       /* APPEND_LIST_INTR( flagspos, TRUES_FLAGS( newflags ) ); */
-       t_9 = GF_APPEND__LIST__INTR;
-       t_11 = GF_TRUES__FLAGS;
-       if ( TNUM_OBJ( t_11 ) == T_FUNCTION ) {
-        t_10 = CALL_1ARGS( t_11, l_newflags );
-       }
-       else {
-        t_10 = DoOperation2Args( CallFuncListOper, t_11, NewPlistFromArgs( l_newflags ) );
-       }
-       CHECK_FUNC_RESULT( t_10 );
-       if ( TNUM_OBJ( t_9 ) == T_FUNCTION ) {
-        CALL_2ARGS( t_9, l_flagspos, t_10 );
-       }
-       else {
-        DoOperation2Args( CallFuncListOper, t_9, NewPlistFromArgs( l_flagspos, t_10 ) );
-       }
-       
-       /* flags := type![2]; */
-       t_9 = ElmPosObj( l_type, 2 );
-       a_flags = t_9;
-       
-      }
-      /* fi */
-      
-     }
-     /* fi */
-     
-    }
-    /* fi */
-    
-   }
-   /* od */
-   
-  }
-  /* fi */
-  
- }
- /* od */
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 3 */
-static Obj  HdlrFunc3 (
- Obj  self,
- Obj  a_opr,
- Obj  a_info,
- Obj  a_rel,
- Obj  a_flags,
- Obj  a_baserank,
- Obj  a_method )
-{
- Obj l_methods = 0;
- Obj l_narg = 0;
- Obj l_i = 0;
- Obj l_k = 0;
- Obj l_tmp = 0;
- Obj l_replace = 0;
- Obj l_match = 0;
- Obj l_j = 0;
- Obj l_lk = 0;
- Obj l_rank = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- Obj t_7 = 0;
- Obj t_8 = 0;
- (void)l_methods;
- (void)l_narg;
- (void)l_i;
- (void)l_k;
- (void)l_tmp;
- (void)l_replace;
- (void)l_match;
- (void)l_j;
- (void)l_lk;
- (void)l_rank;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* lk := WRITE_LOCK( METHODS_OPERATION_REGION ); */
- t_2 = GF_WRITE__LOCK;
- t_3 = GC_METHODS__OPERATION__REGION;
- CHECK_BOUND( t_3, "METHODS_OPERATION_REGION" );
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, t_3 );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( t_3 ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_lk = t_1;
- 
- /* if IS_FUNCTION( baserank ) then */
- t_3 = GF_IS__FUNCTION;
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, a_baserank );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_baserank ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- CHECK_BOOL( t_2 );
- t_1 = (Obj)(UInt)(t_2 != False);
- if ( t_1 ) {
-  
-  /* rank := baserank(  ); */
-  if ( TNUM_OBJ( a_baserank ) == T_FUNCTION ) {
-   t_1 = CALL_0ARGS( a_baserank );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, a_baserank, NewPlistFromArgs( ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  l_rank = t_1;
-  
- }
- 
- /* else */
- else {
-  
-  /* rank := baserank; */
-  l_rank = a_baserank;
-  
- }
- /* fi */
- 
- /* if IS_CONSTRUCTOR( opr ) then */
- t_3 = GF_IS__CONSTRUCTOR;
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, a_opr );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_opr ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- CHECK_BOOL( t_2 );
- t_1 = (Obj)(UInt)(t_2 != False);
- if ( t_1 ) {
-  
-  /* if 0 = LEN_LIST( flags ) then */
-  t_3 = GF_LEN__LIST;
-  if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-   t_2 = CALL_1ARGS( t_3, a_flags );
-  }
-  else {
-   t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_flags ) );
-  }
-  CHECK_FUNC_RESULT( t_2 );
-  t_1 = (Obj)(UInt)(EQ( INTOBJ_INT(0), t_2 ));
-  if ( t_1 ) {
-   
-   /* Error( NAME_FUNC( opr ), ": constructors must have at least one argument" ); */
-   t_1 = GF_Error;
-   t_3 = GF_NAME__FUNC;
-   if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-    t_2 = CALL_1ARGS( t_3, a_opr );
-   }
-   else {
-    t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_opr ) );
-   }
-   CHECK_FUNC_RESULT( t_2 );
-   t_3 = MakeString( ": constructors must have at least one argument" );
-   if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-    CALL_2ARGS( t_1, t_2, t_3 );
-   }
-   else {
-    DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
-   }
-   
-  }
-  /* fi */
-  
-  /* rank := rank - RankFilter( flags[1] ); */
-  t_3 = GF_RankFilter;
-  C_ELM_LIST_FPL( t_4, a_flags, INTOBJ_INT(1) )
-  if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-   t_2 = CALL_1ARGS( t_3, t_4 );
-  }
-  else {
-   t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( t_4 ) );
-  }
-  CHECK_FUNC_RESULT( t_2 );
-  C_DIFF_FIA( t_1, l_rank, t_2 )
-  l_rank = t_1;
-  
- }
- 
- /* else */
- else {
-  
-  /* for i in flags do */
-  t_4 = a_flags;
-  if ( IS_SMALL_LIST(t_4) ) {
-   t_3 = (Obj)(UInt)1;
-   t_1 = INTOBJ_INT(1);
-  }
-  else {
-   t_3 = (Obj)(UInt)0;
-   t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
-  }
-  while ( 1 ) {
-   if ( t_3 ) {
-    if ( LEN_LIST(t_4) < Int_ObjInt(t_1) )  break;
-    t_2 = ELMV0_LIST( t_4, Int_ObjInt(t_1) );
-    t_1 = (Obj)(((UInt)t_1)+4);
-    if ( t_2 == 0 )  continue;
-   }
-   else {
-    if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
-    t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
-   }
-   l_i = t_2;
-   
-   /* rank := rank + RankFilter( i ); */
-   t_7 = GF_RankFilter;
-   if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-    t_6 = CALL_1ARGS( t_7, l_i );
-   }
-   else {
-    t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( l_i ) );
-   }
-   CHECK_FUNC_RESULT( t_6 );
-   C_SUM_FIA( t_5, l_rank, t_6 )
-   l_rank = t_5;
-   
-  }
-  /* od */
-  
- }
- /* fi */
- 
- /* narg := LEN_LIST( flags ); */
- t_2 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, a_flags );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_flags ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_narg = t_1;
- 
- /* methods := METHODS_OPERATION( opr, narg ); */
- t_2 = GF_METHODS__OPERATION;
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_2ARGS( t_2, a_opr, l_narg );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_opr, l_narg ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_methods = t_1;
- 
- /* methods := methods{[ 1 .. LEN_LIST( methods ) ]}; */
- t_4 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, l_methods );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_methods ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- t_2 = Range2Check( INTOBJ_INT(1), t_3 );
- t_1 = ElmsListCheck( l_methods, t_2 );
- l_methods = t_1;
- 
- /* if info = false then */
- t_2 = False;
- t_1 = (Obj)(UInt)(EQ( a_info, t_2 ));
- if ( t_1 ) {
-  
-  /* info := NAME_FUNC( opr ); */
-  t_2 = GF_NAME__FUNC;
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_1ARGS( t_2, a_opr );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_opr ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  a_info = t_1;
-  
- }
- 
- /* else */
- else {
-  
-  /* k := SHALLOW_COPY_OBJ( NAME_FUNC( opr ) ); */
-  t_2 = GF_SHALLOW__COPY__OBJ;
-  t_4 = GF_NAME__FUNC;
-  if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-   t_3 = CALL_1ARGS( t_4, a_opr );
-  }
-  else {
-   t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( a_opr ) );
-  }
-  CHECK_FUNC_RESULT( t_3 );
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_1ARGS( t_2, t_3 );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( t_3 ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  l_k = t_1;
-  
-  /* APPEND_LIST_INTR( k, ": " ); */
-  t_1 = GF_APPEND__LIST__INTR;
-  t_2 = MakeString( ": " );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_2ARGS( t_1, l_k, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_k, t_2 ) );
-  }
-  
-  /* APPEND_LIST_INTR( k, info ); */
-  t_1 = GF_APPEND__LIST__INTR;
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_2ARGS( t_1, l_k, a_info );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_k, a_info ) );
-  }
-  
-  /* info := k; */
-  a_info = l_k;
-  
-  /* CONV_STRING( info ); */
-  t_1 = GF_CONV__STRING;
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_1ARGS( t_1, a_info );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( a_info ) );
-  }
-  
- }
- /* fi */
- 
- /* i := 0; */
- l_i = INTOBJ_INT(0);
- 
- /* while i < LEN_LIST( methods ) and rank < methods[i + (narg + 3)] do */
- while ( 1 ) {
-  t_4 = GF_LEN__LIST;
-  if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-   t_3 = CALL_1ARGS( t_4, l_methods );
-  }
-  else {
-   t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_methods ) );
-  }
-  CHECK_FUNC_RESULT( t_3 );
-  t_2 = (Obj)(UInt)(LT( l_i, t_3 ));
-  t_1 = t_2;
-  if ( t_1 ) {
-   C_SUM_FIA( t_6, l_narg, INTOBJ_INT(3) )
-   C_SUM_FIA( t_5, l_i, t_6 )
-   CHECK_INT_POS( t_5 );
-   C_ELM_LIST_FPL( t_4, l_methods, t_5 )
-   t_3 = (Obj)(UInt)(LT( l_rank, t_4 ));
-   t_1 = t_3;
-  }
-  if ( ! t_1 ) break;
-  
-  /* i := i + (narg + 6); */
-  C_SUM_FIA( t_2, l_narg, INTOBJ_INT(6) )
-  C_SUM_FIA( t_1, l_i, t_2 )
-  l_i = t_1;
-  
- }
- /* od */
- 
- /* replace := false; */
- t_1 = False;
- l_replace = t_1;
- 
- /* if REREADING then */
- t_2 = GC_REREADING;
- CHECK_BOUND( t_2, "REREADING" );
- CHECK_BOOL( t_2 );
- t_1 = (Obj)(UInt)(t_2 != False);
- if ( t_1 ) {
-  
-  /* k := i; */
-  l_k = l_i;
-  
-  /* while k < LEN_LIST( methods ) and rank = methods[k + narg + 3] do */
-  while ( 1 ) {
-   t_4 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-    t_3 = CALL_1ARGS( t_4, l_methods );
-   }
-   else {
-    t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_methods ) );
-   }
-   CHECK_FUNC_RESULT( t_3 );
-   t_2 = (Obj)(UInt)(LT( l_k, t_3 ));
-   t_1 = t_2;
-   if ( t_1 ) {
-    C_SUM_FIA( t_6, l_k, l_narg )
-    C_SUM_FIA( t_5, t_6, INTOBJ_INT(3) )
-    CHECK_INT_POS( t_5 );
-    C_ELM_LIST_FPL( t_4, l_methods, t_5 )
-    t_3 = (Obj)(UInt)(EQ( l_rank, t_4 ));
-    t_1 = t_3;
-   }
-   if ( ! t_1 ) break;
-   
-   /* if info = methods[k + narg + 4] then */
-   C_SUM_FIA( t_4, l_k, l_narg )
-   C_SUM_FIA( t_3, t_4, INTOBJ_INT(4) )
-   CHECK_INT_POS( t_3 );
-   C_ELM_LIST_FPL( t_2, l_methods, t_3 )
-   t_1 = (Obj)(UInt)(EQ( a_info, t_2 ));
-   if ( t_1 ) {
-    
-    /* match := true; */
-    t_1 = True;
-    l_match = t_1;
-    
-    /* for j in [ 1 .. narg ] do */
-    CHECK_INT_SMALL( l_narg );
-    t_2 = l_narg;
-    for ( t_1 = INTOBJ_INT(1);
-          ((Int)t_1) <= ((Int)t_2);
-          t_1 = (Obj)(((UInt)t_1)+4) ) {
-     l_j = t_1;
-     
-     /* match := match and methods[k + j + 1] = flags[j]; */
-     if ( l_match == False ) {
-      t_3 = l_match;
-     }
-     else if ( l_match == True ) {
-      C_SUM_FIA( t_7, l_k, l_j )
-      C_SUM_FIA( t_6, t_7, INTOBJ_INT(1) )
-      CHECK_INT_POS( t_6 );
-      C_ELM_LIST_FPL( t_5, l_methods, t_6 )
-      C_ELM_LIST_FPL( t_6, a_flags, l_j )
-      t_4 = (EQ( t_5, t_6 ) ? True : False);
-      t_3 = t_4;
-     }
-     else if (IS_FILTER( l_match ) ) {
-      C_SUM_FIA( t_8, l_k, l_j )
-      C_SUM_FIA( t_7, t_8, INTOBJ_INT(1) )
-      CHECK_INT_POS( t_7 );
-      C_ELM_LIST_FPL( t_6, l_methods, t_7 )
-      C_ELM_LIST_FPL( t_7, a_flags, l_j )
-      t_5 = (EQ( t_6, t_7 ) ? True : False);
-      t_3 = NewAndFilter( l_match, t_5 );
-     }
-     else {
-      RequireArgumentEx(0, l_match, "<expr>",
-      "must be 'true' or 'false' or a filter" );
-     }
-     l_match = t_3;
-     
-    }
-    /* od */
-    
-    /* if match then */
-    CHECK_BOOL( l_match );
-    t_1 = (Obj)(UInt)(l_match != False);
-    if ( t_1 ) {
-     
-     /* replace := true; */
-     t_1 = True;
-     l_replace = t_1;
-     
-     /* i := k; */
-     l_i = l_k;
-     
-     /* break; */
-     break;
-     
-    }
-    /* fi */
-    
-   }
-   /* fi */
-   
-   /* k := k + narg + 6; */
-   C_SUM_FIA( t_2, l_k, l_narg )
-   C_SUM_FIA( t_1, t_2, INTOBJ_INT(6) )
-   l_k = t_1;
-   
-  }
-  /* od */
-  
- }
- /* fi */
- 
- /* if not REREADING or not replace then */
- t_4 = GC_REREADING;
- CHECK_BOUND( t_4, "REREADING" );
- CHECK_BOOL( t_4 );
- t_3 = (Obj)(UInt)(t_4 != False);
- t_2 = (Obj)(UInt)( ! ((Int)t_3) );
- t_1 = t_2;
- if ( ! t_1 ) {
-  t_4 = (Obj)(UInt)(l_replace != False);
-  t_3 = (Obj)(UInt)( ! ((Int)t_4) );
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* COPY_LIST_ENTRIES( methods, i + 1, 1, methods, narg + 6 + i + 1, 1, LEN_LIST( methods ) - i ); */
-  t_1 = GF_COPY__LIST__ENTRIES;
-  t_2 = NEW_PLIST( T_PLIST, 7 );
-  SET_LEN_PLIST( t_2, 7 );
-  SET_ELM_PLIST( t_2, 1, l_methods );
-  CHANGED_BAG( t_2 );
-  C_SUM_FIA( t_3, l_i, INTOBJ_INT(1) )
-  SET_ELM_PLIST( t_2, 2, t_3 );
-  CHANGED_BAG( t_2 );
-  SET_ELM_PLIST( t_2, 3, INTOBJ_INT(1) );
-  SET_ELM_PLIST( t_2, 4, l_methods );
-  CHANGED_BAG( t_2 );
-  C_SUM_FIA( t_5, l_narg, INTOBJ_INT(6) )
-  C_SUM_FIA( t_4, t_5, l_i )
-  C_SUM_FIA( t_3, t_4, INTOBJ_INT(1) )
-  SET_ELM_PLIST( t_2, 5, t_3 );
-  CHANGED_BAG( t_2 );
-  SET_ELM_PLIST( t_2, 6, INTOBJ_INT(1) );
-  t_5 = GF_LEN__LIST;
-  if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-   t_4 = CALL_1ARGS( t_5, l_methods );
-  }
-  else {
-   t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_methods ) );
-  }
-  CHECK_FUNC_RESULT( t_4 );
-  C_DIFF_FIA( t_3, t_4, l_i )
-  SET_ELM_PLIST( t_2, 7, t_3 );
-  CHANGED_BAG( t_2 );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_XARGS( t_1, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, t_2 );
-  }
-  
- }
- /* fi */
- 
- /* if rel = true then */
- t_2 = True;
- t_1 = (Obj)(UInt)(EQ( a_rel, t_2 ));
- if ( t_1 ) {
-  
-  /* rel := RETURN_TRUE; */
-  t_1 = GC_RETURN__TRUE;
-  CHECK_BOUND( t_1, "RETURN_TRUE" );
-  a_rel = t_1;
-  
- }
- 
- /* elif rel = false then */
- else {
-  t_2 = False;
-  t_1 = (Obj)(UInt)(EQ( a_rel, t_2 ));
-  if ( t_1 ) {
-   
-   /* rel := RETURN_FALSE; */
-   t_1 = GC_RETURN__FALSE;
-   CHECK_BOUND( t_1, "RETURN_FALSE" );
-   a_rel = t_1;
-   
-  }
-  
-  /* elif IS_FUNCTION( rel ) then */
-  else {
-   t_3 = GF_IS__FUNCTION;
-   if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-    t_2 = CALL_1ARGS( t_3, a_rel );
-   }
-   else {
-    t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_rel ) );
-   }
-   CHECK_FUNC_RESULT( t_2 );
-   CHECK_BOOL( t_2 );
-   t_1 = (Obj)(UInt)(t_2 != False);
-   if ( t_1 ) {
-    
-    /* if CHECK_INSTALL_METHOD then */
-    t_2 = GC_CHECK__INSTALL__METHOD;
-    CHECK_BOUND( t_2, "CHECK_INSTALL_METHOD" );
-    CHECK_BOOL( t_2 );
-    t_1 = (Obj)(UInt)(t_2 != False);
-    if ( t_1 ) {
-     
-     /* tmp := NARG_FUNC( rel ); */
-     t_2 = GF_NARG__FUNC;
-     if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-      t_1 = CALL_1ARGS( t_2, a_rel );
-     }
-     else {
-      t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_rel ) );
-     }
-     CHECK_FUNC_RESULT( t_1 );
-     l_tmp = t_1;
-     
-     /* if tmp < AINV( narg ) - 1 or tmp >= 0 and tmp <> narg then */
-     t_5 = GF_AINV;
-     if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-      t_4 = CALL_1ARGS( t_5, l_narg );
-     }
-     else {
-      t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_narg ) );
-     }
-     CHECK_FUNC_RESULT( t_4 );
-     C_DIFF_FIA( t_3, t_4, INTOBJ_INT(1) )
-     t_2 = (Obj)(UInt)(LT( l_tmp, t_3 ));
-     t_1 = t_2;
-     if ( ! t_1 ) {
-      t_4 = (Obj)(UInt)(! LT( l_tmp, INTOBJ_INT(0) ));
-      t_3 = t_4;
-      if ( t_3 ) {
-       t_5 = (Obj)(UInt)( ! EQ( l_tmp, l_narg ));
-       t_3 = t_5;
-      }
-      t_1 = t_3;
-     }
-     if ( t_1 ) {
-      
-      /* Error( NAME_FUNC( opr ), ": <famrel> must accept ", narg, " arguments" ); */
-      t_1 = GF_Error;
-      t_3 = GF_NAME__FUNC;
-      if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-       t_2 = CALL_1ARGS( t_3, a_opr );
-      }
-      else {
-       t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_opr ) );
-      }
-      CHECK_FUNC_RESULT( t_2 );
-      t_3 = MakeString( ": <famrel> must accept " );
-      t_4 = MakeString( " arguments" );
-      if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-       CALL_4ARGS( t_1, t_2, t_3, l_narg, t_4 );
-      }
-      else {
-       DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, l_narg, t_4 ) );
-      }
-      
-     }
-     /* fi */
-     
-    }
-    /* fi */
-    
-   }
-   
-   /* else */
-   else {
-    
-    /* Error( NAME_FUNC( opr ), ": <famrel> must be a function, `true', or `false'" ); */
-    t_1 = GF_Error;
-    t_3 = GF_NAME__FUNC;
-    if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-     t_2 = CALL_1ARGS( t_3, a_opr );
-    }
-    else {
-     t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_opr ) );
-    }
-    CHECK_FUNC_RESULT( t_2 );
-    t_3 = MakeString( ": <famrel> must be a function, `true', or `false'" );
-    if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-     CALL_2ARGS( t_1, t_2, t_3 );
-    }
-    else {
-     DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
-    }
-    
-   }
-  }
- }
- /* fi */
- 
- /* if method = true then */
- t_2 = True;
- t_1 = (Obj)(UInt)(EQ( a_method, t_2 ));
- if ( t_1 ) {
-  
-  /* method := RETURN_TRUE; */
-  t_1 = GC_RETURN__TRUE;
-  CHECK_BOUND( t_1, "RETURN_TRUE" );
-  a_method = t_1;
-  
- }
- 
- /* elif method = false then */
- else {
-  t_2 = False;
-  t_1 = (Obj)(UInt)(EQ( a_method, t_2 ));
-  if ( t_1 ) {
-   
-   /* method := RETURN_FALSE; */
-   t_1 = GC_RETURN__FALSE;
-   CHECK_BOUND( t_1, "RETURN_FALSE" );
-   a_method = t_1;
-   
-  }
-  
-  /* elif IS_FUNCTION( method ) then */
-  else {
-   t_3 = GF_IS__FUNCTION;
-   if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-    t_2 = CALL_1ARGS( t_3, a_method );
-   }
-   else {
-    t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_method ) );
-   }
-   CHECK_FUNC_RESULT( t_2 );
-   CHECK_BOOL( t_2 );
-   t_1 = (Obj)(UInt)(t_2 != False);
-   if ( t_1 ) {
-    
-    /* if CHECK_INSTALL_METHOD and not IS_OPERATION( method ) then */
-    t_3 = GC_CHECK__INSTALL__METHOD;
-    CHECK_BOUND( t_3, "CHECK_INSTALL_METHOD" );
-    CHECK_BOOL( t_3 );
-    t_2 = (Obj)(UInt)(t_3 != False);
-    t_1 = t_2;
-    if ( t_1 ) {
-     t_6 = GF_IS__OPERATION;
-     if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-      t_5 = CALL_1ARGS( t_6, a_method );
-     }
-     else {
-      t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( a_method ) );
-     }
-     CHECK_FUNC_RESULT( t_5 );
-     CHECK_BOOL( t_5 );
-     t_4 = (Obj)(UInt)(t_5 != False);
-     t_3 = (Obj)(UInt)( ! ((Int)t_4) );
-     t_1 = t_3;
-    }
-    if ( t_1 ) {
-     
-     /* tmp := NARG_FUNC( method ); */
-     t_2 = GF_NARG__FUNC;
-     if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-      t_1 = CALL_1ARGS( t_2, a_method );
-     }
-     else {
-      t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_method ) );
-     }
-     CHECK_FUNC_RESULT( t_1 );
-     l_tmp = t_1;
-     
-     /* if tmp < AINV( narg ) - 1 or tmp >= 0 and tmp <> narg then */
-     t_5 = GF_AINV;
-     if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-      t_4 = CALL_1ARGS( t_5, l_narg );
-     }
-     else {
-      t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_narg ) );
-     }
-     CHECK_FUNC_RESULT( t_4 );
-     C_DIFF_FIA( t_3, t_4, INTOBJ_INT(1) )
-     t_2 = (Obj)(UInt)(LT( l_tmp, t_3 ));
-     t_1 = t_2;
-     if ( ! t_1 ) {
-      t_4 = (Obj)(UInt)(! LT( l_tmp, INTOBJ_INT(0) ));
-      t_3 = t_4;
-      if ( t_3 ) {
-       t_5 = (Obj)(UInt)( ! EQ( l_tmp, l_narg ));
-       t_3 = t_5;
-      }
-      t_1 = t_3;
-     }
-     if ( t_1 ) {
-      
-      /* Error( NAME_FUNC( opr ), ": <method> must accept ", narg, " arguments" ); */
-      t_1 = GF_Error;
-      t_3 = GF_NAME__FUNC;
-      if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-       t_2 = CALL_1ARGS( t_3, a_opr );
-      }
-      else {
-       t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_opr ) );
-      }
-      CHECK_FUNC_RESULT( t_2 );
-      t_3 = MakeString( ": <method> must accept " );
-      t_4 = MakeString( " arguments" );
-      if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-       CALL_4ARGS( t_1, t_2, t_3, l_narg, t_4 );
-      }
-      else {
-       DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, l_narg, t_4 ) );
-      }
-      
-     }
-     /* fi */
-     
-    }
-    /* fi */
-    
-   }
-   
-   /* else */
-   else {
-    
-    /* Error( NAME_FUNC( opr ), ": <method> must be a function, `true', or `false'" ); */
-    t_1 = GF_Error;
-    t_3 = GF_NAME__FUNC;
-    if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-     t_2 = CALL_1ARGS( t_3, a_opr );
-    }
-    else {
-     t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_opr ) );
-    }
-    CHECK_FUNC_RESULT( t_2 );
-    t_3 = MakeString( ": <method> must be a function, `true', or `false'" );
-    if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-     CALL_2ARGS( t_1, t_2, t_3 );
-    }
-    else {
-     DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
-    }
-    
-   }
-  }
- }
- /* fi */
- 
- /* methods[i + 1] := rel; */
- C_SUM_FIA( t_1, l_i, INTOBJ_INT(1) )
- CHECK_INT_POS( t_1 );
- C_ASS_LIST_FPL( l_methods, t_1, a_rel )
- 
- /* for k in [ 1 .. narg ] do */
- CHECK_INT_SMALL( l_narg );
- t_2 = l_narg;
- for ( t_1 = INTOBJ_INT(1);
-       ((Int)t_1) <= ((Int)t_2);
-       t_1 = (Obj)(((UInt)t_1)+4) ) {
-  l_k = t_1;
-  
-  /* methods[i + k + 1] := flags[k]; */
-  C_SUM_FIA( t_4, l_i, l_k )
-  C_SUM_FIA( t_3, t_4, INTOBJ_INT(1) )
-  CHECK_INT_POS( t_3 );
-  C_ELM_LIST_FPL( t_4, a_flags, l_k )
-  C_ASS_LIST_FPL( l_methods, t_3, t_4 )
-  
- }
- /* od */
- 
- /* methods[i + (narg + 2)] := method; */
- C_SUM_INTOBJS( t_2, l_narg, INTOBJ_INT(2) )
- C_SUM_FIA( t_1, l_i, t_2 )
- CHECK_INT_POS( t_1 );
- C_ASS_LIST_FPL( l_methods, t_1, a_method )
- 
- /* methods[i + (narg + 3)] := rank; */
- C_SUM_INTOBJS( t_2, l_narg, INTOBJ_INT(3) )
- C_SUM_FIA( t_1, l_i, t_2 )
- CHECK_INT_POS( t_1 );
- C_ASS_LIST_FPL( l_methods, t_1, l_rank )
- 
- /* methods[i + (narg + 4)] := IMMUTABLE_COPY_OBJ( info ); */
- C_SUM_INTOBJS( t_2, l_narg, INTOBJ_INT(4) )
- C_SUM_FIA( t_1, l_i, t_2 )
- CHECK_INT_POS( t_1 );
- t_3 = GF_IMMUTABLE__COPY__OBJ;
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, a_info );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_info ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- C_ASS_LIST_FPL( l_methods, t_1, t_2 )
- 
- /* if 6 >= 5 then */
- t_1 = (Obj)(UInt)(((Int)INTOBJ_INT(6)) >= ((Int)INTOBJ_INT(5)));
- if ( t_1 ) {
-  
-  /* methods[i + (narg + 5)] := MakeImmutable( [ INPUT_FILENAME(  ), READEVALCOMMAND_LINENUMBER, INPUT_LINENUMBER(  ) ] ); */
-  C_SUM_INTOBJS( t_2, l_narg, INTOBJ_INT(5) )
-  C_SUM_FIA( t_1, l_i, t_2 )
-  CHECK_INT_POS( t_1 );
-  t_3 = GF_MakeImmutable;
-  t_4 = NEW_PLIST( T_PLIST, 3 );
-  SET_LEN_PLIST( t_4, 3 );
-  t_6 = GF_INPUT__FILENAME;
-  if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-   t_5 = CALL_0ARGS( t_6 );
-  }
-  else {
-   t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( ) );
-  }
-  CHECK_FUNC_RESULT( t_5 );
-  SET_ELM_PLIST( t_4, 1, t_5 );
-  CHANGED_BAG( t_4 );
-  t_5 = GC_READEVALCOMMAND__LINENUMBER;
-  CHECK_BOUND( t_5, "READEVALCOMMAND_LINENUMBER" );
-  SET_ELM_PLIST( t_4, 2, t_5 );
-  CHANGED_BAG( t_4 );
-  t_6 = GF_INPUT__LINENUMBER;
-  if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-   t_5 = CALL_0ARGS( t_6 );
-  }
-  else {
-   t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( ) );
-  }
-  CHECK_FUNC_RESULT( t_5 );
-  SET_ELM_PLIST( t_4, 3, t_5 );
-  CHANGED_BAG( t_4 );
-  if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-   t_2 = CALL_1ARGS( t_3, t_4 );
-  }
-  else {
-   t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( t_4 ) );
-  }
-  CHECK_FUNC_RESULT( t_2 );
-  C_ASS_LIST_FPL( l_methods, t_1, t_2 )
-  
- }
- /* fi */
- 
- /* if 6 >= 6 then */
- t_1 = (Obj)(UInt)(((Int)INTOBJ_INT(6)) >= ((Int)INTOBJ_INT(6)));
- if ( t_1 ) {
-  
-  /* methods[i + (narg + 6)] := baserank; */
-  C_SUM_INTOBJS( t_2, l_narg, INTOBJ_INT(6) )
-  C_SUM_FIA( t_1, l_i, t_2 )
-  CHECK_INT_POS( t_1 );
-  C_ASS_LIST_FPL( l_methods, t_1, a_baserank )
-  
- }
- /* fi */
- 
- /* SET_METHODS_OPERATION( opr, narg, MakeReadOnlySingleObj( methods ) ); */
- t_1 = GF_SET__METHODS__OPERATION;
- t_3 = GF_MakeReadOnlySingleObj;
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, l_methods );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_methods ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_3ARGS( t_1, a_opr, l_narg, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( a_opr, l_narg, t_2 ) );
- }
- 
- /* UNLOCK( lk ); */
- t_1 = GF_UNLOCK;
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_1ARGS( t_1, l_lk );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_lk ) );
- }
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 4 */
-static Obj  HdlrFunc4 (
- Obj  self,
- Obj  a_arg )
-{
- Obj t_1 = 0;
- Obj t_2 = 0;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* INSTALL_METHOD( arg, true ); */
- t_1 = GF_INSTALL__METHOD;
- t_2 = True;
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, a_arg, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( a_arg, t_2 ) );
- }
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 5 */
-static Obj  HdlrFunc5 (
- Obj  self,
- Obj  a_arg )
-{
- Obj t_1 = 0;
- Obj t_2 = 0;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* INSTALL_METHOD( arg, false ); */
- t_1 = GF_INSTALL__METHOD;
- t_2 = False;
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, a_arg, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( a_arg, t_2 ) );
- }
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 6 */
-static Obj  HdlrFunc6 (
- Obj  self,
- Obj  a_arglist,
- Obj  a_check )
-{
- Obj l_len = 0;
- Obj l_opr = 0;
- Obj l_info = 0;
- Obj l_pos = 0;
- Obj l_rel = 0;
- Obj l_filters = 0;
- Obj l_info1 = 0;
- Obj l_isstr = 0;
- Obj l_flags = 0;
- Obj l_i = 0;
- Obj l_rank = 0;
- Obj l_method = 0;
- Obj l_oreqs = 0;
- Obj l_req = 0;
- Obj l_reqs = 0;
- Obj l_match = 0;
- Obj l_j = 0;
- Obj l_k = 0;
- Obj l_imp = 0;
- Obj l_notmatch = 0;
- Obj l_lk = 0;
- Obj l_funcname = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- Obj t_7 = 0;
- Obj t_8 = 0;
- Obj t_9 = 0;
- Obj t_10 = 0;
- Obj t_11 = 0;
- (void)l_len;
- (void)l_opr;
- (void)l_info;
- (void)l_pos;
- (void)l_rel;
- (void)l_filters;
- (void)l_info1;
- (void)l_isstr;
- (void)l_flags;
- (void)l_i;
- (void)l_rank;
- (void)l_method;
- (void)l_oreqs;
- (void)l_req;
- (void)l_reqs;
- (void)l_match;
- (void)l_j;
- (void)l_k;
- (void)l_imp;
- (void)l_notmatch;
- (void)l_lk;
- (void)l_funcname;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* lk := READ_LOCK( OPERATIONS_REGION ); */
- t_2 = GF_READ__LOCK;
- t_3 = GC_OPERATIONS__REGION;
- CHECK_BOUND( t_3, "OPERATIONS_REGION" );
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, t_3 );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( t_3 ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_lk = t_1;
- 
- /* len := LEN_LIST( arglist ); */
- t_2 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, a_arglist );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_arglist ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_len = t_1;
- 
- /* if len < 3 then */
- t_1 = (Obj)(UInt)(LT( l_len, INTOBJ_INT(3) ));
- if ( t_1 ) {
-  
-  /* Error( "too few arguments given in <arglist>" ); */
-  t_1 = GF_Error;
-  t_2 = MakeString( "too few arguments given in <arglist>" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_1ARGS( t_1, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
-  }
-  
- }
- /* fi */
- 
- /* opr := arglist[1]; */
- C_ELM_LIST_FPL( t_1, a_arglist, INTOBJ_INT(1) )
- l_opr = t_1;
- 
- /* if not IS_OPERATION( opr ) then */
- t_4 = GF_IS__OPERATION;
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, l_opr );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_opr ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- CHECK_BOOL( t_3 );
- t_2 = (Obj)(UInt)(t_3 != False);
- t_1 = (Obj)(UInt)( ! ((Int)t_2) );
- if ( t_1 ) {
-  
-  /* Error( "<opr> is not an operation" ); */
-  t_1 = GF_Error;
-  t_2 = MakeString( "<opr> is not an operation" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_1ARGS( t_1, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
-  }
-  
- }
- /* fi */
- 
- /* if IS_STRING_REP( arglist[2] ) or arglist[2] = false then */
- t_4 = GF_IS__STRING__REP;
- C_ELM_LIST_FPL( t_5, a_arglist, INTOBJ_INT(2) )
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, t_5 );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( t_5 ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- CHECK_BOOL( t_3 );
- t_2 = (Obj)(UInt)(t_3 != False);
- t_1 = t_2;
- if ( ! t_1 ) {
-  C_ELM_LIST_FPL( t_4, a_arglist, INTOBJ_INT(2) )
-  t_5 = False;
-  t_3 = (Obj)(UInt)(EQ( t_4, t_5 ));
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* info := arglist[2]; */
-  C_ELM_LIST_FPL( t_1, a_arglist, INTOBJ_INT(2) )
-  l_info = t_1;
-  
-  /* pos := 3; */
-  l_pos = INTOBJ_INT(3);
-  
- }
- 
- /* else */
- else {
-  
-  /* info := false; */
-  t_1 = False;
-  l_info = t_1;
-  
-  /* pos := 2; */
-  l_pos = INTOBJ_INT(2);
-  
- }
- /* fi */
- 
- /* if arglist[pos] = true or IS_FUNCTION( arglist[pos] ) then */
- C_ELM_LIST_FPL( t_3, a_arglist, l_pos )
- t_4 = True;
- t_2 = (Obj)(UInt)(EQ( t_3, t_4 ));
- t_1 = t_2;
- if ( ! t_1 ) {
-  t_5 = GF_IS__FUNCTION;
-  C_ELM_LIST_FPL( t_6, a_arglist, l_pos )
-  if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-   t_4 = CALL_1ARGS( t_5, t_6 );
-  }
-  else {
-   t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( t_6 ) );
-  }
-  CHECK_FUNC_RESULT( t_4 );
-  CHECK_BOOL( t_4 );
-  t_3 = (Obj)(UInt)(t_4 != False);
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* rel := arglist[pos]; */
-  C_ELM_LIST_FPL( t_1, a_arglist, l_pos )
-  l_rel = t_1;
-  
-  /* pos := pos + 1; */
-  C_SUM_INTOBJS( t_1, l_pos, INTOBJ_INT(1) )
-  l_pos = t_1;
-  
- }
- 
- /* else */
- else {
-  
-  /* rel := true; */
-  t_1 = True;
-  l_rel = t_1;
-  
- }
- /* fi */
- 
- /* if not IsBound( arglist[pos] ) or not IS_LIST( arglist[pos] ) then */
- CHECK_INT_POS( l_pos );
- t_4 = C_ISB_LIST( a_arglist, l_pos );
- t_3 = (Obj)(UInt)(t_4 != False);
- t_2 = (Obj)(UInt)( ! ((Int)t_3) );
- t_1 = t_2;
- if ( ! t_1 ) {
-  t_6 = GF_IS__LIST;
-  C_ELM_LIST_FPL( t_7, a_arglist, l_pos )
-  if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-   t_5 = CALL_1ARGS( t_6, t_7 );
-  }
-  else {
-   t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( t_7 ) );
-  }
-  CHECK_FUNC_RESULT( t_5 );
-  CHECK_BOOL( t_5 );
-  t_4 = (Obj)(UInt)(t_5 != False);
-  t_3 = (Obj)(UInt)( ! ((Int)t_4) );
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* Error( "<arglist>[", pos, "] must be a list of filters" ); */
-  t_1 = GF_Error;
-  t_2 = MakeString( "<arglist>[" );
-  t_3 = MakeString( "] must be a list of filters" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_3ARGS( t_1, t_2, l_pos, t_3 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, l_pos, t_3 ) );
-  }
-  
- }
- /* fi */
- 
- /* filters := arglist[pos]; */
- C_ELM_LIST_FPL( t_1, a_arglist, l_pos )
- l_filters = t_1;
- 
- /* if GAPInfo.MaxNrArgsMethod < LEN_LIST( filters ) then */
- t_3 = GC_GAPInfo;
- CHECK_BOUND( t_3, "GAPInfo" );
- t_2 = ELM_REC( t_3, R_MaxNrArgsMethod );
- t_4 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, l_filters );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_filters ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- t_1 = (Obj)(UInt)(LT( t_2, t_3 ));
- if ( t_1 ) {
-  
-  /* Error( "methods can have at most ", GAPInfo.MaxNrArgsMethod, " arguments" ); */
-  t_1 = GF_Error;
-  t_2 = MakeString( "methods can have at most " );
-  t_4 = GC_GAPInfo;
-  CHECK_BOUND( t_4, "GAPInfo" );
-  t_3 = ELM_REC( t_4, R_MaxNrArgsMethod );
-  t_4 = MakeString( " arguments" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_3ARGS( t_1, t_2, t_3, t_4 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, t_4 ) );
-  }
-  
- }
- /* fi */
- 
- /* if 0 < LEN_LIST( filters ) then */
- t_3 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, l_filters );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_filters ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- t_1 = (Obj)(UInt)(LT( INTOBJ_INT(0), t_2 ));
- if ( t_1 ) {
-  
-  /* info1 := "[ "; */
-  t_1 = MakeString( "[ " );
-  l_info1 = t_1;
-  
-  /* isstr := true; */
-  t_1 = True;
-  l_isstr = t_1;
-  
-  /* for i in [ 1 .. LEN_LIST( filters ) ] do */
-  t_3 = GF_LEN__LIST;
-  if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-   t_2 = CALL_1ARGS( t_3, l_filters );
-  }
-  else {
-   t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_filters ) );
-  }
-  CHECK_FUNC_RESULT( t_2 );
-  CHECK_INT_SMALL( t_2 );
-  for ( t_1 = INTOBJ_INT(1);
-        ((Int)t_1) <= ((Int)t_2);
-        t_1 = (Obj)(((UInt)t_1)+4) ) {
-   l_i = t_1;
-   
-   /* if IS_STRING_REP( filters[i] ) then */
-   t_5 = GF_IS__STRING__REP;
-   C_ELM_LIST_FPL( t_6, l_filters, l_i )
-   if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-    t_4 = CALL_1ARGS( t_5, t_6 );
-   }
-   else {
-    t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( t_6 ) );
-   }
-   CHECK_FUNC_RESULT( t_4 );
-   CHECK_BOOL( t_4 );
-   t_3 = (Obj)(UInt)(t_4 != False);
-   if ( t_3 ) {
-    
-    /* APPEND_LIST_INTR( info1, filters[i] ); */
-    t_3 = GF_APPEND__LIST__INTR;
-    C_ELM_LIST_FPL( t_4, l_filters, l_i )
-    if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-     CALL_2ARGS( t_3, l_info1, t_4 );
-    }
-    else {
-     DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_info1, t_4 ) );
-    }
-    
-    /* APPEND_LIST_INTR( info1, ", " ); */
-    t_3 = GF_APPEND__LIST__INTR;
-    t_4 = MakeString( ", " );
-    if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-     CALL_2ARGS( t_3, l_info1, t_4 );
-    }
-    else {
-     DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_info1, t_4 ) );
-    }
-    
-    /* filters[i] := EvalString( filters[i] ); */
-    t_4 = GF_EvalString;
-    C_ELM_LIST_FPL( t_5, l_filters, l_i )
-    if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-     t_3 = CALL_1ARGS( t_4, t_5 );
-    }
-    else {
-     t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( t_5 ) );
-    }
-    CHECK_FUNC_RESULT( t_3 );
-    C_ASS_LIST_FPL( l_filters, l_i, t_3 )
-    
-    /* if not IS_FUNCTION( filters[i] ) then */
-    t_6 = GF_IS__FUNCTION;
-    C_ELM_LIST_FPL( t_7, l_filters, l_i )
-    if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-     t_5 = CALL_1ARGS( t_6, t_7 );
-    }
-    else {
-     t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( t_7 ) );
-    }
-    CHECK_FUNC_RESULT( t_5 );
-    CHECK_BOOL( t_5 );
-    t_4 = (Obj)(UInt)(t_5 != False);
-    t_3 = (Obj)(UInt)( ! ((Int)t_4) );
-    if ( t_3 ) {
-     
-     /* Error( "string does not evaluate to a function" ); */
-     t_3 = GF_Error;
-     t_4 = MakeString( "string does not evaluate to a function" );
-     if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-      CALL_1ARGS( t_3, t_4 );
-     }
-     else {
-      DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( t_4 ) );
-     }
-     
-    }
-    /* fi */
-    
-   }
-   
-   /* else */
-   else {
-    
-    /* isstr := false; */
-    t_3 = False;
-    l_isstr = t_3;
-    
-    /* break; */
-    break;
-    
-   }
-   /* fi */
-   
-  }
-  /* od */
-  
-  /* if isstr and info = false then */
-  t_2 = (Obj)(UInt)(l_isstr != False);
-  t_1 = t_2;
-  if ( t_1 ) {
-   t_4 = False;
-   t_3 = (Obj)(UInt)(EQ( l_info, t_4 ));
-   t_1 = t_3;
-  }
-  if ( t_1 ) {
-   
-   /* info1[LEN_LIST( info1 ) - 1] := ' '; */
-   t_3 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-    t_2 = CALL_1ARGS( t_3, l_info1 );
-   }
-   else {
-    t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_info1 ) );
-   }
-   CHECK_FUNC_RESULT( t_2 );
-   C_DIFF_FIA( t_1, t_2, INTOBJ_INT(1) )
-   CHECK_INT_POS( t_1 );
-   t_2 = ObjsChar[32];
-   C_ASS_LIST_FPL( l_info1, t_1, t_2 )
-   
-   /* info1[LEN_LIST( info1 )] := ']'; */
-   t_2 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-    t_1 = CALL_1ARGS( t_2, l_info1 );
-   }
-   else {
-    t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( l_info1 ) );
-   }
-   CHECK_FUNC_RESULT( t_1 );
-   CHECK_INT_POS( t_1 );
-   t_2 = ObjsChar[93];
-   C_ASS_LIST_FPL( l_info1, t_1, t_2 )
-   
-   /* info := info1; */
-   l_info = l_info1;
-   
-  }
-  /* fi */
-  
- }
- /* fi */
- 
- /* pos := pos + 1; */
- C_SUM_FIA( t_1, l_pos, INTOBJ_INT(1) )
- l_pos = t_1;
- 
- /* flags := [  ]; */
- t_1 = NEW_PLIST( T_PLIST, 0 );
- SET_LEN_PLIST( t_1, 0 );
- l_flags = t_1;
- 
- /* for i in filters do */
- t_4 = l_filters;
- if ( IS_SMALL_LIST(t_4) ) {
-  t_3 = (Obj)(UInt)1;
-  t_1 = INTOBJ_INT(1);
- }
- else {
-  t_3 = (Obj)(UInt)0;
-  t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
- }
- while ( 1 ) {
-  if ( t_3 ) {
-   if ( LEN_LIST(t_4) < Int_ObjInt(t_1) )  break;
-   t_2 = ELMV0_LIST( t_4, Int_ObjInt(t_1) );
-   t_1 = (Obj)(((UInt)t_1)+4);
-   if ( t_2 == 0 )  continue;
-  }
-  else {
-   if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
-   t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
-  }
-  l_i = t_2;
-  
-  /* ADD_LIST( flags, FLAGS_FILTER( i ) ); */
-  t_5 = GF_ADD__LIST;
-  t_7 = GF_FLAGS__FILTER;
-  if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-   t_6 = CALL_1ARGS( t_7, l_i );
-  }
-  else {
-   t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( l_i ) );
-  }
-  CHECK_FUNC_RESULT( t_6 );
-  if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-   CALL_2ARGS( t_5, l_flags, t_6 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_flags, t_6 ) );
-  }
-  
- }
- /* od */
- 
- /* if not IsBound( arglist[pos] ) then */
- CHECK_INT_POS( l_pos );
- t_3 = C_ISB_LIST( a_arglist, l_pos );
- t_2 = (Obj)(UInt)(t_3 != False);
- t_1 = (Obj)(UInt)( ! ((Int)t_2) );
- if ( t_1 ) {
-  
-  /* Error( "the method is missing in <arglist>" ); */
-  t_1 = GF_Error;
-  t_2 = MakeString( "the method is missing in <arglist>" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_1ARGS( t_1, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
-  }
-  
- }
- 
- /* elif IS_INT( arglist[pos] ) or IS_FUNCTION( arglist[pos] ) and NARG_FUNC( arglist[pos] ) = 0 and pos < LEN_LIST( arglist ) then */
- else {
-  t_4 = GF_IS__INT;
-  C_ELM_LIST_FPL( t_5, a_arglist, l_pos )
-  if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-   t_3 = CALL_1ARGS( t_4, t_5 );
-  }
-  else {
-   t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( t_5 ) );
-  }
-  CHECK_FUNC_RESULT( t_3 );
-  CHECK_BOOL( t_3 );
-  t_2 = (Obj)(UInt)(t_3 != False);
-  t_1 = t_2;
-  if ( ! t_1 ) {
-   t_7 = GF_IS__FUNCTION;
-   C_ELM_LIST_FPL( t_8, a_arglist, l_pos )
-   if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-    t_6 = CALL_1ARGS( t_7, t_8 );
-   }
-   else {
-    t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( t_8 ) );
-   }
-   CHECK_FUNC_RESULT( t_6 );
-   CHECK_BOOL( t_6 );
-   t_5 = (Obj)(UInt)(t_6 != False);
-   t_4 = t_5;
-   if ( t_4 ) {
-    t_8 = GF_NARG__FUNC;
-    C_ELM_LIST_FPL( t_9, a_arglist, l_pos )
-    if ( TNUM_OBJ( t_8 ) == T_FUNCTION ) {
-     t_7 = CALL_1ARGS( t_8, t_9 );
-    }
-    else {
-     t_7 = DoOperation2Args( CallFuncListOper, t_8, NewPlistFromArgs( t_9 ) );
-    }
-    CHECK_FUNC_RESULT( t_7 );
-    t_6 = (Obj)(UInt)(EQ( t_7, INTOBJ_INT(0) ));
-    t_4 = t_6;
-   }
-   t_3 = t_4;
-   if ( t_3 ) {
-    t_7 = GF_LEN__LIST;
-    if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-     t_6 = CALL_1ARGS( t_7, a_arglist );
-    }
-    else {
-     t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( a_arglist ) );
-    }
-    CHECK_FUNC_RESULT( t_6 );
-    t_5 = (Obj)(UInt)(LT( l_pos, t_6 ));
-    t_3 = t_5;
-   }
-   t_1 = t_3;
-  }
-  if ( t_1 ) {
-   
-   /* rank := arglist[pos]; */
-   C_ELM_LIST_FPL( t_1, a_arglist, l_pos )
-   l_rank = t_1;
-   
-   /* pos := pos + 1; */
-   C_SUM_FIA( t_1, l_pos, INTOBJ_INT(1) )
-   l_pos = t_1;
-   
-  }
-  
-  /* else */
-  else {
-   
-   /* rank := 0; */
-   l_rank = INTOBJ_INT(0);
-   
-  }
- }
- /* fi */
- 
- /* if not IsBound( arglist[pos] ) then */
- CHECK_INT_POS( l_pos );
- t_3 = C_ISB_LIST( a_arglist, l_pos );
- t_2 = (Obj)(UInt)(t_3 != False);
- t_1 = (Obj)(UInt)( ! ((Int)t_2) );
- if ( t_1 ) {
-  
-  /* Error( "the method is missing in <arglist>" ); */
-  t_1 = GF_Error;
-  t_2 = MakeString( "the method is missing in <arglist>" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_1ARGS( t_1, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
-  }
-  
- }
- /* fi */
- 
- /* method := arglist[pos]; */
- C_ELM_LIST_FPL( t_1, a_arglist, l_pos )
- l_method = t_1;
- 
- /* if FLAG1_FILTER( opr ) <> 0 and (rel = true or rel = RETURN_TRUE) and LEN_LIST( filters ) = 1 and (method = true or method = RETURN_TRUE) then */
- t_6 = GF_FLAG1__FILTER;
- if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-  t_5 = CALL_1ARGS( t_6, l_opr );
- }
- else {
-  t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( l_opr ) );
- }
- CHECK_FUNC_RESULT( t_5 );
- t_4 = (Obj)(UInt)( ! EQ( t_5, INTOBJ_INT(0) ));
- t_3 = t_4;
- if ( t_3 ) {
-  t_7 = True;
-  t_6 = (Obj)(UInt)(EQ( l_rel, t_7 ));
-  t_5 = t_6;
-  if ( ! t_5 ) {
-   t_8 = GC_RETURN__TRUE;
-   CHECK_BOUND( t_8, "RETURN_TRUE" );
-   t_7 = (Obj)(UInt)(EQ( l_rel, t_8 ));
-   t_5 = t_7;
-  }
-  t_3 = t_5;
- }
- t_2 = t_3;
- if ( t_2 ) {
-  t_6 = GF_LEN__LIST;
-  if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-   t_5 = CALL_1ARGS( t_6, l_filters );
-  }
-  else {
-   t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( l_filters ) );
-  }
-  CHECK_FUNC_RESULT( t_5 );
-  t_4 = (Obj)(UInt)(EQ( t_5, INTOBJ_INT(1) ));
-  t_2 = t_4;
- }
- t_1 = t_2;
- if ( t_1 ) {
-  t_5 = True;
-  t_4 = (Obj)(UInt)(EQ( l_method, t_5 ));
-  t_3 = t_4;
-  if ( ! t_3 ) {
-   t_6 = GC_RETURN__TRUE;
-   CHECK_BOUND( t_6, "RETURN_TRUE" );
-   t_5 = (Obj)(UInt)(EQ( l_method, t_6 ));
-   t_3 = t_5;
-  }
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* Error( NAME_FUNC( opr ), ": use `InstallTrueMethod' for <opr>" ); */
-  t_1 = GF_Error;
-  t_3 = GF_NAME__FUNC;
-  if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-   t_2 = CALL_1ARGS( t_3, l_opr );
-  }
-  else {
-   t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_opr ) );
-  }
-  CHECK_FUNC_RESULT( t_2 );
-  t_3 = MakeString( ": use `InstallTrueMethod' for <opr>" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_2ARGS( t_1, t_2, t_3 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
-  }
-  
- }
- /* fi */
- 
- /* if CHECK_INSTALL_METHOD and check then */
- t_3 = GC_CHECK__INSTALL__METHOD;
- CHECK_BOUND( t_3, "CHECK_INSTALL_METHOD" );
- CHECK_BOOL( t_3 );
- t_2 = (Obj)(UInt)(t_3 != False);
- t_1 = t_2;
- if ( t_1 ) {
-  CHECK_BOOL( a_check );
-  t_3 = (Obj)(UInt)(a_check != False);
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* if opr in WRAPPER_OPERATIONS then */
-  t_2 = GC_WRAPPER__OPERATIONS;
-  CHECK_BOUND( t_2, "WRAPPER_OPERATIONS" );
-  t_1 = (Obj)(UInt)(IN( l_opr, t_2 ));
-  if ( t_1 ) {
-   
-   /* INFO_DEBUG( 1, "a method is installed for the wrapper operation ", NAME_FUNC( opr ), "\n", "#I  probably it should be installed for (one of) its\n", "#I  underlying operation(s)" ); */
-   t_1 = GF_INFO__DEBUG;
-   t_2 = MakeString( "a method is installed for the wrapper operation " );
-   t_4 = GF_NAME__FUNC;
-   if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-    t_3 = CALL_1ARGS( t_4, l_opr );
-   }
-   else {
-    t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_opr ) );
-   }
-   CHECK_FUNC_RESULT( t_3 );
-   t_4 = MakeString( "\n" );
-   t_5 = MakeString( "#I  probably it should be installed for (one of) its\n" );
-   t_6 = MakeString( "#I  underlying operation(s)" );
-   if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-    CALL_6ARGS( t_1, INTOBJ_INT(1), t_2, t_3, t_4, t_5, t_6 );
-   }
-   else {
-    DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( INTOBJ_INT(1), t_2, t_3, t_4, t_5, t_6 ) );
-   }
-   
-  }
-  /* fi */
-  
-  /* req := GET_OPER_FLAGS( opr ); */
-  t_2 = GF_GET__OPER__FLAGS;
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_1ARGS( t_2, l_opr );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( l_opr ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  l_req = t_1;
-  
-  /* if req = fail then */
-  t_2 = GC_fail;
-  CHECK_BOUND( t_2, "fail" );
-  t_1 = (Obj)(UInt)(EQ( l_req, t_2 ));
-  if ( t_1 ) {
-   
-   /* Error( "unknown operation ", NAME_FUNC( opr ) ); */
-   t_1 = GF_Error;
-   t_2 = MakeString( "unknown operation " );
-   t_4 = GF_NAME__FUNC;
-   if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-    t_3 = CALL_1ARGS( t_4, l_opr );
-   }
-   else {
-    t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_opr ) );
-   }
-   CHECK_FUNC_RESULT( t_3 );
-   if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-    CALL_2ARGS( t_1, t_2, t_3 );
-   }
-   else {
-    DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
-   }
-   
-  }
-  /* fi */
-  
-  /* imp := [  ]; */
-  t_1 = NEW_PLIST( T_PLIST, 0 );
-  SET_LEN_PLIST( t_1, 0 );
-  l_imp = t_1;
-  
-  /* for i in flags do */
-  t_4 = l_flags;
-  if ( IS_SMALL_LIST(t_4) ) {
-   t_3 = (Obj)(UInt)1;
-   t_1 = INTOBJ_INT(1);
-  }
-  else {
-   t_3 = (Obj)(UInt)0;
-   t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
-  }
-  while ( 1 ) {
-   if ( t_3 ) {
-    if ( LEN_LIST(t_4) < Int_ObjInt(t_1) )  break;
-    t_2 = ELMV0_LIST( t_4, Int_ObjInt(t_1) );
-    t_1 = (Obj)(((UInt)t_1)+4);
-    if ( t_2 == 0 )  continue;
-   }
-   else {
-    if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
-    t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
-   }
-   l_i = t_2;
-   
-   /* if not GAPInfo.CommandLineOptions.N then */
-   t_9 = GC_GAPInfo;
-   CHECK_BOUND( t_9, "GAPInfo" );
-   t_8 = ELM_REC( t_9, R_CommandLineOptions );
-   t_7 = ELM_REC( t_8, R_N );
-   CHECK_BOOL( t_7 );
-   t_6 = (Obj)(UInt)(t_7 != False);
-   t_5 = (Obj)(UInt)( ! ((Int)t_6) );
-   if ( t_5 ) {
-    
-    /* ADD_LIST( imp, WITH_HIDDEN_IMPS_FLAGS( i ) ); */
-    t_5 = GF_ADD__LIST;
-    t_7 = GF_WITH__HIDDEN__IMPS__FLAGS;
-    if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-     t_6 = CALL_1ARGS( t_7, l_i );
-    }
-    else {
-     t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( l_i ) );
-    }
-    CHECK_FUNC_RESULT( t_6 );
-    if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-     CALL_2ARGS( t_5, l_imp, t_6 );
-    }
-    else {
-     DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_imp, t_6 ) );
-    }
-    
-   }
-   
-   /* else */
-   else {
-    
-    /* ADD_LIST( imp, WITH_IMPS_FLAGS( i ) ); */
-    t_5 = GF_ADD__LIST;
-    t_7 = GF_WITH__IMPS__FLAGS;
-    if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-     t_6 = CALL_1ARGS( t_7, l_i );
-    }
-    else {
-     t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( l_i ) );
-    }
-    CHECK_FUNC_RESULT( t_6 );
-    if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-     CALL_2ARGS( t_5, l_imp, t_6 );
-    }
-    else {
-     DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_imp, t_6 ) );
-    }
-    
-   }
-   /* fi */
-   
-  }
-  /* od */
-  
-  /* j := 0; */
-  l_j = INTOBJ_INT(0);
-  
-  /* match := false; */
-  t_1 = False;
-  l_match = t_1;
-  
-  /* notmatch := 0; */
-  l_notmatch = INTOBJ_INT(0);
-  
-  /* while j < LEN_LIST( req ) and not match do */
-  while ( 1 ) {
-   t_4 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-    t_3 = CALL_1ARGS( t_4, l_req );
-   }
-   else {
-    t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_req ) );
-   }
-   CHECK_FUNC_RESULT( t_3 );
-   t_2 = (Obj)(UInt)(LT( l_j, t_3 ));
-   t_1 = t_2;
-   if ( t_1 ) {
-    t_4 = (Obj)(UInt)(l_match != False);
-    t_3 = (Obj)(UInt)( ! ((Int)t_4) );
-    t_1 = t_3;
-   }
-   if ( ! t_1 ) break;
-   
-   /* j := j + 1; */
-   C_SUM_FIA( t_1, l_j, INTOBJ_INT(1) )
-   l_j = t_1;
-   
-   /* reqs := req[j]; */
-   CHECK_INT_POS( l_j );
-   C_ELM_LIST_FPL( t_1, l_req, l_j )
-   l_reqs = t_1;
-   
-   /* if LEN_LIST( reqs ) = LEN_LIST( imp ) then */
-   t_3 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-    t_2 = CALL_1ARGS( t_3, l_reqs );
-   }
-   else {
-    t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_reqs ) );
-   }
-   CHECK_FUNC_RESULT( t_2 );
-   t_4 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-    t_3 = CALL_1ARGS( t_4, l_imp );
-   }
-   else {
-    t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_imp ) );
-   }
-   CHECK_FUNC_RESULT( t_3 );
-   t_1 = (Obj)(UInt)(EQ( t_2, t_3 ));
-   if ( t_1 ) {
-    
-    /* match := true; */
-    t_1 = True;
-    l_match = t_1;
-    
-    /* for i in [ 1 .. LEN_LIST( reqs ) ] do */
-    t_3 = GF_LEN__LIST;
-    if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-     t_2 = CALL_1ARGS( t_3, l_reqs );
-    }
-    else {
-     t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_reqs ) );
-    }
-    CHECK_FUNC_RESULT( t_2 );
-    CHECK_INT_SMALL( t_2 );
-    for ( t_1 = INTOBJ_INT(1);
-          ((Int)t_1) <= ((Int)t_2);
-          t_1 = (Obj)(((UInt)t_1)+4) ) {
-     l_i = t_1;
-     
-     /* if not IS_SUBSET_FLAGS( imp[i], reqs[i] ) then */
-     t_6 = GF_IS__SUBSET__FLAGS;
-     C_ELM_LIST_FPL( t_7, l_imp, l_i )
-     C_ELM_LIST_FPL( t_8, l_reqs, l_i )
-     if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-      t_5 = CALL_2ARGS( t_6, t_7, t_8 );
-     }
-     else {
-      t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( t_7, t_8 ) );
-     }
-     CHECK_FUNC_RESULT( t_5 );
-     CHECK_BOOL( t_5 );
-     t_4 = (Obj)(UInt)(t_5 != False);
-     t_3 = (Obj)(UInt)( ! ((Int)t_4) );
-     if ( t_3 ) {
-      
-      /* match := false; */
-      t_3 = False;
-      l_match = t_3;
-      
-      /* notmatch := i; */
-      l_notmatch = l_i;
-      
-      /* break; */
-      break;
-      
-     }
-     /* fi */
-     
-    }
-    /* od */
-    
-    /* if match then */
-    t_1 = (Obj)(UInt)(l_match != False);
-    if ( t_1 ) {
-     
-     /* break; */
-     break;
-     
-    }
-    /* fi */
-    
-   }
-   /* fi */
-   
-  }
-  /* od */
-  
-  /* if not match then */
-  t_2 = (Obj)(UInt)(l_match != False);
-  t_1 = (Obj)(UInt)( ! ((Int)t_2) );
-  if ( t_1 ) {
-   
-   /* if notmatch = 0 then */
-   t_1 = (Obj)(UInt)(((Int)l_notmatch) == ((Int)INTOBJ_INT(0)));
-   if ( t_1 ) {
-    
-    /* if not GAPInfo.CommandLineOptions.N then */
-    t_5 = GC_GAPInfo;
-    CHECK_BOUND( t_5, "GAPInfo" );
-    t_4 = ELM_REC( t_5, R_CommandLineOptions );
-    t_3 = ELM_REC( t_4, R_N );
-    CHECK_BOOL( t_3 );
-    t_2 = (Obj)(UInt)(t_3 != False);
-    t_1 = (Obj)(UInt)( ! ((Int)t_2) );
-    if ( t_1 ) {
-     
-     /* Error( "the number of arguments does not match a declaration of ", NAME_FUNC( opr ) ); */
-     t_1 = GF_Error;
-     t_2 = MakeString( "the number of arguments does not match a declaration of " );
-     t_4 = GF_NAME__FUNC;
-     if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-      t_3 = CALL_1ARGS( t_4, l_opr );
-     }
-     else {
-      t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_opr ) );
-     }
-     CHECK_FUNC_RESULT( t_3 );
-     if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-      CALL_2ARGS( t_1, t_2, t_3 );
-     }
-     else {
-      DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
-     }
-     
-    }
-    
-    /* else */
-    else {
-     
-     /* Print( "InstallMethod warning:  nr of args does not ", "match a declaration of ", NAME_FUNC( opr ), "\n" ); */
-     t_1 = GF_Print;
-     t_2 = MakeString( "InstallMethod warning:  nr of args does not " );
-     t_3 = MakeString( "match a declaration of " );
-     t_5 = GF_NAME__FUNC;
-     if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-      t_4 = CALL_1ARGS( t_5, l_opr );
-     }
-     else {
-      t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_opr ) );
-     }
-     CHECK_FUNC_RESULT( t_4 );
-     t_5 = MakeString( "\n" );
-     if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-      CALL_4ARGS( t_1, t_2, t_3, t_4, t_5 );
-     }
-     else {
-      DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, t_4, t_5 ) );
-     }
-     
-    }
-    /* fi */
-    
-   }
-   
-   /* else */
-   else {
-    
-    /* if not GAPInfo.CommandLineOptions.N then */
-    t_5 = GC_GAPInfo;
-    CHECK_BOUND( t_5, "GAPInfo" );
-    t_4 = ELM_REC( t_5, R_CommandLineOptions );
-    t_3 = ELM_REC( t_4, R_N );
-    CHECK_BOOL( t_3 );
-    t_2 = (Obj)(UInt)(t_3 != False);
-    t_1 = (Obj)(UInt)( ! ((Int)t_2) );
-    if ( t_1 ) {
-     
-     /* Error( "required filters ", NamesFilter( imp[notmatch] ), "\nfor ", Ordinal( notmatch ), " argument do not match a declaration of ", NAME_FUNC( opr ) ); */
-     t_1 = GF_Error;
-     t_2 = MakeString( "required filters " );
-     t_4 = GF_NamesFilter;
-     CHECK_INT_POS( l_notmatch );
-     C_ELM_LIST_FPL( t_5, l_imp, l_notmatch )
-     if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-      t_3 = CALL_1ARGS( t_4, t_5 );
-     }
-     else {
-      t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( t_5 ) );
-     }
-     CHECK_FUNC_RESULT( t_3 );
-     t_4 = MakeString( "\nfor " );
-     t_6 = GF_Ordinal;
-     if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-      t_5 = CALL_1ARGS( t_6, l_notmatch );
-     }
-     else {
-      t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( l_notmatch ) );
-     }
-     CHECK_FUNC_RESULT( t_5 );
-     t_6 = MakeString( " argument do not match a declaration of " );
-     t_8 = GF_NAME__FUNC;
-     if ( TNUM_OBJ( t_8 ) == T_FUNCTION ) {
-      t_7 = CALL_1ARGS( t_8, l_opr );
-     }
-     else {
-      t_7 = DoOperation2Args( CallFuncListOper, t_8, NewPlistFromArgs( l_opr ) );
-     }
-     CHECK_FUNC_RESULT( t_7 );
-     if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-      CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, t_6, t_7 );
-     }
-     else {
-      DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, t_4, t_5, t_6, t_7 ) );
-     }
-     
-    }
-    
-    /* else */
-    else {
-     
-     /* Print( "InstallMethod warning: ", NAME_FUNC( opr ), " at \c", INPUT_FILENAME(  ), ":", INPUT_LINENUMBER(  ), " \c", "required filter \c", NAME_FUNC( filters[notmatch] ), " for ", Ordinal( notmatch ), " argument does not match any ", 
- "declaration\n" ); */
-     t_1 = GF_Print;
-     t_2 = NEW_PLIST( T_PLIST, 13 );
-     SET_LEN_PLIST( t_2, 13 );
-     t_3 = MakeString( "InstallMethod warning: " );
-     SET_ELM_PLIST( t_2, 1, t_3 );
-     CHANGED_BAG( t_2 );
-     t_4 = GF_NAME__FUNC;
-     if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-      t_3 = CALL_1ARGS( t_4, l_opr );
-     }
-     else {
-      t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_opr ) );
-     }
-     CHECK_FUNC_RESULT( t_3 );
-     SET_ELM_PLIST( t_2, 2, t_3 );
-     CHANGED_BAG( t_2 );
-     t_3 = MakeString( " at \03" );
-     SET_ELM_PLIST( t_2, 3, t_3 );
-     CHANGED_BAG( t_2 );
-     t_4 = GF_INPUT__FILENAME;
-     if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-      t_3 = CALL_0ARGS( t_4 );
-     }
-     else {
-      t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( ) );
-     }
-     CHECK_FUNC_RESULT( t_3 );
-     SET_ELM_PLIST( t_2, 4, t_3 );
-     CHANGED_BAG( t_2 );
-     t_3 = MakeString( ":" );
-     SET_ELM_PLIST( t_2, 5, t_3 );
-     CHANGED_BAG( t_2 );
-     t_4 = GF_INPUT__LINENUMBER;
-     if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-      t_3 = CALL_0ARGS( t_4 );
-     }
-     else {
-      t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( ) );
-     }
-     CHECK_FUNC_RESULT( t_3 );
-     SET_ELM_PLIST( t_2, 6, t_3 );
-     CHANGED_BAG( t_2 );
-     t_3 = MakeString( " \03" );
-     SET_ELM_PLIST( t_2, 7, t_3 );
-     CHANGED_BAG( t_2 );
-     t_3 = MakeString( "required filter \03" );
-     SET_ELM_PLIST( t_2, 8, t_3 );
-     CHANGED_BAG( t_2 );
-     t_4 = GF_NAME__FUNC;
-     CHECK_INT_POS( l_notmatch );
-     C_ELM_LIST_FPL( t_5, l_filters, l_notmatch )
-     if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-      t_3 = CALL_1ARGS( t_4, t_5 );
-     }
-     else {
-      t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( t_5 ) );
-     }
-     CHECK_FUNC_RESULT( t_3 );
-     SET_ELM_PLIST( t_2, 9, t_3 );
-     CHANGED_BAG( t_2 );
-     t_3 = MakeString( " for " );
-     SET_ELM_PLIST( t_2, 10, t_3 );
-     CHANGED_BAG( t_2 );
-     t_4 = GF_Ordinal;
-     if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-      t_3 = CALL_1ARGS( t_4, l_notmatch );
-     }
-     else {
-      t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_notmatch ) );
-     }
-     CHECK_FUNC_RESULT( t_3 );
-     SET_ELM_PLIST( t_2, 11, t_3 );
-     CHANGED_BAG( t_2 );
-     t_3 = MakeString( " argument does not match any " );
-     SET_ELM_PLIST( t_2, 12, t_3 );
-     CHANGED_BAG( t_2 );
-     t_3 = MakeString( "declaration\n" );
-     SET_ELM_PLIST( t_2, 13, t_3 );
-     CHANGED_BAG( t_2 );
-     if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-      CALL_XARGS( t_1, t_2 );
-     }
-     else {
-      DoOperation2Args( CallFuncListOper, t_1, t_2 );
-     }
-     
-    }
-    /* fi */
-    
-   }
-   /* fi */
-   
-  }
-  
-  /* else */
-  else {
-   
-   /* oreqs := reqs; */
-   l_oreqs = l_reqs;
-   
-   /* for k in [ j + 1 .. LEN_LIST( req ) ] do */
-   C_SUM_FIA( t_2, l_j, INTOBJ_INT(1) )
-   CHECK_INT_SMALL( t_2 );
-   t_4 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-    t_3 = CALL_1ARGS( t_4, l_req );
-   }
-   else {
-    t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_req ) );
-   }
-   CHECK_FUNC_RESULT( t_3 );
-   CHECK_INT_SMALL( t_3 );
-   for ( t_1 = t_2;
-         ((Int)t_1) <= ((Int)t_3);
-         t_1 = (Obj)(((UInt)t_1)+4) ) {
-    l_k = t_1;
-    
-    /* reqs := req[k]; */
-    CHECK_INT_POS( l_k );
-    C_ELM_LIST_FPL( t_4, l_req, l_k )
-    l_reqs = t_4;
-    
-    /* if LEN_LIST( reqs ) = LEN_LIST( imp ) then */
-    t_6 = GF_LEN__LIST;
-    if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-     t_5 = CALL_1ARGS( t_6, l_reqs );
-    }
-    else {
-     t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( l_reqs ) );
-    }
-    CHECK_FUNC_RESULT( t_5 );
-    t_7 = GF_LEN__LIST;
-    if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-     t_6 = CALL_1ARGS( t_7, l_imp );
-    }
-    else {
-     t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( l_imp ) );
-    }
-    CHECK_FUNC_RESULT( t_6 );
-    t_4 = (Obj)(UInt)(EQ( t_5, t_6 ));
-    if ( t_4 ) {
-     
-     /* match := true; */
-     t_4 = True;
-     l_match = t_4;
-     
-     /* for i in [ 1 .. LEN_LIST( reqs ) ] do */
-     t_6 = GF_LEN__LIST;
-     if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-      t_5 = CALL_1ARGS( t_6, l_reqs );
-     }
-     else {
-      t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( l_reqs ) );
-     }
-     CHECK_FUNC_RESULT( t_5 );
-     CHECK_INT_SMALL( t_5 );
-     for ( t_4 = INTOBJ_INT(1);
-           ((Int)t_4) <= ((Int)t_5);
-           t_4 = (Obj)(((UInt)t_4)+4) ) {
-      l_i = t_4;
-      
-      /* if not IS_SUBSET_FLAGS( imp[i], reqs[i] ) then */
-      t_9 = GF_IS__SUBSET__FLAGS;
-      C_ELM_LIST_FPL( t_10, l_imp, l_i )
-      C_ELM_LIST_FPL( t_11, l_reqs, l_i )
-      if ( TNUM_OBJ( t_9 ) == T_FUNCTION ) {
-       t_8 = CALL_2ARGS( t_9, t_10, t_11 );
-      }
-      else {
-       t_8 = DoOperation2Args( CallFuncListOper, t_9, NewPlistFromArgs( t_10, t_11 ) );
-      }
-      CHECK_FUNC_RESULT( t_8 );
-      CHECK_BOOL( t_8 );
-      t_7 = (Obj)(UInt)(t_8 != False);
-      t_6 = (Obj)(UInt)( ! ((Int)t_7) );
-      if ( t_6 ) {
-       
-       /* match := false; */
-       t_6 = False;
-       l_match = t_6;
-       
-       /* break; */
-       break;
-       
-      }
-      /* fi */
-      
-     }
-     /* od */
-     
-     /* if match and reqs <> oreqs then */
-     t_5 = (Obj)(UInt)(l_match != False);
-     t_4 = t_5;
-     if ( t_4 ) {
-      t_6 = (Obj)(UInt)( ! EQ( l_reqs, l_oreqs ));
-      t_4 = t_6;
-     }
-     if ( t_4 ) {
-      
-      /* INFO_DEBUG( 1, "method installed for ", NAME_FUNC( opr ), " matches more than one declaration" ); */
-      t_4 = GF_INFO__DEBUG;
-      t_5 = MakeString( "method installed for " );
-      t_7 = GF_NAME__FUNC;
-      if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-       t_6 = CALL_1ARGS( t_7, l_opr );
-      }
-      else {
-       t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( l_opr ) );
-      }
-      CHECK_FUNC_RESULT( t_6 );
-      t_7 = MakeString( " matches more than one declaration" );
-      if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-       CALL_4ARGS( t_4, INTOBJ_INT(1), t_5, t_6, t_7 );
-      }
-      else {
-       DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( INTOBJ_INT(1), t_5, t_6, t_7 ) );
-      }
-      
-     }
-     /* fi */
-     
-    }
-    /* fi */
-    
-   }
-   /* od */
-   
-  }
-  /* fi */
-  
- }
- /* fi */
- 
- /* if IS_FUNCTION( method ) and IsBound( HasNameFunction ) and IsBound( TYPE_FUNCTION_WITH_NAME ) and IsBound( TYPE_OPERATION_WITH_NAME ) and not VAL_GVAR( "HasNameFunction" )( method ) then */
- t_7 = GF_IS__FUNCTION;
- if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-  t_6 = CALL_1ARGS( t_7, l_method );
- }
- else {
-  t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( l_method ) );
- }
- CHECK_FUNC_RESULT( t_6 );
- CHECK_BOOL( t_6 );
- t_5 = (Obj)(UInt)(t_6 != False);
- t_4 = t_5;
- if ( t_4 ) {
-  t_8 = GC_HasNameFunction;
-  t_7 = ((t_8 != 0) ? True : False);
-  t_6 = (Obj)(UInt)(t_7 != False);
-  t_4 = t_6;
- }
- t_3 = t_4;
- if ( t_3 ) {
-  t_7 = GC_TYPE__FUNCTION__WITH__NAME;
-  t_6 = ((t_7 != 0) ? True : False);
-  t_5 = (Obj)(UInt)(t_6 != False);
-  t_3 = t_5;
- }
- t_2 = t_3;
- if ( t_2 ) {
-  t_6 = GC_TYPE__OPERATION__WITH__NAME;
-  t_5 = ((t_6 != 0) ? True : False);
-  t_4 = (Obj)(UInt)(t_5 != False);
-  t_2 = t_4;
- }
- t_1 = t_2;
- if ( t_1 ) {
-  t_7 = GF_VAL__GVAR;
-  t_8 = MakeString( "HasNameFunction" );
-  if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-   t_6 = CALL_1ARGS( t_7, t_8 );
-  }
-  else {
-   t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( t_8 ) );
-  }
-  CHECK_FUNC_RESULT( t_6 );
-  if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-   t_5 = CALL_1ARGS( t_6, l_method );
-  }
-  else {
-   t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( l_method ) );
-  }
-  CHECK_FUNC_RESULT( t_5 );
-  CHECK_BOOL( t_5 );
-  t_4 = (Obj)(UInt)(t_5 != False);
-  t_3 = (Obj)(UInt)( ! ((Int)t_4) );
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* funcname := SHALLOW_COPY_OBJ( NAME_FUNC( opr ) ); */
-  t_2 = GF_SHALLOW__COPY__OBJ;
-  t_4 = GF_NAME__FUNC;
-  if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-   t_3 = CALL_1ARGS( t_4, l_opr );
-  }
-  else {
-   t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_opr ) );
-  }
-  CHECK_FUNC_RESULT( t_3 );
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_1ARGS( t_2, t_3 );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( t_3 ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  l_funcname = t_1;
-  
-  /* APPEND_LIST_INTR( funcname, " " ); */
-  t_1 = GF_APPEND__LIST__INTR;
-  t_2 = MakeString( " " );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_2ARGS( t_1, l_funcname, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_funcname, t_2 ) );
-  }
-  
-  /* if info <> false then */
-  t_2 = False;
-  t_1 = (Obj)(UInt)( ! EQ( l_info, t_2 ));
-  if ( t_1 ) {
-   
-   /* APPEND_LIST_INTR( funcname, info ); */
-   t_1 = GF_APPEND__LIST__INTR;
-   if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-    CALL_2ARGS( t_1, l_funcname, l_info );
-   }
-   else {
-    DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_funcname, l_info ) );
-   }
-   
-  }
-  
-  /* else */
-  else {
-   
-   /* APPEND_LIST_INTR( funcname, "method" ); */
-   t_1 = GF_APPEND__LIST__INTR;
-   t_2 = MakeString( "method" );
-   if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-    CALL_2ARGS( t_1, l_funcname, t_2 );
-   }
-   else {
-    DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_funcname, t_2 ) );
-   }
-   
-  }
-  /* fi */
-  
-  /* SET_NAME_FUNC( method, funcname ); */
-  t_1 = GF_SET__NAME__FUNC;
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_2ARGS( t_1, l_method, l_funcname );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_method, l_funcname ) );
-  }
-  
- }
- /* fi */
- 
- /* if IS_FUNCTION( rank ) and IsBound( HasNameFunction ) and IsBound( TYPE_FUNCTION_WITH_NAME ) and IsBound( TYPE_OPERATION_WITH_NAME ) and not VAL_GVAR( "HasNameFunction" )( rank ) then */
- t_7 = GF_IS__FUNCTION;
- CHECK_BOUND( l_rank, "rank" );
- if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-  t_6 = CALL_1ARGS( t_7, l_rank );
- }
- else {
-  t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( l_rank ) );
- }
- CHECK_FUNC_RESULT( t_6 );
- CHECK_BOOL( t_6 );
- t_5 = (Obj)(UInt)(t_6 != False);
- t_4 = t_5;
- if ( t_4 ) {
-  t_8 = GC_HasNameFunction;
-  t_7 = ((t_8 != 0) ? True : False);
-  t_6 = (Obj)(UInt)(t_7 != False);
-  t_4 = t_6;
- }
- t_3 = t_4;
- if ( t_3 ) {
-  t_7 = GC_TYPE__FUNCTION__WITH__NAME;
-  t_6 = ((t_7 != 0) ? True : False);
-  t_5 = (Obj)(UInt)(t_6 != False);
-  t_3 = t_5;
- }
- t_2 = t_3;
- if ( t_2 ) {
-  t_6 = GC_TYPE__OPERATION__WITH__NAME;
-  t_5 = ((t_6 != 0) ? True : False);
-  t_4 = (Obj)(UInt)(t_5 != False);
-  t_2 = t_4;
- }
- t_1 = t_2;
- if ( t_1 ) {
-  t_7 = GF_VAL__GVAR;
-  t_8 = MakeString( "HasNameFunction" );
-  if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-   t_6 = CALL_1ARGS( t_7, t_8 );
-  }
-  else {
-   t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( t_8 ) );
-  }
-  CHECK_FUNC_RESULT( t_6 );
-  if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-   t_5 = CALL_1ARGS( t_6, l_rank );
-  }
-  else {
-   t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( l_rank ) );
-  }
-  CHECK_FUNC_RESULT( t_5 );
-  CHECK_BOOL( t_5 );
-  t_4 = (Obj)(UInt)(t_5 != False);
-  t_3 = (Obj)(UInt)( ! ((Int)t_4) );
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* funcname := "Priority calculation for "; */
-  t_1 = MakeString( "Priority calculation for " );
-  l_funcname = t_1;
-  
-  /* APPEND_LIST_INTR( funcname, NAME_FUNC( opr ) ); */
-  t_1 = GF_APPEND__LIST__INTR;
-  t_3 = GF_NAME__FUNC;
-  if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-   t_2 = CALL_1ARGS( t_3, l_opr );
-  }
-  else {
-   t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_opr ) );
-  }
-  CHECK_FUNC_RESULT( t_2 );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_2ARGS( t_1, l_funcname, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_funcname, t_2 ) );
-  }
-  
-  /* if info <> false then */
-  t_2 = False;
-  t_1 = (Obj)(UInt)( ! EQ( l_info, t_2 ));
-  if ( t_1 ) {
-   
-   /* APPEND_LIST_INTR( funcname, " " ); */
-   t_1 = GF_APPEND__LIST__INTR;
-   t_2 = MakeString( " " );
-   if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-    CALL_2ARGS( t_1, l_funcname, t_2 );
-   }
-   else {
-    DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_funcname, t_2 ) );
-   }
-   
-   /* APPEND_LIST_INTR( funcname, info ); */
-   t_1 = GF_APPEND__LIST__INTR;
-   if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-    CALL_2ARGS( t_1, l_funcname, l_info );
-   }
-   else {
-    DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_funcname, l_info ) );
-   }
-   
-  }
-  /* fi */
-  
-  /* SET_NAME_FUNC( rank, funcname ); */
-  t_1 = GF_SET__NAME__FUNC;
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_2ARGS( t_1, l_rank, l_funcname );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_rank, l_funcname ) );
-  }
-  
- }
- /* fi */
- 
- /* INSTALL_METHOD_FLAGS( opr, info, rel, flags, rank, method ); */
- t_1 = GF_INSTALL__METHOD__FLAGS;
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_6ARGS( t_1, l_opr, l_info, l_rel, l_flags, l_rank, l_method );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_opr, l_info, l_rel, l_flags, l_rank, l_method ) );
- }
- 
- /* UNLOCK( lk ); */
- t_1 = GF_UNLOCK;
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_1ARGS( t_1, l_lk );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_lk ) );
- }
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 8 */
-static Obj  HdlrFunc8 (
- Obj  self,
- Obj  a_obj )
-{
- Obj l_found = 0;
- Obj l_prop = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- Obj t_7 = 0;
- Obj t_8 = 0;
- Obj t_9 = 0;
- Obj t_10 = 0;
- Obj t_11 = 0;
- (void)l_found;
- (void)l_prop;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* found := false; */
- t_1 = False;
- l_found = t_1;
- 
- /* for prop in props do */
- t_4 = OBJ_HVAR( (1 << 16) | 2 );
- CHECK_BOUND( t_4, "props" );
- if ( IS_SMALL_LIST(t_4) ) {
-  t_3 = (Obj)(UInt)1;
-  t_1 = INTOBJ_INT(1);
- }
- else {
-  t_3 = (Obj)(UInt)0;
-  t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
- }
- while ( 1 ) {
-  if ( t_3 ) {
-   if ( LEN_LIST(t_4) < Int_ObjInt(t_1) )  break;
-   t_2 = ELMV0_LIST( t_4, Int_ObjInt(t_1) );
-   t_1 = (Obj)(((UInt)t_1)+4);
-   if ( t_2 == 0 )  continue;
-  }
-  else {
-   if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
-   t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
-  }
-  l_prop = t_2;
-  
-  /* if not Tester( prop )( obj ) then */
-  t_9 = GF_Tester;
-  if ( TNUM_OBJ( t_9 ) == T_FUNCTION ) {
-   t_8 = CALL_1ARGS( t_9, l_prop );
-  }
-  else {
-   t_8 = DoOperation2Args( CallFuncListOper, t_9, NewPlistFromArgs( l_prop ) );
-  }
-  CHECK_FUNC_RESULT( t_8 );
-  if ( TNUM_OBJ( t_8 ) == T_FUNCTION ) {
-   t_7 = CALL_1ARGS( t_8, a_obj );
-  }
-  else {
-   t_7 = DoOperation2Args( CallFuncListOper, t_8, NewPlistFromArgs( a_obj ) );
-  }
-  CHECK_FUNC_RESULT( t_7 );
-  CHECK_BOOL( t_7 );
-  t_6 = (Obj)(UInt)(t_7 != False);
-  t_5 = (Obj)(UInt)( ! ((Int)t_6) );
-  if ( t_5 ) {
-   
-   /* found := true; */
-   t_5 = True;
-   l_found = t_5;
-   
-   /* if not (prop( obj ) and Tester( prop )( obj )) then */
-   if ( TNUM_OBJ( l_prop ) == T_FUNCTION ) {
-    t_8 = CALL_1ARGS( l_prop, a_obj );
-   }
-   else {
-    t_8 = DoOperation2Args( CallFuncListOper, l_prop, NewPlistFromArgs( a_obj ) );
-   }
-   CHECK_FUNC_RESULT( t_8 );
-   CHECK_BOOL( t_8 );
-   t_7 = (Obj)(UInt)(t_8 != False);
-   t_6 = t_7;
-   if ( t_6 ) {
-    t_11 = GF_Tester;
-    if ( TNUM_OBJ( t_11 ) == T_FUNCTION ) {
-     t_10 = CALL_1ARGS( t_11, l_prop );
-    }
-    else {
-     t_10 = DoOperation2Args( CallFuncListOper, t_11, NewPlistFromArgs( l_prop ) );
-    }
-    CHECK_FUNC_RESULT( t_10 );
-    if ( TNUM_OBJ( t_10 ) == T_FUNCTION ) {
-     t_9 = CALL_1ARGS( t_10, a_obj );
-    }
-    else {
-     t_9 = DoOperation2Args( CallFuncListOper, t_10, NewPlistFromArgs( a_obj ) );
-    }
-    CHECK_FUNC_RESULT( t_9 );
-    CHECK_BOOL( t_9 );
-    t_8 = (Obj)(UInt)(t_9 != False);
-    t_6 = t_8;
-   }
-   t_5 = (Obj)(UInt)( ! ((Int)t_6) );
-   if ( t_5 ) {
-    
-    /* TryNextMethod(); */
-    t_5 = GC_TRY__NEXT__METHOD;
-    CHECK_BOUND( t_5, "TRY_NEXT_METHOD" );
-    SWITCH_TO_OLD_FRAME(oldFrame);
-    return t_5;
-    
-   }
-   /* fi */
-   
-  }
-  /* fi */
-  
- }
- /* od */
- 
- /* if found then */
- t_1 = (Obj)(UInt)(l_found != False);
- if ( t_1 ) {
-  
-  /* return getter( obj ); */
-  t_2 = OBJ_HVAR( (1 << 16) | 1 );
-  CHECK_BOUND( t_2, "getter" );
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_1ARGS( t_2, a_obj );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_obj ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  SWITCH_TO_OLD_FRAME(oldFrame);
-  return t_1;
-  
- }
- 
- /* else */
- else {
-  
-  /* TryNextMethod(); */
-  t_1 = GC_TRY__NEXT__METHOD;
-  CHECK_BOUND( t_1, "TRY_NEXT_METHOD" );
-  SWITCH_TO_OLD_FRAME(oldFrame);
-  return t_1;
-  
- }
- /* fi */
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 7 */
-static Obj  HdlrFunc7 (
- Obj  self,
- Obj  a_name,
- Obj  a_filter,
- Obj  a_getter,
- Obj  a_setter,
- Obj  a_tester,
- Obj  a_mutflag )
-{
- Obj l_flags = 0;
- Obj l_rank = 0;
- Obj l_cats = 0;
- Obj l_i = 0;
- Obj l_lk = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- Obj t_7 = 0;
- Obj t_8 = 0;
- Obj t_9 = 0;
- (void)l_flags;
- (void)l_rank;
- (void)l_cats;
- (void)l_i;
- (void)l_lk;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,2,0,oldFrame);
- MakeHighVars(STATE(CurrLVars));
- ASS_LVAR( 1, a_getter );
- 
- /* if not IS_IDENTICAL_OBJ( filter, IS_OBJECT ) then */
- t_4 = GF_IS__IDENTICAL__OBJ;
- t_5 = GC_IS__OBJECT;
- CHECK_BOUND( t_5, "IS_OBJECT" );
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_2ARGS( t_4, a_filter, t_5 );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( a_filter, t_5 ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- CHECK_BOOL( t_3 );
- t_2 = (Obj)(UInt)(t_3 != False);
- t_1 = (Obj)(UInt)( ! ((Int)t_2) );
- if ( t_1 ) {
-  
-  /* flags := FLAGS_FILTER( filter ); */
-  t_2 = GF_FLAGS__FILTER;
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_1ARGS( t_2, a_filter );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_filter ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  l_flags = t_1;
-  
-  /* rank := 0; */
-  l_rank = INTOBJ_INT(0);
-  
-  /* cats := IS_OBJECT; */
-  t_1 = GC_IS__OBJECT;
-  CHECK_BOUND( t_1, "IS_OBJECT" );
-  l_cats = t_1;
-  
-  /* props := [  ]; */
-  t_1 = NEW_PLIST( T_PLIST, 0 );
-  SET_LEN_PLIST( t_1, 0 );
-  ASS_LVAR( 2, t_1 );
-  
-  /* lk := READ_LOCK( FILTER_REGION ); */
-  t_2 = GF_READ__LOCK;
-  t_3 = GC_FILTER__REGION;
-  CHECK_BOUND( t_3, "FILTER_REGION" );
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_1ARGS( t_2, t_3 );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( t_3 ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  l_lk = t_1;
-  
-  /* for i in TRUES_FLAGS( flags ) do */
-  t_5 = GF_TRUES__FLAGS;
-  if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-   t_4 = CALL_1ARGS( t_5, l_flags );
-  }
-  else {
-   t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_flags ) );
-  }
-  CHECK_FUNC_RESULT( t_4 );
-  if ( IS_SMALL_LIST(t_4) ) {
-   t_3 = (Obj)(UInt)1;
-   t_1 = INTOBJ_INT(1);
-  }
-  else {
-   t_3 = (Obj)(UInt)0;
-   t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
-  }
-  while ( 1 ) {
-   if ( t_3 ) {
-    if ( LEN_LIST(t_4) < Int_ObjInt(t_1) )  break;
-    t_2 = ELMV0_LIST( t_4, Int_ObjInt(t_1) );
-    t_1 = (Obj)(((UInt)t_1)+4);
-    if ( t_2 == 0 )  continue;
-   }
-   else {
-    if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
-    t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
-   }
-   l_i = t_2;
-   
-   /* if INFO_FILTERS[i] in FNUM_CATS_AND_REPS then */
-   t_7 = GC_INFO__FILTERS;
-   CHECK_BOUND( t_7, "INFO_FILTERS" );
-   CHECK_INT_POS( l_i );
-   C_ELM_LIST_FPL( t_6, t_7, l_i )
-   t_7 = GC_FNUM__CATS__AND__REPS;
-   CHECK_BOUND( t_7, "FNUM_CATS_AND_REPS" );
-   t_5 = (Obj)(UInt)(IN( t_6, t_7 ));
-   if ( t_5 ) {
-    
-    /* cats := cats and FILTERS[i]; */
-    if ( l_cats == False ) {
-     t_5 = l_cats;
-    }
-    else if ( l_cats == True ) {
-     t_7 = GC_FILTERS;
-     CHECK_BOUND( t_7, "FILTERS" );
-     C_ELM_LIST_FPL( t_6, t_7, l_i )
-     CHECK_BOOL( t_6 );
-     t_5 = t_6;
-    }
-    else if (IS_FILTER( l_cats ) ) {
-     t_8 = GC_FILTERS;
-     CHECK_BOUND( t_8, "FILTERS" );
-     C_ELM_LIST_FPL( t_7, t_8, l_i )
-     t_5 = NewAndFilter( l_cats, t_7 );
-    }
-    else {
-     RequireArgumentEx(0, l_cats, "<expr>",
-     "must be 'true' or 'false' or a filter" );
-    }
-    l_cats = t_5;
-    
-    /* rank := rank - RankFilter( FILTERS[i] ); */
-    t_7 = GF_RankFilter;
-    t_9 = GC_FILTERS;
-    CHECK_BOUND( t_9, "FILTERS" );
-    C_ELM_LIST_FPL( t_8, t_9, l_i )
-    if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-     t_6 = CALL_1ARGS( t_7, t_8 );
-    }
-    else {
-     t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( t_8 ) );
-    }
-    CHECK_FUNC_RESULT( t_6 );
-    C_DIFF_FIA( t_5, l_rank, t_6 )
-    l_rank = t_5;
-    
-   }
-   
-   /* elif INFO_FILTERS[i] in FNUM_PROS then */
-   else {
-    t_7 = GC_INFO__FILTERS;
-    CHECK_BOUND( t_7, "INFO_FILTERS" );
-    C_ELM_LIST_FPL( t_6, t_7, l_i )
-    t_7 = GC_FNUM__PROS;
-    CHECK_BOUND( t_7, "FNUM_PROS" );
-    t_5 = (Obj)(UInt)(IN( t_6, t_7 ));
-    if ( t_5 ) {
-     
-     /* ADD_LIST( props, FILTERS[i] ); */
-     t_5 = GF_ADD__LIST;
-     t_6 = OBJ_LVAR( 2 );
-     CHECK_BOUND( t_6, "props" );
-     t_8 = GC_FILTERS;
-     CHECK_BOUND( t_8, "FILTERS" );
-     C_ELM_LIST_FPL( t_7, t_8, l_i )
-     if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-      CALL_2ARGS( t_5, t_6, t_7 );
-     }
-     else {
-      DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( t_6, t_7 ) );
-     }
-     
-    }
-   }
-   /* fi */
-   
-  }
-  /* od */
-  
-  /* UNLOCK( lk ); */
-  t_1 = GF_UNLOCK;
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_1ARGS( t_1, l_lk );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_lk ) );
-  }
-  
-  /* MakeImmutable( props ); */
-  t_1 = GF_MakeImmutable;
-  t_2 = OBJ_LVAR( 2 );
-  CHECK_BOUND( t_2, "props" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_1ARGS( t_1, t_2 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
-  }
-  
-  /* if 0 < LEN_LIST( props ) then */
-  t_3 = GF_LEN__LIST;
-  t_4 = OBJ_LVAR( 2 );
-  CHECK_BOUND( t_4, "props" );
-  if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-   t_2 = CALL_1ARGS( t_3, t_4 );
-  }
-  else {
-   t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( t_4 ) );
-  }
-  CHECK_FUNC_RESULT( t_2 );
-  t_1 = (Obj)(UInt)(LT( INTOBJ_INT(0), t_2 ));
-  if ( t_1 ) {
-   
-   /* InstallOtherMethod( getter, "default method requiring categories and checking properties", true, [ cats ], rank, function ( obj )
-      local found, prop;
-      found := false;
-      for prop in props do
-          if not Tester( prop )( obj ) then
-              found := true;
-              if not (prop( obj ) and Tester( prop )( obj )) then
-                  TryNextMethod();
-              fi;
-          fi;
-      od;
-      if found then
-          return getter( obj );
-      else
-          TryNextMethod();
-      fi;
-      return;
-  end ); */
-   t_1 = GF_InstallOtherMethod;
-   t_2 = OBJ_LVAR( 1 );
-   CHECK_BOUND( t_2, "getter" );
-   t_3 = MakeString( "default method requiring categories and checking properties" );
-   t_4 = True;
-   t_5 = NEW_PLIST( T_PLIST, 1 );
-   SET_LEN_PLIST( t_5, 1 );
-   SET_ELM_PLIST( t_5, 1, l_cats );
-   CHANGED_BAG( t_5 );
-   t_6 = NewFunction( NameFunc[8], 1, ArgStringToList("obj"), HdlrFunc8 );
-   SET_ENVI_FUNC( t_6, STATE(CurrLVars) );
-   t_7 = NewFunctionBody();
-   SET_STARTLINE_BODY(t_7, 694);
-   SET_ENDLINE_BODY(t_7, 712);
-   SET_FILENAME_BODY(t_7, FileName);
-   SET_BODY_FUNC(t_6, t_7);
-   if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-    CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, l_rank, t_6 );
-   }
-   else {
-    DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, t_4, t_5, l_rank, t_6 ) );
-   }
-   
-  }
-  /* fi */
-  
- }
- /* fi */
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 9 */
-static Obj  HdlrFunc9 (
- Obj  self,
- Obj  a_name,
- Obj  a_filter,
- Obj  a_getter,
- Obj  a_setter,
- Obj  a_tester,
- Obj  a_mutflag )
-{
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* InstallOtherMethod( setter, "default method, does nothing", true, [ IS_OBJECT, IS_OBJECT ], 0, DO_NOTHING_SETTER ); */
- t_1 = GF_InstallOtherMethod;
- t_2 = MakeString( "default method, does nothing" );
- t_3 = True;
- t_4 = NEW_PLIST( T_PLIST, 2 );
- SET_LEN_PLIST( t_4, 2 );
- t_5 = GC_IS__OBJECT;
- CHECK_BOUND( t_5, "IS_OBJECT" );
- SET_ELM_PLIST( t_4, 1, t_5 );
- CHANGED_BAG( t_4 );
- t_5 = GC_IS__OBJECT;
- CHECK_BOUND( t_5, "IS_OBJECT" );
- SET_ELM_PLIST( t_4, 2, t_5 );
- CHANGED_BAG( t_4 );
- t_5 = GC_DO__NOTHING__SETTER;
- CHECK_BOUND( t_5, "DO_NOTHING_SETTER" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_6ARGS( t_1, a_setter, t_2, t_3, t_4, INTOBJ_INT(0), t_5 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( a_setter, t_2, t_3, t_4, INTOBJ_INT(0), t_5 ) );
- }
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 10 */
-static Obj  HdlrFunc10 (
- Obj  self,
- Obj  a_list,
- Obj  a_elm )
-{
- Obj l_i = 0;
- Obj l_j = 0;
- Obj l_k = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- (void)l_i;
- (void)l_j;
- (void)l_k;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* k := LEN_LIST( list ) + 1; */
- t_3 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, a_list );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_list ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- C_SUM_FIA( t_1, t_2, INTOBJ_INT(1) )
- l_k = t_1;
- 
- /* if k mod 2 = 0 then */
- t_2 = MOD( l_k, INTOBJ_INT(2) );
- t_1 = (Obj)(UInt)(EQ( t_2, INTOBJ_INT(0) ));
- if ( t_1 ) {
-  
-  /* k := k + 1; */
-  C_SUM_FIA( t_1, l_k, INTOBJ_INT(1) )
-  l_k = t_1;
-  
- }
- /* fi */
- 
- /* i := -1; */
- l_i = INTOBJ_INT(-1);
- 
- /* while i + 2 < k do */
- while ( 1 ) {
-  C_SUM_FIA( t_2, l_i, INTOBJ_INT(2) )
-  t_1 = (Obj)(UInt)(LT( t_2, l_k ));
-  if ( ! t_1 ) break;
-  
-  /* j := 2 * QUO_INT( (i + k + 2), 4 ) - 1; */
-  t_4 = GF_QUO__INT;
-  C_SUM_FIA( t_6, l_i, l_k )
-  C_SUM_FIA( t_5, t_6, INTOBJ_INT(2) )
-  if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-   t_3 = CALL_2ARGS( t_4, t_5, INTOBJ_INT(4) );
-  }
-  else {
-   t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( t_5, INTOBJ_INT(4) ) );
-  }
-  CHECK_FUNC_RESULT( t_3 );
-  C_PROD_FIA( t_2, INTOBJ_INT(2), t_3 )
-  C_DIFF_FIA( t_1, t_2, INTOBJ_INT(1) )
-  l_j = t_1;
-  
-  /* if list[j] < elm then */
-  CHECK_INT_POS( l_j );
-  C_ELM_LIST_FPL( t_2, a_list, l_j )
-  t_1 = (Obj)(UInt)(LT( t_2, a_elm ));
-  if ( t_1 ) {
-   
-   /* i := j; */
-   l_i = l_j;
-   
-  }
-  
-  /* else */
-  else {
-   
-   /* k := j; */
-   l_k = l_j;
-   
-  }
-  /* fi */
-  
- }
- /* od */
- 
- /* return k; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return l_k;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 12 */
-static Obj  HdlrFunc12 (
- Obj  self,
- Obj  a_key )
-{
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* if not IsPrimeInt( key ) then */
- t_4 = GF_IsPrimeInt;
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, a_key );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( a_key ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- CHECK_BOOL( t_3 );
- t_2 = (Obj)(UInt)(t_3 != False);
- t_1 = (Obj)(UInt)( ! ((Int)t_2) );
- if ( t_1 ) {
-  
-  /* Error( name, ": <p> must be a prime" ); */
-  t_1 = GF_Error;
-  t_2 = OBJ_HVAR( (1 << 16) | 1 );
-  CHECK_BOUND( t_2, "name" );
-  t_3 = MakeString( ": <p> must be a prime" );
-  if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-   CALL_2ARGS( t_1, t_2, t_3 );
-  }
-  else {
-   DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
-  }
-  
- }
- /* fi */
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 13 */
-static Obj  HdlrFunc13 (
- Obj  self,
- Obj  a_D )
-{
- Obj t_1 = 0;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* return [  ]; */
- t_1 = NEW_PLIST( T_PLIST, 0 );
- SET_LEN_PLIST( t_1, 0 );
- SWITCH_TO_OLD_FRAME(oldFrame);
- return t_1;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 14 */
-static Obj  HdlrFunc14 (
- Obj  self,
- Obj  a_D,
- Obj  a_key )
-{
- Obj l_known = 0;
- Obj l_i = 0;
- Obj l_erg = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- (void)l_known;
- (void)l_i;
- (void)l_erg;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* keytest( key ); */
- t_1 = OBJ_HVAR( (1 << 16) | 2 );
- CHECK_BOUND( t_1, "keytest" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_1ARGS( t_1, a_key );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( a_key ) );
- }
- 
- /* known := attr( D ); */
- t_2 = OBJ_HVAR( (1 << 16) | 4 );
- CHECK_BOUND( t_2, "attr" );
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, a_D );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_D ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_known = t_1;
- 
- /* i := PositionSortedOddPositions( known, key ); */
- t_2 = GF_PositionSortedOddPositions;
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_2ARGS( t_2, l_known, a_key );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( l_known, a_key ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_i = t_1;
- 
- /* if LEN_LIST( known ) < i or known[i] <> key then */
- t_4 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, l_known );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_known ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- t_2 = (Obj)(UInt)(LT( t_3, l_i ));
- t_1 = t_2;
- if ( ! t_1 ) {
-  CHECK_INT_POS( l_i );
-  C_ELM_LIST_FPL( t_4, l_known, l_i )
-  t_3 = (Obj)(UInt)( ! EQ( t_4, a_key ));
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* erg := oper( D, key ); */
-  t_2 = OBJ_HVAR( (1 << 16) | 3 );
-  CHECK_BOUND( t_2, "oper" );
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_2ARGS( t_2, a_D, a_key );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_D, a_key ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  l_erg = t_1;
-  
-  /* i := PositionSortedOddPositions( known, key ); */
-  t_2 = GF_PositionSortedOddPositions;
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_2ARGS( t_2, l_known, a_key );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( l_known, a_key ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  l_i = t_1;
-  
-  /* if LEN_LIST( known ) < i or known[i] <> key then */
-  t_4 = GF_LEN__LIST;
-  if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-   t_3 = CALL_1ARGS( t_4, l_known );
-  }
-  else {
-   t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_known ) );
-  }
-  CHECK_FUNC_RESULT( t_3 );
-  t_2 = (Obj)(UInt)(LT( t_3, l_i ));
-  t_1 = t_2;
-  if ( ! t_1 ) {
-   CHECK_INT_POS( l_i );
-   C_ELM_LIST_FPL( t_4, l_known, l_i )
-   t_3 = (Obj)(UInt)( ! EQ( t_4, a_key ));
-   t_1 = t_3;
-  }
-  if ( t_1 ) {
-   
-   /* known{[ i + 2 .. LEN_LIST( known ) + 2 ]} := known{[ i .. LEN_LIST( known ) ]}; */
-   C_SUM_FIA( t_2, l_i, INTOBJ_INT(2) )
-   t_5 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-    t_4 = CALL_1ARGS( t_5, l_known );
-   }
-   else {
-    t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_known ) );
-   }
-   CHECK_FUNC_RESULT( t_4 );
-   C_SUM_FIA( t_3, t_4, INTOBJ_INT(2) )
-   t_1 = Range2Check( t_2, t_3 );
-   t_5 = GF_LEN__LIST;
-   if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-    t_4 = CALL_1ARGS( t_5, l_known );
-   }
-   else {
-    t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_known ) );
-   }
-   CHECK_FUNC_RESULT( t_4 );
-   t_3 = Range2Check( l_i, t_4 );
-   t_2 = ElmsListCheck( l_known, t_3 );
-   AsssListCheck( l_known, t_1, t_2 );
-   
-   /* known[i] := IMMUTABLE_COPY_OBJ( key ); */
-   CHECK_INT_POS( l_i );
-   t_2 = GF_IMMUTABLE__COPY__OBJ;
-   if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-    t_1 = CALL_1ARGS( t_2, a_key );
-   }
-   else {
-    t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_key ) );
-   }
-   CHECK_FUNC_RESULT( t_1 );
-   C_ASS_LIST_FPL( l_known, l_i, t_1 )
-   
-   /* known[i + 1] := IMMUTABLE_COPY_OBJ( erg ); */
-   C_SUM_FIA( t_1, l_i, INTOBJ_INT(1) )
-   CHECK_INT_POS( t_1 );
-   t_3 = GF_IMMUTABLE__COPY__OBJ;
-   if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-    t_2 = CALL_1ARGS( t_3, l_erg );
-   }
-   else {
-    t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_erg ) );
-   }
-   CHECK_FUNC_RESULT( t_2 );
-   C_ASS_LIST_FPL( l_known, t_1, t_2 )
-   
-  }
-  /* fi */
-  
- }
- /* fi */
- 
- /* return known[i + 1]; */
- C_SUM_FIA( t_2, l_i, INTOBJ_INT(1) )
- CHECK_INT_POS( t_2 );
- C_ELM_LIST_FPL( t_1, l_known, t_2 )
- SWITCH_TO_OLD_FRAME(oldFrame);
- return t_1;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 15 */
-static Obj  HdlrFunc15 (
- Obj  self,
- Obj  a_D,
- Obj  a_key )
-{
- Obj l_known = 0;
- Obj l_i = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- (void)l_known;
- (void)l_i;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* keytest( key ); */
- t_1 = OBJ_HVAR( (1 << 16) | 2 );
- CHECK_BOUND( t_1, "keytest" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_1ARGS( t_1, a_key );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( a_key ) );
- }
- 
- /* known := attr( D ); */
- t_2 = OBJ_HVAR( (1 << 16) | 4 );
- CHECK_BOUND( t_2, "attr" );
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, a_D );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_D ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_known = t_1;
- 
- /* i := PositionSortedOddPositions( known, key ); */
- t_2 = GF_PositionSortedOddPositions;
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_2ARGS( t_2, l_known, a_key );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( l_known, a_key ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_i = t_1;
- 
- /* return i <= LEN_LIST( known ) and known[i] = key; */
- t_4 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, l_known );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_known ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- t_2 = (LT( t_3, l_i ) ?  False : True);
- if ( t_2 == False ) {
-  t_1 = t_2;
- }
- else if ( t_2 == True ) {
-  CHECK_INT_POS( l_i );
-  C_ELM_LIST_FPL( t_4, l_known, l_i )
-  t_3 = (EQ( t_4, a_key ) ? True : False);
-  t_1 = t_3;
- }
- else if (IS_FILTER( t_2 ) ) {
-  C_ELM_LIST_FPL( t_5, l_known, l_i )
-  t_4 = (EQ( t_5, a_key ) ? True : False);
-  t_1 = NewAndFilter( t_2, t_4 );
- }
- else {
-  RequireArgumentEx(0, t_2, "<expr>",
-  "must be 'true' or 'false' or a filter" );
- }
- SWITCH_TO_OLD_FRAME(oldFrame);
- return t_1;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 16 */
-static Obj  HdlrFunc16 (
- Obj  self,
- Obj  a_D,
- Obj  a_key,
- Obj  a_obj )
-{
- Obj l_known = 0;
- Obj l_i = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- (void)l_known;
- (void)l_i;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* keytest( key ); */
- t_1 = OBJ_HVAR( (1 << 16) | 2 );
- CHECK_BOUND( t_1, "keytest" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_1ARGS( t_1, a_key );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( a_key ) );
- }
- 
- /* known := attr( D ); */
- t_2 = OBJ_HVAR( (1 << 16) | 4 );
- CHECK_BOUND( t_2, "attr" );
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, a_D );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_D ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_known = t_1;
- 
- /* i := PositionSortedOddPositions( known, key ); */
- t_2 = GF_PositionSortedOddPositions;
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_2ARGS( t_2, l_known, a_key );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( l_known, a_key ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_i = t_1;
- 
- /* if LEN_LIST( known ) < i or known[i] <> key then */
- t_4 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, l_known );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( l_known ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- t_2 = (Obj)(UInt)(LT( t_3, l_i ));
- t_1 = t_2;
- if ( ! t_1 ) {
-  CHECK_INT_POS( l_i );
-  C_ELM_LIST_FPL( t_4, l_known, l_i )
-  t_3 = (Obj)(UInt)( ! EQ( t_4, a_key ));
-  t_1 = t_3;
- }
- if ( t_1 ) {
-  
-  /* known{[ i + 2 .. LEN_LIST( known ) + 2 ]} := known{[ i .. LEN_LIST( known ) ]}; */
-  C_SUM_FIA( t_2, l_i, INTOBJ_INT(2) )
-  t_5 = GF_LEN__LIST;
-  if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-   t_4 = CALL_1ARGS( t_5, l_known );
-  }
-  else {
-   t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_known ) );
-  }
-  CHECK_FUNC_RESULT( t_4 );
-  C_SUM_FIA( t_3, t_4, INTOBJ_INT(2) )
-  t_1 = Range2Check( t_2, t_3 );
-  t_5 = GF_LEN__LIST;
-  if ( TNUM_OBJ( t_5 ) == T_FUNCTION ) {
-   t_4 = CALL_1ARGS( t_5, l_known );
-  }
-  else {
-   t_4 = DoOperation2Args( CallFuncListOper, t_5, NewPlistFromArgs( l_known ) );
-  }
-  CHECK_FUNC_RESULT( t_4 );
-  t_3 = Range2Check( l_i, t_4 );
-  t_2 = ElmsListCheck( l_known, t_3 );
-  AsssListCheck( l_known, t_1, t_2 );
-  
-  /* known[i] := IMMUTABLE_COPY_OBJ( key ); */
-  CHECK_INT_POS( l_i );
-  t_2 = GF_IMMUTABLE__COPY__OBJ;
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_1ARGS( t_2, a_key );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( a_key ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  C_ASS_LIST_FPL( l_known, l_i, t_1 )
-  
-  /* known[i + 1] := IMMUTABLE_COPY_OBJ( obj ); */
-  C_SUM_FIA( t_1, l_i, INTOBJ_INT(1) )
-  CHECK_INT_POS( t_1 );
-  t_3 = GF_IMMUTABLE__COPY__OBJ;
-  if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-   t_2 = CALL_1ARGS( t_3, a_obj );
-  }
-  else {
-   t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_obj ) );
-  }
-  CHECK_FUNC_RESULT( t_2 );
-  C_ASS_LIST_FPL( l_known, t_1, t_2 )
-  
- }
- /* fi */
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 11 */
-static Obj  HdlrFunc11 (
- Obj  self,
- Obj  a_name,
- Obj  a_domreq,
- Obj  a_keyreq,
- Obj  a_keytest )
-{
- Obj l_str = 0;
- Obj l_lk = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- Obj t_7 = 0;
- (void)l_str;
- (void)l_lk;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,4,0,oldFrame);
- MakeHighVars(STATE(CurrLVars));
- ASS_LVAR( 1, a_name );
- ASS_LVAR( 2, a_keytest );
- 
- /* if keytest = "prime" then */
- t_2 = OBJ_LVAR( 2 );
- CHECK_BOUND( t_2, "keytest" );
- t_3 = MakeString( "prime" );
- t_1 = (Obj)(UInt)(EQ( t_2, t_3 ));
- if ( t_1 ) {
-  
-  /* keytest := function ( key )
-      if not IsPrimeInt( key ) then
-          Error( name, ": <p> must be a prime" );
-      fi;
-      return;
-  end; */
-  t_1 = NewFunction( NameFunc[12], 1, ArgStringToList("key"), HdlrFunc12 );
-  SET_ENVI_FUNC( t_1, STATE(CurrLVars) );
-  t_2 = NewFunctionBody();
-  SET_STARTLINE_BODY(t_2, 891);
-  SET_ENDLINE_BODY(t_2, 895);
-  SET_FILENAME_BODY(t_2, FileName);
-  SET_BODY_FUNC(t_1, t_2);
-  ASS_LVAR( 2, t_1 );
-  
- }
- /* fi */
- 
- /* str := SHALLOW_COPY_OBJ( name ); */
- t_2 = GF_SHALLOW__COPY__OBJ;
- t_3 = OBJ_LVAR( 1 );
- CHECK_BOUND( t_3, "name" );
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, t_3 );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( t_3 ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_str = t_1;
- 
- /* APPEND_LIST_INTR( str, "Op" ); */
- t_1 = GF_APPEND__LIST__INTR;
- t_2 = MakeString( "Op" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, l_str, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_str, t_2 ) );
- }
- 
- /* DeclareOperation( str, [ domreq, keyreq ] ); */
- t_1 = GF_DeclareOperation;
- t_2 = NEW_PLIST( T_PLIST, 2 );
- SET_LEN_PLIST( t_2, 2 );
- SET_ELM_PLIST( t_2, 1, a_domreq );
- CHANGED_BAG( t_2 );
- SET_ELM_PLIST( t_2, 2, a_keyreq );
- CHANGED_BAG( t_2 );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, l_str, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_str, t_2 ) );
- }
- 
- /* oper := VALUE_GLOBAL( str ); */
- t_2 = GF_VALUE__GLOBAL;
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, l_str );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( l_str ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- ASS_LVAR( 3, t_1 );
- 
- /* str := "Computed"; */
- t_1 = MakeString( "Computed" );
- l_str = t_1;
- 
- /* APPEND_LIST_INTR( str, name ); */
- t_1 = GF_APPEND__LIST__INTR;
- t_2 = OBJ_LVAR( 1 );
- CHECK_BOUND( t_2, "name" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, l_str, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_str, t_2 ) );
- }
- 
- /* APPEND_LIST_INTR( str, "s" ); */
- t_1 = GF_APPEND__LIST__INTR;
- t_2 = MakeString( "s" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, l_str, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_str, t_2 ) );
- }
- 
- /* DeclareAttribute( str, domreq, "mutable" ); */
- t_1 = GF_DeclareAttribute;
- t_2 = MakeString( "mutable" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_3ARGS( t_1, l_str, a_domreq, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_str, a_domreq, t_2 ) );
- }
- 
- /* attr := VALUE_GLOBAL( str ); */
- t_2 = GF_VALUE__GLOBAL;
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, l_str );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( l_str ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- ASS_LVAR( 4, t_1 );
- 
- /* InstallMethod( attr, "default method", true, [ domreq ], 0, function ( D )
-      return [  ];
-  end ); */
- t_1 = GF_InstallMethod;
- t_2 = OBJ_LVAR( 4 );
- CHECK_BOUND( t_2, "attr" );
- t_3 = MakeString( "default method" );
- t_4 = True;
- t_5 = NEW_PLIST( T_PLIST, 1 );
- SET_LEN_PLIST( t_5, 1 );
- SET_ELM_PLIST( t_5, 1, a_domreq );
- CHANGED_BAG( t_5 );
- t_6 = NewFunction( NameFunc[13], 1, ArgStringToList("D"), HdlrFunc13 );
- SET_ENVI_FUNC( t_6, STATE(CurrLVars) );
- t_7 = NewFunctionBody();
- SET_STARTLINE_BODY(t_7, 912);
- SET_ENDLINE_BODY(t_7, 912);
- SET_FILENAME_BODY(t_7, FileName);
- SET_BODY_FUNC(t_6, t_7);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 ) );
- }
- 
- /* DeclareOperation( name, [ domreq, keyreq ] ); */
- t_1 = GF_DeclareOperation;
- t_2 = OBJ_LVAR( 1 );
- CHECK_BOUND( t_2, "name" );
- t_3 = NEW_PLIST( T_PLIST, 2 );
- SET_LEN_PLIST( t_3, 2 );
- SET_ELM_PLIST( t_3, 1, a_domreq );
- CHANGED_BAG( t_3 );
- SET_ELM_PLIST( t_3, 2, a_keyreq );
- CHANGED_BAG( t_3 );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* lk := WRITE_LOCK( OPERATIONS_REGION ); */
- t_2 = GF_WRITE__LOCK;
- t_3 = GC_OPERATIONS__REGION;
- CHECK_BOUND( t_3, "OPERATIONS_REGION" );
- if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-  t_1 = CALL_1ARGS( t_2, t_3 );
- }
- else {
-  t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( t_3 ) );
- }
- CHECK_FUNC_RESULT( t_1 );
- l_lk = t_1;
- 
- /* ADD_LIST( WRAPPER_OPERATIONS, VALUE_GLOBAL( name ) ); */
- t_1 = GF_ADD__LIST;
- t_2 = GC_WRAPPER__OPERATIONS;
- CHECK_BOUND( t_2, "WRAPPER_OPERATIONS" );
- t_4 = GF_VALUE__GLOBAL;
- t_5 = OBJ_LVAR( 1 );
- CHECK_BOUND( t_5, "name" );
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, t_5 );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( t_5 ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* UNLOCK( lk ); */
- t_1 = GF_UNLOCK;
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_1ARGS( t_1, l_lk );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_lk ) );
- }
- 
- /* InstallOtherMethod( VALUE_GLOBAL( name ), "default method", true, [ domreq, keyreq ], 0, function ( D, key )
-      local known, i, erg;
-      keytest( key );
-      known := attr( D );
-      i := PositionSortedOddPositions( known, key );
-      if LEN_LIST( known ) < i or known[i] <> key then
-          erg := oper( D, key );
-          i := PositionSortedOddPositions( known, key );
-          if LEN_LIST( known ) < i or known[i] <> key then
-              known{[ i + 2 .. LEN_LIST( known ) + 2 ]} := known{[ i .. LEN_LIST( known ) ]};
-              known[i] := IMMUTABLE_COPY_OBJ( key );
-              known[i + 1] := IMMUTABLE_COPY_OBJ( erg );
-          fi;
-      fi;
-      return known[i + 1];
-  end ); */
- t_1 = GF_InstallOtherMethod;
- t_3 = GF_VALUE__GLOBAL;
- t_4 = OBJ_LVAR( 1 );
- CHECK_BOUND( t_4, "name" );
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, t_4 );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( t_4 ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- t_3 = MakeString( "default method" );
- t_4 = True;
- t_5 = NEW_PLIST( T_PLIST, 2 );
- SET_LEN_PLIST( t_5, 2 );
- SET_ELM_PLIST( t_5, 1, a_domreq );
- CHANGED_BAG( t_5 );
- SET_ELM_PLIST( t_5, 2, a_keyreq );
- CHANGED_BAG( t_5 );
- t_6 = NewFunction( NameFunc[14], 2, ArgStringToList("D,key"), HdlrFunc14 );
- SET_ENVI_FUNC( t_6, STATE(CurrLVars) );
- t_7 = NewFunctionBody();
- SET_STARTLINE_BODY(t_7, 934);
- SET_ENDLINE_BODY(t_7, 957);
- SET_FILENAME_BODY(t_7, FileName);
- SET_BODY_FUNC(t_6, t_7);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 ) );
- }
- 
- /* str := "Has"; */
- t_1 = MakeString( "Has" );
- l_str = t_1;
- 
- /* APPEND_LIST_INTR( str, name ); */
- t_1 = GF_APPEND__LIST__INTR;
- t_2 = OBJ_LVAR( 1 );
- CHECK_BOUND( t_2, "name" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, l_str, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_str, t_2 ) );
- }
- 
- /* DeclareOperation( str, [ domreq, keyreq ] ); */
- t_1 = GF_DeclareOperation;
- t_2 = NEW_PLIST( T_PLIST, 2 );
- SET_LEN_PLIST( t_2, 2 );
- SET_ELM_PLIST( t_2, 1, a_domreq );
- CHANGED_BAG( t_2 );
- SET_ELM_PLIST( t_2, 2, a_keyreq );
- CHANGED_BAG( t_2 );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, l_str, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_str, t_2 ) );
- }
- 
- /* InstallOtherMethod( VALUE_GLOBAL( str ), "default method", true, [ domreq, keyreq ], 0, function ( D, key )
-      local known, i;
-      keytest( key );
-      known := attr( D );
-      i := PositionSortedOddPositions( known, key );
-      return i <= LEN_LIST( known ) and known[i] = key;
-  end ); */
- t_1 = GF_InstallOtherMethod;
- t_3 = GF_VALUE__GLOBAL;
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, l_str );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_str ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- t_3 = MakeString( "default method" );
- t_4 = True;
- t_5 = NEW_PLIST( T_PLIST, 2 );
- SET_LEN_PLIST( t_5, 2 );
- SET_ELM_PLIST( t_5, 1, a_domreq );
- CHANGED_BAG( t_5 );
- SET_ELM_PLIST( t_5, 2, a_keyreq );
- CHANGED_BAG( t_5 );
- t_6 = NewFunction( NameFunc[15], 2, ArgStringToList("D,key"), HdlrFunc15 );
- SET_ENVI_FUNC( t_6, STATE(CurrLVars) );
- t_7 = NewFunctionBody();
- SET_STARTLINE_BODY(t_7, 967);
- SET_ENDLINE_BODY(t_7, 975);
- SET_FILENAME_BODY(t_7, FileName);
- SET_BODY_FUNC(t_6, t_7);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 ) );
- }
- 
- /* str := "Set"; */
- t_1 = MakeString( "Set" );
- l_str = t_1;
- 
- /* APPEND_LIST_INTR( str, name ); */
- t_1 = GF_APPEND__LIST__INTR;
- t_2 = OBJ_LVAR( 1 );
- CHECK_BOUND( t_2, "name" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, l_str, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_str, t_2 ) );
- }
- 
- /* DeclareOperation( str, [ domreq, keyreq, IS_OBJECT ] ); */
- t_1 = GF_DeclareOperation;
- t_2 = NEW_PLIST( T_PLIST, 3 );
- SET_LEN_PLIST( t_2, 3 );
- SET_ELM_PLIST( t_2, 1, a_domreq );
- CHANGED_BAG( t_2 );
- SET_ELM_PLIST( t_2, 2, a_keyreq );
- CHANGED_BAG( t_2 );
- t_3 = GC_IS__OBJECT;
- CHECK_BOUND( t_3, "IS_OBJECT" );
- SET_ELM_PLIST( t_2, 3, t_3 );
- CHANGED_BAG( t_2 );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, l_str, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( l_str, t_2 ) );
- }
- 
- /* InstallOtherMethod( VALUE_GLOBAL( str ), "default method", true, [ domreq, keyreq, IS_OBJECT ], 0, function ( D, key, obj )
-      local known, i;
-      keytest( key );
-      known := attr( D );
-      i := PositionSortedOddPositions( known, key );
-      if LEN_LIST( known ) < i or known[i] <> key then
-          known{[ i + 2 .. LEN_LIST( known ) + 2 ]} := known{[ i .. LEN_LIST( known ) ]};
-          known[i] := IMMUTABLE_COPY_OBJ( key );
-          known[i + 1] := IMMUTABLE_COPY_OBJ( obj );
-      fi;
-      return;
-  end ); */
- t_1 = GF_InstallOtherMethod;
- t_3 = GF_VALUE__GLOBAL;
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, l_str );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( l_str ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- t_3 = MakeString( "default method" );
- t_4 = True;
- t_5 = NEW_PLIST( T_PLIST, 3 );
- SET_LEN_PLIST( t_5, 3 );
- SET_ELM_PLIST( t_5, 1, a_domreq );
- CHANGED_BAG( t_5 );
- SET_ELM_PLIST( t_5, 2, a_keyreq );
- CHANGED_BAG( t_5 );
- t_6 = GC_IS__OBJECT;
- CHECK_BOUND( t_6, "IS_OBJECT" );
- SET_ELM_PLIST( t_5, 3, t_6 );
- CHANGED_BAG( t_5 );
- t_6 = NewFunction( NameFunc[16], 3, ArgStringToList("D,key,obj"), HdlrFunc16 );
- SET_ENVI_FUNC( t_6, STATE(CurrLVars) );
- t_7 = NewFunctionBody();
- SET_STARTLINE_BODY(t_7, 984);
- SET_ENDLINE_BODY(t_7, 997);
- SET_FILENAME_BODY(t_7, FileName);
- SET_BODY_FUNC(t_6, t_7);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 ) );
- }
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 18 */
-static Obj  HdlrFunc18 (
- Obj  self,
- Obj  a_arg )
-{
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- Obj t_7 = 0;
- Obj t_8 = 0;
- Obj t_9 = 0;
- Obj t_10 = 0;
- Obj t_11 = 0;
- Obj t_12 = 0;
- Obj t_13 = 0;
- Obj t_14 = 0;
- Obj t_15 = 0;
- Obj t_16 = 0;
- Obj t_17 = 0;
- Obj t_18 = 0;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* re := false; */
- t_1 = False;
- ASS_HVAR( (1 << 16) | 4, t_1 );
- 
- /* for i in [ 1 .. LEN_LIST( reqs ) ] do */
- t_6 = GF_LEN__LIST;
- t_7 = OBJ_HVAR( (1 << 16) | 2 );
- CHECK_BOUND( t_7, "reqs" );
- if ( TNUM_OBJ( t_6 ) == T_FUNCTION ) {
-  t_5 = CALL_1ARGS( t_6, t_7 );
- }
- else {
-  t_5 = DoOperation2Args( CallFuncListOper, t_6, NewPlistFromArgs( t_7 ) );
- }
- CHECK_FUNC_RESULT( t_5 );
- t_4 = Range2Check( INTOBJ_INT(1), t_5 );
- if ( IS_SMALL_LIST(t_4) ) {
-  t_3 = (Obj)(UInt)1;
-  t_1 = INTOBJ_INT(1);
- }
- else {
-  t_3 = (Obj)(UInt)0;
-  t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
- }
- while ( 1 ) {
-  if ( t_3 ) {
-   if ( LEN_LIST(t_4) < Int_ObjInt(t_1) )  break;
-   t_2 = ELMV0_LIST( t_4, Int_ObjInt(t_1) );
-   t_1 = (Obj)(((UInt)t_1)+4);
-   if ( t_2 == 0 )  continue;
-  }
-  else {
-   if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
-   t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
-  }
-  ASS_HVAR( (1 << 16) | 5, t_2 );
-  
-  /* re := re or IsBound( cond[i] ) and not Tester( cond[i] )( arg[i] ) and cond[i]( arg[i] ) and Tester( cond[i] )( arg[i] ); */
-  t_7 = OBJ_HVAR( (1 << 16) | 4 );
-  CHECK_BOUND( t_7, "re" );
-  CHECK_BOOL( t_7 );
-  t_6 = (Obj)(UInt)(t_7 != False);
-  t_5 = (t_6 ? True : False);
-  if ( t_5 == False ) {
-   t_12 = OBJ_HVAR( (1 << 16) | 3 );
-   CHECK_BOUND( t_12, "cond" );
-   t_13 = OBJ_HVAR( (1 << 16) | 5 );
-   CHECK_BOUND( t_13, "i" );
-   CHECK_INT_POS( t_13 );
-   t_11 = C_ISB_LIST( t_12, t_13 );
-   t_10 = (Obj)(UInt)(t_11 != False);
-   t_9 = t_10;
-   if ( t_9 ) {
-    t_15 = GF_Tester;
-    t_17 = OBJ_HVAR( (1 << 16) | 3 );
-    CHECK_BOUND( t_17, "cond" );
-    t_18 = OBJ_HVAR( (1 << 16) | 5 );
-    CHECK_BOUND( t_18, "i" );
-    CHECK_INT_POS( t_18 );
-    C_ELM_LIST_FPL( t_16, t_17, t_18 )
-    if ( TNUM_OBJ( t_15 ) == T_FUNCTION ) {
-     t_14 = CALL_1ARGS( t_15, t_16 );
-    }
-    else {
-     t_14 = DoOperation2Args( CallFuncListOper, t_15, NewPlistFromArgs( t_16 ) );
-    }
-    CHECK_FUNC_RESULT( t_14 );
-    t_16 = OBJ_HVAR( (1 << 16) | 5 );
-    CHECK_BOUND( t_16, "i" );
-    CHECK_INT_POS( t_16 );
-    C_ELM_LIST_FPL( t_15, a_arg, t_16 )
-    if ( TNUM_OBJ( t_14 ) == T_FUNCTION ) {
-     t_13 = CALL_1ARGS( t_14, t_15 );
-    }
-    else {
-     t_13 = DoOperation2Args( CallFuncListOper, t_14, NewPlistFromArgs( t_15 ) );
-    }
-    CHECK_FUNC_RESULT( t_13 );
-    CHECK_BOOL( t_13 );
-    t_12 = (Obj)(UInt)(t_13 != False);
-    t_11 = (Obj)(UInt)( ! ((Int)t_12) );
-    t_9 = t_11;
-   }
-   t_8 = t_9;
-   if ( t_8 ) {
-    t_13 = OBJ_HVAR( (1 << 16) | 3 );
-    CHECK_BOUND( t_13, "cond" );
-    t_14 = OBJ_HVAR( (1 << 16) | 5 );
-    CHECK_BOUND( t_14, "i" );
-    CHECK_INT_POS( t_14 );
-    C_ELM_LIST_FPL( t_12, t_13, t_14 )
-    t_14 = OBJ_HVAR( (1 << 16) | 5 );
-    CHECK_BOUND( t_14, "i" );
-    CHECK_INT_POS( t_14 );
-    C_ELM_LIST_FPL( t_13, a_arg, t_14 )
-    if ( TNUM_OBJ( t_12 ) == T_FUNCTION ) {
-     t_11 = CALL_1ARGS( t_12, t_13 );
-    }
-    else {
-     t_11 = DoOperation2Args( CallFuncListOper, t_12, NewPlistFromArgs( t_13 ) );
-    }
-    CHECK_FUNC_RESULT( t_11 );
-    CHECK_BOOL( t_11 );
-    t_10 = (Obj)(UInt)(t_11 != False);
-    t_8 = t_10;
-   }
-   t_7 = t_8;
-   if ( t_7 ) {
-    t_12 = GF_Tester;
-    t_14 = OBJ_HVAR( (1 << 16) | 3 );
-    CHECK_BOUND( t_14, "cond" );
-    t_15 = OBJ_HVAR( (1 << 16) | 5 );
-    CHECK_BOUND( t_15, "i" );
-    CHECK_INT_POS( t_15 );
-    C_ELM_LIST_FPL( t_13, t_14, t_15 )
-    if ( TNUM_OBJ( t_12 ) == T_FUNCTION ) {
-     t_11 = CALL_1ARGS( t_12, t_13 );
-    }
-    else {
-     t_11 = DoOperation2Args( CallFuncListOper, t_12, NewPlistFromArgs( t_13 ) );
-    }
-    CHECK_FUNC_RESULT( t_11 );
-    t_13 = OBJ_HVAR( (1 << 16) | 5 );
-    CHECK_BOUND( t_13, "i" );
-    CHECK_INT_POS( t_13 );
-    C_ELM_LIST_FPL( t_12, a_arg, t_13 )
-    if ( TNUM_OBJ( t_11 ) == T_FUNCTION ) {
-     t_10 = CALL_1ARGS( t_11, t_12 );
-    }
-    else {
-     t_10 = DoOperation2Args( CallFuncListOper, t_11, NewPlistFromArgs( t_12 ) );
-    }
-    CHECK_FUNC_RESULT( t_10 );
-    CHECK_BOOL( t_10 );
-    t_9 = (Obj)(UInt)(t_10 != False);
-    t_7 = t_9;
-   }
-   t_5 = (t_7 ? True : False);
-  }
-  ASS_HVAR( (1 << 16) | 4, t_5 );
-  
- }
- /* od */
- 
- /* if re then */
- t_2 = OBJ_HVAR( (1 << 16) | 4 );
- CHECK_BOUND( t_2, "re" );
- CHECK_BOOL( t_2 );
- t_1 = (Obj)(UInt)(t_2 != False);
- if ( t_1 ) {
-  
-  /* return CallFuncList( oper, arg ); */
-  t_2 = GF_CallFuncList;
-  t_3 = OBJ_HVAR( (1 << 16) | 1 );
-  CHECK_BOUND( t_3, "oper" );
-  if ( TNUM_OBJ( t_2 ) == T_FUNCTION ) {
-   t_1 = CALL_2ARGS( t_2, t_3, a_arg );
-  }
-  else {
-   t_1 = DoOperation2Args( CallFuncListOper, t_2, NewPlistFromArgs( t_3, a_arg ) );
-  }
-  CHECK_FUNC_RESULT( t_1 );
-  SWITCH_TO_OLD_FRAME(oldFrame);
-  return t_1;
-  
- }
- 
- /* else */
- else {
-  
-  /* TryNextMethod(); */
-  t_1 = GC_TRY__NEXT__METHOD;
-  CHECK_BOUND( t_1, "TRY_NEXT_METHOD" );
-  SWITCH_TO_OLD_FRAME(oldFrame);
-  return t_1;
-  
- }
- /* fi */
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 17 */
-static Obj  HdlrFunc17 (
- Obj  self,
- Obj  a_arg )
-{
- Obj l_info = 0;
- Obj l_fampred = 0;
- Obj l_val = 0;
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- Obj t_7 = 0;
- Obj t_8 = 0;
- (void)l_info;
- (void)l_fampred;
- (void)l_val;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,5,0,oldFrame);
- MakeHighVars(STATE(CurrLVars));
- 
- /* if LEN_LIST( arg ) = 5 then */
- t_3 = GF_LEN__LIST;
- if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-  t_2 = CALL_1ARGS( t_3, a_arg );
- }
- else {
-  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_arg ) );
- }
- CHECK_FUNC_RESULT( t_2 );
- t_1 = (Obj)(UInt)(EQ( t_2, INTOBJ_INT(5) ));
- if ( t_1 ) {
-  
-  /* oper := arg[1]; */
-  C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(1) )
-  ASS_LVAR( 1, t_1 );
-  
-  /* info := " fallback method to test conditions"; */
-  t_1 = MakeString( " fallback method to test conditions" );
-  l_info = t_1;
-  
-  /* fampred := arg[2]; */
-  C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(2) )
-  l_fampred = t_1;
-  
-  /* reqs := arg[3]; */
-  C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(3) )
-  ASS_LVAR( 2, t_1 );
-  
-  /* cond := arg[4]; */
-  C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(4) )
-  ASS_LVAR( 3, t_1 );
-  
-  /* val := arg[5]; */
-  C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(5) )
-  l_val = t_1;
-  
- }
- 
- /* elif LEN_LIST( arg ) = 6 then */
- else {
-  t_3 = GF_LEN__LIST;
-  if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
-   t_2 = CALL_1ARGS( t_3, a_arg );
-  }
-  else {
-   t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( a_arg ) );
-  }
-  CHECK_FUNC_RESULT( t_2 );
-  t_1 = (Obj)(UInt)(EQ( t_2, INTOBJ_INT(6) ));
-  if ( t_1 ) {
-   
-   /* oper := arg[1]; */
-   C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(1) )
-   ASS_LVAR( 1, t_1 );
-   
-   /* info := arg[2]; */
-   C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(2) )
-   l_info = t_1;
-   
-   /* fampred := arg[3]; */
-   C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(3) )
-   l_fampred = t_1;
-   
-   /* reqs := arg[4]; */
-   C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(4) )
-   ASS_LVAR( 2, t_1 );
-   
-   /* cond := arg[5]; */
-   C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(5) )
-   ASS_LVAR( 3, t_1 );
-   
-   /* val := arg[6]; */
-   C_ELM_LIST_FPL( t_1, a_arg, INTOBJ_INT(6) )
-   l_val = t_1;
-   
-  }
-  
-  /* else */
-  else {
-   
-   /* Error( "Usage: RedispatchOnCondition(oper[,info],fampred,reqs,cond,val)" ); */
-   t_1 = GF_Error;
-   t_2 = MakeString( "Usage: RedispatchOnCondition(oper[,info],fampred,reqs,cond,val)" );
-   if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-    CALL_1ARGS( t_1, t_2 );
-   }
-   else {
-    DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
-   }
-   
-  }
- }
- /* fi */
- 
- /* for i in reqs do */
- t_4 = OBJ_LVAR( 2 );
- CHECK_BOUND( t_4, "reqs" );
- if ( IS_SMALL_LIST(t_4) ) {
-  t_3 = (Obj)(UInt)1;
-  t_1 = INTOBJ_INT(1);
- }
- else {
-  t_3 = (Obj)(UInt)0;
-  t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
- }
- while ( 1 ) {
-  if ( t_3 ) {
-   if ( LEN_LIST(t_4) < Int_ObjInt(t_1) )  break;
-   t_2 = ELMV0_LIST( t_4, Int_ObjInt(t_1) );
-   t_1 = (Obj)(((UInt)t_1)+4);
-   if ( t_2 == 0 )  continue;
-  }
-  else {
-   if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
-   t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
-  }
-  ASS_LVAR( 5, t_2 );
-  
-  /* val := val - RankFilter( i ); */
-  CHECK_BOUND( l_val, "val" );
-  t_7 = GF_RankFilter;
-  t_8 = OBJ_LVAR( 5 );
-  CHECK_BOUND( t_8, "i" );
-  if ( TNUM_OBJ( t_7 ) == T_FUNCTION ) {
-   t_6 = CALL_1ARGS( t_7, t_8 );
-  }
-  else {
-   t_6 = DoOperation2Args( CallFuncListOper, t_7, NewPlistFromArgs( t_8 ) );
-  }
-  CHECK_FUNC_RESULT( t_6 );
-  C_DIFF_FIA( t_5, l_val, t_6 )
-  l_val = t_5;
-  
- }
- /* od */
- 
- /* InstallOtherMethod( oper, info, fampred, reqs, val, function ( arg... )
-      re := false;
-      for i in [ 1 .. LEN_LIST( reqs ) ] do
-          re := re or IsBound( cond[i] ) and not Tester( cond[i] )( arg[i] ) and cond[i]( arg[i] ) and Tester( cond[i] )( arg[i] );
-      od;
-      if re then
-          return CallFuncList( oper, arg );
-      else
-          TryNextMethod();
-      fi;
-      return;
-  end ); */
- t_1 = GF_InstallOtherMethod;
- t_2 = OBJ_LVAR( 1 );
- CHECK_BOUND( t_2, "oper" );
- CHECK_BOUND( l_info, "info" );
- CHECK_BOUND( l_fampred, "fampred" );
- t_3 = OBJ_LVAR( 2 );
- CHECK_BOUND( t_3, "reqs" );
- t_4 = NewFunction( NameFunc[18], -1, ArgStringToList("arg"), HdlrFunc18 );
- SET_ENVI_FUNC( t_4, STATE(CurrLVars) );
- t_5 = NewFunctionBody();
- SET_STARTLINE_BODY(t_5, 1063);
- SET_ENDLINE_BODY(t_5, 1079);
- SET_FILENAME_BODY(t_5, FileName);
- SET_BODY_FUNC(t_4, t_5);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_6ARGS( t_1, t_2, l_info, l_fampred, t_3, l_val, t_4 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, l_info, l_fampred, t_3, l_val, t_4 ) );
- }
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 19 */
-static Obj  HdlrFunc19 (
- Obj  self,
- Obj  a_obj,
- Obj  a_name,
- Obj  a_val )
-{
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* handler for function 1 */
-static Obj  HdlrFunc1 (
- Obj  self )
-{
- Obj t_1 = 0;
- Obj t_2 = 0;
- Obj t_3 = 0;
- Obj t_4 = 0;
- Obj t_5 = 0;
- Obj t_6 = 0;
- Bag oldFrame;
- 
- /* allocate new stack frame */
- SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
- 
- /* RUN_IMMEDIATE_METHODS_RUNS := 0; */
- AssGVar( G_RUN__IMMEDIATE__METHODS__RUNS, INTOBJ_INT(0) );
- 
- /* RUN_IMMEDIATE_METHODS_CHECKS := 0; */
- AssGVar( G_RUN__IMMEDIATE__METHODS__CHECKS, INTOBJ_INT(0) );
- 
- /* RUN_IMMEDIATE_METHODS_HITS := 0; */
- AssGVar( G_RUN__IMMEDIATE__METHODS__HITS, INTOBJ_INT(0) );
- 
- /* BIND_GLOBAL( "RunImmediateMethods", function ( obj, flags )
-      local flagspos, tried, type, j, imm, i, meth, res, loc, newflags;
-      if IGNORE_IMMEDIATE_METHODS then
-          return;
-      fi;
-      if IS_SUBSET_FLAGS( IMM_FLAGS, flags ) then
-          return;
-      fi;
-      flags := SUB_FLAGS( flags, IMM_FLAGS );
-      flagspos := SHALLOW_COPY_OBJ( TRUES_FLAGS( flags ) );
-      tried := [  ];
-      type := TYPE_OBJ( obj );
-      flags := type![2];
-      RUN_IMMEDIATE_METHODS_RUNS := RUN_IMMEDIATE_METHODS_RUNS + 1;
-      if TRACE_IMMEDIATE_METHODS then
-          Print( "#I RunImmediateMethods\n" );
-      fi;
-      for j in flagspos do
-          if IsBound( IMMEDIATES[j] ) then
-              imm := IMMEDIATES[j];
-              for i in [ 0, SIZE_IMMEDIATE_METHOD_ENTRY .. LEN_LIST( imm ) - SIZE_IMMEDIATE_METHOD_ENTRY ] do
-                  if IS_SUBSET_FLAGS( flags, imm[i + 4] ) and not IS_SUBSET_FLAGS( flags, imm[i + 3] ) and not imm[i + 6] in tried then
-                      meth := IMMEDIATE_METHODS[imm[i + 6]];
-                      res := meth( obj );
-                      ADD_LIST( tried, imm[i + 6] );
-                      RUN_IMMEDIATE_METHODS_CHECKS := RUN_IMMEDIATE_METHODS_CHECKS + 1;
-                      if TRACE_IMMEDIATE_METHODS then
-                          Print( "#I  immediate: ", NAME_FUNC( imm[i + 1] ) );
-                          if imm[i + 7] <> false then
-                              Print( ": ", imm[i + 7] );
-                          fi;
-                          Print( " at ", imm[i + 8][1], ":", imm[i + 8][2], "\n" );
-                      fi;
-                      if res <> TRY_NEXT_METHOD then
-                          IGNORE_IMMEDIATE_METHODS := true;
-                          imm[i + 2]( obj, res );
-                          IGNORE_IMMEDIATE_METHODS := false;
-                          RUN_IMMEDIATE_METHODS_HITS := RUN_IMMEDIATE_METHODS_HITS + 1;
-                          if not IS_IDENTICAL_OBJ( TYPE_OBJ( obj ), type ) then
-                              type := TYPE_OBJ( obj );
-                              newflags := SUB_FLAGS( type![2], IMM_FLAGS );
-                              newflags := SUB_FLAGS( newflags, flags );
-                              APPEND_LIST_INTR( flagspos, TRUES_FLAGS( newflags ) );
-                              flags := type![2];
-                          fi;
-                      fi;
-                  fi;
-              od;
-          fi;
-      od;
-      return;
-  end ); */
- t_1 = GF_BIND__GLOBAL;
- t_2 = MakeString( "RunImmediateMethods" );
- t_3 = NewFunction( NameFunc[2], 2, ArgStringToList("obj,flags"), HdlrFunc2 );
- SET_ENVI_FUNC( t_3, STATE(CurrLVars) );
- t_4 = NewFunctionBody();
- SET_STARTLINE_BODY(t_4, 28);
- SET_ENDLINE_BODY(t_4, 127);
- SET_FILENAME_BODY(t_4, FileName);
- SET_BODY_FUNC(t_3, t_4);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* BIND_GLOBAL( "METHODS_OPERATION_REGION", NewSpecialRegion( "operation methods" ) ); */
- t_1 = GF_BIND__GLOBAL;
- t_2 = MakeString( "METHODS_OPERATION_REGION" );
- t_4 = GF_NewSpecialRegion;
- t_5 = MakeString( "operation methods" );
- if ( TNUM_OBJ( t_4 ) == T_FUNCTION ) {
-  t_3 = CALL_1ARGS( t_4, t_5 );
- }
- else {
-  t_3 = DoOperation2Args( CallFuncListOper, t_4, NewPlistFromArgs( t_5 ) );
- }
- CHECK_FUNC_RESULT( t_3 );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* BIND_GLOBAL( "INSTALL_METHOD_FLAGS", function ( opr, info, rel, flags, baserank, method )
-      local methods, narg, i, k, tmp, replace, match, j, lk, rank;
-      lk := WRITE_LOCK( METHODS_OPERATION_REGION );
-      if IS_FUNCTION( baserank ) then
-          rank := baserank(  );
-      else
-          rank := baserank;
-      fi;
-      if IS_CONSTRUCTOR( opr ) then
-          if 0 = LEN_LIST( flags ) then
-              Error( NAME_FUNC( opr ), ": constructors must have at least one argument" );
-          fi;
-          rank := rank - RankFilter( flags[1] );
-      else
-          for i in flags do
-              rank := rank + RankFilter( i );
-          od;
-      fi;
-      narg := LEN_LIST( flags );
-      methods := METHODS_OPERATION( opr, narg );
-      methods := methods{[ 1 .. LEN_LIST( methods ) ]};
-      if info = false then
-          info := NAME_FUNC( opr );
-      else
-          k := SHALLOW_COPY_OBJ( NAME_FUNC( opr ) );
-          APPEND_LIST_INTR( k, ": " );
-          APPEND_LIST_INTR( k, info );
-          info := k;
-          CONV_STRING( info );
-      fi;
-      i := 0;
-      while i < LEN_LIST( methods ) and rank < methods[i + (narg + 3)] do
-          i := i + (narg + 6);
-      od;
-      replace := false;
-      if REREADING then
-          k := i;
-          while k < LEN_LIST( methods ) and rank = methods[k + narg + 3] do
-              if info = methods[k + narg + 4] then
-                  match := true;
-                  for j in [ 1 .. narg ] do
-                      match := match and methods[k + j + 1] = flags[j];
-                  od;
-                  if match then
-                      replace := true;
-                      i := k;
-                      break;
-                  fi;
-              fi;
-              k := k + narg + 6;
-          od;
-      fi;
-      if not REREADING or not replace then
-          COPY_LIST_ENTRIES( methods, i + 1, 1, methods, narg + 6 + i + 1, 1, LEN_LIST( methods ) - i );
-      fi;
-      if rel = true then
-          rel := RETURN_TRUE;
-      elif rel = false then
-          rel := RETURN_FALSE;
-      elif IS_FUNCTION( rel ) then
-          if CHECK_INSTALL_METHOD then
-              tmp := NARG_FUNC( rel );
-              if tmp < AINV( narg ) - 1 or tmp >= 0 and tmp <> narg then
-                  Error( NAME_FUNC( opr ), ": <famrel> must accept ", narg, " arguments" );
-              fi;
-          fi;
-      else
-          Error( NAME_FUNC( opr ), ": <famrel> must be a function, `true', or `false'" );
-      fi;
-      if method = true then
-          method := RETURN_TRUE;
-      elif method = false then
-          method := RETURN_FALSE;
-      elif IS_FUNCTION( method ) then
-          if CHECK_INSTALL_METHOD and not IS_OPERATION( method ) then
-              tmp := NARG_FUNC( method );
-              if tmp < AINV( narg ) - 1 or tmp >= 0 and tmp <> narg then
-                  Error( NAME_FUNC( opr ), ": <method> must accept ", narg, " arguments" );
-              fi;
-          fi;
-      else
-          Error( NAME_FUNC( opr ), ": <method> must be a function, `true', or `false'" );
-      fi;
-      methods[i + 1] := rel;
-      for k in [ 1 .. narg ] do
-          methods[i + k + 1] := flags[k];
-      od;
-      methods[i + (narg + 2)] := method;
-      methods[i + (narg + 3)] := rank;
-      methods[i + (narg + 4)] := IMMUTABLE_COPY_OBJ( info );
-      if 6 >= 5 then
-          methods[i + (narg + 5)] := MakeImmutable( [ INPUT_FILENAME(  ), READEVALCOMMAND_LINENUMBER, INPUT_LINENUMBER(  ) ] );
-      fi;
-      if 6 >= 6 then
-          methods[i + (narg + 6)] := baserank;
-      fi;
-      SET_METHODS_OPERATION( opr, narg, MakeReadOnlySingleObj( methods ) );
-      UNLOCK( lk );
-      return;
-  end ); */
- t_1 = GF_BIND__GLOBAL;
- t_2 = MakeString( "INSTALL_METHOD_FLAGS" );
- t_3 = NewFunction( NameFunc[3], 6, ArgStringToList("opr,info,rel,flags,baserank,method"), HdlrFunc3 );
- SET_ENVI_FUNC( t_3, STATE(CurrLVars) );
- t_4 = NewFunctionBody();
- SET_STARTLINE_BODY(t_4, 147);
- SET_ENDLINE_BODY(t_4, 289);
- SET_FILENAME_BODY(t_4, FileName);
- SET_BODY_FUNC(t_3, t_4);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* BIND_GLOBAL( "InstallMethod", function ( arg... )
-      INSTALL_METHOD( arg, true );
-      return;
-  end ); */
- t_1 = GF_BIND__GLOBAL;
- t_2 = MakeString( "InstallMethod" );
- t_3 = NewFunction( NameFunc[4], -1, ArgStringToList("arg"), HdlrFunc4 );
- SET_ENVI_FUNC( t_3, STATE(CurrLVars) );
- t_4 = NewFunctionBody();
- SET_STARTLINE_BODY(t_4, 338);
- SET_ENDLINE_BODY(t_4, 340);
- SET_FILENAME_BODY(t_4, FileName);
- SET_BODY_FUNC(t_3, t_4);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* BIND_GLOBAL( "InstallOtherMethod", function ( arg... )
-      INSTALL_METHOD( arg, false );
-      return;
-  end ); */
- t_1 = GF_BIND__GLOBAL;
- t_2 = MakeString( "InstallOtherMethod" );
- t_3 = NewFunction( NameFunc[5], -1, ArgStringToList("arg"), HdlrFunc5 );
- SET_ENVI_FUNC( t_3, STATE(CurrLVars) );
- t_4 = NewFunctionBody();
- SET_STARTLINE_BODY(t_4, 365);
- SET_ENDLINE_BODY(t_4, 367);
- SET_FILENAME_BODY(t_4, FileName);
- SET_BODY_FUNC(t_3, t_4);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* DeclareGlobalFunction( "EvalString" ); */
- t_1 = GF_DeclareGlobalFunction;
- t_2 = MakeString( "EvalString" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_1ARGS( t_1, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
- }
- 
- /* Unbind( INSTALL_METHOD ); */
- AssGVar( G_INSTALL__METHOD, 0 );
- 
- /* BIND_GLOBAL( "INSTALL_METHOD", function ( arglist, check )
-      local len, opr, info, pos, rel, filters, info1, isstr, flags, i, rank, method, oreqs, req, reqs, match, j, k, imp, notmatch, lk, funcname;
-      lk := READ_LOCK( OPERATIONS_REGION );
-      len := LEN_LIST( arglist );
-      if len < 3 then
-          Error( "too few arguments given in <arglist>" );
-      fi;
-      opr := arglist[1];
-      if not IS_OPERATION( opr ) then
-          Error( "<opr> is not an operation" );
-      fi;
-      if IS_STRING_REP( arglist[2] ) or arglist[2] = false then
-          info := arglist[2];
-          pos := 3;
-      else
-          info := false;
-          pos := 2;
-      fi;
-      if arglist[pos] = true or IS_FUNCTION( arglist[pos] ) then
-          rel := arglist[pos];
-          pos := pos + 1;
-      else
-          rel := true;
-      fi;
-      if not IsBound( arglist[pos] ) or not IS_LIST( arglist[pos] ) then
-          Error( "<arglist>[", pos, "] must be a list of filters" );
-      fi;
-      filters := arglist[pos];
-      if GAPInfo.MaxNrArgsMethod < LEN_LIST( filters ) then
-          Error( "methods can have at most ", GAPInfo.MaxNrArgsMethod, " arguments" );
-      fi;
-      if 0 < LEN_LIST( filters ) then
-          info1 := "[ ";
-          isstr := true;
-          for i in [ 1 .. LEN_LIST( filters ) ] do
-              if IS_STRING_REP( filters[i] ) then
-                  APPEND_LIST_INTR( info1, filters[i] );
-                  APPEND_LIST_INTR( info1, ", " );
-                  filters[i] := EvalString( filters[i] );
-                  if not IS_FUNCTION( filters[i] ) then
-                      Error( "string does not evaluate to a function" );
-                  fi;
-              else
-                  isstr := false;
-                  break;
-              fi;
-          od;
-          if isstr and info = false then
-              info1[LEN_LIST( info1 ) - 1] := ' ';
-              info1[LEN_LIST( info1 )] := ']';
-              info := info1;
-          fi;
-      fi;
-      pos := pos + 1;
-      flags := [  ];
-      for i in filters do
-          ADD_LIST( flags, FLAGS_FILTER( i ) );
-      od;
-      if not IsBound( arglist[pos] ) then
-          Error( "the method is missing in <arglist>" );
-      elif IS_INT( arglist[pos] ) or IS_FUNCTION( arglist[pos] ) and NARG_FUNC( arglist[pos] ) = 0 and pos < LEN_LIST( arglist ) then
-          rank := arglist[pos];
-          pos := pos + 1;
-      else
-          rank := 0;
-      fi;
-      if not IsBound( arglist[pos] ) then
-          Error( "the method is missing in <arglist>" );
-      fi;
-      method := arglist[pos];
-      if FLAG1_FILTER( opr ) <> 0 and (rel = true or rel = RETURN_TRUE) and LEN_LIST( filters ) = 1 and (method = true or method = RETURN_TRUE) then
-          Error( NAME_FUNC( opr ), ": use `InstallTrueMethod' for <opr>" );
-      fi;
-      if CHECK_INSTALL_METHOD and check then
-          if opr in WRAPPER_OPERATIONS then
-              INFO_DEBUG( 1, "a method is installed for the wrapper operation ", NAME_FUNC( opr ), "\n", "#I  probably it should be installed for (one of) its\n", "#I  underlying operation(s)" );
-          fi;
-          req := GET_OPER_FLAGS( opr );
-          if req = fail then
-              Error( "unknown operation ", NAME_FUNC( opr ) );
-          fi;
-          imp := [  ];
-          for i in flags do
-              if not GAPInfo.CommandLineOptions.N then
-                  ADD_LIST( imp, WITH_HIDDEN_IMPS_FLAGS( i ) );
-              else
-                  ADD_LIST( imp, WITH_IMPS_FLAGS( i ) );
-              fi;
-          od;
-          j := 0;
-          match := false;
-          notmatch := 0;
-          while j < LEN_LIST( req ) and not match do
-              j := j + 1;
-              reqs := req[j];
-              if LEN_LIST( reqs ) = LEN_LIST( imp ) then
-                  match := true;
-                  for i in [ 1 .. LEN_LIST( reqs ) ] do
-                      if not IS_SUBSET_FLAGS( imp[i], reqs[i] ) then
-                          match := false;
-                          notmatch := i;
-                          break;
-                      fi;
-                  od;
-                  if match then
-                      break;
-                  fi;
-              fi;
-          od;
-          if not match then
-              if notmatch = 0 then
-                  if not GAPInfo.CommandLineOptions.N then
-                      Error( "the number of arguments does not match a declaration of ", NAME_FUNC( opr ) );
-                  else
-                      Print( "InstallMethod warning:  nr of args does not ", "match a declaration of ", NAME_FUNC( opr ), "\n" );
-                  fi;
-              else
-                  if not GAPInfo.CommandLineOptions.N then
-                      Error( "required filters ", NamesFilter( imp[notmatch] ), "\nfor ", Ordinal( notmatch ), " argument do not match a declaration of ", NAME_FUNC( opr ) );
-                  else
-                      Print( "InstallMethod warning: ", NAME_FUNC( opr ), " at \c", INPUT_FILENAME(  ), ":", INPUT_LINENUMBER(  ), " \c", "required filter \c", NAME_FUNC( filters[notmatch] ), " for ", Ordinal( notmatch ), " argument does not match any "
-                        , "declaration\n" );
-                  fi;
-              fi;
-          else
-              oreqs := reqs;
-              for k in [ j + 1 .. LEN_LIST( req ) ] do
-                  reqs := req[k];
-                  if LEN_LIST( reqs ) = LEN_LIST( imp ) then
-                      match := true;
-                      for i in [ 1 .. LEN_LIST( reqs ) ] do
-                          if not IS_SUBSET_FLAGS( imp[i], reqs[i] ) then
-                              match := false;
-                              break;
-                          fi;
-                      od;
-                      if match and reqs <> oreqs then
-                          INFO_DEBUG( 1, "method installed for ", NAME_FUNC( opr ), " matches more than one declaration" );
-                      fi;
-                  fi;
-              od;
-          fi;
-      fi;
-      if IS_FUNCTION( method ) and IsBound( HasNameFunction ) and IsBound( TYPE_FUNCTION_WITH_NAME ) and IsBound( TYPE_OPERATION_WITH_NAME ) and not VAL_GVAR( "HasNameFunction" )( method ) then
-          funcname := SHALLOW_COPY_OBJ( NAME_FUNC( opr ) );
-          APPEND_LIST_INTR( funcname, " " );
-          if info <> false then
-              APPEND_LIST_INTR( funcname, info );
-          else
-              APPEND_LIST_INTR( funcname, "method" );
-          fi;
-          SET_NAME_FUNC( method, funcname );
-      fi;
-      if IS_FUNCTION( rank ) and IsBound( HasNameFunction ) and IsBound( TYPE_FUNCTION_WITH_NAME ) and IsBound( TYPE_OPERATION_WITH_NAME ) and not VAL_GVAR( "HasNameFunction" )( rank ) then
-          funcname := "Priority calculation for ";
-          APPEND_LIST_INTR( funcname, NAME_FUNC( opr ) );
-          if info <> false then
-              APPEND_LIST_INTR( funcname, " " );
-              APPEND_LIST_INTR( funcname, info );
-          fi;
-          SET_NAME_FUNC( rank, funcname );
-      fi;
-      INSTALL_METHOD_FLAGS( opr, info, rel, flags, rank, method );
-      UNLOCK( lk );
-      return;
-  end ); */
- t_1 = GF_BIND__GLOBAL;
- t_2 = MakeString( "INSTALL_METHOD" );
- t_3 = NewFunction( NameFunc[6], 2, ArgStringToList("arglist,check"), HdlrFunc6 );
- SET_ENVI_FUNC( t_3, STATE(CurrLVars) );
- t_4 = NewFunctionBody();
- SET_STARTLINE_BODY(t_4, 378);
- SET_ENDLINE_BODY(t_4, 633);
- SET_FILENAME_BODY(t_4, FileName);
- SET_BODY_FUNC(t_3, t_4);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* LENGTH_SETTER_METHODS_2 := LENGTH_SETTER_METHODS_2 + (6 + 2); */
- t_2 = GC_LENGTH__SETTER__METHODS__2;
- CHECK_BOUND( t_2, "LENGTH_SETTER_METHODS_2" );
- C_SUM_INTOBJS( t_3, INTOBJ_INT(6), INTOBJ_INT(2) )
- C_SUM_FIA( t_1, t_2, t_3 )
- AssGVar( G_LENGTH__SETTER__METHODS__2, t_1 );
- 
- /* InstallAttributeFunction( function ( name, filter, getter, setter, tester, mutflag )
-      local flags, rank, cats, props, i, lk;
-      if not IS_IDENTICAL_OBJ( filter, IS_OBJECT ) then
-          flags := FLAGS_FILTER( filter );
-          rank := 0;
-          cats := IS_OBJECT;
-          props := [  ];
-          lk := READ_LOCK( FILTER_REGION );
-          for i in TRUES_FLAGS( flags ) do
-              if INFO_FILTERS[i] in FNUM_CATS_AND_REPS then
-                  cats := cats and FILTERS[i];
-                  rank := rank - RankFilter( FILTERS[i] );
-              elif INFO_FILTERS[i] in FNUM_PROS then
-                  ADD_LIST( props, FILTERS[i] );
-              fi;
-          od;
-          UNLOCK( lk );
-          MakeImmutable( props );
-          if 0 < LEN_LIST( props ) then
-              InstallOtherMethod( getter, "default method requiring categories and checking properties", true, [ cats ], rank, function ( obj )
-                    local found, prop;
-                    found := false;
-                    for prop in props do
-                        if not Tester( prop )( obj ) then
-                            found := true;
-                            if not (prop( obj ) and Tester( prop )( obj )) then
-                                TryNextMethod();
-                            fi;
-                        fi;
-                    od;
-                    if found then
-                        return getter( obj );
-                    else
-                        TryNextMethod();
-                    fi;
-                    return;
-                end );
-          fi;
-      fi;
-      return;
-  end ); */
- t_1 = GF_InstallAttributeFunction;
- t_2 = NewFunction( NameFunc[7], 6, ArgStringToList("name,filter,getter,setter,tester,mutflag"), HdlrFunc7 );
- SET_ENVI_FUNC( t_2, STATE(CurrLVars) );
- t_3 = NewFunctionBody();
- SET_STARTLINE_BODY(t_3, 652);
- SET_ENDLINE_BODY(t_3, 716);
- SET_FILENAME_BODY(t_3, FileName);
- SET_BODY_FUNC(t_2, t_3);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_1ARGS( t_1, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
- }
- 
- /* InstallAttributeFunction( function ( name, filter, getter, setter, tester, mutflag )
-      InstallOtherMethod( setter, "default method, does nothing", true, [ IS_OBJECT, IS_OBJECT ], 0, DO_NOTHING_SETTER );
-      return;
-  end ); */
- t_1 = GF_InstallAttributeFunction;
- t_2 = NewFunction( NameFunc[9], 6, ArgStringToList("name,filter,getter,setter,tester,mutflag"), HdlrFunc9 );
- SET_ENVI_FUNC( t_2, STATE(CurrLVars) );
- t_3 = NewFunctionBody();
- SET_STARTLINE_BODY(t_3, 719);
- SET_ENDLINE_BODY(t_3, 725);
- SET_FILENAME_BODY(t_3, FileName);
- SET_BODY_FUNC(t_2, t_3);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_1ARGS( t_1, t_2 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2 ) );
- }
- 
- /* BIND_GLOBAL( "PositionSortedOddPositions", function ( list, elm )
-      local i, j, k;
-      k := LEN_LIST( list ) + 1;
-      if k mod 2 = 0 then
-          k := k + 1;
-      fi;
-      i := -1;
-      while i + 2 < k do
-          j := 2 * QUO_INT( (i + k + 2), 4 ) - 1;
-          if list[j] < elm then
-              i := j;
-          else
-              k := j;
-          fi;
-      od;
-      return k;
-  end ); */
- t_1 = GF_BIND__GLOBAL;
- t_2 = MakeString( "PositionSortedOddPositions" );
- t_3 = NewFunction( NameFunc[10], 2, ArgStringToList("list,elm"), HdlrFunc10 );
- SET_ENVI_FUNC( t_3, STATE(CurrLVars) );
- t_4 = NewFunctionBody();
- SET_STARTLINE_BODY(t_4, 738);
- SET_ENDLINE_BODY(t_4, 762);
- SET_FILENAME_BODY(t_4, FileName);
- SET_BODY_FUNC(t_3, t_4);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* IsPrimeInt := "2b defined"; */
- t_1 = MakeString( "2b defined" );
- AssGVar( G_IsPrimeInt, t_1 );
- 
- /* BIND_GLOBAL( "KeyDependentOperation", function ( name, domreq, keyreq, keytest )
-      local str, oper, attr, lk;
-      if keytest = "prime" then
-          keytest := function ( key )
-                if not IsPrimeInt( key ) then
-                    Error( name, ": <p> must be a prime" );
-                fi;
-                return;
-            end;
-      fi;
-      str := SHALLOW_COPY_OBJ( name );
-      APPEND_LIST_INTR( str, "Op" );
-      DeclareOperation( str, [ domreq, keyreq ] );
-      oper := VALUE_GLOBAL( str );
-      str := "Computed";
-      APPEND_LIST_INTR( str, name );
-      APPEND_LIST_INTR( str, "s" );
-      DeclareAttribute( str, domreq, "mutable" );
-      attr := VALUE_GLOBAL( str );
-      InstallMethod( attr, "default method", true, [ domreq ], 0, function ( D )
-            return [  ];
-        end );
-      DeclareOperation( name, [ domreq, keyreq ] );
-      lk := WRITE_LOCK( OPERATIONS_REGION );
-      ADD_LIST( WRAPPER_OPERATIONS, VALUE_GLOBAL( name ) );
-      UNLOCK( lk );
-      InstallOtherMethod( VALUE_GLOBAL( name ), "default method", true, [ domreq, keyreq ], 0, function ( D, key )
-            local known, i, erg;
-            keytest( key );
-            known := attr( D );
-            i := PositionSortedOddPositions( known, key );
-            if LEN_LIST( known ) < i or known[i] <> key then
-                erg := oper( D, key );
-                i := PositionSortedOddPositions( known, key );
-                if LEN_LIST( known ) < i or known[i] <> key then
-                    known{[ i + 2 .. LEN_LIST( known ) + 2 ]} := known{[ i .. LEN_LIST( known ) ]};
-                    known[i] := IMMUTABLE_COPY_OBJ( key );
-                    known[i + 1] := IMMUTABLE_COPY_OBJ( erg );
-                fi;
-            fi;
-            return known[i + 1];
-        end );
-      str := "Has";
-      APPEND_LIST_INTR( str, name );
-      DeclareOperation( str, [ domreq, keyreq ] );
-      InstallOtherMethod( VALUE_GLOBAL( str ), "default method", true, [ domreq, keyreq ], 0, function ( D, key )
-            local known, i;
-            keytest( key );
-            known := attr( D );
-            i := PositionSortedOddPositions( known, key );
-            return i <= LEN_LIST( known ) and known[i] = key;
-        end );
-      str := "Set";
-      APPEND_LIST_INTR( str, name );
-      DeclareOperation( str, [ domreq, keyreq, IS_OBJECT ] );
-      InstallOtherMethod( VALUE_GLOBAL( str ), "default method", true, [ domreq, keyreq, IS_OBJECT ], 0, function ( D, key, obj )
-            local known, i;
-            keytest( key );
-            known := attr( D );
-            i := PositionSortedOddPositions( known, key );
-            if LEN_LIST( known ) < i or known[i] <> key then
-                known{[ i + 2 .. LEN_LIST( known ) + 2 ]} := known{[ i .. LEN_LIST( known ) ]};
-                known[i] := IMMUTABLE_COPY_OBJ( key );
-                known[i + 1] := IMMUTABLE_COPY_OBJ( obj );
-            fi;
-            return;
-        end );
-      return;
-  end ); */
- t_1 = GF_BIND__GLOBAL;
- t_2 = MakeString( "KeyDependentOperation" );
- t_3 = NewFunction( NameFunc[11], 4, ArgStringToList("name,domreq,keyreq,keytest"), HdlrFunc11 );
- SET_ENVI_FUNC( t_3, STATE(CurrLVars) );
- t_4 = NewFunctionBody();
- SET_STARTLINE_BODY(t_4, 887);
- SET_ENDLINE_BODY(t_4, 998);
- SET_FILENAME_BODY(t_4, FileName);
- SET_BODY_FUNC(t_3, t_4);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* CallFuncList := "2b defined"; */
- t_1 = MakeString( "2b defined" );
- AssGVar( G_CallFuncList, t_1 );
- 
- /* BIND_GLOBAL( "RedispatchOnCondition", function ( arg... )
-      local oper, info, fampred, reqs, cond, val, re, i;
-      if LEN_LIST( arg ) = 5 then
-          oper := arg[1];
-          info := " fallback method to test conditions";
-          fampred := arg[2];
-          reqs := arg[3];
-          cond := arg[4];
-          val := arg[5];
-      elif LEN_LIST( arg ) = 6 then
-          oper := arg[1];
-          info := arg[2];
-          fampred := arg[3];
-          reqs := arg[4];
-          cond := arg[5];
-          val := arg[6];
-      else
-          Error( "Usage: RedispatchOnCondition(oper[,info],fampred,reqs,cond,val)" );
-      fi;
-      for i in reqs do
-          val := val - RankFilter( i );
-      od;
-      InstallOtherMethod( oper, info, fampred, reqs, val, function ( arg... )
-            re := false;
-            for i in [ 1 .. LEN_LIST( reqs ) ] do
-                re := re or IsBound( cond[i] ) and not Tester( cond[i] )( arg[i] ) and cond[i]( arg[i] ) and Tester( cond[i] )( arg[i] );
-            od;
-            if re then
-                return CallFuncList( oper, arg );
-            else
-                TryNextMethod();
-            fi;
-            return;
-        end );
-      return;
-  end ); */
- t_1 = GF_BIND__GLOBAL;
- t_2 = MakeString( "RedispatchOnCondition" );
- t_3 = NewFunction( NameFunc[17], -1, ArgStringToList("arg"), HdlrFunc17 );
- SET_ENVI_FUNC( t_3, STATE(CurrLVars) );
- t_4 = NewFunctionBody();
- SET_STARTLINE_BODY(t_4, 1033);
- SET_ENDLINE_BODY(t_4, 1080);
- SET_FILENAME_BODY(t_4, FileName);
- SET_BODY_FUNC(t_3, t_4);
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_2ARGS( t_1, t_2, t_3 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
- }
- 
- /* InstallMethod( ViewObj, "default method using `PrintObj'", true, [ IS_OBJECT ], 0, PRINT_OBJ ); */
- t_1 = GF_InstallMethod;
- t_2 = GC_ViewObj;
- CHECK_BOUND( t_2, "ViewObj" );
- t_3 = MakeString( "default method using `PrintObj'" );
- t_4 = True;
- t_5 = NEW_PLIST( T_PLIST, 1 );
- SET_LEN_PLIST( t_5, 1 );
- t_6 = GC_IS__OBJECT;
- CHECK_BOUND( t_6, "IS_OBJECT" );
- SET_ELM_PLIST( t_5, 1, t_6 );
- CHANGED_BAG( t_5 );
- t_6 = GC_PRINT__OBJ;
- CHECK_BOUND( t_6, "PRINT_OBJ" );
- if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
-  CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 );
- }
- else {
-  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 ) );
- }
- 
- /* CHECK_REPEATED_ATTRIBUTE_SET := function ( obj, name, val )
-      return;
-  end; */
- t_1 = NewFunction( NameFunc[19], 3, ArgStringToList("obj,name,val"), HdlrFunc19 );
- SET_ENVI_FUNC( t_1, STATE(CurrLVars) );
- t_2 = NewFunctionBody();
- SET_STARTLINE_BODY(t_2, 1096);
- SET_ENDLINE_BODY(t_2, 1096);
- SET_FILENAME_BODY(t_2, FileName);
- SET_BODY_FUNC(t_1, t_2);
- AssGVar( G_CHECK__REPEATED__ATTRIBUTE__SET, t_1 );
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
- 
- /* return; */
- SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
-}
-
-/* 'PostRestore' restore gvars, rnams, functions */
-static Int PostRestore ( StructInitInfo * module )
-{
- 
- /* global variables used in handlers */
- G_REREADING = GVarName( "REREADING" );
- G_SHALLOW__COPY__OBJ = GVarName( "SHALLOW_COPY_OBJ" );
- G_PRINT__OBJ = GVarName( "PRINT_OBJ" );
- G_GAPInfo = GVarName( "GAPInfo" );
- G_TYPE__FUNCTION__WITH__NAME = GVarName( "TYPE_FUNCTION_WITH_NAME" );
- G_TYPE__OPERATION__WITH__NAME = GVarName( "TYPE_OPERATION_WITH_NAME" );
- G_IS__FUNCTION = GVarName( "IS_FUNCTION" );
- G_NAME__FUNC = GVarName( "NAME_FUNC" );
- G_SET__NAME__FUNC = GVarName( "SET_NAME_FUNC" );
- G_NARG__FUNC = GVarName( "NARG_FUNC" );
- G_CHECK__REPEATED__ATTRIBUTE__SET = GVarName( "CHECK_REPEATED_ATTRIBUTE_SET" );
- G_IS__OPERATION = GVarName( "IS_OPERATION" );
- G_AINV = GVarName( "AINV" );
- G_IS__INT = GVarName( "IS_INT" );
- G_IS__LIST = GVarName( "IS_LIST" );
- G_ADD__LIST = GVarName( "ADD_LIST" );
- G_IS__STRING__REP = GVarName( "IS_STRING_REP" );
- G_Error = GVarName( "Error" );
- G_VAL__GVAR = GVarName( "VAL_GVAR" );
- G_TYPE__OBJ = GVarName( "TYPE_OBJ" );
- G_IMMUTABLE__COPY__OBJ = GVarName( "IMMUTABLE_COPY_OBJ" );
- G_IS__IDENTICAL__OBJ = GVarName( "IS_IDENTICAL_OBJ" );
- G_MakeImmutable = GVarName( "MakeImmutable" );
- G_INPUT__FILENAME = GVarName( "INPUT_FILENAME" );
- G_INPUT__LINENUMBER = GVarName( "INPUT_LINENUMBER" );
- G_IS__OBJECT = GVarName( "IS_OBJECT" );
- G_TRY__NEXT__METHOD = GVarName( "TRY_NEXT_METHOD" );
- G_SUB__FLAGS = GVarName( "SUB_FLAGS" );
- G_WITH__HIDDEN__IMPS__FLAGS = GVarName( "WITH_HIDDEN_IMPS_FLAGS" );
- G_WITH__IMPS__FLAGS = GVarName( "WITH_IMPS_FLAGS" );
- G_IS__SUBSET__FLAGS = GVarName( "IS_SUBSET_FLAGS" );
- G_TRUES__FLAGS = GVarName( "TRUES_FLAGS" );
- G_FLAG1__FILTER = GVarName( "FLAG1_FILTER" );
- G_FLAGS__FILTER = GVarName( "FLAGS_FILTER" );
- G_METHODS__OPERATION = GVarName( "METHODS_OPERATION" );
- G_SET__METHODS__OPERATION = GVarName( "SET_METHODS_OPERATION" );
- G_DO__NOTHING__SETTER = GVarName( "DO_NOTHING_SETTER" );
- G_IS__CONSTRUCTOR = GVarName( "IS_CONSTRUCTOR" );
- G_QUO__INT = GVarName( "QUO_INT" );
- G_fail = GVarName( "fail" );
- G_RETURN__TRUE = GVarName( "RETURN_TRUE" );
- G_RETURN__FALSE = GVarName( "RETURN_FALSE" );
- G_LEN__LIST = GVarName( "LEN_LIST" );
- G_APPEND__LIST__INTR = GVarName( "APPEND_LIST_INTR" );
- G_COPY__LIST__ENTRIES = GVarName( "COPY_LIST_ENTRIES" );
- G_CONV__STRING = GVarName( "CONV_STRING" );
- G_Print = GVarName( "Print" );
- G_ViewObj = GVarName( "ViewObj" );
- G_WRITE__LOCK = GVarName( "WRITE_LOCK" );
- G_READ__LOCK = GVarName( "READ_LOCK" );
- G_UNLOCK = GVarName( "UNLOCK" );
- G_MakeReadOnlySingleObj = GVarName( "MakeReadOnlySingleObj" );
- G_RUN__IMMEDIATE__METHODS__RUNS = GVarName( "RUN_IMMEDIATE_METHODS_RUNS" );
- G_RUN__IMMEDIATE__METHODS__CHECKS = GVarName( "RUN_IMMEDIATE_METHODS_CHECKS" );
- G_RUN__IMMEDIATE__METHODS__HITS = GVarName( "RUN_IMMEDIATE_METHODS_HITS" );
- G_BIND__GLOBAL = GVarName( "BIND_GLOBAL" );
- G_IGNORE__IMMEDIATE__METHODS = GVarName( "IGNORE_IMMEDIATE_METHODS" );
- G_IMM__FLAGS = GVarName( "IMM_FLAGS" );
- G_TRACE__IMMEDIATE__METHODS = GVarName( "TRACE_IMMEDIATE_METHODS" );
- G_IMMEDIATES = GVarName( "IMMEDIATES" );
- G_SIZE__IMMEDIATE__METHOD__ENTRY = GVarName( "SIZE_IMMEDIATE_METHOD_ENTRY" );
- G_IMMEDIATE__METHODS = GVarName( "IMMEDIATE_METHODS" );
- G_NewSpecialRegion = GVarName( "NewSpecialRegion" );
- G_METHODS__OPERATION__REGION = GVarName( "METHODS_OPERATION_REGION" );
- G_RankFilter = GVarName( "RankFilter" );
- G_CHECK__INSTALL__METHOD = GVarName( "CHECK_INSTALL_METHOD" );
- G_READEVALCOMMAND__LINENUMBER = GVarName( "READEVALCOMMAND_LINENUMBER" );
- G_INSTALL__METHOD = GVarName( "INSTALL_METHOD" );
- G_DeclareGlobalFunction = GVarName( "DeclareGlobalFunction" );
- G_OPERATIONS__REGION = GVarName( "OPERATIONS_REGION" );
- G_EvalString = GVarName( "EvalString" );
- G_WRAPPER__OPERATIONS = GVarName( "WRAPPER_OPERATIONS" );
- G_INFO__DEBUG = GVarName( "INFO_DEBUG" );
- G_GET__OPER__FLAGS = GVarName( "GET_OPER_FLAGS" );
- G_NamesFilter = GVarName( "NamesFilter" );
- G_Ordinal = GVarName( "Ordinal" );
- G_HasNameFunction = GVarName( "HasNameFunction" );
- G_INSTALL__METHOD__FLAGS = GVarName( "INSTALL_METHOD_FLAGS" );
- G_LENGTH__SETTER__METHODS__2 = GVarName( "LENGTH_SETTER_METHODS_2" );
- G_InstallAttributeFunction = GVarName( "InstallAttributeFunction" );
- G_FILTER__REGION = GVarName( "FILTER_REGION" );
- G_INFO__FILTERS = GVarName( "INFO_FILTERS" );
- G_FNUM__CATS__AND__REPS = GVarName( "FNUM_CATS_AND_REPS" );
- G_FILTERS = GVarName( "FILTERS" );
- G_FNUM__PROS = GVarName( "FNUM_PROS" );
- G_InstallOtherMethod = GVarName( "InstallOtherMethod" );
- G_Tester = GVarName( "Tester" );
- G_IsPrimeInt = GVarName( "IsPrimeInt" );
- G_DeclareOperation = GVarName( "DeclareOperation" );
- G_VALUE__GLOBAL = GVarName( "VALUE_GLOBAL" );
- G_DeclareAttribute = GVarName( "DeclareAttribute" );
- G_InstallMethod = GVarName( "InstallMethod" );
- G_PositionSortedOddPositions = GVarName( "PositionSortedOddPositions" );
- G_CallFuncList = GVarName( "CallFuncList" );
- 
- /* record names used in handlers */
- R_MaxNrArgsMethod = RNamName( "MaxNrArgsMethod" );
- R_CommandLineOptions = RNamName( "CommandLineOptions" );
- R_N = RNamName( "N" );
- 
- /* information for the functions */
- NameFunc[1] = 0;
- NameFunc[2] = 0;
- NameFunc[3] = 0;
- NameFunc[4] = 0;
- NameFunc[5] = 0;
- NameFunc[6] = 0;
- NameFunc[7] = 0;
- NameFunc[8] = 0;
- NameFunc[9] = 0;
- NameFunc[10] = 0;
- NameFunc[11] = 0;
- NameFunc[12] = 0;
- NameFunc[13] = 0;
- NameFunc[14] = 0;
- NameFunc[15] = 0;
- NameFunc[16] = 0;
- NameFunc[17] = 0;
- NameFunc[18] = 0;
- NameFunc[19] = 0;
- 
- return 0;
- 
-}
-
-
-/* 'InitKernel' sets up data structures, fopies, copies, handlers */
-static Int InitKernel ( StructInitInfo * module )
-{
- 
- /* global variables used in handlers */
- InitCopyGVar( "REREADING", &GC_REREADING );
- InitFopyGVar( "SHALLOW_COPY_OBJ", &GF_SHALLOW__COPY__OBJ );
- InitCopyGVar( "PRINT_OBJ", &GC_PRINT__OBJ );
- InitCopyGVar( "GAPInfo", &GC_GAPInfo );
- InitCopyGVar( "TYPE_FUNCTION_WITH_NAME", &GC_TYPE__FUNCTION__WITH__NAME );
- InitCopyGVar( "TYPE_OPERATION_WITH_NAME", &GC_TYPE__OPERATION__WITH__NAME );
- InitFopyGVar( "IS_FUNCTION", &GF_IS__FUNCTION );
- InitFopyGVar( "NAME_FUNC", &GF_NAME__FUNC );
- InitFopyGVar( "SET_NAME_FUNC", &GF_SET__NAME__FUNC );
- InitFopyGVar( "NARG_FUNC", &GF_NARG__FUNC );
- InitFopyGVar( "IS_OPERATION", &GF_IS__OPERATION );
- InitFopyGVar( "AINV", &GF_AINV );
- InitFopyGVar( "IS_INT", &GF_IS__INT );
- InitFopyGVar( "IS_LIST", &GF_IS__LIST );
- InitFopyGVar( "ADD_LIST", &GF_ADD__LIST );
- InitFopyGVar( "IS_STRING_REP", &GF_IS__STRING__REP );
- InitFopyGVar( "Error", &GF_Error );
- InitFopyGVar( "VAL_GVAR", &GF_VAL__GVAR );
- InitFopyGVar( "TYPE_OBJ", &GF_TYPE__OBJ );
- InitFopyGVar( "IMMUTABLE_COPY_OBJ", &GF_IMMUTABLE__COPY__OBJ );
- InitFopyGVar( "IS_IDENTICAL_OBJ", &GF_IS__IDENTICAL__OBJ );
- InitFopyGVar( "MakeImmutable", &GF_MakeImmutable );
- InitFopyGVar( "INPUT_FILENAME", &GF_INPUT__FILENAME );
- InitFopyGVar( "INPUT_LINENUMBER", &GF_INPUT__LINENUMBER );
- InitCopyGVar( "IS_OBJECT", &GC_IS__OBJECT );
- InitCopyGVar( "TRY_NEXT_METHOD", &GC_TRY__NEXT__METHOD );
- InitFopyGVar( "SUB_FLAGS", &GF_SUB__FLAGS );
- InitFopyGVar( "WITH_HIDDEN_IMPS_FLAGS", &GF_WITH__HIDDEN__IMPS__FLAGS );
- InitFopyGVar( "WITH_IMPS_FLAGS", &GF_WITH__IMPS__FLAGS );
- InitFopyGVar( "IS_SUBSET_FLAGS", &GF_IS__SUBSET__FLAGS );
- InitFopyGVar( "TRUES_FLAGS", &GF_TRUES__FLAGS );
- InitFopyGVar( "FLAG1_FILTER", &GF_FLAG1__FILTER );
- InitFopyGVar( "FLAGS_FILTER", &GF_FLAGS__FILTER );
- InitFopyGVar( "METHODS_OPERATION", &GF_METHODS__OPERATION );
- InitFopyGVar( "SET_METHODS_OPERATION", &GF_SET__METHODS__OPERATION );
- InitCopyGVar( "DO_NOTHING_SETTER", &GC_DO__NOTHING__SETTER );
- InitFopyGVar( "IS_CONSTRUCTOR", &GF_IS__CONSTRUCTOR );
- InitFopyGVar( "QUO_INT", &GF_QUO__INT );
- InitCopyGVar( "fail", &GC_fail );
- InitCopyGVar( "RETURN_TRUE", &GC_RETURN__TRUE );
- InitCopyGVar( "RETURN_FALSE", &GC_RETURN__FALSE );
- InitFopyGVar( "LEN_LIST", &GF_LEN__LIST );
- InitFopyGVar( "APPEND_LIST_INTR", &GF_APPEND__LIST__INTR );
- InitFopyGVar( "COPY_LIST_ENTRIES", &GF_COPY__LIST__ENTRIES );
- InitFopyGVar( "CONV_STRING", &GF_CONV__STRING );
- InitFopyGVar( "Print", &GF_Print );
- InitCopyGVar( "ViewObj", &GC_ViewObj );
- InitFopyGVar( "WRITE_LOCK", &GF_WRITE__LOCK );
- InitFopyGVar( "READ_LOCK", &GF_READ__LOCK );
- InitFopyGVar( "UNLOCK", &GF_UNLOCK );
- InitFopyGVar( "MakeReadOnlySingleObj", &GF_MakeReadOnlySingleObj );
- InitCopyGVar( "RUN_IMMEDIATE_METHODS_RUNS", &GC_RUN__IMMEDIATE__METHODS__RUNS );
- InitCopyGVar( "RUN_IMMEDIATE_METHODS_CHECKS", &GC_RUN__IMMEDIATE__METHODS__CHECKS );
- InitCopyGVar( "RUN_IMMEDIATE_METHODS_HITS", &GC_RUN__IMMEDIATE__METHODS__HITS );
- InitFopyGVar( "BIND_GLOBAL", &GF_BIND__GLOBAL );
- InitCopyGVar( "IGNORE_IMMEDIATE_METHODS", &GC_IGNORE__IMMEDIATE__METHODS );
- InitCopyGVar( "IMM_FLAGS", &GC_IMM__FLAGS );
- InitCopyGVar( "TRACE_IMMEDIATE_METHODS", &GC_TRACE__IMMEDIATE__METHODS );
- InitCopyGVar( "IMMEDIATES", &GC_IMMEDIATES );
- InitCopyGVar( "SIZE_IMMEDIATE_METHOD_ENTRY", &GC_SIZE__IMMEDIATE__METHOD__ENTRY );
- InitCopyGVar( "IMMEDIATE_METHODS", &GC_IMMEDIATE__METHODS );
- InitFopyGVar( "NewSpecialRegion", &GF_NewSpecialRegion );
- InitCopyGVar( "METHODS_OPERATION_REGION", &GC_METHODS__OPERATION__REGION );
- InitFopyGVar( "RankFilter", &GF_RankFilter );
- InitCopyGVar( "CHECK_INSTALL_METHOD", &GC_CHECK__INSTALL__METHOD );
- InitCopyGVar( "READEVALCOMMAND_LINENUMBER", &GC_READEVALCOMMAND__LINENUMBER );
- InitFopyGVar( "INSTALL_METHOD", &GF_INSTALL__METHOD );
- InitFopyGVar( "DeclareGlobalFunction", &GF_DeclareGlobalFunction );
- InitCopyGVar( "OPERATIONS_REGION", &GC_OPERATIONS__REGION );
- InitFopyGVar( "EvalString", &GF_EvalString );
- InitCopyGVar( "WRAPPER_OPERATIONS", &GC_WRAPPER__OPERATIONS );
- InitFopyGVar( "INFO_DEBUG", &GF_INFO__DEBUG );
- InitFopyGVar( "GET_OPER_FLAGS", &GF_GET__OPER__FLAGS );
- InitFopyGVar( "NamesFilter", &GF_NamesFilter );
- InitFopyGVar( "Ordinal", &GF_Ordinal );
- InitCopyGVar( "HasNameFunction", &GC_HasNameFunction );
- InitFopyGVar( "INSTALL_METHOD_FLAGS", &GF_INSTALL__METHOD__FLAGS );
- InitCopyGVar( "LENGTH_SETTER_METHODS_2", &GC_LENGTH__SETTER__METHODS__2 );
- InitFopyGVar( "InstallAttributeFunction", &GF_InstallAttributeFunction );
- InitCopyGVar( "FILTER_REGION", &GC_FILTER__REGION );
- InitCopyGVar( "INFO_FILTERS", &GC_INFO__FILTERS );
- InitCopyGVar( "FNUM_CATS_AND_REPS", &GC_FNUM__CATS__AND__REPS );
- InitCopyGVar( "FILTERS", &GC_FILTERS );
- InitCopyGVar( "FNUM_PROS", &GC_FNUM__PROS );
- InitFopyGVar( "InstallOtherMethod", &GF_InstallOtherMethod );
- InitFopyGVar( "Tester", &GF_Tester );
- InitFopyGVar( "IsPrimeInt", &GF_IsPrimeInt );
- InitFopyGVar( "DeclareOperation", &GF_DeclareOperation );
- InitFopyGVar( "VALUE_GLOBAL", &GF_VALUE__GLOBAL );
- InitFopyGVar( "DeclareAttribute", &GF_DeclareAttribute );
- InitFopyGVar( "InstallMethod", &GF_InstallMethod );
- InitFopyGVar( "PositionSortedOddPositions", &GF_PositionSortedOddPositions );
- InitFopyGVar( "CallFuncList", &GF_CallFuncList );
- 
- /* information for the functions */
- InitGlobalBag( &FileName, "GAPROOT/lib/oper1.g:FileName("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc1, "GAPROOT/lib/oper1.g:HdlrFunc1("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[1]), "GAPROOT/lib/oper1.g:NameFunc[1]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc2, "GAPROOT/lib/oper1.g:HdlrFunc2("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[2]), "GAPROOT/lib/oper1.g:NameFunc[2]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc3, "GAPROOT/lib/oper1.g:HdlrFunc3("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[3]), "GAPROOT/lib/oper1.g:NameFunc[3]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc4, "GAPROOT/lib/oper1.g:HdlrFunc4("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[4]), "GAPROOT/lib/oper1.g:NameFunc[4]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc5, "GAPROOT/lib/oper1.g:HdlrFunc5("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[5]), "GAPROOT/lib/oper1.g:NameFunc[5]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc6, "GAPROOT/lib/oper1.g:HdlrFunc6("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[6]), "GAPROOT/lib/oper1.g:NameFunc[6]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc7, "GAPROOT/lib/oper1.g:HdlrFunc7("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[7]), "GAPROOT/lib/oper1.g:NameFunc[7]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc8, "GAPROOT/lib/oper1.g:HdlrFunc8("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[8]), "GAPROOT/lib/oper1.g:NameFunc[8]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc9, "GAPROOT/lib/oper1.g:HdlrFunc9("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[9]), "GAPROOT/lib/oper1.g:NameFunc[9]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc10, "GAPROOT/lib/oper1.g:HdlrFunc10("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[10]), "GAPROOT/lib/oper1.g:NameFunc[10]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc11, "GAPROOT/lib/oper1.g:HdlrFunc11("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[11]), "GAPROOT/lib/oper1.g:NameFunc[11]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc12, "GAPROOT/lib/oper1.g:HdlrFunc12("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[12]), "GAPROOT/lib/oper1.g:NameFunc[12]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc13, "GAPROOT/lib/oper1.g:HdlrFunc13("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[13]), "GAPROOT/lib/oper1.g:NameFunc[13]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc14, "GAPROOT/lib/oper1.g:HdlrFunc14("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[14]), "GAPROOT/lib/oper1.g:NameFunc[14]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc15, "GAPROOT/lib/oper1.g:HdlrFunc15("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[15]), "GAPROOT/lib/oper1.g:NameFunc[15]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc16, "GAPROOT/lib/oper1.g:HdlrFunc16("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[16]), "GAPROOT/lib/oper1.g:NameFunc[16]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc17, "GAPROOT/lib/oper1.g:HdlrFunc17("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[17]), "GAPROOT/lib/oper1.g:NameFunc[17]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc18, "GAPROOT/lib/oper1.g:HdlrFunc18("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[18]), "GAPROOT/lib/oper1.g:NameFunc[18]("FILE_CRC")" );
- InitHandlerFunc( HdlrFunc19, "GAPROOT/lib/oper1.g:HdlrFunc19("FILE_CRC")" );
- InitGlobalBag( &(NameFunc[19]), "GAPROOT/lib/oper1.g:NameFunc[19]("FILE_CRC")" );
- 
- return 0;
- 
-}
-
-/* 'InitLibrary' sets up gvars, rnams, functions */
-static Int InitLibrary ( StructInitInfo * module )
-{
- Obj func1;
- Obj body1;
- 
- /* Complete Copy/Fopy registration */
- UpdateCopyFopyInfo();
- FileName = MakeImmString( "GAPROOT/lib/oper1.g" );
- PostRestore(module);
- 
- /* create all the functions defined in this module */
- func1 = NewFunction(NameFunc[1],0,0,HdlrFunc1);
- SET_ENVI_FUNC( func1, STATE(CurrLVars) );
- body1 = NewFunctionBody();
- SET_BODY_FUNC( func1, body1 );
- CHANGED_BAG( func1 );
- CALL_0ARGS( func1 );
- 
- return 0;
- 
-}
-
-/* <name> returns the description of this module */
-static StructInitInfo module = {
- .type        = MODULE_STATIC,
- .name        = "GAPROOT/lib/oper1.g",
- .crc         = -76837766,
- .initKernel  = InitKernel,
- .initLibrary = InitLibrary,
- .postRestore = PostRestore,
-};
-
-StructInitInfo * Init__oper1 ( void )
-{
- return &module;
-}
-
-/* compiled code ends here */
-#endif
diff --git a/tst/testbugfix/2021-03-25-InstallMethod.tst b/tst/testbugfix/2021-03-25-InstallMethod.tst
new file mode 100644
index 0000000000..86fb5ca156
--- /dev/null
+++ b/tst/testbugfix/2021-03-25-InstallMethod.tst
@@ -0,0 +1,5 @@
+# Installing an operation as a method for itself is forbidden (now, at least;
+# it used to lead to a segfault if you ever managed to trigger that "method")
+# Fixes GitHub issues #1286 and #4340.
+gap> foo := NewOperation("foo", [IsObject]);;
+gap> InstallMethod(foo, [IsInt], foo);