public static Stella_Object clTranslateArgumentListTree(Cons tree) {
    { Symbol operator = null;
      Surrogate owner = null;
      Cons arguments = null;

      { Object [] caller_MV_returnarray = new Object[2];

        operator = Cons.destructureCallTree(tree, caller_MV_returnarray);
        owner = ((Surrogate)(caller_MV_returnarray[0]));
        arguments = ((Cons)(caller_MV_returnarray[1]));
      }
      owner = owner;
      if (operator == Stella.SYM_STELLA_ALLOCATE_ITERATOR) {
        return (Stella_Object.clTranslateATree(arguments.value));
      }
      else if (operator == Stella.SYM_STELLA_LENGTH) {
        return (Cons.list$(Cons.cons(Stella.internCommonLispSymbol("LENGTH"), Cons.cons(Stella_Object.clTranslateATree(arguments.value), Cons.cons(Stella.NIL, Stella.NIL)))));
      }
      else if (operator == Stella.SYM_STELLA_NEXTp) {
        return (Stella_Object.clTranslateATree(arguments.value));
      }
      else if (operator == Stella.SYM_STELLA_ARGUMENT) {
        return (Cons.list$(Cons.cons(Stella.internCommonLispSymbol("POP"), Cons.cons(Stella_Object.clTranslateATree(arguments.value), Cons.cons(Stella.NIL, Stella.NIL)))));
      }
      else {
        { Object old$PrintreadablyP$000 = Stella.$PRINTREADABLYp$.get();

          try {
            Native.setBooleanSpecial(Stella.$PRINTREADABLYp$, true);
            Stella.signalTranslationError();
            if (!(Stella.suppressWarningsP())) {
              Stella.printErrorContext(">> ERROR: ", Stella.STANDARD_ERROR);
              {
                Stella.STANDARD_ERROR.nativeStream.println();
                Stella.STANDARD_ERROR.nativeStream.println(" Cannot translate call to `" + Stella_Object.deUglifyParseTree(operator) + "' on an `ARGUMENT-LIST'.");
              }
;
            }

          } finally {
            Stella.$PRINTREADABLYp$.set(old$PrintreadablyP$000);
          }
        }
        return (Cons.cons(operator, Cons.cons(Stella_Object.clTranslateATree(arguments.value), Stella.NIL)));
      }
    }
  }