SCM_CHAR_LOWER_P  263 src/gauche.h   #define SCM_CHAR_UPCASE(ch)     (SCM_CHAR_LOWER_P(ch)?((ch)-('a'-'A')):(ch))
SCM_CHAR_LOWER_P 2407 src/stdlib.c   SCM_RESULT = SCM_CHAR_LOWER_P(c);