lp 780 gc/typd_mlc.c VOLATILE struct LeafDescriptor * lp = lp 785 gc/typd_mlc.c lp -> ld_tag = LEAF_TAG; lp 786 gc/typd_mlc.c lp -> ld_size = leaf.ld_size; lp 787 gc/typd_mlc.c lp -> ld_nelements = leaf.ld_nelements; lp 788 gc/typd_mlc.c lp -> ld_descriptor = leaf.ld_descriptor; lp 789 gc/typd_mlc.c ((VOLATILE word *)op)[lw - 1] = (word)lp; lp 2171 src/class.c ScmObj lp, h, t; lp 2185 src/class.c SCM_FOR_EACH(lp, llist) req++; lp 2186 src/class.c if (!SCM_NULLP(lp)) opt++; lp 1489 src/intlib.c ScmObj fp, lp; lp 1493 src/intlib.c SCM_FOR_EACH(lp, SCM_CAR(fp)) { lp 1494 src/intlib.c if (SCM_EQ(SCM_CAR(lp), lvar)) { lp 158 src/list.c ScmObj *array, lp; lp 172 src/list.c for (i=0, lp=list; i<len; i++, lp=SCM_CDR(lp)) { lp 173 src/list.c array[i] = SCM_CAR(lp); lp 580 src/list.c ScmObj result = SCM_NIL, tail = SCM_NIL, lp; lp 581 src/list.c SCM_FOR_EACH(lp, list) { lp 582 src/list.c if (SCM_FALSEP(Scm_Member(SCM_CAR(lp), result, cmpmode))) { lp 583 src/list.c SCM_APPEND1(result, tail, SCM_CAR(lp)); lp 586 src/list.c if (!SCM_NULLP(lp)) SCM_SET_CDR(lp, tail); lp 592 src/list.c ScmObj lp; lp 594 src/list.c SCM_FOR_EACH(lp, list) { lp 595 src/list.c ScmObj obj = SCM_CAR(lp); lp 596 src/list.c ScmObj tail = Scm_DeleteX(obj, SCM_CDR(lp), cmpmode); lp 597 src/list.c if (SCM_CDR(lp) != tail) SCM_SET_CDR(lp, tail); lp 330 src/macro.c ScmObj lp; lp 337 src/macro.c SCM_FOR_EACH(lp, list) { lp 338 src/macro.c if (SCM_OBJ(SCM_IDENTIFIER(SCM_CAR(lp))->name) == name) lp 339 src/macro.c return SCM_CAR(lp); lp 354 src/macro.c ScmObj lp, h = SCM_NIL, t = SCM_NIL; lp 355 src/macro.c SCM_FOR_EACH(lp, literals) { lp 356 src/macro.c ScmObj lit = SCM_CAR(lp); lp 364 src/macro.c if (!SCM_NULLP(lp)) lp 342 src/module.c ScmObj lp; lp 345 src/module.c SCM_FOR_EACH(lp, list) { lp 346 src/module.c if (SCM_SYMBOLP(SCM_CAR(lp))) { lp 347 src/module.c name = SCM_SYMBOL(SCM_CAR(lp)); lp 348 src/module.c } else if (SCM_IDENTIFIERP(SCM_CAR(lp))) { lp 349 src/module.c name = SCM_IDENTIFIER(SCM_CAR(lp))->name; lp 351 src/module.c Scm_Error("module name required, but got %S", SCM_CAR(lp)); lp 365 src/module.c ScmObj lp, syms, badsym = SCM_FALSE; lp 381 src/module.c SCM_FOR_EACH(lp, list) { lp 382 src/module.c if (!SCM_SYMBOLP(SCM_CAR(lp))) { lp 384 src/module.c badsym = SCM_CAR(lp); lp 387 src/module.c s = SCM_SYMBOL(SCM_CAR(lp));