// [[Rcpp::export]] int xptr_2( XPtr< std::vector<int> > p){ /* just return the front of the vector as a SEXP */ return p->front() ; }
// [[Rcpp::export]] int xptr_use_released( XPtr< std::vector<int> > p ) { return p->front(); }