LISP结果缓冲区

/// 
/// Converts a  to . If the Lisp arguments are below the minimum or above the maximum required, an exception will be thrown.
/// 
/// 
/// 
/// 
/// 
/// 
public static List HandleLispArguments(ResultBuffer arguments, int minimum, int maximum)
{
    if (arguments == null)
        throw new System.Exception("too few arguments");
    TypedValue[] rawArgs = arguments.AsArray();
    List Arguments = new List();
            
    // List Depth
    int depth = 0;
            
    Action, int, object> Add = null;
            
    Add = (list, depth, item) =>
    {
        if (depth == 0)
            list.Add(item);
        else
            Add((List)list[list.Count - 1], --depth, item);
    };
    foreach (TypedValue item in rawArgs)
    {
        object selected = item;
        if (item.TypeCode == (short)LispDataType.ListBegin)
        {
            Add(Arguments, depth, new List());
            depth++;
            selected = null;
        }
        else if(item.TypeCode == (short)LispDataType.ListEnd)
        {
            depth--;
            selected = null;
        }
        if (selected != null)
            Add(Arguments, depth, selected);
    }
    if (Arguments.Count  maximum)
        throw new System.Exception("too many arguments");
    return Arguments;
}