SCM_PAIRP 705 src/bignum.c for (;SCM_PAIRP(args); args = SCM_CDR(args)) { SCM_PAIRP 728 src/bignum.c for (;SCM_PAIRP(args); args = SCM_CDR(args)) { SCM_PAIRP 899 src/bignum.c for (; SCM_PAIRP(args); args = SCM_CDR(args)) { SCM_PAIRP 64 src/boolean.c if (SCM_PAIRP(x)) { SCM_PAIRP 65 src/boolean.c if (!SCM_PAIRP(y)) return FALSE; SCM_PAIRP 70 src/boolean.c } while (SCM_PAIRP(x)&&SCM_PAIRP(y)); SCM_PAIRP 455 src/class.c } else if (SCM_PAIRP(obj)) { SCM_PAIRP 545 src/class.c if (!SCM_PAIRP(val)) goto err; SCM_PAIRP 615 src/class.c if (!SCM_PAIRP(SCM_CAR(vp))) SCM_PAIRP 631 src/class.c if (!SCM_PAIRP(SCM_CAR(vp))) SCM_PAIRP 647 src/class.c if (!SCM_PAIRP(SCM_CAR(vp)) SCM_PAIRP 1242 src/class.c if (!SCM_PAIRP(p)) return NULL; SCM_PAIRP 1824 src/class.c SCM_ASSERT(SCM_PAIRP(SCM_CAR(accs)) SCM_PAIRP 2393 src/class.c if (SCM_PAIRP(mp)) { SCM_PAIRP 2398 src/class.c while (SCM_PAIRP(SCM_CDR(mp))) { SCM_PAIRP 2656 src/class.c if (SCM_PAIRP(p)) return SCM_CDR(p); SCM_PAIRP 2668 src/class.c if (SCM_PAIRP(p)) return SCM_SET_CDR(p, value); SCM_PAIRP 2755 src/class.c if (SCM_PAIRP(supers)) { SCM_PAIRP 2774 src/class.c } else if (SCM_PAIRP(SCM_CDR(h))) { SCM_PAIRP 2830 src/class.c SCM_ASSERT(SCM_PAIRP(slot)); SCM_PAIRP 205 src/code.c if (!SCM_PAIRP(info)) { SCM_PAIRP 333 src/code.c if (SCM_PAIRP(p)) { SCM_PAIRP 369 src/code.c SCM_ASSERT(SCM_PAIRP(b->currentOperand) SCM_PAIRP 370 src/code.c && SCM_PAIRP(SCM_CDR(b->currentOperand))); SCM_PAIRP 161 src/compaux.c if (!SCM_PAIRP(SCM_CAR(frame))) continue; SCM_PAIRP 257 src/compaux.c if (SCM_PAIRP(form)) { SCM_PAIRP 759 src/error.c if (SCM_PAIRP(SCM_CAR(cp))) { SCM_PAIRP 762 src/error.c if (SCM_PAIRP(srci) && SCM_PAIRP(SCM_CDR(srci))) { SCM_PAIRP 586 src/extlib.c if (SCM_PAIRP(args)) { SCM_PAIRP 588 src/extlib.c if (!SCM_PAIRP(SCM_CDR(cp))) { SCM_PAIRP 817 src/extlib.c if (!SCM_PAIRP(SCM_CAR(cp)) && SCM_NULLP(SCM_CDR(cp))) { SCM_PAIRP 4751 src/extlib.c } else if (!SCM_PAIRP(e->value)) { SCM_PAIRP 761 src/gauche.h (SCM_PAIRP(obj)&&GC_base(obj)&&GC_size(obj)>=sizeof(ScmExtendedPair)) SCM_PAIRP 772 src/gauche.h #define SCM_LISTP(obj) (SCM_NULLP(obj) || SCM_PAIRP(obj)) SCM_PAIRP 777 src/gauche.h for((p) = (list); SCM_PAIRP(p); (p) = SCM_CDR(p)) SCM_PAIRP 162 src/hash.c } else if (SCM_PAIRP(obj)) { SCM_PAIRP 23 src/intlib.c if (!SCM_PAIRP(pair_scm)) Scm_Error("pair required, but got %S", pair_scm); SCM_PAIRP 50 src/intlib.c if (!SCM_PAIRP(pair_scm)) Scm_Error("pair required, but got %S", pair_scm); SCM_PAIRP 82 src/intlib.c if (!SCM_PAIRP(pair_scm)) Scm_Error("pair required, but got %S", pair_scm); SCM_PAIRP 1729 src/intlib.c while (SCM_PAIRP(lis1) && SCM_PAIRP(lis2)) { SCM_PAIRP 86 src/keyword.c if (!SCM_PAIRP(SCM_CDR(cp))) { SCM_PAIRP 102 src/keyword.c if (!SCM_PAIRP(SCM_CDR(cp))) { SCM_PAIRP 128 src/keyword.c if (!SCM_PAIRP(SCM_CDR(cp))) { SCM_PAIRP 190 src/list.c if (!SCM_PAIRP(obj2)) Scm_Error("bad object: %S", obj); \ SCM_PAIRP 194 src/list.c if (!SCM_PAIRP(obj2)) Scm_Error("bad object: %S", obj); \ SCM_PAIRP 220 src/list.c if (!SCM_PAIRP(obj)) return SCM_LIST_DOTTED; SCM_PAIRP 225 src/list.c if (!SCM_PAIRP(obj)) return SCM_LIST_DOTTED; SCM_PAIRP 244 src/list.c if (!SCM_PAIRP(list)) return list; SCM_PAIRP 297 src/list.c if (!SCM_PAIRP(list)) return obj; SCM_PAIRP 311 src/list.c if (!SCM_PAIRP(SCM_CDR(cp))) { SCM_PAIRP 317 src/list.c } else if (!SCM_PAIRP(SCM_CAR(cp))) { SCM_PAIRP 336 src/list.c if (!SCM_PAIRP(list)) return list; SCM_PAIRP 358 src/list.c if (!SCM_PAIRP(list)) return list; SCM_PAIRP 359 src/list.c for (first = list; SCM_PAIRP(first); first = next) { SCM_PAIRP 377 src/list.c if (!SCM_PAIRP(list)) goto err; SCM_PAIRP 391 src/list.c if (!SCM_PAIRP(list)) goto err; SCM_PAIRP 394 src/list.c if (!SCM_PAIRP(list)) goto err; SCM_PAIRP 412 src/list.c if (!SCM_PAIRP(l)) Scm_Error("pair required: %S", l); SCM_PAIRP 415 src/list.c if (!SCM_PAIRP(cdr)) return cp; SCM_PAIRP 464 src/list.c if (SCM_PAIRP(prev)) SCM_SET_CDR(last, prev); SCM_PAIRP 498 src/list.c if (!SCM_PAIRP(entry)) continue; SCM_PAIRP 510 src/list.c if (!SCM_PAIRP(entry)) continue; SCM_PAIRP 522 src/list.c if (!SCM_PAIRP(entry)) continue; SCM_PAIRP 539 src/list.c if (SCM_PAIRP(p)) { SCM_PAIRP 549 src/list.c if (SCM_PAIRP(prev)) SCM_SET_CDR(last, prev); SCM_PAIRP 561 src/list.c if (SCM_PAIRP(e)) { SCM_PAIRP 629 src/list.c for (sp=seqv; SCM_PAIRP(sequences); sp++, sequences=SCM_CDR(sequences)) { SCM_PAIRP 643 src/list.c if (!SCM_PAIRP(*sp)) continue; SCM_PAIRP 646 src/list.c if (!SCM_PAIRP(*tp)) continue; SCM_PAIRP 661 src/list.c if (SCM_PAIRP(*sp) && SCM_EQ(next, SCM_CAR(*sp))) { SCM_PAIRP 699 src/list.c if (SCM_PAIRP(p)) return SCM_CDR(p); SCM_PAIRP 716 src/list.c if (SCM_PAIRP(p)) SCM_SET_CDR(p, value); SCM_PAIRP 315 src/load.c if (SCM_PAIRP(lpath)) { SCM_PAIRP 357 src/load.c if (!SCM_PAIRP(load_paths)) load_paths = Scm_GetLoadPath(); SCM_PAIRP 504 src/load.c if (!SCM_PAIRP(ldinfo.load_path_rec->value)) { SCM_PAIRP 514 src/load.c if (!SCM_PAIRP(ldinfo.dynload_path_rec->value)) { SCM_PAIRP 844 src/load.c SCM_ASSERT(SCM_PAIRP(p)); SCM_PAIRP 853 src/load.c SCM_ASSERT(SCM_PAIRP(q)); SCM_PAIRP 855 src/load.c SCM_ASSERT(SCM_PAIRP(p)); SCM_PAIRP 971 src/load.c } else if (SCM_PAIRP(entry) SCM_PAIRP 973 src/load.c && SCM_PAIRP(SCM_CDR(entry)) SCM_PAIRP 211 src/macro.c SCM_ASSERT(SCM_PAIRP(form)); SCM_PAIRP 310 src/macro.c if (!SCM_PAIRP(q)) return pvar; SCM_PAIRP 323 src/macro.c SCM_ASSERT(SCM_PAIRP(q)); SCM_PAIRP 345 src/macro.c (SCM_PAIRP(SCM_CDR(Pat)) && SCM_CADR(Pat)==SCM_SYM_ELLIPSIS) SCM_PAIRP 382 src/macro.c if (SCM_PAIRP(form)) { SCM_PAIRP 500 src/macro.c if (!SCM_PAIRP(ctx.form)) goto badform; SCM_PAIRP 573 src/macro.c if (!SCM_PAIRP(tree)) { SCM_PAIRP 579 src/macro.c if (!SCM_PAIRP(tree)) { SCM_PAIRP 697 src/macro.c while (SCM_PAIRP(form)) { SCM_PAIRP 723 src/macro.c if (SCM_PAIRP(pattern)) { SCM_PAIRP 724 src/macro.c while (SCM_PAIRP(pattern)) { SCM_PAIRP 729 src/macro.c } else if (!SCM_PAIRP(form)) { SCM_PAIRP 784 src/macro.c if (SCM_PAIRP(template)) { SCM_PAIRP 786 src/macro.c while (SCM_PAIRP(template)) { SCM_PAIRP 846 src/macro.c if (SCM_PAIRP(p)) return SCM_CDR(p); SCM_PAIRP 938 src/macro.c if (!SCM_PAIRP(expr)) return expr; SCM_PAIRP 247 src/module.c SCM_ASSERT(SCM_PAIRP(module->mpl)); SCM_PAIRP 911 src/number.c if (!SCM_PAIRP(args)) return Scm_MakeInteger(result_int); SCM_PAIRP 915 src/number.c if (!SCM_PAIRP(args)) return arg0; SCM_PAIRP 945 src/number.c if (!SCM_PAIRP(args)) return Scm_MakeFlonum(result_real); SCM_PAIRP 970 src/number.c if (!SCM_PAIRP(args)) { SCM_PAIRP 1119 src/number.c if (!SCM_PAIRP(args)) return Scm_MakeInteger(result_int); SCM_PAIRP 1123 src/number.c if (!SCM_PAIRP(args)) return arg0; SCM_PAIRP 1148 src/number.c if (!SCM_PAIRP(args)) return Scm_MakeFlonum(result_real); SCM_PAIRP 1180 src/number.c if (!SCM_PAIRP(args)) { SCM_PAIRP 134 src/proc.c if (SCM_PAIRP(args)) { SCM_PAIRP 167 src/proc.c if (SCM_PAIRP(args)) { SCM_PAIRP 211 src/proc.c if (!SCM_PAIRP(argsN)) { SCM_PAIRP 156 src/prof.c SCM_ASSERT(SCM_PAIRP(e->value)); SCM_PAIRP 204 src/prof.c SCM_ASSERT(SCM_PAIRP(e->value)); SCM_PAIRP 268 src/read.c SCM_ASSERT(SCM_PAIRP(entry)); SCM_PAIRP 274 src/read.c } else if (SCM_PAIRP(obj)) { SCM_PAIRP 620 src/read.c if (SCM_PAIRP(r) && (ctx->flags & SCM_READ_SOURCE_INFO) && line >= 0) { SCM_PAIRP 1084 src/read.c SCM_ASSERT(SCM_PAIRP(e->value)); SCM_PAIRP 550 src/regexp.c if (SCM_PAIRP(alt) && SCM_NULLP(SCM_CDR(alt))) { SCM_PAIRP 677 src/regexp.c if (SCM_PAIRP(token)&& SCM_PAIRP 797 src/regexp.c if (!SCM_PAIRP(seq)) return seq; SCM_PAIRP 801 src/regexp.c if (!SCM_PAIRP(elt) || SCM_EQ(SCM_CAR(elt), SCM_SYM_COMP)) { SCM_PAIRP 814 src/regexp.c SCM_ASSERT(SCM_PAIRP(repbody)); SCM_PAIRP 830 src/regexp.c if (!SCM_PAIRP(ast)) return ast; SCM_PAIRP 868 src/regexp.c if (SCM_PAIRP(x)) { SCM_PAIRP 880 src/regexp.c if (SCM_PAIRP(SCM_CDR(x))) { SCM_PAIRP 1024 src/regexp.c if (!SCM_PAIRP(ast)) { SCM_PAIRP 1118 src/regexp.c if (SCM_PAIRP(SCM_CDR(ast)) && SCM_NULLP(SCM_CDDR(ast))) { SCM_PAIRP 1125 src/regexp.c if (SCM_PAIRP(elem)&&SCM_EQ(SCM_CAR(elem), SCM_SYM_COMP)) { SCM_PAIRP 1199 src/regexp.c SCM_PAIRP(SCM_CDR(clause)); SCM_PAIRP 1308 src/regexp.c SCM_ASSERT(SCM_PAIRP(jlist)); SCM_PAIRP 1320 src/regexp.c if (!SCM_PAIRP(ast)) { SCM_PAIRP 1327 src/regexp.c if (!SCM_PAIRP(SCM_CDR(ast))) return FALSE; SCM_PAIRP 1523 src/regexp.c if (!SCM_PAIRP(ast)) { SCM_PAIRP 1561 src/regexp.c if (!SCM_PAIRP(SCM_CDR(ast)) || !SCM_INTP(SCM_CADR(ast)) SCM_PAIRP 1632 src/regexp.c if (!SCM_PAIRP(ast) || !SCM_INTP(SCM_CAR(ast))) { SCM_PAIRP 351 src/signal.c if (!SCM_PAIRP(signals)) { SCM_PAIRP 520 src/stdlib.c if (!SCM_PAIRP(SCM_CDR(args))) { SCM_PAIRP 542 src/stdlib.c if (!SCM_PAIRP(args)) return SCM_MAKE_INT(1); SCM_PAIRP 543 src/stdlib.c if (!SCM_PAIRP(SCM_CDR(args))) { SCM_PAIRP 1364 src/stdlib.c SCM_RESULT = SCM_PAIRP(obj); SCM_PAIRP 1402 src/stdlib.c if (!SCM_PAIRP(obj_scm)) Scm_Error("pair required, but got %S", obj_scm); SCM_PAIRP 1422 src/stdlib.c if (!SCM_PAIRP(obj_scm)) Scm_Error("pair required, but got %S", obj_scm); SCM_PAIRP 1444 src/stdlib.c if (!SCM_PAIRP(obj_scm)) Scm_Error("pair required, but got %S", obj_scm); SCM_PAIRP 1465 src/stdlib.c if (!SCM_PAIRP(obj_scm)) Scm_Error("pair required, but got %S", obj_scm); SCM_PAIRP 1480 src/stdlib.c if (!SCM_PAIRP(cell)) Scm_Error("can't set c" #pre #tail "r of %S", obj); \ SCM_PAIRP 3409 src/stdlib.c if (!SCM_PAIRP(SCM_CDR(cp))) { SCM_PAIRP 478 src/system.c SCM_ASSERT(SCM_PAIRP(comps)); SCM_PAIRP 500 src/system.c if (SCM_PAIRP(comps)) { SCM_PAIRP 1202 src/system.c if (SCM_PAIRP(iomap)) { SCM_PAIRP 1214 src/system.c if (!SCM_PAIRP(elt) || !SCM_INTP(SCM_CAR(elt)) SCM_PAIRP 1349 src/system.c } else if (SCM_PAIRP(timeout) && SCM_PAIRP(SCM_CDR(timeout))) { SCM_PAIRP 96 src/vector.c if (!SCM_PAIRP(e)) { SCM_PAIRP 1636 src/vm.c if (!SCM_PAIRP(VAL0)) { SCM_PAIRP 1644 src/vm.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 1652 src/vm.c if (!SCM_PAIRP(VAL0)) { SCM_PAIRP 1660 src/vm.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 1669 src/vm.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 1673 src/vm.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 1681 src/vm.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 1685 src/vm.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 1694 src/vm.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 1698 src/vm.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 1706 src/vm.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 1710 src/vm.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 1719 src/vm.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 1723 src/vm.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 1731 src/vm.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 1735 src/vm.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 1744 src/vm.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 1748 src/vm.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 1756 src/vm.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 1760 src/vm.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 1885 src/vm.c VAL0 = SCM_MAKE_BOOL(SCM_PAIRP(VAL0)); SCM_PAIRP 3213 src/vm.c for (hp = current; SCM_PAIRP(hp)&&hp != target; hp = SCM_CDR(hp)) { SCM_PAIRP 3399 src/vm.c SCM_ASSERT(SCM_PAIRP(SCM_CAR(p))); SCM_PAIRP 3405 src/vm.c SCM_ASSERT(SCM_PAIRP(SCM_CAR(p))); SCM_PAIRP 3429 src/vm.c if (SCM_PAIRP(handlers)) { SCM_PAIRP 3452 src/vm.c for (i=0, ap=SCM_CDR(args); SCM_PAIRP(ap); i++, ap=SCM_CDR(ap)) { SCM_PAIRP 3532 src/vm.c if (!SCM_PAIRP(args)) { SCM_PAIRP 3728 src/vm.c if (SCM_PAIRP(vm->pc)) { SCM_PAIRP 3734 src/vm.c if (!SCM_PAIRP(c->info)) continue; SCM_PAIRP 3758 src/vm.c if (!SCM_PAIRP(p) || !SCM_INTP(SCM_CAR(p))) continue; SCM_PAIRP 3770 src/vm.c if (SCM_PAIRP(info)) { SCM_PAIRP 3772 src/vm.c if (SCM_PAIRP(p)) return SCM_CDR(p); SCM_PAIRP 3780 src/vm.c if (SCM_PAIRP(info)) { SCM_PAIRP 3782 src/vm.c if (SCM_PAIRP(p)) return SCM_CDR(p); SCM_PAIRP 145 src/write.c SCM_ASSERT(SCM_PAIRP(port->data)&&SCM_HASH_TABLE_P(SCM_CDR(port->data))); SCM_PAIRP 151 src/write.c SCM_ASSERT(SCM_PAIRP(port->data)&&SCM_HASH_TABLE_P(SCM_CDR(port->data))); SCM_PAIRP 353 src/write.c if (SCM_PAIRP(obj)) { SCM_PAIRP 406 src/write.c if (SCM_PAIRP(port->data) && SCM_HASH_TABLE_P(SCM_CDR(port->data))) { SCM_PAIRP 475 src/write.c if (SCM_PAIRP(obj)) { SCM_PAIRP 477 src/write.c if (SCM_PAIRP(SCM_CDR(obj)) && SCM_NULLP(SCM_CDDR(obj))) { SCM_PAIRP 504 src/write.c if (!SCM_PAIRP(obj)) { SCM_PAIRP 567 src/write.c if (!SCM_PAIRP(args)) \ SCM_PAIRP 582 src/write.c SCM_ASSERT(SCM_PAIRP(port->data)&&SCM_HASH_TABLE_P(SCM_CDR(port->data))); SCM_PAIRP 587 src/write.c SCM_ASSERT(SCM_PAIRP(port->data)&&SCM_HASH_TABLE_P(SCM_CDR(port->data))); SCM_PAIRP 1015 src/write.c SCM_ASSERT(SCM_PAIRP(args)); SCM_PAIRP 1028 src/write.c SCM_ASSERT(SCM_PAIRP(args)); SCM_PAIRP 1041 src/write.c SCM_ASSERT(SCM_PAIRP(args)); SCM_PAIRP 1054 src/write.c SCM_ASSERT(SCM_PAIRP(args)); SCM_PAIRP 1077 src/write.c SCM_ASSERT(SCM_PAIRP(args)); SCM_PAIRP 1092 src/write.c SCM_ASSERT(SCM_PAIRP(args)); SCM_PAIRP 1125 src/write.c SCM_ASSERT(SCM_PAIRP(args));