* @param tree2
   * @return boolean
   */
  public static boolean equalConsTreesP(Stella_Object tree1, Stella_Object tree2) {
    if (Stella_Object.eqlP(tree1, tree2)) {
      return (true);
    }
    else {
      if (Stella_Object.safePrimaryType(tree1) == Stella.SGT_STELLA_CONS) {
        { Cons tree1000 = ((Cons)(tree1));

          if (Stella_Object.safePrimaryType(tree2) == Stella.SGT_STELLA_CONS) {
            { Cons tree2000 = ((Cons)(tree2));

              return (Stella_Object.equalConsTreesP(tree1000.value, tree2000.value) &&
                  Stella_Object.equalConsTreesP(tree1000.rest, tree2000.rest));
            }
          }
          else {
            return (false);
          }
        }
      }
      else {
        return (false);
      }
    }
  }