Esempio n. 1
0
        static public object GetArgStar(object list, ConsCollection <Symbol> keys, object defaultValue)
        {
            if (list == null)
            {
                return(defaultValue);
            }
            Cons firstPair  = (Cons)list;
            Cons secondPair = (Cons)(firstPair.Cdr);

            if (CL.Memq <Symbol> ((Symbol)firstPair.Car, keys) != null)
            {
                return(secondPair.Car);
            }
            else
            {
                return(GetArgStar(secondPair.Cdr, keys, defaultValue));
            }
        }