Added support for serializing sequences.

com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RSerialize.java

@@ -20,6 +20,7 @@ import com.oracle.truffle.r.options.*;
 import com.oracle.truffle.r.runtime.conn.*;
 import com.oracle.truffle.r.runtime.data.*;
 import com.oracle.truffle.r.runtime.data.RAttributes.RAttribute;
+import com.oracle.truffle.r.runtime.data.model.*;
 import com.oracle.truffle.r.runtime.env.*;
 import com.oracle.truffle.r.runtime.gnur.*;
 import com.oracle.truffle.r.runtime.instrument.*;
@@ -1293,7 +1294,7 @@ public class RSerialize {
                     }
 
                     case INTSXP: {
-                        RIntVector vec = (RIntVector) obj;
+                        RAbstractIntVector vec = (RAbstractIntVector) obj;
                         stream.writeInt(vec.getLength());
                         for (int i = 0; i < vec.getLength(); i++) {
                             stream.writeInt(vec.getDataAt(i));
@@ -1302,7 +1303,7 @@ public class RSerialize {
                     }
 
                     case REALSXP: {
-                        RDoubleVector vec = (RDoubleVector) obj;
+                        RAbstractDoubleVector vec = (RAbstractDoubleVector) obj;
                         stream.writeInt(vec.getLength());
                         for (int i = 0; i < vec.getLength(); i++) {
                             stream.writeDouble(vec.getDataAt(i));

com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/gnur/SEXPTYPE.java

@@ -34,8 +34,8 @@ public enum SEXPTYPE {
     BUILTINSXP(8), /* builtin non-special forms */
     CHARSXP(9), /* "scalar" string type (GnuR internal only) */
     LGLSXP(10, RLogicalVector.class), /* logical vectors */
-    INTSXP(13, RIntVector.class), /* integer vectors */
-    REALSXP(14, RDoubleVector.class), /* real variables */
+    INTSXP(13, new Class<?>[]{RIntVector.class, RIntSequence.class}), /* integer vectors */
+    REALSXP(14, new Class<?>[]{RDoubleVector.class, RDoubleSequence.class}), /* real variables */
     CPLXSXP(15, RComplexVector.class), /* complex variables */
     STRSXP(16, new Class<?>[]{RStringVector.class, String.class}), /* string vectors */
     DOTSXP(17, RPairList.class), /* dot-dot-dot object */