[Rd] grDevice in R HEAD been broken for 6 weeks.

[Hin-Tak Leung]

geDevice has been failing check for 6 weeks now with --enable-strict-barrier , 
bisected to:

------------------------------------------------------------------------
r69049 | murrell | 2015-08-14 00:03:12 +0100 (Fri, 14 Aug 2015) | 2 lines

first hack at adding grid display list to recorded plot objects, so can add further grid drawing following a replayPlot()

------------------------------------------------------------------------

It seems to be broken by the GE_SaveSnapshotState addition
in src/library/grid/src/state.c:

     case GE_SaveSnapshotState:
+        /*
+         * Save the current 'grid' DL.
+         */
+        PROTECT(result = allocVector(VECSXP, 3));
+        SET_VECTOR_ELT(result, 0, gridStateElement(dd, GSS_DL));
+        SET_VECTOR_ELT(result, 1, gridStateElement(dd, GSS_DLINDEX));
+        UNPROTECT(1);
        break;

> showCols2()
Loading required package: grid
Error in grDevices:::recordPalette() : 
  LOGICAL() can only be applied to a 'logical', not a 'list'
Calls: demo ... eval -> eval -> showCols2 -> grid.newpage -> <Anonymous>
Execution halted

somewhere else it seems to expect the outcome of GE_SaveSnapshotState to be
a logical array rather than a list, though I cannot find where it is.

Any chance of that getting fixed any time soon?