obj 18 examples/mqueue-cpp/mqueue_glue.cpp MQueue *q = MQUEUE_UNBOX(obj);
obj 26 examples/mqueue-cpp/mqueue_glue.cpp q = MQUEUE_UNBOX(obj);
obj 21 examples/mqueue-cpp/mqueue_glue.h #define MQUEUE_P(obj) SCM_XTYPEP(obj, MQueueClass)
obj 22 examples/mqueue-cpp/mqueue_glue.h #define MQUEUE_UNBOX(obj) SCM_FOREIGN_POINTER_REF(MQueue*, obj)
obj 32 ext/dbm/bdbm.c switch (SCM_BSD_DB_TYPE(obj)) {
obj 38 ext/dbm/bdbm.c Scm_Printf(port, "#<bsd-db:%s %S>", type, SCM_BSD_DB(obj)->name);
obj 69 ext/dbm/bdbm.c if (!SCM_STRINGPP(obj)) {
obj 70 ext/dbm/bdbm.c Scm_Error("string required, but got %S", obj);
obj 72 ext/dbm/bdbm.c db->name = obj;
obj 82 ext/dbm/bdbm.c if (!SCM_INTP(obj)) {
obj 83 ext/dbm/bdbm.c Scm_Error("small integer required, but got %S", obj);
obj 85 ext/dbm/bdbm.c switch (SCM_INT_VALUE(obj)) {
obj 89 ext/dbm/bdbm.c case DB_UNKNOWN: db->type = SCM_INT_VALUE(obj); break;
obj 91 ext/dbm/bdbm.c Scm_Error("invalid BSD DB type: %S", obj);
obj 103 ext/dbm/bdbm.c static void CAT3(db_, name, _set)(ScmBsdDb *db, ScmObj obj) \
obj 105 ext/dbm/bdbm.c if (!SCM_INTP(obj)) { \
obj 106 ext/dbm/bdbm.c Scm_Error("small integer required, but got %S", obj); \
obj 108 ext/dbm/bdbm.c db->name = SCM_INT_VALUE(obj); \
obj 38 ext/dbm/bsddb.h #define SCM_BSD_DB(obj) ((ScmBsdDb*)obj)
obj 39 ext/dbm/bsddb.h #define SCM_BSD_DB_P(obj) SCM_XTYPEP(obj, SCM_CLASS_BSD_DB)
obj 43 ext/dbm/bsddb.h #define SCM_BSD_BTREE(obj) ((ScmBsdBtree*)obj)
obj 44 ext/dbm/bsddb.h #define SCM_BSD_BTREE_P(obj) SCM_XTYPEP(obj, SCM_CLASS_BSD_BTREE)
obj 48 ext/dbm/bsddb.h #define SCM_BSD_HASH(obj) ((ScmBsdHash*)obj)
obj 49 ext/dbm/bsddb.h #define SCM_BSD_HASH_P(obj) SCM_XTYPEP(obj, SCM_CLASS_BSD_HASH)
obj 53 ext/dbm/bsddb.h #define SCM_BSD_RECNO(obj) ((ScmBsdRecno*)obj)
obj 54 ext/dbm/bsddb.h #define SCM_BSD_RECNO_P(obj) SCM_XTYPEP(obj, SCM_CLASS_BSD_RECNO)
obj 18 ext/dbm/gdbm.c #define SCM_GDBM(obj) ((ScmGdbm*)obj)
obj 19 ext/dbm/gdbm.c #define SCM_GDBMP(obj) SCM_XTYPEP(obj, SCM_CLASS_GDBM)
obj 29 ext/dbm/gdbm.c Scm_Printf(out, "#<gdbm-file %S>", SCM_GDBM(obj)->name);
obj 81 ext/dbm/gdbm.c ScmGdbm *g = SCM_GDBM(obj);
obj 24 ext/dbm/ndbm.c #define SCM_NDBM(obj) ((ScmNdbm*)obj)
obj 25 ext/dbm/ndbm.c #define SCM_NDBMP(obj) SCM_XTYPEP(obj, SCM_CLASS_NDBM)
obj 35 ext/dbm/ndbm.c Scm_Printf(out, "#<ndbm-file %S>", SCM_NDBM(obj)->name);
obj 69 ext/dbm/ndbm.c ScmNdbm *n = SCM_NDBM(obj);
obj 26 ext/digest/md5.c #define SCM_MD5(obj) ((ScmMd5*)obj)
obj 27 ext/digest/md5.c #define SCM_MD5P(obj) SCM_XTYPEP(obj, SCM_CLASS_MD5)
obj 26 ext/digest/sha1.c #define SCM_SHA1(obj) ((ScmSha1*)obj)
obj 27 ext/digest/sha1.c #define SCM_SHA1P(obj) SCM_XTYPEP(obj, SCM_CLASS_SHA1)
obj 49 ext/fcntl/gauche/fcntl.h #define SCM_SYS_FLOCK(obj) ((ScmSysFlock*)(obj))
obj 50 ext/fcntl/gauche/fcntl.h #define SCM_SYS_FLOCK_P(obj) (SCM_XTYPEP(obj, SCM_CLASS_SYS_FLOCK))
obj 64 ext/mt-random/mt-random.h #define SCM_MERSENNE_TWISTER(obj) ((ScmMersenneTwister*)obj)
obj 65 ext/mt-random/mt-random.h #define SCM_MERSENNE_TWISTER_P(obj) SCM_XTYPEP(obj, &Scm_MersenneTwisterClass)
obj 48 ext/net/addr.c Scm_SockAddrFamily(SCM_SOCKADDR(obj)),
obj 49 ext/net/addr.c Scm_SockAddrName(SCM_SOCKADDR(obj)));
obj 54 ext/net/addr.c return Scm_SubtypeP(Scm_ClassOf(obj), SCM_CLASS_SOCKADDR);
obj 86 ext/net/gauche/net.h #define SCM_SOCKADDR(obj) ((ScmSockAddr*)(obj))
obj 87 ext/net/gauche/net.h #define SCM_SOCKADDRP(obj) SCM_XTYPEP(obj, SCM_CLASS_SOCKADDR)
obj 89 ext/net/gauche/net.h #define SCM_SOCKADDR_FAMILY(obj) SCM_SOCKADDR(obj)->addr.sa_family
obj 163 ext/net/gauche/net.h #define SCM_SOCKET(obj) ((ScmSocket*)obj)
obj 164 ext/net/gauche/net.h #define SCM_SOCKETP(obj) SCM_XTYPEP(obj, SCM_CLASS_SOCKET)
obj 207 ext/net/gauche/net.h #define SCM_SYS_HOSTENT(obj) ((ScmSysHostent*)obj)
obj 208 ext/net/gauche/net.h #define SCM_SYS_HOSTENT_P(obj) SCM_XTYPEP(obj, SCM_CLASS_SYS_HOSTENT)
obj 227 ext/net/gauche/net.h #define SCM_SYS_PROTOENT(obj) ((ScmSysProtoent*)obj)
obj 228 ext/net/gauche/net.h #define SCM_SYS_PROTOENT_P(obj) SCM_XTYPEP(obj, SCM_CLASS_SYS_PROTOENT)
obj 247 ext/net/gauche/net.h #define SCM_SYS_SERVENT(obj) ((ScmSysServent*)obj)
obj 248 ext/net/gauche/net.h #define SCM_SYS_SERVENT_P(obj) SCM_XTYPEP(obj, SCM_CLASS_SYS_SERVENT)
obj 272 ext/net/gauche/net.h #define SCM_SYS_ADDRINFO(obj) ((ScmSysAddrinfo*)obj)
obj 273 ext/net/gauche/net.h #define SCM_SYS_ADDRINFO_P(obj) SCM_XTYPEP(obj, SCM_CLASS_SYS_ADDRINFO)
obj 51 ext/net/net.c ScmSocket *sock = (ScmSocket*)obj;
obj 63 ext/net/net.c ScmSocket *sock = SCM_SOCKET(obj);
obj 1216 ext/net/netlib.c ScmSysAddrinfo* obj = SCM_SYS_ADDRINFO(OBJARG);
obj 1217 ext/net/netlib.c return Scm_MakeInteger(obj->flags);
obj 1222 ext/net/netlib.c ScmSysAddrinfo* obj = SCM_SYS_ADDRINFO(OBJARG);
obj 1224 ext/net/netlib.c obj->flags = Scm_GetInteger(value);
obj 1229 ext/net/netlib.c ScmSysAddrinfo* obj = SCM_SYS_ADDRINFO(OBJARG);
obj 1230 ext/net/netlib.c return Scm_MakeInteger(obj->family);
obj 1235 ext/net/netlib.c ScmSysAddrinfo* obj = SCM_SYS_ADDRINFO(OBJARG);
obj 1237 ext/net/netlib.c obj->family = Scm_GetInteger(value);
obj 1242 ext/net/netlib.c ScmSysAddrinfo* obj = SCM_SYS_ADDRINFO(OBJARG);
obj 1243 ext/net/netlib.c return Scm_MakeInteger(obj->socktype);
obj 1248 ext/net/netlib.c ScmSysAddrinfo* obj = SCM_SYS_ADDRINFO(OBJARG);
obj 1250 ext/net/netlib.c obj->socktype = Scm_GetInteger(value);
obj 1255 ext/net/netlib.c ScmSysAddrinfo* obj = SCM_SYS_ADDRINFO(OBJARG);
obj 1256 ext/net/netlib.c return Scm_MakeInteger(obj->protocol);
obj 1261 ext/net/netlib.c ScmSysAddrinfo* obj = SCM_SYS_ADDRINFO(OBJARG);
obj 1263 ext/net/netlib.c obj->protocol = Scm_GetInteger(value);
obj 1268 ext/net/netlib.c ScmSysAddrinfo* obj = SCM_SYS_ADDRINFO(OBJARG);
obj 1269 ext/net/netlib.c return Scm_MakeIntegerFromUI(obj->addrlen);
obj 1274 ext/net/netlib.c ScmSysAddrinfo* obj = SCM_SYS_ADDRINFO(OBJARG);
obj 1276 ext/net/netlib.c obj->addrlen = Scm_GetIntegerU(value);
obj 1281 ext/net/netlib.c ScmSysAddrinfo* obj = SCM_SYS_ADDRINFO(OBJARG);
obj 1282 ext/net/netlib.c return SCM_OBJ_SAFE(obj->canonname);
obj 1287 ext/net/netlib.c ScmSysAddrinfo* obj = SCM_SYS_ADDRINFO(OBJARG);
obj 1289 ext/net/netlib.c obj->canonname = SCM_STRING(value);
obj 1294 ext/net/netlib.c ScmSysAddrinfo* obj = SCM_SYS_ADDRINFO(OBJARG);
obj 1295 ext/net/netlib.c return SCM_OBJ_SAFE(obj->addr);
obj 1300 ext/net/netlib.c ScmSysAddrinfo* obj = SCM_SYS_ADDRINFO(OBJARG);
obj 1302 ext/net/netlib.c obj->addr = SCM_SOCKADDR(value);
obj 63 ext/termios/gauche/termios.h #define SCM_SYS_TERMIOS(obj) ((ScmSysTermios*)(obj))
obj 64 ext/termios/gauche/termios.h #define SCM_SYS_TERMIOS_P(obj) (SCM_XTYPEP(obj, SCM_CLASS_SYS_TERMIOS))
obj 60 ext/threads/mutex.c ScmMutex *mutex = SCM_MUTEX(obj);
obj 88 ext/threads/mutex.c ScmMutex *mutex = SCM_MUTEX(obj);
obj 274 ext/threads/mutex.c ScmConditionVariable *cv = SCM_CONDITION_VARIABLE(obj);
obj 298 ext/threads/mutex.c ScmConditionVariable *cv = SCM_CONDITION_VARIABLE(obj);
obj 70 ext/threads/threads.h #define SCM_CONDITION_VARIABLE(obj) ((ScmConditionVariable*)obj)
obj 71 ext/threads/threads.h #define SCM_CONDITION_VARIABLE_P(obj) SCM_XTYPEP(obj, SCM_CLASS_CONDITION_VARIABLE)
obj 96 ext/threads/threads.h #define SCM_MUTEX(obj) ((ScmMutex*)obj)
obj 97 ext/threads/threads.h #define SCM_MUTEXP(obj) SCM_XTYPEP(obj, SCM_CLASS_MUTEX)
obj 118 ext/threads/threads.h #define SCM_RWLOCK(obj) ((ScmRWLock*)obj)
obj 119 ext/threads/threads.h #define SCM_RWLOCKP(obj) SCM_XTYPEP(obj, SCM_CLASS_RWLOCK)
obj 36 ext/threads/thrlib.c ScmObj obj;
obj 39 ext/threads/thrlib.c obj = (obj_scm);
obj 43 ext/threads/thrlib.c SCM_RESULT = SCM_VMP(obj);
obj 97 ext/threads/thrlib.c ScmObj obj;
obj 103 ext/threads/thrlib.c obj = (obj_scm);
obj 105 ext/threads/thrlib.c vm->specific = obj;
obj 286 ext/threads/thrlib.c ScmObj obj;
obj 289 ext/threads/thrlib.c obj = (obj_scm);
obj 293 ext/threads/thrlib.c SCM_RESULT = SCM_MUTEXP(obj);
obj 439 ext/threads/thrlib.c ScmObj obj;
obj 445 ext/threads/thrlib.c obj = (obj_scm);
obj 447 ext/threads/thrlib.c mutex->specific = obj;
obj 504 ext/threads/thrlib.c ScmObj obj;
obj 507 ext/threads/thrlib.c obj = (obj_scm);
obj 511 ext/threads/thrlib.c SCM_RESULT = SCM_CONDITION_VARIABLE_P(obj);
obj 565 ext/threads/thrlib.c ScmObj obj;
obj 571 ext/threads/thrlib.c obj = (obj_scm);
obj 573 ext/threads/thrlib.c cv->specific = obj;
obj 631 ext/threads/thrlib.c ScmClass *k = SCM_CLASS_OF(obj);
obj 632 ext/threads/thrlib.c ScmThreadException *exc = SCM_THREAD_EXCEPTION(obj);
obj 641 ext/threads/thrlib.c ScmThreadException *exc = SCM_THREAD_EXCEPTION(obj);
obj 646 ext/threads/thrlib.c ScmThreadException *exc = SCM_THREAD_EXCEPTION(obj);
obj 664 ext/threads/thrlib.c ScmThreadException* obj = SCM_THREAD_EXCEPTION(OBJARG);
obj 665 ext/threads/thrlib.c return SCM_OBJ_SAFE(obj->thread);
obj 670 ext/threads/thrlib.c ScmThreadException* obj = SCM_THREAD_EXCEPTION(OBJARG);
obj 672 ext/threads/thrlib.c obj->thread = SCM_VM(value);
obj 686 ext/threads/thrlib.c ScmThreadException* obj = SCM_THREAD_EXCEPTION(OBJARG);
obj 687 ext/threads/thrlib.c return SCM_OBJ_SAFE(obj->data);
obj 692 ext/threads/thrlib.c ScmThreadException* obj = SCM_THREAD_EXCEPTION(OBJARG);
obj 693 ext/threads/thrlib.c obj->data = (value);
obj 705 ext/threads/thrlib.c ScmThreadException* obj = SCM_THREAD_EXCEPTION(OBJARG);
obj 706 ext/threads/thrlib.c return SCM_OBJ_SAFE(obj->data);
obj 711 ext/threads/thrlib.c ScmThreadException* obj = SCM_THREAD_EXCEPTION(OBJARG);
obj 712 ext/threads/thrlib.c obj->data = (value);
obj 724 ext/threads/thrlib.c ScmThreadException* obj = SCM_THREAD_EXCEPTION(OBJARG);
obj 725 ext/threads/thrlib.c return SCM_OBJ_SAFE(obj->data);
obj 730 ext/threads/thrlib.c ScmThreadException* obj = SCM_THREAD_EXCEPTION(OBJARG);
obj 731 ext/threads/thrlib.c obj->data = (value);
obj 60 ext/uvector/gauche/uvector.h #define SCM_UVECTOR(obj) ((ScmUVector*)(obj))
obj 61 ext/uvector/gauche/uvector.h #define SCM_UVECTORP(obj) Scm_TypeP(obj, SCM_CLASS_UVECTOR)
obj 62 ext/uvector/gauche/uvector.h #define SCM_UVECTOR_SIZE(obj) (SCM_UVECTOR(obj)->size)
obj 63 ext/uvector/gauche/uvector.h #define SCM_UVECTOR_IMMUTABLE_P(obj) (SCM_UVECTOR(obj)->immutable)
obj 64 ext/uvector/gauche/uvector.h #define SCM_UVECTOR_OWNER(obj) (SCM_UVECTOR(obj)->owner)
obj 65 ext/uvector/gauche/uvector.h #define SCM_UVECTOR_ELEMENTS(obj) (SCM_UVECTOR(obj)->elements)
obj 68 ext/uvector/gauche/uvector.h do { if (SCM_UVECTOR_IMMUTABLE_P(obj)) { \
obj 69 ext/uvector/gauche/uvector.h Scm_Error("uniform vector is immutable: %S", obj); \
obj 102 ext/uvector/gauche/uvector.h #define SCM_S8VECTOR(obj) ((ScmS8Vector*)(obj))
obj 103 ext/uvector/gauche/uvector.h #define SCM_S8VECTORP(obj) SCM_XTYPEP(obj, SCM_CLASS_S8VECTOR)
obj 104 ext/uvector/gauche/uvector.h #define SCM_S8VECTOR_SIZE(obj) (SCM_S8VECTOR(obj)->size)
obj 105 ext/uvector/gauche/uvector.h #define SCM_S8VECTOR_ELEMENTS(obj) (SCM_S8VECTOR(obj)->elements)
obj 159 ext/uvector/gauche/uvector.h #define SCM_U8VECTOR(obj) ((ScmU8Vector*)(obj))
obj 160 ext/uvector/gauche/uvector.h #define SCM_U8VECTORP(obj) SCM_XTYPEP(obj, SCM_CLASS_U8VECTOR)
obj 161 ext/uvector/gauche/uvector.h #define SCM_U8VECTOR_SIZE(obj) (SCM_U8VECTOR(obj)->size)
obj 162 ext/uvector/gauche/uvector.h #define SCM_U8VECTOR_ELEMENTS(obj) (SCM_U8VECTOR(obj)->elements)
obj 216 ext/uvector/gauche/uvector.h #define SCM_S16VECTOR(obj) ((ScmS16Vector*)(obj))
obj 217 ext/uvector/gauche/uvector.h #define SCM_S16VECTORP(obj) SCM_XTYPEP(obj, SCM_CLASS_S16VECTOR)
obj 218 ext/uvector/gauche/uvector.h #define SCM_S16VECTOR_SIZE(obj) (SCM_S16VECTOR(obj)->size)
obj 219 ext/uvector/gauche/uvector.h #define SCM_S16VECTOR_ELEMENTS(obj) (SCM_S16VECTOR(obj)->elements)
obj 273 ext/uvector/gauche/uvector.h #define SCM_U16VECTOR(obj) ((ScmU16Vector*)(obj))
obj 274 ext/uvector/gauche/uvector.h #define SCM_U16VECTORP(obj) SCM_XTYPEP(obj, SCM_CLASS_U16VECTOR)
obj 275 ext/uvector/gauche/uvector.h #define SCM_U16VECTOR_SIZE(obj) (SCM_U16VECTOR(obj)->size)
obj 276 ext/uvector/gauche/uvector.h #define SCM_U16VECTOR_ELEMENTS(obj) (SCM_U16VECTOR(obj)->elements)
obj 330 ext/uvector/gauche/uvector.h #define SCM_S32VECTOR(obj) ((ScmS32Vector*)(obj))
obj 331 ext/uvector/gauche/uvector.h #define SCM_S32VECTORP(obj) SCM_XTYPEP(obj, SCM_CLASS_S32VECTOR)
obj 332 ext/uvector/gauche/uvector.h #define SCM_S32VECTOR_SIZE(obj) (SCM_S32VECTOR(obj)->size)
obj 333 ext/uvector/gauche/uvector.h #define SCM_S32VECTOR_ELEMENTS(obj) (SCM_S32VECTOR(obj)->elements)
obj 387 ext/uvector/gauche/uvector.h #define SCM_U32VECTOR(obj) ((ScmU32Vector*)(obj))
obj 388 ext/uvector/gauche/uvector.h #define SCM_U32VECTORP(obj) SCM_XTYPEP(obj, SCM_CLASS_U32VECTOR)
obj 389 ext/uvector/gauche/uvector.h #define SCM_U32VECTOR_SIZE(obj) (SCM_U32VECTOR(obj)->size)
obj 390 ext/uvector/gauche/uvector.h #define SCM_U32VECTOR_ELEMENTS(obj) (SCM_U32VECTOR(obj)->elements)
obj 444 ext/uvector/gauche/uvector.h #define SCM_S64VECTOR(obj) ((ScmS64Vector*)(obj))
obj 445 ext/uvector/gauche/uvector.h #define SCM_S64VECTORP(obj) SCM_XTYPEP(obj, SCM_CLASS_S64VECTOR)
obj 446 ext/uvector/gauche/uvector.h #define SCM_S64VECTOR_SIZE(obj) (SCM_S64VECTOR(obj)->size)
obj 447 ext/uvector/gauche/uvector.h #define SCM_S64VECTOR_ELEMENTS(obj) (SCM_S64VECTOR(obj)->elements)
obj 501 ext/uvector/gauche/uvector.h #define SCM_U64VECTOR(obj) ((ScmU64Vector*)(obj))
obj 502 ext/uvector/gauche/uvector.h #define SCM_U64VECTORP(obj) SCM_XTYPEP(obj, SCM_CLASS_U64VECTOR)
obj 503 ext/uvector/gauche/uvector.h #define SCM_U64VECTOR_SIZE(obj) (SCM_U64VECTOR(obj)->size)
obj 504 ext/uvector/gauche/uvector.h #define SCM_U64VECTOR_ELEMENTS(obj) (SCM_U64VECTOR(obj)->elements)
obj 558 ext/uvector/gauche/uvector.h #define SCM_F32VECTOR(obj) ((ScmF32Vector*)(obj))
obj 559 ext/uvector/gauche/uvector.h #define SCM_F32VECTORP(obj) SCM_XTYPEP(obj, SCM_CLASS_F32VECTOR)
obj 560 ext/uvector/gauche/uvector.h #define SCM_F32VECTOR_SIZE(obj) (SCM_F32VECTOR(obj)->size)
obj 561 ext/uvector/gauche/uvector.h #define SCM_F32VECTOR_ELEMENTS(obj) (SCM_F32VECTOR(obj)->elements)
obj 615 ext/uvector/gauche/uvector.h #define SCM_F64VECTOR(obj) ((ScmF64Vector*)(obj))
obj 616 ext/uvector/gauche/uvector.h #define SCM_F64VECTORP(obj) SCM_XTYPEP(obj, SCM_CLASS_F64VECTOR)
obj 617 ext/uvector/gauche/uvector.h #define SCM_F64VECTOR_SIZE(obj) (SCM_F64VECTOR(obj)->size)
obj 618 ext/uvector/gauche/uvector.h #define SCM_F64VECTOR_ELEMENTS(obj) (SCM_F64VECTOR(obj)->elements)
obj 762 ext/uvector/uvector.c for (i=0; i<SCM_S8VECTOR_SIZE(obj); i++) {
obj 763 ext/uvector/uvector.c signed char elt = SCM_S8VECTOR_ELEMENTS(obj)[i];
obj 833 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
obj 834 ext/uvector/uvector.c elt = s8unbox(obj, clamp);
obj 848 ext/uvector/uvector.c ScmObj obj = SCM_VECTOR_ELEMENT(ivec, i);
obj 849 ext/uvector/uvector.c elt = s8unbox(obj, clamp);
obj 899 ext/uvector/uvector.c ScmObj obj;
obj 901 ext/uvector/uvector.c obj = SCM_MAKE_INT(elt);
obj 902 ext/uvector/uvector.c SCM_APPEND1(head, tail, obj);
obj 914 ext/uvector/uvector.c ScmObj obj;
obj 916 ext/uvector/uvector.c obj = SCM_MAKE_INT(elt);
obj 917 ext/uvector/uvector.c SCM_VECTOR_ELEMENT(ovec, i-start) = obj;
obj 966 ext/uvector/uvector.c for (i=0; i<SCM_U8VECTOR_SIZE(obj); i++) {
obj 967 ext/uvector/uvector.c unsigned char elt = SCM_U8VECTOR_ELEMENTS(obj)[i];
obj 1037 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
obj 1038 ext/uvector/uvector.c elt = u8unbox(obj, clamp);
obj 1052 ext/uvector/uvector.c ScmObj obj = SCM_VECTOR_ELEMENT(ivec, i);
obj 1053 ext/uvector/uvector.c elt = u8unbox(obj, clamp);
obj 1103 ext/uvector/uvector.c ScmObj obj;
obj 1105 ext/uvector/uvector.c obj = SCM_MAKE_INT(elt);
obj 1106 ext/uvector/uvector.c SCM_APPEND1(head, tail, obj);
obj 1118 ext/uvector/uvector.c ScmObj obj;
obj 1120 ext/uvector/uvector.c obj = SCM_MAKE_INT(elt);
obj 1121 ext/uvector/uvector.c SCM_VECTOR_ELEMENT(ovec, i-start) = obj;
obj 1170 ext/uvector/uvector.c for (i=0; i<SCM_S16VECTOR_SIZE(obj); i++) {
obj 1171 ext/uvector/uvector.c short elt = SCM_S16VECTOR_ELEMENTS(obj)[i];
obj 1241 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
obj 1242 ext/uvector/uvector.c elt = s16unbox(obj, clamp);
obj 1256 ext/uvector/uvector.c ScmObj obj = SCM_VECTOR_ELEMENT(ivec, i);
obj 1257 ext/uvector/uvector.c elt = s16unbox(obj, clamp);
obj 1307 ext/uvector/uvector.c ScmObj obj;
obj 1309 ext/uvector/uvector.c obj = SCM_MAKE_INT(elt);
obj 1310 ext/uvector/uvector.c SCM_APPEND1(head, tail, obj);
obj 1322 ext/uvector/uvector.c ScmObj obj;
obj 1324 ext/uvector/uvector.c obj = SCM_MAKE_INT(elt);
obj 1325 ext/uvector/uvector.c SCM_VECTOR_ELEMENT(ovec, i-start) = obj;
obj 1374 ext/uvector/uvector.c for (i=0; i<SCM_U16VECTOR_SIZE(obj); i++) {
obj 1375 ext/uvector/uvector.c unsigned short elt = SCM_U16VECTOR_ELEMENTS(obj)[i];
obj 1445 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
obj 1446 ext/uvector/uvector.c elt = u16unbox(obj, clamp);
obj 1460 ext/uvector/uvector.c ScmObj obj = SCM_VECTOR_ELEMENT(ivec, i);
obj 1461 ext/uvector/uvector.c elt = u16unbox(obj, clamp);
obj 1511 ext/uvector/uvector.c ScmObj obj;
obj 1513 ext/uvector/uvector.c obj = SCM_MAKE_INT(elt);
obj 1514 ext/uvector/uvector.c SCM_APPEND1(head, tail, obj);
obj 1526 ext/uvector/uvector.c ScmObj obj;
obj 1528 ext/uvector/uvector.c obj = SCM_MAKE_INT(elt);
obj 1529 ext/uvector/uvector.c SCM_VECTOR_ELEMENT(ovec, i-start) = obj;
obj 1578 ext/uvector/uvector.c for (i=0; i<SCM_S32VECTOR_SIZE(obj); i++) {
obj 1579 ext/uvector/uvector.c ScmInt32 elt = SCM_S32VECTOR_ELEMENTS(obj)[i];
obj 1649 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
obj 1650 ext/uvector/uvector.c elt = Scm_GetInteger32Clamp(obj, clamp, NULL);
obj 1664 ext/uvector/uvector.c ScmObj obj = SCM_VECTOR_ELEMENT(ivec, i);
obj 1665 ext/uvector/uvector.c elt = Scm_GetInteger32Clamp(obj, clamp, NULL);
obj 1715 ext/uvector/uvector.c ScmObj obj;
obj 1717 ext/uvector/uvector.c obj = Scm_MakeInteger(elt);
obj 1718 ext/uvector/uvector.c SCM_APPEND1(head, tail, obj);
obj 1730 ext/uvector/uvector.c ScmObj obj;
obj 1732 ext/uvector/uvector.c obj = Scm_MakeInteger(elt);
obj 1733 ext/uvector/uvector.c SCM_VECTOR_ELEMENT(ovec, i-start) = obj;
obj 1782 ext/uvector/uvector.c for (i=0; i<SCM_U32VECTOR_SIZE(obj); i++) {
obj 1783 ext/uvector/uvector.c ScmUInt32 elt = SCM_U32VECTOR_ELEMENTS(obj)[i];
obj 1853 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
obj 1854 ext/uvector/uvector.c elt = Scm_GetIntegerU32Clamp(obj, clamp, NULL);
obj 1868 ext/uvector/uvector.c ScmObj obj = SCM_VECTOR_ELEMENT(ivec, i);
obj 1869 ext/uvector/uvector.c elt = Scm_GetIntegerU32Clamp(obj, clamp, NULL);
obj 1919 ext/uvector/uvector.c ScmObj obj;
obj 1921 ext/uvector/uvector.c obj = Scm_MakeIntegerU(elt);
obj 1922 ext/uvector/uvector.c SCM_APPEND1(head, tail, obj);
obj 1934 ext/uvector/uvector.c ScmObj obj;
obj 1936 ext/uvector/uvector.c obj = Scm_MakeIntegerU(elt);
obj 1937 ext/uvector/uvector.c SCM_VECTOR_ELEMENT(ovec, i-start) = obj;
obj 1986 ext/uvector/uvector.c for (i=0; i<SCM_S64VECTOR_SIZE(obj); i++) {
obj 1987 ext/uvector/uvector.c ScmInt64 elt = SCM_S64VECTOR_ELEMENTS(obj)[i];
obj 2057 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
obj 2058 ext/uvector/uvector.c elt = Scm_GetInteger64Clamp(obj, clamp, NULL);
obj 2072 ext/uvector/uvector.c ScmObj obj = SCM_VECTOR_ELEMENT(ivec, i);
obj 2073 ext/uvector/uvector.c elt = Scm_GetInteger64Clamp(obj, clamp, NULL);
obj 2123 ext/uvector/uvector.c ScmObj obj;
obj 2125 ext/uvector/uvector.c obj = Scm_MakeInteger64(elt);
obj 2126 ext/uvector/uvector.c SCM_APPEND1(head, tail, obj);
obj 2138 ext/uvector/uvector.c ScmObj obj;
obj 2140 ext/uvector/uvector.c obj = Scm_MakeInteger64(elt);
obj 2141 ext/uvector/uvector.c SCM_VECTOR_ELEMENT(ovec, i-start) = obj;
obj 2190 ext/uvector/uvector.c for (i=0; i<SCM_U64VECTOR_SIZE(obj); i++) {
obj 2191 ext/uvector/uvector.c ScmUInt64 elt = SCM_U64VECTOR_ELEMENTS(obj)[i];
obj 2261 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
obj 2262 ext/uvector/uvector.c elt = Scm_GetIntegerU64Clamp(obj, clamp, NULL);
obj 2276 ext/uvector/uvector.c ScmObj obj = SCM_VECTOR_ELEMENT(ivec, i);
obj 2277 ext/uvector/uvector.c elt = Scm_GetIntegerU64Clamp(obj, clamp, NULL);
obj 2327 ext/uvector/uvector.c ScmObj obj;
obj 2329 ext/uvector/uvector.c obj = Scm_MakeIntegerU64(elt);
obj 2330 ext/uvector/uvector.c SCM_APPEND1(head, tail, obj);
obj 2342 ext/uvector/uvector.c ScmObj obj;
obj 2344 ext/uvector/uvector.c obj = Scm_MakeIntegerU64(elt);
obj 2345 ext/uvector/uvector.c SCM_VECTOR_ELEMENT(ovec, i-start) = obj;
obj 2394 ext/uvector/uvector.c for (i=0; i<SCM_F32VECTOR_SIZE(obj); i++) {
obj 2395 ext/uvector/uvector.c float elt = SCM_F32VECTOR_ELEMENTS(obj)[i];
obj 2465 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
obj 2466 ext/uvector/uvector.c elt = (float)Scm_GetDouble(obj);
obj 2480 ext/uvector/uvector.c ScmObj obj = SCM_VECTOR_ELEMENT(ivec, i);
obj 2481 ext/uvector/uvector.c elt = (float)Scm_GetDouble(obj);
obj 2531 ext/uvector/uvector.c ScmObj obj;
obj 2533 ext/uvector/uvector.c obj = Scm_MakeFlonum((double)elt);
obj 2534 ext/uvector/uvector.c SCM_APPEND1(head, tail, obj);
obj 2546 ext/uvector/uvector.c ScmObj obj;
obj 2548 ext/uvector/uvector.c obj = Scm_MakeFlonum((double)elt);
obj 2549 ext/uvector/uvector.c SCM_VECTOR_ELEMENT(ovec, i-start) = obj;
obj 2598 ext/uvector/uvector.c for (i=0; i<SCM_F64VECTOR_SIZE(obj); i++) {
obj 2599 ext/uvector/uvector.c double elt = SCM_F64VECTOR_ELEMENTS(obj)[i];
obj 2669 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
obj 2670 ext/uvector/uvector.c elt = Scm_GetDouble(obj);
obj 2684 ext/uvector/uvector.c ScmObj obj = SCM_VECTOR_ELEMENT(ivec, i);
obj 2685 ext/uvector/uvector.c elt = Scm_GetDouble(obj);
obj 2735 ext/uvector/uvector.c ScmObj obj;
obj 2737 ext/uvector/uvector.c obj = Scm_MakeFlonum(elt);
obj 2738 ext/uvector/uvector.c SCM_APPEND1(head, tail, obj);
obj 2750 ext/uvector/uvector.c ScmObj obj;
obj 2752 ext/uvector/uvector.c obj = Scm_MakeFlonum(elt);
obj 2753 ext/uvector/uvector.c SCM_VECTOR_ELEMENT(ovec, i-start) = obj;
obj 48 ext/uvector/uvectorP.h if (SCM_INTP(obj) && SCM_INT_VALUE(obj) == 0) {
obj 51 ext/uvector/uvectorP.h Scm_Error("value out of domain for %svector: %S", type, obj);
obj 218 ext/uvector/uvectorP.h if (!SCM_INTP(obj)) val = Scm_GetInteger(obj); /* clamped to long */
obj 219 ext/uvector/uvectorP.h else val = SCM_INT_VALUE(obj);
obj 226 ext/uvector/uvectorP.h if (!SCM_INTP(obj)) val = Scm_GetInteger(obj); /* clamped to long */
obj 227 ext/uvector/uvectorP.h else val = SCM_INT_VALUE(obj);
obj 234 ext/uvector/uvectorP.h if (!SCM_INTP(obj)) val = Scm_GetInteger(obj); /* clamped to long */
obj 235 ext/uvector/uvectorP.h else val = SCM_INT_VALUE(obj);
obj 243 ext/uvector/uvectorP.h if (!SCM_INTP(obj)) val = Scm_GetInteger(obj); /* clamped to long */
obj 244 ext/uvector/uvectorP.h else val = SCM_INT_VALUE(obj);
obj 32 ext/uvector/uvlib.c ScmObj obj;
obj 35 ext/uvector/uvlib.c obj = (obj_scm);
obj 39 ext/uvector/uvlib.c SCM_RESULT = SCM_S8VECTORP(obj);
obj 481 ext/uvector/uvlib.c ScmObj obj;
obj 484 ext/uvector/uvlib.c obj = (obj_scm);
obj 488 ext/uvector/uvlib.c SCM_RESULT = SCM_U8VECTORP(obj);
obj 930 ext/uvector/uvlib.c ScmObj obj;
obj 933 ext/uvector/uvlib.c obj = (obj_scm);
obj 937 ext/uvector/uvlib.c SCM_RESULT = SCM_S16VECTORP(obj);
obj 1379 ext/uvector/uvlib.c ScmObj obj;
obj 1382 ext/uvector/uvlib.c obj = (obj_scm);
obj 1386 ext/uvector/uvlib.c SCM_RESULT = SCM_U16VECTORP(obj);
obj 1828 ext/uvector/uvlib.c ScmObj obj;
obj 1831 ext/uvector/uvlib.c obj = (obj_scm);
obj 1835 ext/uvector/uvlib.c SCM_RESULT = SCM_S32VECTORP(obj);
obj 2277 ext/uvector/uvlib.c ScmObj obj;
obj 2280 ext/uvector/uvlib.c obj = (obj_scm);
obj 2284 ext/uvector/uvlib.c SCM_RESULT = SCM_U32VECTORP(obj);
obj 2726 ext/uvector/uvlib.c ScmObj obj;
obj 2729 ext/uvector/uvlib.c obj = (obj_scm);
obj 2733 ext/uvector/uvlib.c SCM_RESULT = SCM_S64VECTORP(obj);
obj 3175 ext/uvector/uvlib.c ScmObj obj;
obj 3178 ext/uvector/uvlib.c obj = (obj_scm);
obj 3182 ext/uvector/uvlib.c SCM_RESULT = SCM_U64VECTORP(obj);
obj 3624 ext/uvector/uvlib.c ScmObj obj;
obj 3627 ext/uvector/uvlib.c obj = (obj_scm);
obj 3631 ext/uvector/uvlib.c SCM_RESULT = SCM_F32VECTORP(obj);
obj 4073 ext/uvector/uvlib.c ScmObj obj;
obj 4076 ext/uvector/uvlib.c obj = (obj_scm);
obj 4080 ext/uvector/uvlib.c SCM_RESULT = SCM_F64VECTORP(obj);
obj 403 ext/vport/vport.c Scm__InternalClassName(Scm_ClassOf(obj)),
obj 404 ext/vport/vport.c SCM_PORT_CLOSED_P(obj)? "(closed)" : "",
obj 405 ext/vport/vport.c Scm_PortName(SCM_PORT(obj)),
obj 406 ext/vport/vport.c obj);
obj 558 gc/cord/cordxtra.c if (fclose(((lf_state *)obj) -> lf_file) != 0) {
obj 1043 gc/dbg_mlc.c (*(cl -> cl_fn))((GC_PTR)((char *)obj + sizeof(oh)), cl -> cl_data);
obj 1057 gc/dbg_mlc.c obj);
obj 1084 gc/dbg_mlc.c ptr_t base = GC_base(obj);
obj 1086 gc/dbg_mlc.c if ((ptr_t)obj - base != sizeof(oh)) {
obj 1089 gc/dbg_mlc.c obj);
obj 1097 gc/dbg_mlc.c store_old(obj, my_old_fn, (struct closure *)my_old_cd, ofn, ocd);
obj 1117 gc/dbg_mlc.c ptr_t base = GC_base(obj);
obj 1119 gc/dbg_mlc.c if ((ptr_t)obj - base != sizeof(oh)) {
obj 1122 gc/dbg_mlc.c obj);
obj 1131 gc/dbg_mlc.c store_old(obj, my_old_fn, (struct closure *)my_old_cd, ofn, ocd);
obj 1151 gc/dbg_mlc.c ptr_t base = GC_base(obj);
obj 1153 gc/dbg_mlc.c if ((ptr_t)obj - base != sizeof(oh)) {
obj 1156 gc/dbg_mlc.c obj);
obj 1165 gc/dbg_mlc.c store_old(obj, my_old_fn, (struct closure *)my_old_cd, ofn, ocd);
obj 660 gc/dyn_load.c int obj;
obj 672 gc/dyn_load.c obj = ioctl(fd, PIOCOPENM, &arg);
obj 673 gc/dyn_load.c if (obj >= 0) {
obj 674 gc/dyn_load.c fstat(obj, &buf);
obj 675 gc/dyn_load.c close(obj);
obj 195 gc/finalize.c curr_dl -> dl_hidden_obj = HIDE_POINTER(obj);
obj 222 gc/finalize.c new_dl -> dl_hidden_obj = HIDE_POINTER(obj);
obj 366 gc/finalize.c base = (ptr_t)obj;
obj 476 gc/finalize.c GC_register_finalizer_inner(obj, fn, cd, ofn,
obj 493 gc/finalize.c GC_register_finalizer_inner(obj, fn, cd, ofn,
obj 510 gc/finalize.c GC_register_finalizer_inner(obj, fn, cd, ofn,
obj 33 gc/gc_cpp.cc GC_FREE( obj );}
obj 41 gc/gc_cpp.cc GC_FREE( obj );}
obj 578 gc/include/gc.h GC_general_register_disappearing_link(link, GC_base(obj))
obj 600 gc/include/gc.h GC_general_register_disappearing_link(link, obj)
obj 623 gc/include/gc.h GC_PROTO((GC_PTR obj, GC_finalization_proc fn, GC_PTR cd,
obj 626 gc/include/gc.h GC_PROTO((GC_PTR obj, GC_finalization_proc fn, GC_PTR cd,
obj 671 gc/include/gc.h GC_PROTO((GC_PTR obj, GC_finalization_proc fn, GC_PTR cd,
obj 674 gc/include/gc.h GC_PROTO((GC_PTR obj, GC_finalization_proc fn, GC_PTR cd,
obj 682 gc/include/gc.h GC_PROTO((GC_PTR obj, GC_finalization_proc fn, GC_PTR cd,
obj 685 gc/include/gc.h GC_PROTO((GC_PTR obj, GC_finalization_proc fn, GC_PTR cd,
obj 717 gc/include/gc.h GC_PROTO((GC_PTR * /* link */, GC_PTR obj));
obj 172 gc/include/gc_cpp.h inline void operator delete( void* obj );
obj 181 gc/include/gc_cpp.h inline void operator delete[]( void* obj );
obj 196 gc/include/gc_cpp.h inline static void GC_cdecl cleanup( void* obj, void* clientData );};
obj 241 gc/include/gc_cpp.h void operator delete[](void* obj);
obj 288 gc/include/gc_cpp.h GC_FREE( obj );}
obj 305 gc/include/gc_cpp.h inline void gc::operator delete[]( void* obj ) {
obj 306 gc/include/gc_cpp.h gc::operator delete( obj );}
obj 319 gc/include/gc_cpp.h ((gc_cleanup*) ((char*) obj + (ptrdiff_t) displ))->~gc_cleanup();}
obj 339 gc/include/gc_cpp.h void* obj;
obj 342 gc/include/gc_cpp.h obj = GC_MALLOC( size );
obj 345 gc/include/gc_cpp.h obj, cleanup, clientData, 0, 0 );}
obj 347 gc/include/gc_cpp.h obj = GC_MALLOC_ATOMIC( size );}
obj 349 gc/include/gc_cpp.h obj = GC_MALLOC_UNCOLLECTABLE( size );};
obj 350 gc/include/gc_cpp.h return obj;}
obj 139 gc/include/gc_mark.h (((GC_word)obj >= (GC_word)GC_least_plausible_heap_addr && \
obj 140 gc/include/gc_mark.h (GC_word)obj <= (GC_word)GC_greatest_plausible_heap_addr)? \
obj 141 gc/include/gc_mark.h GC_mark_and_push(obj, msp, lim, src) : \
obj 167 gc/include/private/gc_pmark.h mark_stack_top -> mse_start = (obj); \
obj 1321 gc/mark.c PREFETCH(obj);
obj 1322 gc/mark.c PUSH_CONTENTS(obj, mark_stack_ptr /* modified */, mark_stack_limit, src,
obj 743 gc/tests/test.c tn * t = (tn *)obj;
obj 120 gc/tests/test_cpp.cc D* self = (D*) obj;
obj 213 src/char.c ScmCharSet *cs = SCM_CHARSET(obj);
obj 242 src/char.c Scm_Printf(out, "]", obj);
obj 396 src/class.c Scm_Printf(port, "#<class %A>", SCM_CLASS(obj)->name);
obj 447 src/class.c if (!SCM_PTRP(obj)) {
obj 448 src/class.c if (SCM_TRUEP(obj) || SCM_FALSEP(obj)) return SCM_CLASS_BOOL;
obj 449 src/class.c if (SCM_NULLP(obj)) return SCM_CLASS_NULL;
obj 450 src/class.c if (SCM_CHARP(obj)) return SCM_CLASS_CHAR;
obj 451 src/class.c if (SCM_INTP(obj)) return SCM_CLASS_INTEGER;
obj 452 src/class.c if (SCM_EOFP(obj)) return SCM_CLASS_EOF_OBJECT;
obj 453 src/class.c if (SCM_UNDEFINEDP(obj)) return SCM_CLASS_UNDEFINED_OBJECT;
obj 455 src/class.c } else if (SCM_PAIRP(obj)) {
obj 458 src/class.c return SCM_CLASS_OF(obj);
obj 488 src/class.c ScmClass *k = Scm_ClassOf(obj);
obj 491 src/class.c return instance_class_redefinition(obj, k);
obj 507 src/class.c ScmClass *k = Scm_ClassOf(obj);
obj 510 src/class.c data[0] = obj;
obj 513 src/class.c return instance_class_redefinition(obj, k);
obj 515 src/class.c return SCM_MAKE_BOOL(Scm_TypeP(obj, klass));
obj 824 src/class.c return Scm_SubtypeP(Scm_ClassOf(obj), type);
obj 1073 src/class.c ScmClass *klass = Scm_ClassOf(obj);
obj 1075 src/class.c return instance_class_redefinition(obj, klass);
obj 1077 src/class.c return obj;
obj 1108 src/class.c ScmObj obj = SCM_NEW2(ScmObj, coresize);
obj 1126 src/class.c SCM_INSTANCE(obj)->slots = slots;
obj 1128 src/class.c return obj;
obj 1142 src/class.c return Scm_VMApply2(SCM_OBJ(&Scm_GenericChangeClass), obj, newc);
obj 1151 src/class.c ScmClass *k = Scm_ClassOf(obj);
obj 1153 src/class.c Scm_Error("instance slot index %d out of bounds for %S", number, obj);
obj 1154 src/class.c return SCM_INSTANCE_SLOTS(obj)[number];
obj 1159 src/class.c ScmClass *k = Scm_ClassOf(obj);
obj 1161 src/class.c Scm_Error("instance slot index %d out of bounds for %S", number, obj);
obj 1162 src/class.c SCM_INSTANCE_SLOTS(obj)[number] = val;
obj 1171 src/class.c return scheme_slot_ref(obj, number);
obj 1176 src/class.c scheme_slot_set(obj, number, val);
obj 1184 src/class.c ScmObj obj = data[0];
obj 1186 src/class.c return slot_set_using_accessor(obj, sa, result);
obj 1197 src/class.c return slot_set_using_accessor(obj, sa, v);
obj 1203 src/class.c return slot_set_using_accessor(obj, sa, sa->initValue);
obj 1207 src/class.c data[0] = (void*)obj;
obj 1223 src/class.c SCM_LIST3(SCM_OBJ(klass), obj, slot))
obj 1227 src/class.c SCM_LIST3(SCM_OBJ(klass), obj, slot))
obj 1231 src/class.c SCM_LIST4(SCM_OBJ(klass), obj, slot, val))
obj 1256 src/class.c ScmObj obj = data[0];
obj 1264 src/class.c return SLOT_UNBOUND(Scm_ClassOf(obj), obj, slot);
obj 1284 src/class.c val = sa->getter(obj);
obj 1286 src/class.c val = scheme_slot_ref(obj, sa->slotNumber);
obj 1289 src/class.c data[0] = obj;
obj 1293 src/class.c return Scm_VMApply(sa->schemeBoundp, SCM_LIST1(obj));
obj 1296 src/class.c data[0] = obj;
obj 1300 src/class.c return Scm_VMApply(sa->schemeGetter, SCM_LIST1(obj));
obj 1303 src/class.c sa->name, obj);
obj 1309 src/class.c return SLOT_UNBOUND(Scm_ClassOf(obj), obj, sa->name);
obj 1332 src/class.c ScmClass *klass = Scm_ClassOf(obj);
obj 1337 src/class.c data[0] = obj;
obj 1341 src/class.c return instance_class_redefinition(obj, klass);
obj 1344 src/class.c if (sa == NULL) return SLOT_MISSING3(klass, obj, slot);
obj 1345 src/class.c else return slot_ref_using_accessor(obj, sa, boundp);
obj 1368 src/class.c ScmClass *klass = Scm_ClassOf(obj);
obj 1371 src/class.c SCM_OBJ(sa), obj);
obj 1376 src/class.c data[0] = obj;
obj 1380 src/class.c return instance_class_redefinition(obj, klass);
obj 1383 src/class.c return slot_ref_using_accessor(obj, sa, boundp);
obj 1404 src/class.c ScmObj obj = args[1];
obj 1408 src/class.c if (!SCM_EQ(SCM_OBJ(klass), SCM_OBJ(Scm_ClassOf(obj)))) {
obj 1409 src/class.c Scm_Error("slot-ref-using-class: class %S is not the class of object %S", klass, obj);
obj 1412 src/class.c if (sa == NULL) return SLOT_MISSING3(klass, obj, slot);
obj 1413 src/class.c else return slot_ref_using_accessor(obj, sa, FALSE);
obj 1436 src/class.c sa->setter(obj, val);
obj 1438 src/class.c scheme_slot_set(obj, sa->slotNumber, val);
obj 1440 src/class.c return Scm_VMApply(sa->schemeSetter, SCM_LIST2(obj, val));
obj 1443 src/class.c SCM_OBJ(Scm_ClassOf(obj)));
obj 1464 src/class.c ScmClass *klass = Scm_ClassOf(obj);
obj 1468 src/class.c data[0] = obj;
obj 1472 src/class.c return instance_class_redefinition(obj, klass);
obj 1475 src/class.c if (sa == NULL) return SLOT_MISSING4(klass, obj, slot, val);
obj 1476 src/class.c else return slot_set_using_accessor(obj, sa, val);
obj 1499 src/class.c ScmClass *klass = Scm_ClassOf(obj);
obj 1502 src/class.c SCM_OBJ(sa), obj);
obj 1507 src/class.c data[0] = obj;
obj 1511 src/class.c return instance_class_redefinition(obj, klass);
obj 1514 src/class.c return slot_set_using_accessor(obj, sa, val);
obj 1535 src/class.c ScmObj obj = args[1];
obj 1540 src/class.c if (!SCM_EQ(SCM_OBJ(klass), SCM_OBJ(Scm_ClassOf(obj)))) {
obj 1541 src/class.c Scm_Error("slot-ref-using-class: class %S is not the class of object %S", klass, obj);
obj 1544 src/class.c if (sa == NULL) return SLOT_MISSING4(klass, obj, slot, val);
obj 1545 src/class.c else return slot_set_using_accessor(obj, sa, val);
obj 1567 src/class.c ScmObj obj = SCM_OBJ(data[0]);
obj 1569 src/class.c return Scm_VMSlotBoundP(obj, slot);
obj 1574 src/class.c ScmClass *klass = Scm_ClassOf(obj);
obj 1578 src/class.c data[0] = obj;
obj 1581 src/class.c return instance_class_redefinition(obj, Scm_ClassOf(obj));
obj 1584 src/class.c SCM_LIST3(SCM_OBJ(klass), obj, slot));
obj 1604 src/class.c ScmObj obj = args[1];
obj 1608 src/class.c if (!SCM_EQ(SCM_OBJ(klass), SCM_OBJ(Scm_ClassOf(obj)))) {
obj 1609 src/class.c Scm_Error("slot-bound-using-class?: class %S is not the class of object %S", klass, obj);
obj 1612 src/class.c if (sa == NULL) return SLOT_MISSING3(klass, obj, slot);
obj 1613 src/class.c else return slot_ref_using_accessor(obj, sa, TRUE);
obj 1682 src/class.c ScmSlotAccessor *sa = SCM_SLOT_ACCESSOR(obj);
obj 1812 src/class.c ScmObj obj = Scm_AllocateInstance(klass, sizeof(ScmInstance));
obj 1813 src/class.c SCM_SET_CLASS(obj, klass);
obj 1814 src/class.c return SCM_OBJ(obj);
obj 1823 src/class.c if (SCM_NULLP(accs)) return obj;
obj 1826 src/class.c next[0] = obj;
obj 1830 src/class.c return Scm_VMSlotInitializeUsingAccessor(obj,
obj 1837 src/class.c ScmObj obj = SCM_OBJ(data[0]);
obj 1840 src/class.c return object_initialize1(obj, accs, initargs);
obj 1846 src/class.c ScmObj obj = args[0];
obj 1848 src/class.c ScmObj accs = Scm_ClassOf(obj)->accessors;
obj 1849 src/class.c if (SCM_NULLP(accs)) return obj;
obj 1850 src/class.c return object_initialize1(obj, accs, initargs);
obj 1923 src/class.c SCM_GENERIC(obj)->common.info,
obj 1924 src/class.c Scm_Length(SCM_GENERIC(obj)->methods));
obj 2151 src/class.c Scm_Printf(port, "#<method %S>", SCM_METHOD(obj)->common.info);
obj 2451 src/class.c ScmNextMethod *nm = SCM_NEXT_METHOD(obj);
obj 2463 src/class.c Scm_Printf(port, "#<accessor-method %S>", SCM_METHOD(obj)->common.info);
obj 2469 src/class.c ScmObj obj = args[0];
obj 2476 src/class.c if (!SCM_EQ(Scm_ClassOf(obj), ca->klass)) {
obj 2478 src/class.c return Scm_VMSlotRef(obj, ca->name, FALSE);
obj 2481 src/class.c return slot_ref_using_accessor(obj, ca, FALSE);
obj 2487 src/class.c ScmObj obj = args[0];
obj 2491 src/class.c if (!SCM_EQ(Scm_ClassOf(obj), ca->klass)) {
obj 2492 src/class.c return Scm_VMSlotSet(obj, ca->name, val);
obj 2494 src/class.c return slot_set_using_accessor(obj, ca, val);
obj 2595 src/class.c cleanup(obj);
obj 2601 src/class.c ScmForeignPointer *obj;
obj 2602 src/class.c obj = SCM_NEW(ScmForeignPointer);
obj 2603 src/class.c SCM_SET_CLASS(obj, klass);
obj 2604 src/class.c obj->ptr = ptr;
obj 2605 src/class.c obj->attributes = SCM_NIL;
obj 2607 src/class.c Scm_RegisterFinalizer(SCM_OBJ(obj), fp_finalize, data->cleanup);
obj 2609 src/class.c return obj;
obj 2614 src/class.c ScmForeignPointer *obj;
obj 2632 src/class.c obj = make_foreign_int(klass, ptr, data);
obj 2633 src/class.c Scm_WeakBoxSet((ScmWeakBox*)e->value, obj);
obj 2635 src/class.c obj = (ScmForeignPointer*)Scm_WeakBoxRef((ScmWeakBox*)e->value);
obj 2638 src/class.c obj = make_foreign_int(klass, ptr, data);
obj 2639 src/class.c e->value = Scm_MakeWeakBox(obj);
obj 2642 src/class.c obj = make_foreign_int(klass, ptr, data);
obj 2644 src/class.c return SCM_OBJ(obj);
obj 73 src/code.c Scm_CompiledCodeFullName(SCM_COMPILED_CODE(obj)), obj);
obj 313 src/code.c if (!SCM_PTRP(obj)) return;
obj 314 src/code.c if (!SCM_FALSEP(Scm_Memq(obj, b->constants))) return;
obj 315 src/code.c b->constants = Scm_Cons(obj, b->constants);
obj 618 src/code.c (SCM_INTP(obj)&&SCM_VM_INSN_ARG_FITS(SCM_INT_VALUE(obj)))
obj 1035 src/code.c int len = Scm_Length(obj), code, arg0, arg1;
obj 1037 src/code.c if (len < 1 || len > 3 || !SCM_SYMBOLP(SCM_CAR(obj))) goto badspec;
obj 1038 src/code.c code = Scm_VMInsnNameToCode(SCM_CAR(obj));
obj 1044 src/code.c SCM_CAR(obj), obj);
obj 1050 src/code.c SCM_CAR(obj), obj);
obj 1052 src/code.c if (!SCM_INTP(SCM_CADR(obj))) goto badspec;
obj 1053 src/code.c arg0 = SCM_INT_VALUE(SCM_CADR(obj));
obj 1058 src/code.c SCM_CAR(obj), obj);
obj 1060 src/code.c if (!SCM_INTP(SCM_CADR(obj))) goto badspec;
obj 1061 src/code.c if (!SCM_INTP(SCM_CAR(SCM_CDDR(obj)))) goto badspec;
obj 1062 src/code.c arg0 = SCM_INT_VALUE(SCM_CADR(obj));
obj 1063 src/code.c arg1 = SCM_INT_VALUE(SCM_CAR(SCM_CDDR(obj)));
obj 1068 src/code.c Scm_Error("Bad VM insn spec: %S", obj);
obj 101 src/compaux.c SCM_SYNTACTIC_CLOSURE(obj)->expr);
obj 118 src/compaux.c return SCM_SYNTACTIC_CLOSURE(obj)->env;
obj 123 src/compaux.c return SCM_SYNTACTIC_CLOSURE(obj)->literals;
obj 128 src/compaux.c return SCM_SYNTACTIC_CLOSURE(obj)->expr;
obj 144 src/compaux.c ScmIdentifier *id = SCM_IDENTIFIER(obj);
obj 198 src/compaux.c return SCM_OBJ(SCM_IDENTIFIER(obj)->name);
obj 206 src/compaux.c SCM_IDENTIFIER(obj)->name = SCM_SYMBOL(val);
obj 211 src/compaux.c return SCM_OBJ(SCM_IDENTIFIER(obj)->module);
obj 219 src/compaux.c SCM_IDENTIFIER(obj)->module = SCM_MODULE(val);
obj 224 src/compaux.c return SCM_IDENTIFIER(obj)->env;
obj 232 src/compaux.c SCM_IDENTIFIER(obj)->env = val;
obj 196 src/core.c Scm_Printf(SCM_CURERR, "WARNING: object %s(%p) is inadvertently collected\n", (char *)data, obj);
obj 201 src/core.c Scm_RegisterFinalizer(SCM_OBJ(obj), gc_sentinel, (void*)name);
obj 89 src/error.c ScmClass *k = Scm_ClassOf(obj);
obj 92 src/error.c SCM_ERROR_MESSAGE(obj));
obj 105 src/error.c return SCM_MESSAGE_CONDITION(obj)->message;
obj 110 src/error.c obj->message = val;
obj 193 src/error.c return SCM_MAKE_INT(obj->error_number);
obj 201 src/error.c obj->error_number = SCM_INT_VALUE(val);
obj 206 src/error.c if (obj->port) return SCM_OBJ(obj->port);
obj 213 src/error.c obj->port = SCM_PORT(val);
obj 216 src/error.c obj->port = NULL;
obj 225 src/error.c return SCM_MAKE_INT(obj->line);
obj 233 src/error.c obj->line = SCM_INT_VALUE(val);
obj 249 src/error.c return obj->port? SCM_OBJ(obj->port) : SCM_FALSE;
obj 257 src/error.c obj->port = SCM_FALSEP(val)? NULL : SCM_PORT(val);
obj 353 src/error.c return obj->conditions;
obj 366 src/error.c obj->conditions = conds;
obj 126 src/exclib.c ScmObj obj;
obj 129 src/exclib.c obj = (obj_scm);
obj 133 src/exclib.c SCM_RESULT = SCM_CONDITIONP(obj);
obj 366 src/extlib.c ScmObj obj;
obj 369 src/extlib.c obj = (obj_scm);
obj 371 src/extlib.c if (SCM_BIGNUMP(obj)) Scm_DumpBignum(SCM_BIGNUM(obj), SCM_CUROUT);
obj 426 src/extlib.c ScmObj obj;
obj 429 src/extlib.c obj = (obj_scm);
obj 433 src/extlib.c SCM_RESULT = SCM_PROPER_LIST_P(obj);
obj 445 src/extlib.c ScmObj obj;
obj 448 src/extlib.c obj = (obj_scm);
obj 452 src/extlib.c SCM_RESULT = SCM_DOTTED_LIST_P(obj);
obj 464 src/extlib.c ScmObj obj;
obj 467 src/extlib.c obj = (obj_scm);
obj 471 src/extlib.c SCM_RESULT = SCM_CIRCULAR_LIST_P(obj);
obj 606 src/extlib.c ScmObj obj;
obj 616 src/extlib.c obj = (obj_scm);
obj 629 src/extlib.c SCM_RESULT = (Scm_Delete(obj, list, getcmpmode(cmpmode)));
obj 641 src/extlib.c ScmObj obj;
obj 651 src/extlib.c obj = (obj_scm);
obj 664 src/extlib.c SCM_RESULT = (Scm_DeleteX(obj, list, getcmpmode(cmpmode)));
obj 951 src/extlib.c ScmObj obj;
obj 954 src/extlib.c obj = (obj_scm);
obj 958 src/extlib.c SCM_RESULT = SCM_KEYWORDP(obj);
obj 1089 src/extlib.c ScmObj obj;
obj 1092 src/extlib.c obj = (obj_scm);
obj 1096 src/extlib.c SCM_RESULT = SCM_IDENTIFIERP(obj);
obj 1108 src/extlib.c ScmIdentifier* obj;
obj 1112 src/extlib.c obj = SCM_IDENTIFIER(obj_scm);
obj 1116 src/extlib.c SCM_RESULT = (SCM_OBJ(SCM_IDENTIFIER(obj)->name));
obj 1288 src/extlib.c ScmObj obj;
obj 1291 src/extlib.c obj = (obj_scm);
obj 1295 src/extlib.c SCM_RESULT = SCM_CHARSETP(obj);
obj 1587 src/extlib.c ScmObj obj;
obj 1590 src/extlib.c obj = (obj_scm);
obj 1594 src/extlib.c SCM_RESULT = (SCM_STRINGP(obj)&&SCM_STRING_INCOMPLETE_P(obj));
obj 1606 src/extlib.c ScmObj obj;
obj 1609 src/extlib.c obj = (obj_scm);
obj 1613 src/extlib.c SCM_RESULT = (SCM_STRINGP(obj)&&SCM_STRING_IMMUTABLE_P(obj));
obj 2105 src/extlib.c ScmObj obj;
obj 2108 src/extlib.c obj = (obj_scm);
obj 2112 src/extlib.c SCM_RESULT = SCM_STRING_POINTERP(obj);
obj 2315 src/extlib.c ScmObj obj;
obj 2318 src/extlib.c obj = (obj_scm);
obj 2322 src/extlib.c SCM_RESULT = SCM_REGEXPP(obj);
obj 2334 src/extlib.c ScmObj obj;
obj 2337 src/extlib.c obj = (obj_scm);
obj 2341 src/extlib.c SCM_RESULT = SCM_REGMATCHP(obj);
obj 2948 src/extlib.c ScmObj obj;
obj 2951 src/extlib.c obj = (obj_scm);
obj 2955 src/extlib.c SCM_RESULT = (SCM_XTYPEP(obj, SCM_CLASS_PROMISE));
obj 2967 src/extlib.c ScmObj obj;
obj 2970 src/extlib.c obj = (obj_scm);
obj 2974 src/extlib.c SCM_RESULT = (Scm_MakePromise(TRUE, obj));
obj 2988 src/extlib.c ScmObj obj;
obj 2994 src/extlib.c obj = (obj_scm);
obj 2996 src/extlib.c p->kind = obj;
obj 3400 src/extlib.c ScmPort* obj;
obj 3404 src/extlib.c obj = SCM_PORT(obj_scm);
obj 3408 src/extlib.c SCM_RESULT = SCM_PORT_CLOSED_P(obj);
obj 4040 src/extlib.c ScmObj obj;
obj 4043 src/extlib.c obj = (obj_scm);
obj 4047 src/extlib.c SCM_RESULT = SCM_READ_REFERENCE_P(obj);
obj 4127 src/extlib.c ScmObj obj;
obj 4137 src/extlib.c obj = (obj_scm);
obj 4148 src/extlib.c int n = Scm_WriteLimited(obj, port, SCM_WRITE_WRITE, limit);
obj 4159 src/extlib.c ScmObj obj;
obj 4167 src/extlib.c obj = (obj_scm);
obj 4175 src/extlib.c int n = Scm_WriteCircular(obj, port, SCM_WRITE_WRITE, 0);
obj 4340 src/extlib.c ScmObj obj;
obj 4343 src/extlib.c obj = (obj_scm);
obj 4347 src/extlib.c SCM_RESULT = SCM_UNDEFINEDP(obj);
obj 4381 src/extlib.c ScmObj obj;
obj 4384 src/extlib.c obj = (obj_scm);
obj 4388 src/extlib.c SCM_RESULT = Scm_EqHash(obj);
obj 4400 src/extlib.c ScmObj obj;
obj 4403 src/extlib.c obj = (obj_scm);
obj 4407 src/extlib.c SCM_RESULT = Scm_EqvHash(obj);
obj 4419 src/extlib.c ScmObj obj;
obj 4422 src/extlib.c obj = (obj_scm);
obj 4426 src/extlib.c SCM_RESULT = Scm_Hash(obj);
obj 4471 src/extlib.c ScmObj obj;
obj 4474 src/extlib.c obj = (obj_scm);
obj 4478 src/extlib.c SCM_RESULT = SCM_HASH_TABLE_P(obj);
obj 4855 src/extlib.c ScmObj obj;
obj 4858 src/extlib.c obj = (obj_scm);
obj 4862 src/extlib.c SCM_RESULT = SCM_MODULEP(obj);
obj 5282 src/extlib.c ScmVM *vm = SCM_VM(obj);
obj 5298 src/extlib.c ScmVM* obj = SCM_VM(OBJARG);
obj 5299 src/extlib.c return SCM_OBJ_SAFE(obj->name);
obj 5304 src/extlib.c ScmVM* obj = SCM_VM(OBJARG);
obj 5305 src/extlib.c obj->name = (value);
obj 5310 src/extlib.c ScmVM* obj = SCM_VM(OBJARG);
obj 5311 src/extlib.c return SCM_OBJ_SAFE(obj->specific);
obj 5316 src/extlib.c ScmVM* obj = SCM_VM(OBJARG);
obj 5317 src/extlib.c obj->specific = (value);
obj 5839 src/extlib.c ScmObj obj;
obj 5842 src/extlib.c obj = (obj_scm);
obj 5846 src/extlib.c SCM_RESULT = SCM_SUBRP(obj);
obj 5858 src/extlib.c ScmObj obj;
obj 5861 src/extlib.c obj = (obj_scm);
obj 5865 src/extlib.c SCM_RESULT = SCM_CLOSUREP(obj);
obj 5877 src/extlib.c ScmObj obj;
obj 5880 src/extlib.c obj = (obj_scm);
obj 5884 src/extlib.c SCM_RESULT = (SCM_CLOSUREP(obj) && SCM_CLOSURE(obj)->env == NULL);
obj 179 src/gauche.h #define SCM_OBJ(obj) ((ScmObj)(obj))
obj 180 src/gauche.h #define SCM_WORD(obj) ((ScmWord)(obj))
obj 186 src/gauche.h #define SCM_TAG(obj) (SCM_WORD(obj) & 0x03)
obj 187 src/gauche.h #define SCM_PTRP(obj) (SCM_TAG(obj) == 0)
obj 193 src/gauche.h #define SCM_IMMEDIATEP(obj) ((SCM_WORD(obj)&0x0f) == 6)
obj 194 src/gauche.h #define SCM_ITAG(obj) (SCM_WORD(obj)>>4)
obj 204 src/gauche.h #define SCM_FALSEP(obj) ((obj) == SCM_FALSE)
obj 205 src/gauche.h #define SCM_TRUEP(obj) ((obj) == SCM_TRUE)
obj 206 src/gauche.h #define SCM_NULLP(obj) ((obj) == SCM_NIL)
obj 207 src/gauche.h #define SCM_EOFP(obj) ((obj) == SCM_EOF)
obj 208 src/gauche.h #define SCM_UNDEFINEDP(obj) ((obj) == SCM_UNDEFINED)
obj 209 src/gauche.h #define SCM_UNBOUNDP(obj) ((obj) == SCM_UNBOUND)
obj 214 src/gauche.h #define SCM_BOOLP(obj) ((obj) == SCM_TRUE || (obj) == SCM_FALSE)
obj 215 src/gauche.h #define SCM_BOOL_VALUE(obj) (!SCM_FALSEP(obj))
obj 216 src/gauche.h #define SCM_MAKE_BOOL(obj) ((obj)? SCM_TRUE:SCM_FALSE)
obj 237 src/gauche.h #define SCM_INTP(obj) (SCM_TAG(obj) == 1)
obj 238 src/gauche.h #define SCM_INT_VALUE(obj) (((signed long int)(obj)) >> 2)
obj 239 src/gauche.h #define SCM_MAKE_INT(obj) SCM_OBJ(((long)(obj) << 2) + 1)
obj 241 src/gauche.h #define SCM_UINTP(obj) (SCM_INTP(obj)&&((signed long int)(obj)>=0))
obj 252 src/gauche.h #define SCM_CHAR(obj) ((ScmChar)(obj))
obj 253 src/gauche.h #define SCM_CHARP(obj) ((SCM_WORD(obj)&0x07L) == 2)
obj 254 src/gauche.h #define SCM_CHAR_VALUE(obj) SCM_CHAR(SCM_WORD(obj) >> 3)
obj 292 src/gauche.h #define SCM_HOBJP(obj) (SCM_PTRP(obj)&&SCM_TAG(SCM_OBJ(obj)->tag)==3)
obj 311 src/gauche.h #define SCM_CLASS_OF(obj) SCM_CLASS((SCM_OBJ(obj)->tag - 3))
obj 312 src/gauche.h #define SCM_SET_CLASS(obj, k) (SCM_OBJ(obj)->tag = (ScmByte*)(k) + 3)
obj 316 src/gauche.h (SCM_PTRP(obj)&&(SCM_OBJ(obj)->tag == SCM_CLASS2TAG(klass)))
obj 319 src/gauche.h #define SCM_ISA(obj, klass) (SCM_XTYPEP(obj,klass)||Scm_TypeP(SCM_OBJ(obj),klass))
obj 329 src/gauche.h #define SCM_INSTANCE(obj) ((ScmInstance*)(obj))
obj 330 src/gauche.h #define SCM_INSTANCE_SLOTS(obj) (SCM_INSTANCE(obj)->slots)
obj 348 src/gauche.h #define SCM_OBJ_SAFE(obj) ((obj)?SCM_OBJ(obj):SCM_UNDEFINED)
obj 388 src/gauche.h #define SCM_VM(obj) ((ScmVM *)(obj))
obj 389 src/gauche.h #define SCM_VMP(obj) SCM_XTYPEP(obj, SCM_CLASS_VM)
obj 492 src/gauche.h #define SCM_CLASS(obj) ((ScmClass*)(obj))
obj 493 src/gauche.h #define SCM_CLASSP(obj) SCM_ISA(obj, SCM_CLASS_CLASS)
obj 539 src/gauche.h #define SCM_CLASS_FLAGS(obj) (SCM_CLASS(obj)->flags)
obj 540 src/gauche.h #define SCM_CLASS_APPLICABLE_P(obj) (SCM_CLASS_FLAGS(obj)&SCM_CLASS_APPLICABLE)
obj 542 src/gauche.h #define SCM_CLASS_CATEGORY(obj) (SCM_CLASS_FLAGS(obj)&3)
obj 680 src/gauche.h #define SCM_FOREIGN_POINTER_P(obj) SCM_ISA(obj, SCM_CLASS_FOREIGN_POINTER)
obj 681 src/gauche.h #define SCM_FOREIGN_POINTER(obj) ((ScmForeignPointer*)(obj))
obj 683 src/gauche.h ((type)(SCM_FOREIGN_POINTER(obj)->ptr))
obj 747 src/gauche.h #define SCM_PAIRP(obj) (SCM_PTRP(obj)&&SCM_TAG(SCM_OBJ(obj)->tag)!=0x03)
obj 749 src/gauche.h #define SCM_PAIR(obj) ((ScmPair*)(obj))
obj 750 src/gauche.h #define SCM_CAR(obj) (SCM_PAIR(obj)->car)
obj 751 src/gauche.h #define SCM_CDR(obj) (SCM_PAIR(obj)->cdr)
obj 752 src/gauche.h #define SCM_CAAR(obj) (SCM_CAR(SCM_CAR(obj)))
obj 753 src/gauche.h #define SCM_CADR(obj) (SCM_CAR(SCM_CDR(obj)))
obj 754 src/gauche.h #define SCM_CDAR(obj) (SCM_CDR(SCM_CAR(obj)))
obj 755 src/gauche.h #define SCM_CDDR(obj) (SCM_CDR(SCM_CDR(obj)))
obj 757 src/gauche.h #define SCM_SET_CAR(obj, value) (SCM_CAR(obj) = (value))
obj 758 src/gauche.h #define SCM_SET_CDR(obj, value) (SCM_CDR(obj) = (value))
obj 761 src/gauche.h (SCM_PAIRP(obj)&&GC_base(obj)&&GC_size(obj)>=sizeof(ScmExtendedPair))
obj 762 src/gauche.h #define SCM_EXTENDED_PAIR(obj) ((ScmExtendedPair*)(obj))
obj 772 src/gauche.h #define SCM_LISTP(obj) (SCM_NULLP(obj) || SCM_PAIRP(obj))
obj 782 src/gauche.h (start) = (last) = Scm_Cons((obj), SCM_NIL); \
obj 784 src/gauche.h SCM_SET_CDR((last), Scm_Cons((obj), SCM_NIL)); \
obj 791 src/gauche.h ScmObj list_SCM_GLS = (obj); \
obj 815 src/gauche.h #define SCM_PROPER_LIST_P(obj) (Scm_Length(obj) >= 0)
obj 816 src/gauche.h #define SCM_DOTTED_LIST_P(obj) (Scm_Length(obj) == SCM_LIST_DOTTED)
obj 817 src/gauche.h #define SCM_CIRCULAR_LIST_P(obj) (Scm_Length(obj) == SCM_LIST_CIRCULAR)
obj 895 src/gauche.h #define SCM_CHARSET(obj) ((ScmCharSet*)obj)
obj 896 src/gauche.h #define SCM_CHARSETP(obj) SCM_XTYPEP(obj, SCM_CLASS_CHARSET)
obj 898 src/gauche.h #define SCM_CHARSET_SMALLP(obj) (SCM_CHARSET(obj)->ranges == NULL)
obj 986 src/gauche.h #define SCM_STRINGP(obj) SCM_XTYPEP(obj, SCM_CLASS_STRING)
obj 987 src/gauche.h #define SCM_STRING(obj) ((ScmString*)(obj))
obj 989 src/gauche.h ((const ScmStringBody*)(SCM_STRING(obj)->body?SCM_STRING(obj)->body:&SCM_STRING(obj)->initialBody))
obj 1008 src/gauche.h SCM_STRING_BODY_IMMUTABLE_P(SCM_STRING_BODY(obj))
obj 1011 src/gauche.h (SCM_STRING_BODY_SIZE(SCM_STRING_BODY(obj)) == 0)
obj 1016 src/gauche.h #define SCM_STRING_LENGTH(obj) (SCM_STRING_BODY(obj)->length)
obj 1017 src/gauche.h #define SCM_STRING_SIZE(obj) (SCM_STRING_BODY(obj)->size)
obj 1018 src/gauche.h #define SCM_STRING_START(obj) (SCM_STRING_BODY(obj)->start)
obj 1020 src/gauche.h (SCM_STRING_BODY_INCOMPLETE_P(SCM_STRING_BODY(obj)))
obj 1022 src/gauche.h (SCM_STRING_SIZE(obj)==SCM_STRING_LENGTH(obj))
obj 1037 src/gauche.h #define SCM_STRING_CONST_CSTRING(obj) Scm_GetStringConst(SCM_STRING(obj))
obj 1201 src/gauche.h #define SCM_STRING_POINTERP(obj) SCM_XTYPEP(obj, SCM_CLASS_STRING_POINTER)
obj 1202 src/gauche.h #define SCM_STRING_POINTER(obj) ((ScmStringPointer*)obj)
obj 1227 src/gauche.h #define SCM_VECTOR(obj) ((ScmVector*)(obj))
obj 1228 src/gauche.h #define SCM_VECTORP(obj) SCM_XTYPEP(obj, SCM_CLASS_VECTOR)
obj 1229 src/gauche.h #define SCM_VECTOR_SIZE(obj) (SCM_VECTOR(obj)->size)
obj 1230 src/gauche.h #define SCM_VECTOR_ELEMENTS(obj) (SCM_VECTOR(obj)->elements)
obj 1231 src/gauche.h #define SCM_VECTOR_ELEMENT(obj, i) (SCM_VECTOR(obj)->elements[i])
obj 1263 src/gauche.h for (cnt = 0, obj = SCM_VECTOR_ELEMENT(vec, 0); \
obj 1265 src/gauche.h obj = SCM_VECTOR_ELEMENT(vec, ++cnt))
obj 1445 src/gauche.h #define SCM_PORTP(obj) (SCM_ISA(obj, SCM_CLASS_PORT))
obj 1447 src/gauche.h #define SCM_PORT(obj) ((ScmPort *)(obj))
obj 1448 src/gauche.h #define SCM_PORT_TYPE(obj) (SCM_PORT(obj)->type)
obj 1449 src/gauche.h #define SCM_PORT_DIR(obj) (SCM_PORT(obj)->direction)
obj 1450 src/gauche.h #define SCM_PORT_FLAGS(obj) (SCM_PORT(obj)->flags)
obj 1451 src/gauche.h #define SCM_PORT_ICPOLICY(obj) (SCM_PORT(obj)->icpolicy)
obj 1453 src/gauche.h #define SCM_PORT_CLOSED_P(obj) (SCM_PORT(obj)->closed)
obj 1454 src/gauche.h #define SCM_PORT_OWNER_P(obj) (SCM_PORT(obj)->ownerp)
obj 1455 src/gauche.h #define SCM_PORT_ERROR_OCCURRED_P(obj) (SCM_PORT(obj)->error)
obj 1457 src/gauche.h #define SCM_IPORTP(obj) (SCM_PORTP(obj)&&(SCM_PORT_DIR(obj)&SCM_PORT_INPUT))
obj 1458 src/gauche.h #define SCM_OPORTP(obj) (SCM_PORTP(obj)&&(SCM_PORT_DIR(obj)&SCM_PORT_OUTPUT))
obj 1576 src/gauche.h ScmObj obj; /* internal */
obj 1638 src/gauche.h #define SCM_READ_REFERENCE(obj) ((ScmReadReference*)(obj))
obj 1639 src/gauche.h #define SCM_READ_REFERENCE_P(obj) SCM_XTYPEP(obj, SCM_CLASS_READ_REFERENCE)
obj 1641 src/gauche.h (!SCM_EQ(SCM_READ_REFERENCE(obj)->value, SCM_UNBOUND))
obj 1666 src/gauche.h #define SCM_WEAK_VECTOR(obj) ((ScmWeakVector*)(obj))
obj 1667 src/gauche.h #define SCM_WEAK_VECTOR_P(obj) SCM_XTYPEP(obj, SCM_CLASS_WEAK_VECTOR)
obj 1708 src/gauche.h #define SCM_HASH_TABLE(obj) ((ScmHashTable*)(obj))
obj 1709 src/gauche.h #define SCM_HASH_TABLE_P(obj) SCM_ISA(obj, SCM_CLASS_HASH_TABLE)
obj 1820 src/gauche.h #define SCM_MODULE(obj) ((ScmModule*)(obj))
obj 1821 src/gauche.h #define SCM_MODULEP(obj) SCM_XTYPEP(obj, SCM_CLASS_MODULE)
obj 1886 src/gauche.h #define SCM_SYMBOL(obj) ((ScmSymbol*)(obj))
obj 1887 src/gauche.h #define SCM_SYMBOLP(obj) SCM_XTYPEP(obj, SCM_CLASS_SYMBOL)
obj 1888 src/gauche.h #define SCM_SYMBOL_NAME(obj) (SCM_SYMBOL(obj)->name)
obj 1908 src/gauche.h #define SCM_GLOC(obj) ((ScmGloc*)(obj))
obj 1909 src/gauche.h #define SCM_GLOCP(obj) SCM_XTYPEP(obj, SCM_CLASS_GLOC)
obj 1937 src/gauche.h #define SCM_KEYWORD(obj) ((ScmKeyword*)(obj))
obj 1938 src/gauche.h #define SCM_KEYWORDP(obj) SCM_XTYPEP(obj, SCM_CLASS_KEYWORD)
obj 1939 src/gauche.h #define SCM_KEYWORD_NAME(obj) (SCM_KEYWORD(obj)->name)
obj 1978 src/gauche.h #define SCM_INTEGERP(obj) (SCM_INTP(obj) || SCM_BIGNUMP(obj))
obj 1979 src/gauche.h #define SCM_REALP(obj) (SCM_INTEGERP(obj)||SCM_FLONUMP(obj))
obj 1980 src/gauche.h #define SCM_NUMBERP(obj) (SCM_REALP(obj)||SCM_COMPLEXP(obj))
obj 1981 src/gauche.h #define SCM_EXACTP(obj) SCM_INTEGERP(obj)
obj 1982 src/gauche.h #define SCM_INEXACTP(obj) (SCM_FLONUMP(obj)||SCM_COMPLEXP(obj))
obj 1985 src/gauche.h (SCM_UINTP(obj) || (SCM_BIGNUMP(obj)&&SCM_BIGNUM_SIGN(obj)>=0))
obj 2004 src/gauche.h #define SCM_BIGNUM(obj) ((ScmBignum*)(obj))
obj 2005 src/gauche.h #define SCM_BIGNUMP(obj) SCM_XTYPEP(obj, SCM_CLASS_INTEGER)
obj 2006 src/gauche.h #define SCM_BIGNUM_SIZE(obj) SCM_BIGNUM(obj)->size
obj 2007 src/gauche.h #define SCM_BIGNUM_SIGN(obj) SCM_BIGNUM(obj)->sign
obj 2092 src/gauche.h #define SCM_FLONUM(obj) ((ScmFlonum*)(obj))
obj 2093 src/gauche.h #define SCM_FLONUMP(obj) SCM_XTYPEP(obj, SCM_CLASS_REAL)
obj 2094 src/gauche.h #define SCM_FLONUM_VALUE(obj) (SCM_FLONUM(obj)->value)
obj 2102 src/gauche.h #define SCM_COMPLEX(obj) ((ScmComplex*)(obj))
obj 2103 src/gauche.h #define SCM_COMPLEXP(obj) SCM_XTYPEP(obj, SCM_CLASS_COMPLEX)
obj 2104 src/gauche.h #define SCM_COMPLEX_REAL(obj) SCM_COMPLEX(obj)->real
obj 2105 src/gauche.h #define SCM_COMPLEX_IMAG(obj) SCM_COMPLEX(obj)->imag
obj 2232 src/gauche.h #define SCM_PROCEDURE(obj) ((ScmProcedure*)(obj))
obj 2233 src/gauche.h #define SCM_PROCEDURE_REQUIRED(obj) SCM_PROCEDURE(obj)->required
obj 2234 src/gauche.h #define SCM_PROCEDURE_OPTIONAL(obj) SCM_PROCEDURE(obj)->optional
obj 2235 src/gauche.h #define SCM_PROCEDURE_TYPE(obj) SCM_PROCEDURE(obj)->type
obj 2236 src/gauche.h #define SCM_PROCEDURE_INFO(obj) SCM_PROCEDURE(obj)->info
obj 2237 src/gauche.h #define SCM_PROCEDURE_SETTER(obj) SCM_PROCEDURE(obj)->setter
obj 2238 src/gauche.h #define SCM_PROCEDURE_INLINER(obj) SCM_PROCEDURE(obj)->inliner
obj 2243 src/gauche.h (SCM_HOBJP(obj) && SCM_CLASS_APPLICABLE_P(SCM_CLASS_OF(obj)))
obj 2245 src/gauche.h (SCM_PROCEDUREP(obj)&& \
obj 2246 src/gauche.h ( (!SCM_PROCEDURE_OPTIONAL(obj)&&SCM_PROCEDURE_REQUIRED(obj)==(narg)) \
obj 2247 src/gauche.h ||(SCM_PROCEDURE_OPTIONAL(obj)&&SCM_PROCEDURE_REQUIRED(obj)<=(narg))))
obj 2249 src/gauche.h (SCM_PROCEDUREP(obj)&& \
obj 2250 src/gauche.h ( (!SCM_PROCEDURE_OPTIONAL(obj)&&SCM_PROCEDURE_REQUIRED(obj)==0) \
obj 2251 src/gauche.h ||(SCM_PROCEDURE_OPTIONAL(obj))))
obj 2253 src/gauche.h SCM_PROCEDURE(obj)->required = req, \
obj 2254 src/gauche.h SCM_PROCEDURE(obj)->optional = opt, \
obj 2255 src/gauche.h SCM_PROCEDURE(obj)->type = typ, \
obj 2256 src/gauche.h SCM_PROCEDURE(obj)->info = inf, \
obj 2257 src/gauche.h SCM_PROCEDURE(obj)->setter = SCM_FALSE, \
obj 2258 src/gauche.h SCM_PROCEDURE(obj)->inliner = SCM_FALSE
obj 2271 src/gauche.h (SCM_PROCEDUREP(obj)&&(SCM_PROCEDURE_TYPE(obj)==SCM_PROC_CLOSURE))
obj 2272 src/gauche.h #define SCM_CLOSURE(obj) ((ScmClosure*)(obj))
obj 2284 src/gauche.h (SCM_PROCEDUREP(obj)&&(SCM_PROCEDURE_TYPE(obj)==SCM_PROC_SUBR))
obj 2285 src/gauche.h #define SCM_SUBR(obj) ((ScmSubr*)(obj))
obj 2286 src/gauche.h #define SCM_SUBR_FUNC(obj) SCM_SUBR(obj)->func
obj 2287 src/gauche.h #define SCM_SUBR_DATA(obj) SCM_SUBR(obj)->data
obj 2318 src/gauche.h #define SCM_GENERICP(obj) SCM_XTYPEP(obj, SCM_CLASS_GENERIC)
obj 2319 src/gauche.h #define SCM_GENERIC(obj) ((ScmGeneric*)obj)
obj 2320 src/gauche.h #define SCM_GENERIC_DATA(obj) (SCM_GENERIC(obj)->data)
obj 2354 src/gauche.h #define SCM_METHODP(obj) SCM_ISA(obj, SCM_CLASS_METHOD)
obj 2355 src/gauche.h #define SCM_METHOD(obj) ((ScmMethod*)obj)
obj 2380 src/gauche.h #define SCM_NEXT_METHODP(obj) SCM_XTYPEP(obj, SCM_CLASS_NEXT_METHOD)
obj 2381 src/gauche.h #define SCM_NEXT_METHOD(obj) ((ScmNextMethod*)obj)
obj 2400 src/gauche.h #define SCM_SYNTAX(obj) ((ScmSyntax*)(obj))
obj 2401 src/gauche.h #define SCM_SYNTAXP(obj) SCM_XTYPEP(obj, SCM_CLASS_SYNTAX)
obj 2416 src/gauche.h #define SCM_MACRO(obj) ((ScmMacro*)(obj))
obj 2417 src/gauche.h #define SCM_MACROP(obj) SCM_XTYPEP(obj, SCM_CLASS_MACRO)
obj 2440 src/gauche.h #define SCM_PROMISE(obj) ((ScmPromise*)(obj))
obj 2441 src/gauche.h #define SCM_PROMISEP(obj) SCM_XTYPEP(obj, SCM_CLASS_PROMISE)
obj 2511 src/gauche.h #define SCM_REGEXP(obj) ((ScmRegexp*)obj)
obj 2512 src/gauche.h #define SCM_REGEXPP(obj) SCM_XTYPEP(obj, SCM_CLASS_REGEXP)
obj 2540 src/gauche.h #define SCM_REGMATCH(obj) ((ScmRegMatch*)obj)
obj 2541 src/gauche.h #define SCM_REGMATCHP(obj) SCM_XTYPEP(obj, SCM_CLASS_REGMATCH)
obj 2560 src/gauche.h #define SCM_MAYBE_P(pred, obj) (SCM_FALSEP(obj)||(pred(obj)))
obj 2561 src/gauche.h #define SCM_MAYBE(unboxer, obj) (SCM_FALSEP(obj)?NULL:(unboxer(obj)))
obj 2562 src/gauche.h #define SCM_MAKE_MAYBE(boxer, obj) ((obj)?(boxer(obj)):SCM_FALSE)
obj 2575 src/gauche.h #define SCM_SYS_SIGSET(obj) ((ScmSysSigset*)(obj))
obj 2576 src/gauche.h #define SCM_SYS_SIGSET_P(obj) SCM_XTYPEP(obj, SCM_CLASS_SYS_SIGSET)
obj 2634 src/gauche.h #define SCM_SYS_STAT(obj) ((ScmSysStat*)(obj))
obj 2635 src/gauche.h #define SCM_SYS_STAT_P(obj) (SCM_XTYPEP(obj, SCM_CLASS_SYS_STAT))
obj 2660 src/gauche.h #define SCM_TIME(obj) ((ScmTime*)obj)
obj 2661 src/gauche.h #define SCM_TIMEP(obj) SCM_XTYPEP(obj, SCM_CLASS_TIME)
obj 2680 src/gauche.h #define SCM_SYS_TM(obj) ((ScmSysTm*)(obj))
obj 2681 src/gauche.h #define SCM_SYS_TM_P(obj) (SCM_XTYPEP(obj, SCM_CLASS_SYS_TM))
obj 2682 src/gauche.h #define SCM_SYS_TM_TM(obj) SCM_SYS_TM(obj)->tm
obj 2697 src/gauche.h #define SCM_SYS_GROUP(obj) ((ScmSysGroup*)(obj))
obj 2698 src/gauche.h #define SCM_SYS_GROUP_P(obj) (SCM_XTYPEP(obj, SCM_CLASS_SYS_GROUP))
obj 2718 src/gauche.h #define SCM_SYS_PASSWD(obj) ((ScmSysPasswd*)(obj))
obj 2719 src/gauche.h #define SCM_SYS_PASSWD_P(obj) (SCM_XTYPEP(obj, SCM_CLASS_SYS_PASSWD))
obj 2739 src/gauche.h #define SCM_SYS_FDSET(obj) ((ScmSysFdset*)(obj))
obj 2740 src/gauche.h #define SCM_SYS_FDSET_P(obj) (SCM_XTYPEP(obj, SCM_CLASS_SYS_FDSET))
obj 2749 src/gauche.h #define SCM_SYS_FDSET(obj) (obj)
obj 2811 src/gauche.h #define SCM_AUTOLOADP(obj) SCM_XTYPEP(obj, SCM_CLASS_AUTOLOAD)
obj 2812 src/gauche.h #define SCM_AUTOLOAD(obj) ((ScmAutoload*)(obj))
obj 68 src/gauche/class.h #define SCM_SLOT_ACCESSOR(obj) ((ScmSlotAccessor*)obj)
obj 69 src/gauche/class.h #define SCM_SLOT_ACCESSOR_P(obj) SCM_XTYPEP(obj, SCM_CLASS_SLOT_ACCESSOR)
obj 101 src/gauche/class.h #define SCM_ACCESSOR_METHOD(obj) ((ScmAccessorMethod*)obj)
obj 102 src/gauche/class.h #define SCM_ACCESSOR_METHOD_P(obj) SCM_ISA(obj, SCM_CLASS_SLOT_ACCESSOR)
obj 94 src/gauche/code.h #define SCM_COMPILED_CODE(obj) ((ScmCompiledCode*)(obj))
obj 95 src/gauche/code.h #define SCM_COMPILED_CODE_P(obj) SCM_XTYPEP(obj, SCM_CLASS_COMPILED_CODE)
obj 96 src/gauche/code.h #define SCM_COMPILED_CODE_ARG_INFO(obj) (SCM_COMPILED_CODE(obj)->argInfo)
obj 98 src/gauche/code.h (SCM_COMPILED_CODE(obj)->requiredArgs)
obj 100 src/gauche/code.h (SCM_COMPILED_CODE(obj)->optionalArgs)
obj 149 src/gauche/code.h #define SCM_VM_INSN_CODE(obj) (SCM_WORD(obj)&0x0ff)
obj 150 src/gauche/code.h #define SCM_VM_INSN_ARG(obj) ((signed long)SCM_WORD(obj) >> 8)
obj 151 src/gauche/code.h #define SCM_VM_INSN_ARG0(obj) ((SCM_WORD(obj) >> 8) & 0x03ff)
obj 152 src/gauche/code.h #define SCM_VM_INSN_ARG1(obj) ((SCM_WORD(obj) >> 18) & 0x03ff)
obj 80 src/gauche/exception.h #define SCM_CONDITIONP(obj) SCM_ISA(obj, SCM_CLASS_CONDITION)
obj 92 src/gauche/exception.h #define SCM_MESSAGE_CONDITION_P(obj) SCM_ISA(obj, SCM_CLASS_MESSAGE_CONDITION)
obj 93 src/gauche/exception.h #define SCM_MESSAGE_CONDITION(obj) ((ScmMessageCondition*)(obj))
obj 100 src/gauche/exception.h #define SCM_SERIOUS_CONDITION_P(obj) SCM_ISA(obj, SCM_CLASS_SERIOUS_CONDITION)
obj 101 src/gauche/exception.h #define SCM_SERIOUS_CONDITION(obj) ((ScmSeriousCondition*)(obj))
obj 112 src/gauche/exception.h #define SCM_ERRORP(obj) SCM_ISA(obj, SCM_CLASS_ERROR)
obj 113 src/gauche/exception.h #define SCM_ERROR(obj) ((ScmError*)(obj))
obj 114 src/gauche/exception.h #define SCM_ERROR_MESSAGE(obj) SCM_ERROR(obj)->message
obj 126 src/gauche/exception.h #define SCM_SYSTEM_ERROR(obj) ((ScmSystemError*)(obj))
obj 127 src/gauche/exception.h #define SCM_SYSTEM_ERROR_P(obj) SCM_ISA(obj, SCM_CLASS_SYSTEM_ERROR)
obj 140 src/gauche/exception.h #define SCM_READ_ERROR(obj) ((ScmReadError*)(obj))
obj 141 src/gauche/exception.h #define SCM_READ_ERROR_P(obj) SCM_ISA(obj, SCM_CLASS_READ_ERROR)
obj 150 src/gauche/exception.h #define SCM_IO_ERROR_P(obj) SCM_ISA(obj, SCM_CLASS_IO_ERROR)
obj 160 src/gauche/exception.h #define SCM_PORT_ERROR(obj) ((ScmPortError*)(obj))
obj 161 src/gauche/exception.h #define SCM_PORT_ERROR_P(obj) SCM_ISA(obj, SCM_CLASS_PORT_ERROR)
obj 198 src/gauche/exception.h #define SCM_COMPOUND_CONDITION(obj) ((ScmCompoundCondition*)(obj))
obj 199 src/gauche/exception.h #define SCM_COMPOUND_CONDITION_P(obj) SCM_ISA(obj, SCM_CLASS_COMPOUND_CONDITION)
obj 203 src/gauche/exception.h #define SCM_SERIOUS_COMPOUND_CONDITION_P(obj) SCM_ISA(obj, SCM_CLASS_SERIOUS_COMPOUND_CONDITION)
obj 219 src/gauche/exception.h #define SCM_APPLICATION_EXIT_P(obj) SCM_ISA(obj, SCM_CLASS_APPLICATION_EXIT)
obj 240 src/gauche/exception.h #define SCM_THREAD_EXCEPTION_P(obj) SCM_ISA(obj, SCM_CLASS_THREAD_EXCEPTION)
obj 241 src/gauche/exception.h #define SCM_THREAD_EXCEPTION(obj) ((ScmThreadException*)(obj))
obj 245 src/gauche/exception.h #define SCM_JOIN_TIMEOUT_EXCEPTION_P SCM_ISA(obj, SCM_CLASS_JOIN_TIMEOUT_EXCEPTION)
obj 249 src/gauche/exception.h #define SCM_ABANDONED_MUTEX_EXCEPTION_P SCM_ISA(obj, SCM_CLASS_ABANDONED_MUTEX_EXCEPTION)
obj 253 src/gauche/exception.h #define SCM_TERMINATED_THREAD_EXCEPTION_P SCM_ISA(obj, SCM_CLASS_TERMINATED_THREAD_EXCEPTION)
obj 257 src/gauche/exception.h #define SCM_UNCAUGHT_EXCEPTION_P SCM_ISA(obj, SCM_CLASS_UNCAUGHT_EXCEPTION)
obj 54 src/gauche/macro.h #define SCM_SYNTAX_PATTERN(obj) ((ScmSyntaxPattern*)(obj))
obj 55 src/gauche/macro.h #define SCM_SYNTAX_PATTERN_P(obj) SCM_XTYPEP(obj, SCM_CLASS_SYNTAX_PATTERN)
obj 79 src/gauche/macro.h #define SCM_SYNTAX_RULES(obj) ((ScmSyntaxRules*)(obj))
obj 80 src/gauche/macro.h #define SCM_SYNTAX_RULES_P(obj) SCM_XTYPEP(obj, SCM_CLASS_SYNTAX_RULES)
obj 89 src/gauche/macro.h #define SCM_PVREF_P(obj) ((SCM_WORD(obj)&0x0f) == SCM_PVREF_TAG)
obj 90 src/gauche/macro.h #define SCM_PVREF_LEVEL(obj) ((SCM_WORD(obj)>>24) & 0xff)
obj 91 src/gauche/macro.h #define SCM_PVREF_COUNT(obj) ((SCM_WORD(obj)>>16) & 0xff)
obj 135 src/gauche/prof.h vm->prof->counts[vm->prof->currentCount++].func = obj; \
obj 129 src/gauche/vm.h #define SCM_SYNTACTIC_CLOSURE(obj) ((ScmSyntacticClosure*)(obj))
obj 130 src/gauche/vm.h #define SCM_SYNTACTIC_CLOSURE_P(obj) SCM_XTYPEP(obj, SCM_CLASS_SYNTACTIC_CLOSURE)
obj 158 src/gauche/vm.h #define SCM_IDENTIFIER(obj) ((ScmIdentifier*)(obj))
obj 159 src/gauche/vm.h #define SCM_IDENTIFIERP(obj) SCM_XTYPEP(obj, SCM_CLASS_IDENTIFIER)
obj 564 src/gauche/vm.h #define SCM_CCONT(obj) ((ScmCContinuation*)(obj))
obj 565 src/gauche/vm.h #define SCM_CCONTP(obj) SCM_XTYPEP(obj, SCM_CLASS_CCONT)
obj 121 src/hash.c ADDRESS_HASH(hashval, obj);
obj 128 src/hash.c if (SCM_NUMBERP(obj)) {
obj 129 src/hash.c if (SCM_INTP(obj)) {
obj 130 src/hash.c SMALL_INT_HASH(hashval, SCM_INT_VALUE(obj));
obj 131 src/hash.c } else if (SCM_BIGNUMP(obj)) {
obj 134 src/hash.c for (i=0; i<SCM_BIGNUM_SIZE(obj); i++) {
obj 135 src/hash.c u += SCM_BIGNUM(obj)->values[i];
obj 138 src/hash.c } else if (SCM_FLONUMP(obj)) {
obj 140 src/hash.c hashval = (unsigned long)(SCM_FLONUM_VALUE(obj)*2654435761UL);
obj 143 src/hash.c hashval = (unsigned long)((SCM_COMPLEX_REAL(obj)+SCM_COMPLEX_IMAG(obj))*2654435761UL);
obj 146 src/hash.c ADDRESS_HASH(hashval, obj);
obj 155 src/hash.c if (!SCM_PTRP(obj)) {
obj 156 src/hash.c SMALL_INT_HASH(hashval, (unsigned long)obj);
obj 158 src/hash.c } else if (SCM_NUMBERP(obj)) {
obj 159 src/hash.c return Scm_EqvHash(obj);
obj 160 src/hash.c } else if (SCM_STRINGP(obj)) {
obj 162 src/hash.c } else if (SCM_PAIRP(obj)) {
obj 165 src/hash.c SCM_FOR_EACH(cp, obj) {
obj 172 src/hash.c } else if (SCM_VECTORP(obj)) {
obj 176 src/hash.c SCM_VECTOR_FOR_EACH(i, elt, obj) {
obj 181 src/hash.c } else if (SCM_SYMBOLP(obj)) {
obj 182 src/hash.c obj = SCM_OBJ(SCM_SYMBOL_NAME(obj));
obj 184 src/hash.c } else if (SCM_KEYWORDP(obj)) {
obj 185 src/hash.c obj = SCM_OBJ(SCM_KEYWORD_NAME(obj));
obj 190 src/hash.c SCM_LIST1(obj));
obj 205 src/hash.c const ScmStringBody *b = SCM_STRING_BODY(obj);
obj 351 src/hash.c ADDRESS_HASH(hashval, obj);
obj 772 src/hash.c ScmHashTable *ht = (ScmHashTable*)obj;
obj 103 src/intlib.c ScmObj obj;
obj 106 src/intlib.c obj = (obj_scm);
obj 110 src/intlib.c SCM_RESULT = SCM_EXTENDED_PAIR_P(obj);
obj 450 src/intlib.c ScmObj obj;
obj 453 src/intlib.c obj = (obj_scm);
obj 457 src/intlib.c SCM_RESULT = SCM_MACROP(obj);
obj 48 src/keyword.c SCM_PUTS(SCM_KEYWORD(obj)->name, port);
obj 112 src/list.c ScmObj start = SCM_NIL, cp = SCM_NIL, obj;
obj 114 src/list.c for (obj = va_arg(pvar, ScmObj);
obj 115 src/list.c obj != NULL;
obj 116 src/list.c obj = va_arg(pvar, ScmObj))
obj 121 src/list.c SCM_SET_CAR(start, obj);
obj 129 src/list.c SCM_SET_CAR(item, obj);
obj 182 src/list.c ScmObj cname (ScmObj obj) \
obj 184 src/list.c ScmObj obj2 = obj; \
obj 190 src/list.c if (!SCM_PAIRP(obj2)) Scm_Error("bad object: %S", obj); \
obj 194 src/list.c if (!SCM_PAIRP(obj2)) Scm_Error("bad object: %S", obj); \
obj 215 src/list.c ScmObj slow = obj;
obj 219 src/list.c if (SCM_NULLP(obj)) break;
obj 220 src/list.c if (!SCM_PAIRP(obj)) return SCM_LIST_DOTTED;
obj 222 src/list.c obj = SCM_CDR(obj);
obj 224 src/list.c if (SCM_NULLP(obj)) break;
obj 225 src/list.c if (!SCM_PAIRP(obj)) return SCM_LIST_DOTTED;
obj 227 src/list.c obj = SCM_CDR(obj);
obj 229 src/list.c if (obj == slow) return SCM_LIST_CIRCULAR;
obj 281 src/list.c SCM_SET_CDR(cp, obj);
obj 285 src/list.c return obj;
obj 297 src/list.c if (!SCM_PAIRP(list)) return obj;
obj 302 src/list.c SCM_SET_CDR(last, obj);
obj 429 src/list.c SCM_FOR_EACH(list, list) if (obj == SCM_CAR(list)) return list;
obj 436 src/list.c if (Scm_EqvP(obj, SCM_CAR(list))) return list;
obj 444 src/list.c if (Scm_EqualM(obj, SCM_CAR(list), cmpmode)) return list;
obj 456 src/list.c if (Scm_EqualM(obj, SCM_CAR(cp), cmpmode)) {
obj 472 src/list.c if (Scm_EqualM(obj, SCM_CAR(cp), cmpmode)) {
obj 499 src/list.c if (obj == SCM_CAR(entry)) return entry;
obj 511 src/list.c if (Scm_EqvP(obj, SCM_CAR(entry))) return entry;
obj 523 src/list.c if (Scm_EqualM(obj, SCM_CAR(entry), cmpmode)) return entry;
obj 595 src/list.c ScmObj obj = SCM_CAR(lp);
obj 596 src/list.c ScmObj tail = Scm_DeleteX(obj, SCM_CDR(lp), cmpmode);
obj 923 src/load.c SCM_AUTOLOAD(obj)->module->name,
obj 924 src/load.c SCM_AUTOLOAD(obj)->name, SCM_AUTOLOAD(obj)->path);
obj 56 src/macro.c Scm_Printf(port, "#<syntax %A>", SCM_SYNTAX(obj)->name);
obj 76 src/macro.c Scm_Printf(port, "#<macro %A>", SCM_MACRO(obj)->name);
obj 100 src/macro.c SCM_SYNTAX_PATTERN(obj)->level,
obj 101 src/macro.c SCM_SYNTAX_PATTERN(obj)->vars,
obj 102 src/macro.c SCM_SYNTAX_PATTERN(obj)->pattern,
obj 103 src/macro.c SCM_SYNTAX_PATTERN(obj)->repeat? " ..." : "");
obj 127 src/macro.c ScmSyntaxRules *r = SCM_SYNTAX_RULES(obj);
obj 681 src/macro.c if (SCM_SYMBOLP(obj)) {
obj 682 src/macro.c return (id->name == SCM_SYMBOL(obj)
obj 683 src/macro.c && Scm_IdentifierBindingEqv(id, SCM_SYMBOL(obj), env));
obj 685 src/macro.c if (SCM_IDENTIFIERP(obj)) {
obj 687 src/macro.c return (id->name == SCM_IDENTIFIER(obj)->name
obj 688 src/macro.c && id->env == SCM_IDENTIFIER(obj)->env);
obj 77 src/module.c Scm_Printf(port, "#<module %A>", SCM_MODULE(obj)->name);
obj 298 src/moplib.c ScmObj obj;
obj 301 src/moplib.c obj = (obj_scm);
obj 305 src/moplib.c SCM_RESULT = Scm_VMClassOf(obj);
obj 317 src/moplib.c ScmObj obj;
obj 320 src/moplib.c obj = (obj_scm);
obj 324 src/moplib.c SCM_RESULT = (SCM_OBJ(Scm_ClassOf(obj)));
obj 336 src/moplib.c ScmObj obj;
obj 341 src/moplib.c obj = (obj_scm);
obj 348 src/moplib.c SCM_RESULT = Scm_VMIsA(obj, klass);
obj 360 src/moplib.c ScmObj obj;
obj 365 src/moplib.c obj = (obj_scm);
obj 371 src/moplib.c SCM_RESULT = (Scm_VMSlotRef(obj, slot, FALSE));
obj 383 src/moplib.c ScmObj obj;
obj 390 src/moplib.c obj = (obj_scm);
obj 398 src/moplib.c SCM_RESULT = Scm_VMSlotSet(obj, slot, value);
obj 410 src/moplib.c ScmObj obj;
obj 415 src/moplib.c obj = (obj_scm);
obj 421 src/moplib.c SCM_RESULT = Scm_VMSlotBoundP(obj, slot);
obj 433 src/moplib.c ScmObj obj;
obj 438 src/moplib.c obj = (obj_scm);
obj 445 src/moplib.c SCM_RESULT = (Scm_VMSlotRefUsingAccessor(obj, accessor, FALSE));
obj 457 src/moplib.c ScmObj obj;
obj 462 src/moplib.c obj = (obj_scm);
obj 469 src/moplib.c SCM_RESULT = (Scm_VMSlotRefUsingAccessor(obj, accessor, TRUE));
obj 481 src/moplib.c ScmObj obj;
obj 488 src/moplib.c obj = (obj_scm);
obj 497 src/moplib.c SCM_RESULT = Scm_VMSlotSetUsingAccessor(obj, accessor, value);
obj 509 src/moplib.c ScmObj obj;
obj 516 src/moplib.c obj = (obj_scm);
obj 525 src/moplib.c SCM_RESULT = Scm_VMSlotInitializeUsingAccessor(obj, accessor, initargs);
obj 537 src/moplib.c ScmObj obj;
obj 542 src/moplib.c obj = (obj_scm);
obj 549 src/moplib.c SCM_RESULT = Scm_InstanceSlotRef(obj, num);
obj 561 src/moplib.c ScmObj obj;
obj 568 src/moplib.c obj = (obj_scm);
obj 575 src/moplib.c Scm_InstanceSlotSet(obj, num, value);
obj 586 src/moplib.c ScmObj obj;
obj 589 src/moplib.c obj = (obj_scm);
obj 593 src/moplib.c SCM_RESULT = Scm_VMTouchInstance(obj);
obj 337 src/number.c if (SCM_INTP(obj)) return SCM_INT_VALUE(obj);
obj 338 src/number.c else if (SCM_BIGNUMP(obj)) {
obj 339 src/number.c return Scm_BignumToSI(SCM_BIGNUM(obj), clamp, oor);
obj 341 src/number.c else if (SCM_FLONUMP(obj)) {
obj 342 src/number.c double v = SCM_FLONUM_VALUE(obj);
obj 357 src/number.c Scm_Error("argument out of range: %S", obj);
obj 365 src/number.c if (SCM_INTP(obj)) {
obj 366 src/number.c if (SCM_INT_VALUE(obj) < 0) {
obj 370 src/number.c return SCM_INT_VALUE(obj);
obj 371 src/number.c } else if (SCM_BIGNUMP(obj)) {
obj 372 src/number.c return Scm_BignumToUI(SCM_BIGNUM(obj), clamp, oor);
obj 374 src/number.c else if (SCM_FLONUMP(obj)) {
obj 375 src/number.c double v = SCM_FLONUM_VALUE(obj);
obj 390 src/number.c Scm_Error("argument out of range: %S", obj);
obj 399 src/number.c return (ScmInt32)Scm_GetIntegerClamp(obj, clamp, oor);
obj 406 src/number.c if (SCM_INTP(obj)) {
obj 407 src/number.c long r = SCM_INT_VALUE(obj);
obj 417 src/number.c } else if (SCM_BIGNUMP(obj)) {
obj 418 src/number.c if (SCM_BIGNUM_SIGN(obj) < 0) {
obj 430 src/number.c Scm_Error("argument out of range: %S", obj);
obj 439 src/number.c return (ScmUInt32)Scm_GetIntegerUClamp(obj, clamp, oor);
obj 442 src/number.c if (SCM_INTP(obj)) {
obj 443 src/number.c long r = SCM_INT_VALUE(obj);
obj 453 src/number.c } else if (SCM_BIGNUMP(obj)) {
obj 454 src/number.c if (SCM_BIGNUM_SIGN(obj) < 0) {
obj 466 src/number.c Scm_Error("argument out of range: %S", obj);
obj 514 src/number.c if (SCM_INTP(obj)) {
obj 515 src/number.c long v = SCM_INT_VALUE(obj);
obj 520 src/number.c if (SCM_BIGNUMP(obj)) {
obj 521 src/number.c return Scm_BignumToSI64(SCM_BIGNUM(obj), clamp, oor);
obj 523 src/number.c if (SCM_FLONUMP(obj)) {
obj 524 src/number.c if (Scm_NumCmp(obj, SCM_2_63) >= 0) {
obj 528 src/number.c } else if (Scm_NumCmp(obj, SCM_MINUS_2_63) < 0) {
obj 533 src/number.c ScmObj b = Scm_MakeBignumFromDouble(SCM_FLONUM_VALUE(obj));
obj 540 src/number.c if (SCM_INTP(obj)) return (ScmInt64)SCM_INT_VALUE(obj);
obj 541 src/number.c if (SCM_BIGNUMP(obj)) {
obj 542 src/number.c return Scm_BignumToSI64(SCM_BIGNUM(obj), clamp, oor);
obj 544 src/number.c if (SCM_FLONUMP(obj)) {
obj 550 src/number.c v = SCM_FLONUM_VALUE(obj);
obj 566 src/number.c Scm_Error("argument out of range: %S", obj);
obj 576 src/number.c if (SCM_INTP(obj)) {
obj 577 src/number.c long v = SCM_INT_VALUE(obj);
obj 585 src/number.c if (SCM_BIGNUMP(obj)) {
obj 586 src/number.c return Scm_BignumToUI64(SCM_BIGNUM(obj), clamp, oor);
obj 588 src/number.c if (SCM_FLONUMP(obj)) {
obj 589 src/number.c if (Scm_NumCmp(obj, SCM_2_64) >= 0) {
obj 593 src/number.c } else if (SCM_FLONUM_VALUE(obj) < 0) {
obj 597 src/number.c ScmObj b = Scm_MakeBignumFromDouble(SCM_FLONUM_VALUE(obj));
obj 604 src/number.c if (SCM_INTP(obj)) {
obj 605 src/number.c long v = SCM_INT_VALUE(obj);
obj 613 src/number.c if (SCM_BIGNUMP(obj)) {
obj 614 src/number.c return Scm_BignumToUI64(SCM_BIGNUM(obj), clamp, oor);
obj 616 src/number.c if (SCM_FLONUMP(obj)) {
obj 617 src/number.c double v = SCM_FLONUM_VALUE(obj);
obj 637 src/number.c Scm_Error("argument out of range: %S", obj);
obj 646 src/number.c if (SCM_FLONUMP(obj)) return SCM_FLONUM_VALUE(obj);
obj 647 src/number.c else if (SCM_INTP(obj)) return (double)SCM_INT_VALUE(obj);
obj 648 src/number.c else if (SCM_BIGNUMP(obj)) return Scm_BignumToDouble(SCM_BIGNUM(obj));
obj 660 src/number.c if (SCM_INTP(obj) || SCM_BIGNUMP(obj)) return TRUE;
obj 661 src/number.c if (SCM_FLONUMP(obj)) {
obj 662 src/number.c double d = SCM_FLONUM_VALUE(obj);
obj 667 src/number.c if (SCM_COMPLEXP(obj)) return FALSE;
obj 668 src/number.c Scm_Error("number required, but got %S", obj);
obj 674 src/number.c if (SCM_INTP(obj)) {
obj 675 src/number.c return (SCM_INT_VALUE(obj)&1);
obj 677 src/number.c if (SCM_BIGNUMP(obj)) {
obj 678 src/number.c return (SCM_BIGNUM(obj)->values[0] & 1);
obj 680 src/number.c if (SCM_FLONUMP(obj) && Scm_IntegerP(obj)) {
obj 681 src/number.c return (fmod(SCM_FLONUM_VALUE(obj), 2.0) != 0.0);
obj 683 src/number.c Scm_Error("integer required, but got %S", obj);
obj 692 src/number.c if (SCM_INTP(obj)) {
obj 693 src/number.c long v = SCM_INT_VALUE(obj);
obj 694 src/number.c if (v < 0) obj = SCM_MAKE_INT(-v);
obj 695 src/number.c } else if (SCM_BIGNUMP(obj)) {
obj 696 src/number.c if (SCM_BIGNUM_SIGN(obj) < 0) {
obj 697 src/number.c obj = Scm_BignumCopy(SCM_BIGNUM(obj));
obj 698 src/number.c SCM_BIGNUM_SIGN(obj) = 1;
obj 700 src/number.c } else if (SCM_FLONUMP(obj)) {
obj 701 src/number.c double v = SCM_FLONUM_VALUE(obj);
obj 702 src/number.c if (v < 0) obj = Scm_MakeFlonum(-v);
obj 703 src/number.c } else if (SCM_COMPLEXP(obj)) {
obj 704 src/number.c double r = SCM_COMPLEX_REAL(obj);
obj 705 src/number.c double i = SCM_COMPLEX_IMAG(obj);
obj 709 src/number.c Scm_Error("number required: %S", obj);
obj 711 src/number.c return obj;
obj 720 src/number.c if (SCM_INTP(obj)) {
obj 721 src/number.c r = SCM_INT_VALUE(obj);
obj 724 src/number.c } else if (SCM_BIGNUMP(obj)) {
obj 725 src/number.c r = SCM_BIGNUM_SIGN(obj);
obj 726 src/number.c } else if (SCM_FLONUMP(obj)) {
obj 727 src/number.c double v = SCM_FLONUM_VALUE(obj);
obj 734 src/number.c Scm_Error("real number required, but got %S", obj);
obj 741 src/number.c if (SCM_INTP(obj)) {
obj 742 src/number.c long v = SCM_INT_VALUE(obj);
obj 744 src/number.c obj = Scm_MakeBignumFromSI(-v);
obj 746 src/number.c obj = SCM_MAKE_INT(-v);
obj 748 src/number.c } else if (SCM_BIGNUMP(obj)) {
obj 749 src/number.c obj = Scm_BignumNegate(SCM_BIGNUM(obj));
obj 750 src/number.c } else if (SCM_FLONUMP(obj)) {
obj 751 src/number.c obj = Scm_MakeFlonum(-SCM_FLONUM_VALUE(obj));
obj 752 src/number.c } else if (SCM_COMPLEXP(obj)) {
obj 753 src/number.c obj = Scm_MakeComplex(-SCM_COMPLEX_REAL(obj),
obj 754 src/number.c -SCM_COMPLEX_IMAG(obj));
obj 756 src/number.c obj = Scm_Apply(SCM_OBJ(&generic_sub), SCM_LIST1(obj));
obj 758 src/number.c return obj;
obj 763 src/number.c if (SCM_INTP(obj)) {
obj 764 src/number.c long val = SCM_INT_VALUE(obj);
obj 765 src/number.c obj = Scm_MakeFlonum(1.0/(double)val);
obj 766 src/number.c } else if (SCM_BIGNUMP(obj)) {
obj 767 src/number.c double val = Scm_BignumToDouble(SCM_BIGNUM(obj));
obj 768 src/number.c obj = Scm_MakeFlonum(1.0/val);
obj 769 src/number.c } else if (SCM_FLONUMP(obj)) {
obj 770 src/number.c double val = SCM_FLONUM_VALUE(obj);
obj 771 src/number.c obj = Scm_MakeFlonum(1.0/val);
obj 772 src/number.c } else if (SCM_COMPLEXP(obj)) {
obj 773 src/number.c double r = SCM_COMPLEX_REAL(obj), r1;
obj 774 src/number.c double i = SCM_COMPLEX_IMAG(obj), i1;
obj 779 src/number.c obj = Scm_MakeComplexNormalized(r1, i1);
obj 781 src/number.c obj = Scm_Apply(SCM_OBJ(&generic_div), SCM_LIST1(obj));
obj 783 src/number.c return obj;
obj 792 src/number.c if (SCM_INTP(obj)) {
obj 793 src/number.c obj = Scm_MakeFlonum((double)SCM_INT_VALUE(obj));
obj 794 src/number.c } else if (SCM_BIGNUMP(obj)) {
obj 795 src/number.c obj = Scm_MakeFlonum(Scm_BignumToDouble(SCM_BIGNUM(obj)));
obj 796 src/number.c } else if (!SCM_FLONUMP(obj) && !SCM_COMPLEXP(obj)) {
obj 797 src/number.c Scm_Error("number required: %S", obj);
obj 799 src/number.c return obj;
obj 804 src/number.c if (SCM_FLONUMP(obj)) {
obj 805 src/number.c double d = SCM_FLONUM_VALUE(obj);
obj 807 src/number.c obj = Scm_MakeBignumFromDouble(d);
obj 809 src/number.c obj = SCM_MAKE_INT((long)d);
obj 811 src/number.c } else if (SCM_COMPLEXP(obj)) {
obj 812 src/number.c Scm_Error("exact complex is not supported: %S", obj);
obj 813 src/number.c } if (!SCM_INTP(obj) && !SCM_BIGNUMP(obj)) {
obj 814 src/number.c Scm_Error("number required: %S", obj);
obj 816 src/number.c return obj;
obj 828 src/number.c if (SCM_INTP(obj)) return Scm_MakeBignumFromSI(SCM_INT_VALUE(obj));
obj 829 src/number.c if (SCM_BIGNUMP(obj)) return obj;
obj 836 src/number.c if (SCM_INTP(obj)) return Scm_MakeFlonum(SCM_INT_VALUE(obj));
obj 837 src/number.c if (SCM_BIGNUMP(obj))
obj 838 src/number.c return Scm_MakeFlonum(Scm_BignumToDouble(SCM_BIGNUM(obj)));
obj 839 src/number.c if (SCM_FLONUMP(obj)) return obj;
obj 846 src/number.c if (SCM_INTP(obj))
obj 847 src/number.c return Scm_MakeComplex((double)SCM_INT_VALUE(obj), 0.0);
obj 848 src/number.c if (SCM_BIGNUMP(obj))
obj 849 src/number.c return Scm_MakeComplex(Scm_BignumToDouble(SCM_BIGNUM(obj)), 0.0);
obj 850 src/number.c if (SCM_FLONUMP(obj))
obj 851 src/number.c return Scm_MakeComplex(SCM_FLONUM_VALUE(obj), 0.0);
obj 852 src/number.c if (SCM_COMPLEXP(obj)) return obj;
obj 2099 src/number.c ScmObj s = Scm_NumberToString(obj, 10, FALSE);
obj 2110 src/number.c if (SCM_INTP(obj)) {
obj 2112 src/number.c long value = SCM_INT_VALUE(obj);
obj 2125 src/number.c r = Scm_BignumToString(SCM_BIGNUM(Scm_MakeBignumFromSI(SCM_INT_VALUE(obj))),
obj 2129 src/number.c } else if (SCM_BIGNUMP(obj)) {
obj 2130 src/number.c r = Scm_BignumToString(SCM_BIGNUM(obj), radix, use_upper);
obj 2131 src/number.c } else if (SCM_FLONUMP(obj)) {
obj 2132 src/number.c double_print(buf, FLT_BUF, SCM_FLONUM_VALUE(obj), FALSE);
obj 2134 src/number.c } else if (SCM_COMPLEXP(obj)) {
obj 2136 src/number.c double_print(buf, FLT_BUF, SCM_COMPLEX_REAL(obj), FALSE);
obj 2138 src/number.c double_print(buf, FLT_BUF, SCM_COMPLEX_IMAG(obj), TRUE);
obj 2143 src/number.c Scm_Error("number required: %S", obj);
obj 113 src/port.c port_cleanup(SCM_PORT(obj));
obj 216 src/port.c (SCM_PORT_DIR(obj)&SCM_PORT_INPUT)? "i" : "",
obj 217 src/port.c (SCM_PORT_DIR(obj)&SCM_PORT_OUTPUT)? "o" : "",
obj 218 src/port.c SCM_PORT_CLOSED_P(obj)? "(closed)" : "",
obj 219 src/port.c Scm_PortName(SCM_PORT(obj)),
obj 220 src/port.c obj);
obj 51 src/proc.c ScmObj info = SCM_PROCEDURE_INFO(obj);
obj 52 src/proc.c if (SCM_PROCEDURE_TYPE(obj) == SCM_PROC_SUBR) {
obj 81 src/promise.c ScmPromise *p = (ScmPromise*)obj;
obj 138 src/promise.c if (!SCM_PROMISEP(obj)) {
obj 139 src/promise.c SCM_RETURN(obj);
obj 141 src/promise.c ScmPromise *p = (ScmPromise*)obj;
obj 238 src/read.c ctx->pending = Scm_Acons(obj, finisher, ctx->pending);
obj 252 src/read.c Scm_HashTablePut(ctx->table, SCM_MAKE_INT(refnum), obj);
obj 253 src/read.c return obj;
obj 264 src/read.c ScmObj cp, ep, entry, obj, finisher;
obj 269 src/read.c obj = SCM_CAR(entry);
obj 273 src/read.c Scm_Apply(finisher, SCM_LIST1(obj));
obj 274 src/read.c } else if (SCM_PAIRP(obj)) {
obj 275 src/read.c SCM_FOR_EACH(ep, obj) {
obj 285 src/read.c } else if (SCM_VECTORP(obj)) {
obj 286 src/read.c int i, len = SCM_VECTOR_SIZE(obj);
obj 288 src/read.c ep = SCM_VECTOR_ELEMENT(obj, i);
obj 290 src/read.c SCM_VECTOR_ELEMENTS(obj)[i] = ref_val(ep);
obj 546 src/read.c ScmObj obj = read_internal(port, ctx);
obj 547 src/read.c if (!SCM_UNDEFINEDP(obj)) return obj;
obj 1576 src/regexp.c ScmObj sp, sp2, obj, head = SCM_NIL, tail = SCM_NIL;
obj 1578 src/regexp.c obj = rc_setup_context(ctx, SCM_CAR(sp));
obj 1579 src/regexp.c if (!SCM_EQ(obj, SCM_CAR(sp))) break;
obj 325 src/signal.c display_sigset(&SCM_SYS_SIGSET(obj)->set, out);
obj 91 src/stdlib.c ScmObj obj;
obj 94 src/stdlib.c obj = (obj_scm);
obj 98 src/stdlib.c SCM_RESULT = SCM_NUMBERP(obj);
obj 110 src/stdlib.c ScmObj obj;
obj 113 src/stdlib.c obj = (obj_scm);
obj 117 src/stdlib.c SCM_RESULT = SCM_NUMBERP(obj);
obj 129 src/stdlib.c ScmObj obj;
obj 132 src/stdlib.c obj = (obj_scm);
obj 136 src/stdlib.c SCM_RESULT = SCM_REALP(obj);
obj 148 src/stdlib.c ScmObj obj;
obj 151 src/stdlib.c obj = (obj_scm);
obj 155 src/stdlib.c SCM_RESULT = SCM_REALP(obj);
obj 167 src/stdlib.c ScmObj obj;
obj 170 src/stdlib.c obj = (obj_scm);
obj 174 src/stdlib.c if (!SCM_NUMBERP(obj)) SCM_RESULT = FALSE;
obj 175 src/stdlib.c else SCM_RESULT = Scm_IntegerP(obj);
obj 187 src/stdlib.c ScmObj obj;
obj 190 src/stdlib.c obj = (obj_scm);
obj 194 src/stdlib.c SCM_RESULT = SCM_EXACTP(obj);
obj 206 src/stdlib.c ScmObj obj;
obj 209 src/stdlib.c obj = (obj_scm);
obj 213 src/stdlib.c SCM_RESULT = SCM_INEXACTP(obj);
obj 365 src/stdlib.c ScmObj obj;
obj 368 src/stdlib.c obj = (obj_scm);
obj 372 src/stdlib.c if (SCM_COMPLEXP(obj)) {
obj 373 src/stdlib.c SCM_RESULT = (SCM_COMPLEX_REAL(obj) == 0.0
obj 374 src/stdlib.c && SCM_COMPLEX_IMAG(obj) == 0.0);
obj 376 src/stdlib.c SCM_RESULT = (Scm_Sign(obj) == 0);
obj 389 src/stdlib.c ScmObj obj;
obj 392 src/stdlib.c obj = (obj_scm);
obj 396 src/stdlib.c SCM_RESULT = (Scm_Sign(obj) > 0);
obj 408 src/stdlib.c ScmObj obj;
obj 411 src/stdlib.c obj = (obj_scm);
obj 415 src/stdlib.c SCM_RESULT = (Scm_Sign(obj) < 0);
obj 427 src/stdlib.c ScmObj obj;
obj 430 src/stdlib.c obj = (obj_scm);
obj 434 src/stdlib.c SCM_RESULT = Scm_OddP(obj);
obj 446 src/stdlib.c ScmObj obj;
obj 449 src/stdlib.c obj = (obj_scm);
obj 453 src/stdlib.c SCM_RESULT = !Scm_OddP(obj);
obj 608 src/stdlib.c ScmObj obj;
obj 611 src/stdlib.c obj = (obj_scm);
obj 615 src/stdlib.c SCM_RESULT = Scm_Abs(obj);
obj 1210 src/stdlib.c ScmObj obj;
obj 1213 src/stdlib.c obj = (obj_scm);
obj 1217 src/stdlib.c SCM_RESULT = Scm_ExactToInexact(obj);
obj 1229 src/stdlib.c ScmObj obj;
obj 1232 src/stdlib.c obj = (obj_scm);
obj 1236 src/stdlib.c SCM_RESULT = Scm_InexactToExact(obj);
obj 1248 src/stdlib.c ScmObj obj;
obj 1258 src/stdlib.c obj = (obj_scm);
obj 1275 src/stdlib.c SCM_RESULT = (Scm_NumberToString(obj, radix, !SCM_FALSEP(use_upperP)));
obj 1287 src/stdlib.c ScmString* obj;
obj 1296 src/stdlib.c obj = SCM_STRING(obj_scm);
obj 1307 src/stdlib.c SCM_RESULT = (Scm_StringToNumber(obj, radix, FALSE));
obj 1319 src/stdlib.c ScmObj obj;
obj 1322 src/stdlib.c obj = (obj_scm);
obj 1326 src/stdlib.c SCM_RESULT = SCM_FALSEP(obj);
obj 1338 src/stdlib.c ScmObj obj;
obj 1341 src/stdlib.c obj = (obj_scm);
obj 1345 src/stdlib.c SCM_RESULT = SCM_BOOLP(obj);
obj 1357 src/stdlib.c ScmObj obj;
obj 1360 src/stdlib.c obj = (obj_scm);
obj 1364 src/stdlib.c SCM_RESULT = SCM_PAIRP(obj);
obj 1399 src/stdlib.c ScmPair* obj;
obj 1403 src/stdlib.c obj = SCM_PAIR(obj_scm);
obj 1407 src/stdlib.c SCM_RESULT = SCM_CAR(obj);
obj 1419 src/stdlib.c ScmPair* obj;
obj 1423 src/stdlib.c obj = SCM_PAIR(obj_scm);
obj 1427 src/stdlib.c SCM_RESULT = SCM_CDR(obj);
obj 1439 src/stdlib.c ScmPair* obj;
obj 1445 src/stdlib.c obj = SCM_PAIR(obj_scm);
obj 1449 src/stdlib.c SCM_SET_CAR(obj, value);
obj 1460 src/stdlib.c ScmPair* obj;
obj 1466 src/stdlib.c obj = SCM_PAIR(obj_scm);
obj 1470 src/stdlib.c SCM_SET_CDR(obj, value);
obj 1479 src/stdlib.c ScmObj cell = Scm_C##tail##r(obj); \
obj 1480 src/stdlib.c if (!SCM_PAIRP(cell)) Scm_Error("can't set c" #pre #tail "r of %S", obj); \
obj 1486 src/stdlib.c ScmObj obj;
obj 1491 src/stdlib.c obj = (obj_scm);
obj 1505 src/stdlib.c ScmObj obj;
obj 1508 src/stdlib.c obj = (obj_scm);
obj 1512 src/stdlib.c SCM_RESULT = Scm_Caar(obj);
obj 1524 src/stdlib.c ScmObj obj;
obj 1529 src/stdlib.c obj = (obj_scm);
obj 1543 src/stdlib.c ScmObj obj;
obj 1546 src/stdlib.c obj = (obj_scm);
obj 1550 src/stdlib.c SCM_RESULT = Scm_Cadr(obj);
obj 1562 src/stdlib.c ScmObj obj;
obj 1567 src/stdlib.c obj = (obj_scm);
obj 1581 src/stdlib.c ScmObj obj;
obj 1584 src/stdlib.c obj = (obj_scm);
obj 1588 src/stdlib.c SCM_RESULT = Scm_Cdar(obj);
obj 1600 src/stdlib.c ScmObj obj;
obj 1605 src/stdlib.c obj = (obj_scm);
obj 1619 src/stdlib.c ScmObj obj;
obj 1622 src/stdlib.c obj = (obj_scm);
obj 1626 src/stdlib.c SCM_RESULT = Scm_Cddr(obj);
obj 1638 src/stdlib.c ScmObj obj;
obj 1641 src/stdlib.c obj = (obj_scm);
obj 1645 src/stdlib.c SCM_RESULT = SCM_NULLP(obj);
obj 1657 src/stdlib.c ScmObj obj;
obj 1660 src/stdlib.c obj = (obj_scm);
obj 1664 src/stdlib.c SCM_RESULT = SCM_PROPER_LIST_P(obj);
obj 1847 src/stdlib.c ScmObj obj;
obj 1852 src/stdlib.c obj = (obj_scm);
obj 1859 src/stdlib.c SCM_RESULT = Scm_Memq(obj, list);
obj 1871 src/stdlib.c ScmObj obj;
obj 1876 src/stdlib.c obj = (obj_scm);
obj 1883 src/stdlib.c SCM_RESULT = Scm_Memv(obj, list);
obj 1895 src/stdlib.c ScmObj obj;
obj 1900 src/stdlib.c obj = (obj_scm);
obj 1907 src/stdlib.c SCM_RESULT = (Scm_Member(obj, list, SCM_CMP_EQUAL));
obj 1919 src/stdlib.c ScmObj obj;
obj 1924 src/stdlib.c obj = (obj_scm);
obj 1931 src/stdlib.c SCM_RESULT = Scm_Assq(obj, alist);
obj 1943 src/stdlib.c ScmObj obj;
obj 1948 src/stdlib.c obj = (obj_scm);
obj 1955 src/stdlib.c SCM_RESULT = Scm_Assv(obj, alist);
obj 1967 src/stdlib.c ScmObj obj;
obj 1972 src/stdlib.c obj = (obj_scm);
obj 1979 src/stdlib.c SCM_RESULT = (Scm_Assoc(obj, alist, SCM_CMP_EQUAL));
obj 1991 src/stdlib.c ScmObj obj;
obj 1994 src/stdlib.c obj = (obj_scm);
obj 1998 src/stdlib.c SCM_RESULT = SCM_SYMBOLP(obj);
obj 2010 src/stdlib.c ScmSymbol* obj;
obj 2014 src/stdlib.c obj = SCM_SYMBOL(obj_scm);
obj 2018 src/stdlib.c SCM_RESULT = (SCM_OBJ(SCM_SYMBOL_NAME(obj)));
obj 2030 src/stdlib.c ScmString* obj;
obj 2034 src/stdlib.c obj = SCM_STRING(obj_scm);
obj 2038 src/stdlib.c SCM_RESULT = Scm_Intern(obj);
obj 2050 src/stdlib.c ScmObj obj;
obj 2053 src/stdlib.c obj = (obj_scm);
obj 2057 src/stdlib.c SCM_RESULT = SCM_CHARP(obj);
obj 2499 src/stdlib.c ScmObj obj;
obj 2502 src/stdlib.c obj = (obj_scm);
obj 2506 src/stdlib.c SCM_RESULT = SCM_STRINGP(obj);
obj 3091 src/stdlib.c ScmObj obj;
obj 3094 src/stdlib.c obj = (obj_scm);
obj 3098 src/stdlib.c SCM_RESULT = SCM_VECTORP(obj);
obj 3221 src/stdlib.c ScmObj obj;
obj 3230 src/stdlib.c obj = (obj_scm);
obj 3232 src/stdlib.c Scm_VectorSet(vec, k, obj);
obj 3367 src/stdlib.c ScmObj obj;
obj 3370 src/stdlib.c obj = (obj_scm);
obj 3374 src/stdlib.c SCM_RESULT = SCM_PROCEDUREP(obj);
obj 3650 src/stdlib.c ScmObj obj;
obj 3653 src/stdlib.c obj = (obj_scm);
obj 3657 src/stdlib.c SCM_RESULT = SCM_IPORTP(obj);
obj 3669 src/stdlib.c ScmObj obj;
obj 3672 src/stdlib.c obj = (obj_scm);
obj 3676 src/stdlib.c SCM_RESULT = SCM_OPORTP(obj);
obj 3688 src/stdlib.c ScmObj obj;
obj 3691 src/stdlib.c obj = (obj_scm);
obj 3695 src/stdlib.c SCM_RESULT = SCM_PORTP(obj);
obj 3849 src/stdlib.c ScmObj obj;
obj 3852 src/stdlib.c obj = (obj_scm);
obj 3856 src/stdlib.c SCM_RESULT = SCM_EOFP(obj);
obj 3895 src/stdlib.c ScmObj obj;
obj 3903 src/stdlib.c obj = (obj_scm);
obj 3912 src/stdlib.c Scm_Write(obj, SCM_OBJ(port), SCM_WRITE_WRITE);
obj 3923 src/stdlib.c ScmObj obj;
obj 3931 src/stdlib.c obj = (obj_scm);
obj 3940 src/stdlib.c Scm_Write(obj, SCM_OBJ(port), SCM_WRITE_DISPLAY);
obj 1193 src/string.c ScmString *str = SCM_STRING(obj);
obj 121 src/symbol.c SCM_PUTS(SCM_SYMBOL(obj)->name, port);
obj 126 src/symbol.c ScmString *snam = SCM_SYMBOL(obj)->name;
obj 186 src/symbol.c ScmGloc *g = SCM_GLOC(obj);
obj 1614 src/syslib.c ScmObj obj;
obj 1617 src/syslib.c obj = (obj_scm);
obj 1621 src/syslib.c SCM_RESULT = SCM_TIMEP(obj);
obj 711 src/system.c ScmTime *t = SCM_TIME(obj);
obj 925 src/system.c ScmSysTm *st = SCM_SYS_TM(obj);
obj 983 src/system.c SCM_SYS_GROUP(obj)->name);
obj 1059 src/system.c SCM_SYS_PASSWD(obj)->name);
obj 47 src/vector.c for (i=0; i<SCM_VECTOR_SIZE(obj); i++) {
obj 49 src/vector.c Scm_Write(SCM_VECTOR_ELEMENT(obj, i), SCM_OBJ(port), ctx->mode);
obj 132 src/vector.c return (vec->elements[i] = obj);
obj 260 src/vm.c vm->val0 = obj;
obj 331 src/vm.c #define PUSH_ARG(obj) (*SP++ = (obj))
obj 1643 src/vm.c ScmObj obj = VAL0;
obj 1644 src/vm.c if (!SCM_PAIRP(obj)) {
obj 1645 src/vm.c VM_ERR(("pair required, but got %S", obj));
obj 1647 src/vm.c obj = SCM_CAR(obj);
obj 1648 src/vm.c PUSH_ARG(obj);
obj 1659 src/vm.c ScmObj obj = VAL0;
obj 1660 src/vm.c if (!SCM_PAIRP(obj)) {
obj 1661 src/vm.c VM_ERR(("pair required, but got %S", obj));
obj 1663 src/vm.c obj = SCM_CDR(obj);
obj 1664 src/vm.c PUSH_ARG(obj);
obj 1668 src/vm.c ScmObj obj = VAL0;
obj 1669 src/vm.c if (!SCM_PAIRP(obj)) {
obj 1670 src/vm.c VM_ERR(("pair required, but got %S", obj));
obj 1672 src/vm.c obj = SCM_CAR(obj);
obj 1673 src/vm.c if (!SCM_PAIRP(obj)) {
obj 1674 src/vm.c VM_ERR(("pair required, but got %S", obj));
obj 1676 src/vm.c VAL0 = SCM_CAR(obj);
obj 1680 src/vm.c ScmObj obj = VAL0;
obj 1681 src/vm.c if (!SCM_PAIRP(obj)) {
obj 1682 src/vm.c VM_ERR(("pair required, but got %S", obj));
obj 1684 src/vm.c obj = SCM_CAR(obj);
obj 1685 src/vm.c if (!SCM_PAIRP(obj)) {
obj 1686 src/vm.c VM_ERR(("pair required, but got %S", obj));
obj 1688 src/vm.c obj = SCM_CAR(obj);
obj 1689 src/vm.c PUSH_ARG(obj);
obj 1693 src/vm.c ScmObj obj = VAL0;
obj 1694 src/vm.c if (!SCM_PAIRP(obj)) {
obj 1695 src/vm.c VM_ERR(("pair required, but got %S", obj));
obj 1697 src/vm.c obj = SCM_CDR(obj);
obj 1698 src/vm.c if (!SCM_PAIRP(obj)) {
obj 1699 src/vm.c VM_ERR(("pair required, but got %S", obj));
obj 1701 src/vm.c VAL0 = SCM_CAR(obj);
obj 1705 src/vm.c ScmObj obj = VAL0;
obj 1706 src/vm.c if (!SCM_PAIRP(obj)) {
obj 1707 src/vm.c VM_ERR(("pair required, but got %S", obj));
obj 1709 src/vm.c obj = SCM_CDR(obj);
obj 1710 src/vm.c if (!SCM_PAIRP(obj)) {
obj 1711 src/vm.c VM_ERR(("pair required, but got %S", obj));
obj 1713 src/vm.c obj = SCM_CAR(obj);
obj 1714 src/vm.c PUSH_ARG(obj);
obj 1718 src/vm.c ScmObj obj = VAL0;
obj 1719 src/vm.c if (!SCM_PAIRP(obj)) {
obj 1720 src/vm.c VM_ERR(("pair required, but got %S", obj));
obj 1722 src/vm.c obj = SCM_CAR(obj);
obj 1723 src/vm.c if (!SCM_PAIRP(obj)) {
obj 1724 src/vm.c VM_ERR(("pair required, but got %S", obj));
obj 1726 src/vm.c VAL0 = SCM_CDR(obj);
obj 1730 src/vm.c ScmObj obj = VAL0;
obj 1731 src/vm.c if (!SCM_PAIRP(obj)) {
obj 1732 src/vm.c VM_ERR(("pair required, but got %S", obj));
obj 1734 src/vm.c obj = SCM_CAR(obj);
obj 1735 src/vm.c if (!SCM_PAIRP(obj)) {
obj 1736 src/vm.c VM_ERR(("pair required, but got %S", obj));
obj 1738 src/vm.c obj = SCM_CDR(obj);
obj 1739 src/vm.c PUSH_ARG(obj);
obj 1743 src/vm.c ScmObj obj = VAL0;
obj 1744 src/vm.c if (!SCM_PAIRP(obj)) {
obj 1745 src/vm.c VM_ERR(("pair required, but got %S", obj));
obj 1747 src/vm.c obj = SCM_CDR(obj);
obj 1748 src/vm.c if (!SCM_PAIRP(obj)) {
obj 1749 src/vm.c VM_ERR(("pair required, but got %S", obj));
obj 1751 src/vm.c VAL0 = SCM_CDR(obj);
obj 1755 src/vm.c ScmObj obj = VAL0;
obj 1756 src/vm.c if (!SCM_PAIRP(obj)) {
obj 1757 src/vm.c VM_ERR(("pair required, but got %S", obj));
obj 1759 src/vm.c obj = SCM_CDR(obj);
obj 1760 src/vm.c if (!SCM_PAIRP(obj)) {
obj 1761 src/vm.c VM_ERR(("pair required, but got %S", obj));
obj 1763 src/vm.c obj = SCM_CDR(obj);
obj 1764 src/vm.c PUSH_ARG(obj);
obj 1863 src/vm.c ScmObj obj;
obj 1865 src/vm.c POP_ARG(obj);
obj 1870 src/vm.c if (!SCM_FALSEP(Scm_ClassOf(obj)->redefined)) {
obj 1875 src/vm.c VAL0 = Scm_VMIsA(obj, c);
obj 1879 src/vm.c VAL0 = SCM_MAKE_BOOL(SCM_ISA(obj, c));
obj 2407 src/vm.c ScmObj obj;
obj 2408 src/vm.c POP_ARG(obj);
obj 2411 src/vm.c VAL0 = Scm_VMSlotRef(obj, VAL0, FALSE);
obj 2416 src/vm.c ScmObj obj, slot;
obj 2418 src/vm.c POP_ARG(obj);
obj 2421 src/vm.c VAL0 = Scm_VMSlotSet(obj, slot, VAL0);
obj 2436 src/vm.c ScmObj obj, slot;
obj 2437 src/vm.c POP_ARG(obj);
obj 2442 src/vm.c VAL0 = Scm_VMSlotSet(obj, slot, VAL0);
obj 55 src/weak.c ScmWeakVector *v = SCM_WEAK_VECTOR(obj);
obj 69 src/weak.c ScmWeakVector *v = SCM_WEAK_VECTOR(obj);
obj 146 src/write.c write_walk(obj, port, &ctx);
obj 152 src/write.c write_ss_rec(obj, port, &ctx);
obj 162 src/write.c PORT_SAFE_CALL(port, write_ss(obj, port, &ctx));
obj 164 src/write.c PORT_SAFE_CALL(port, write_ss_rec(obj, port, &ctx));
obj 194 src/write.c write_ss_rec(obj, SCM_PORT(out), &ctx);
obj 232 src/write.c write_ss(obj, SCM_PORT(out), &ctx);
obj 247 src/write.c write_ss(obj, SCM_PORT(port), &ctx));
obj 267 src/write.c case SCM_ITAG(obj): Scm_PutzUnsafe(str, -1, port); break;
obj 272 src/write.c ScmClass *c = Scm_ClassOf(obj);
obj 273 src/write.c if (c->print) c->print(obj, out, ctx);
obj 274 src/write.c else write_object(obj, out, ctx);
obj 283 src/write.c Scm_Apply(SCM_OBJ(&Scm_GenericWriteObject), SCM_LIST2(obj, SCM_OBJ(port)));
obj 348 src/write.c if (!SCM_PTRP(obj) || SCM_SYMBOLP(obj) || SCM_KEYWORDP(obj)
obj 349 src/write.c || SCM_NUMBERP(obj)) {
obj 353 src/write.c if (SCM_PAIRP(obj)) {
obj 354 src/write.c e = Scm_HashTableGet(ht, obj);
obj 356 src/write.c Scm_HashTablePut(ht, obj, SCM_FALSE);
obj 358 src/write.c elt = SCM_CAR(obj);
obj 359 src/write.c if (SCM_PTRP(elt)) write_walk(SCM_CAR(obj), port, ctx);
obj 360 src/write.c obj = SCM_CDR(obj);
obj 363 src/write.c if (SCM_STRINGP(obj) && !SCM_STRING_NULL_P(obj)) {
obj 364 src/write.c e = Scm_HashTableGet(ht, obj);
obj 366 src/write.c Scm_HashTablePut(ht, obj, SCM_FALSE);
obj 369 src/write.c if (SCM_VECTORP(obj) && SCM_VECTOR_SIZE(obj) > 0) {
obj 370 src/write.c int i, len = SCM_VECTOR_SIZE(obj);
obj 372 src/write.c e = Scm_HashTableGet(ht, obj);
obj 374 src/write.c Scm_HashTablePut(ht, obj, SCM_FALSE);
obj 377 src/write.c elt = SCM_VECTOR_ELEMENT(obj, i);
obj 385 src/write.c e = Scm_HashTableGet(ht, obj);
obj 387 src/write.c Scm_HashTablePut(ht, obj, SCM_FALSE);
obj 389 src/write.c write_general(obj, port, ctx);
obj 410 src/write.c if (!SCM_PTRP(obj)) {
obj 411 src/write.c if (SCM_IMMEDIATEP(obj)) {
obj 412 src/write.c switch (SCM_ITAG(obj)) {
obj 420 src/write.c Scm_Panic("write: unknown itag object: %08x", SCM_WORD(obj));
obj 423 src/write.c else if (SCM_INTP(obj)) {
obj 425 src/write.c snprintf(buf, SPBUFSIZ, "%ld", SCM_INT_VALUE(obj));
obj 428 src/write.c else if (SCM_CHARP(obj)) {
obj 429 src/write.c ScmChar ch = SCM_CHAR_VALUE(obj);
obj 439 src/write.c else Scm_Panic("write: got a bogus object: %08x", SCM_WORD(obj));
obj 442 src/write.c if (SCM_NUMBERP(obj)) {
obj 444 src/write.c write_general(obj, port, ctx);
obj 448 src/write.c if ((SCM_STRINGP(obj) && SCM_STRING_NULL_P(obj))
obj 449 src/write.c || (SCM_VECTORP(obj) && SCM_VECTOR_SIZE(obj) == 0)) {
obj 451 src/write.c write_general(obj, port, ctx);
obj 456 src/write.c e = Scm_HashTableGet(ht, obj);
obj 475 src/write.c if (SCM_PAIRP(obj)) {
obj 477 src/write.c if (SCM_PAIRP(SCM_CDR(obj)) && SCM_NULLP(SCM_CDDR(obj))) {
obj 479 src/write.c if (SCM_CAR(obj) == SCM_SYM_QUOTE) {
obj 481 src/write.c } else if (SCM_CAR(obj) == SCM_SYM_QUASIQUOTE) {
obj 483 src/write.c } else if (SCM_CAR(obj) == SCM_SYM_UNQUOTE) {
obj 485 src/write.c } else if (SCM_CAR(obj) == SCM_SYM_UNQUOTE_SPLICING) {
obj 491 src/write.c write_ss_rec(SCM_CADR(obj), port, ctx);
obj 500 src/write.c write_ss_rec(SCM_CAR(obj), port, ctx);
obj 502 src/write.c obj = SCM_CDR(obj);
obj 503 src/write.c if (SCM_NULLP(obj)) { Scm_PutcUnsafe(')', port); return; }
obj 504 src/write.c if (!SCM_PAIRP(obj)) {
obj 506 src/write.c write_ss_rec(obj, port, ctx);
obj 511 src/write.c e = Scm_HashTableGet(ht, obj); /* check for shared cdr */
obj 514 src/write.c write_ss_rec(obj, port, ctx);
obj 521 src/write.c } else if (SCM_VECTORP(obj)) {
obj 526 src/write.c len = SCM_VECTOR_SIZE(obj);
obj 527 src/write.c elts = SCM_VECTOR_ELEMENTS(obj);
obj 536 src/write.c write_general(obj, port, ctx);
obj 547 src/write.c write_walk(obj, walker_port, ctx);
obj 554 src/write.c write_ss_rec(obj, port, ctx);
obj 583 src/write.c write_walk(obj, port, ctx);
obj 588 src/write.c write_ss_rec(obj, port, ctx);
obj 592 src/write.c write_ss(obj, port, ctx);
obj 594 src/write.c write_ss_rec(obj, port, ctx);