// [[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();
}
