Function setcdr 

pub(crate) fn setcdr<'ob>(
    cell: &Cons,
    newcdr: Gc<ObjectType<'ob>>,
) -> Result<Gc<ObjectType<'ob>>>