SCM k_pointer = scm_from_utf8_keyword ("irr-pointer");
SCM scm_pointer = scm_from_pointer (pointer, NULL);
return scm_make (scm_list_3 (scm_class, k_pointer, scm_pointer));
SCM k_pointer = scm_from_utf8_keyword ("irr-pointer");
SCM scm_pointer = scm_from_pointer (pointer, NULL);
return scm_make (scm_list_3 (scm_class, k_pointer, scm_pointer));