src/cairogd.c 393 SEXP cairo_font_set(SEXP args){ 394 #if CAIRO_HAS_FT_FONT 395 SEXP v; 396 int i; 397 const char *font; 398 399 args = CDR(args); 400 401 /* regular font */ 402 for (i = 0; i < 5; i++){ 403 v = CAR(args); args = CDR(args);…