SCM_SHA1P          57 ext/digest/sha1.c   if (!SCM_SHA1P(sha1_scm)) Scm_Error("<sha1> required, but got %S", sha1_scm);
SCM_SHA1P          86 ext/digest/sha1.c   if (!SCM_SHA1P(sha1_scm)) Scm_Error("<sha1> required, but got %S", sha1_scm);