@@ -85,7 +85,7 @@ multiassign <- function (x, value, envir = parent.frame(), inherits = FALSE) {

 #### Functions for lists and environments

 listLen <- function(x)

-   .Call("listLen", x, PACKAGE="Biobase")

+    lengths(x)

 .new_env_size <- function(n) {

@@ -5,7 +5,6 @@

 SEXP anyMissing(SEXP);

 SEXP copyEnv(SEXP e1, SEXP e2, SEXP all);

 SEXP listToEnv(SEXP, SEXP);

-SEXP listLen(SEXP);

 SEXP rowQ(SEXP, SEXP);

 SEXP rowMedians(SEXP, SEXP, SEXP, SEXP);

 SEXP rowQuantiles(SEXP, SEXP);

@@ -22,7 +21,6 @@ __declspec(dllexport)

         {"anyMissing", (DL_FUNC)&anyMissing, 1},

         {"copyEnv", (DL_FUNC)&copyEnv, 3},

         {"listToEnv", (DL_FUNC)&listToEnv, 2},

-        {"listLen", (DL_FUNC)&listLen, 1},

         {"rowQ", (DL_FUNC)&rowQ, 2},

         {"rowMedians", (DL_FUNC)&rowMedians, 4},

         {"unsafe_set_slot", (DL_FUNC)&unsafe_set_slot, 3},

@@ -11,23 +11,6 @@

 */

-SEXP listLen(SEXP x)

-{

-  SEXP ans;

-  int i;

-  int *lens;

-

-  if (!Rf_isNewList(x))

-      error("arg 'x' must be a 'list', not '%s'", type2char(TYPEOF(x)));

-

-  PROTECT(ans = allocVector(INTSXP, length(x)));

-  lens = INTEGER(ans);

-  for(i = 0; i < length(x); i++)

-    lens[i] = length(VECTOR_ELT(x, i));

-  UNPROTECT(1);

-  return(ans);

-}

-

 SEXP copyEnv(SEXP e1, SEXP e2, SEXP all)

 {

     SEXP nms, sym, val;