Lines Matching refs:object
53 #define RPLACA(cons, object) (CAR(cons) = object)
54 #define RPLACD(cons, object) (CDR(cons) = object)
122 #define ATOMID(object) (object)->data.atom->key
133 #define POINTERP(object) \
134 (((unsigned long)(object) & NIL_BIT) == 0)
141 #define SCHAR_VALUE(object) FIXNUM_VALUE(object)
142 #define SCHARP(object) \
143 (((unsigned long)(object) & BIT_MASK) == SCHAR_MASK)
144 #define CHECK_SCHAR(object) \
145 if (!SCHARP(object)) \
147 STRFUN(builtin), STROBJ(object))
149 #define XOBJECT_TYPE(object) ((object)->type)
150 #define OBJECT_TYPE(object) (POINTERP(object) ? \
151 XOBJECT_TYPE(object) : \
152 (LispType)((long)(object) & BIT_MASK))
163 #define INVALIDP(object) \
164 ((object) == NULL || (object) == EOLIST || (object) == DOT)
168 #define XCONSP(object) ((object)->type == LispCons_t)
169 #define CONSP(object) (POINTERP(object) && XCONSP(object))
170 #define CHECK_CONS(object) \
171 if (!CONSP(object)) \
173 STRFUN(builtin), STROBJ(object))
174 #define LISTP(object) (object == NIL || CONSP(object))
175 #define CHECK_LIST(object) \
176 if (!LISTP(object)) \
178 STRFUN(builtin), STROBJ(object))
183 #define FIXNUM_VALUE(object) ((long)(object) >> BIT_COUNT)
184 #define FIXNUMP(object) \
185 (((unsigned long)(object) & BIT_MASK) == FIXNUM_MASK)
186 #define CHECK_FIXNUM(object) \
187 if (!FIXNUMP(object)) \
189 STRFUN(builtin), STROBJ(object))
190 #define INDEXP(object) \
191 (FIXNUMP(object) && FIXNUM_VALUE(object) >= 0)
192 #define CHECK_INDEX(object) \
193 if (!INDEXP(object)) \
195 STRFUN(builtin), STROBJ(object))
199 #define XINTP(object) ((object)->type == LispInteger_t)
200 #define INTP(objet) (POINTERP(object) && XINTP(object))
201 #define INT_VALUE(object) (object)->data.integer
205 #define LONGINTP(object) \
206 (POINTERP(object) ? XINTP(object) : FIXNUMP(object))
207 #define LONGINT_VALUE(object) \
208 (POINTERP(object) ? INT_VALUE(object) : FIXNUM_VALUE(object))
209 #define CHECK_LONGINT(object) \
210 if (!LONGINTP(object)) \
212 STRFUN(builtin), STROBJ(object))
216 #define XBIGNUMP(object) ((object)->type == LispBignum_t)
217 #define BIGNUMP(object) (POINTERP(object) && XBIGNUMP(object))
218 #define BIGNUM(object) LispNewBignum(object)
223 #define INTEGERP(object) \
224 (POINTERP(object) ? XINTP(object) || XBIGNUMP(object) : FIXNUMP(object))
225 #define CHECK_INTEGER(object) \
226 if (!INTEGERP(object)) \
228 STRFUN(builtin), STROBJ(object))
232 #define XRATIOP(object) ((object)->type == LispRatio_t)
233 #define RATIOP(object) (POINTERP(object) && XRATIOP(object))
238 #define XBIGRATIOP(object) ((object)->type == LispBigratio_t)
239 #define BIGRATIOP(object) (POINTERP(object) && XBIGRATIOP(object))
244 #define RATIONALP(object) \
245 (POINTERP(object) ? XINTP(object) || XRATIOP(object) || \
246 XBIGNUMP(object) || XBIGRATIOP(object) : \
247 FIXNUMP(object))
251 #define XDFLOATP(object) ((object)->type == LispDFloat_t)
252 #define DFLOATP(object) (POINTERP(object) && XDFLOATP(object))
253 #define DFLOAT_VALUE(object) (object)->data.dfloat
254 #define CHECK_DFLOAT(object) \
255 if (!DFLOATP(object)) \
257 STRFUN(builtin), STROBJ(object))
262 #define FLOATP(object) DFLOATP(object)
266 #define REALP(object) \
267 (POINTERP(object) ? XINTP(object) || XDFLOATP(object) || \
268 XRATIOP(object) || XBIGNUMP(object) || \
269 XBIGRATIOP(object) : \
270 FIXNUMP(object))
271 #define CHECK_REAL(object) \
272 if (!REALP(object)) \
274 STRFUN(builtin), STROBJ(object))
278 #define XCOMPLEXP(object) ((object)->type == LispComplex_t)
279 #define COMPLEXP(object) (POINTERP(object) && XCOMPLEXP(object))
284 #define NUMBERP(object) \
285 (POINTERP(object) ? XINTP(object) || XDFLOATP(object) || \
286 XRATIOP(object) || XBIGNUMP(object) || \
287 XBIGRATIOP(object) || XCOMPLEXP(object) : \
288 FIXNUMP(object))
289 #define CHECK_NUMBER(object) \
290 if (!NUMBERP(object)) \
292 STRFUN(builtin), STROBJ(object))
296 #define XSYMBOLP(object) ((object)->type == LispAtom_t)
297 #define SYMBOLP(object) (POINTERP(object) && XSYMBOLP(object))
298 #define CHECK_SYMBOL(object) \
299 if (!SYMBOLP(object)) \
301 STRFUN(builtin), STROBJ(object))
305 #define XKEYWORDP(object) \
306 ((object)->data.atom->package == lisp__data.keyword)
307 #define KEYWORDP(object) \
308 (POINTERP(object) && XSYMBOLP(object) && XKEYWORDP(object))
310 #define CHECK_KEYWORD(object) \
311 if (!KEYWORDP(object)) \
313 STRFUN(builtin), STROBJ(object))
314 #define CHECK_CONSTANT(object) \
315 if ((object)->data.atom->constant) \
317 STRFUN(builtin), STROBJ(object))
319 #define SETVALUE(atom, object) ((atom)->property->value = object)
323 #define XFUNCTIONP(object) ((object)->type == LispFunction_t)
324 #define FUNCTIONP(object) (POINTERP(object) && XFUNCTIONP(object))
328 #define XLAMBDAP(object) ((object)->type == LispLambda_t)
329 #define LAMBDAP(object) (POINTERP(object) && XLAMBDAP(object))
333 #define XSTRINGP(object) ((object)->type == LispString_t)
334 #define STRINGP(object) (POINTERP(object) && XSTRINGP(object))
335 #define THESTR(object) (object)->data.string.string
336 #define STRLEN(object) (object)->data.string.length
337 #define CHECK_STRING(object) \
338 if (!STRINGP(object)) \
340 STRFUN(builtin), STROBJ(object))
341 #define CHECK_STRING_WRITABLE(object) \
342 if (!object->data.string.writable) \
344 STRFUN(builtin), STROBJ(object))
348 #define XARRAYP(object) ((object)->type == LispArray_t)
349 #define ARRAYP(object) (POINTERP(object) && XARRAYP(object))
350 #define CHECK_ARRAY(object) \
351 if (!ARRAYP(object)) \
353 STRFUN(builtin), STROBJ(object))
357 #define XQUOTEP(object) ((object)->type == LispQuote_t)
358 #define QUOTEP(object) (POINTERP(object) && XQUOTEP(object))
359 #define QUOTE(object) LispNewQuote(object)
361 #define XBACKQUOTEP(object) ((object)->type == LispBackquote_t)
362 #define BACKQUOTEP(object) (POINTERP(object) && XBACKQUOTEP(object))
363 #define BACKQUOTE(object) LispNewBackquote(object)
365 #define XCOMMAP(object) ((object)->type == LispComma_t)
366 #define COMMAP(object) (POINTERP(object) && XCOMMAP(object))
367 #define COMMA(object, at) LispNewComma(object, at)
371 #define XPACKAGEP(object) ((object)->type == LispPackage_t)
372 #define PACKAGEP(object) (POINTERP(object) && XPACKAGEP(object))
376 #define XPATHNAMEP(object) ((object)->type == LispPathname_t)
377 #define PATHNAMEP(object) (POINTERP(object) && XPATHNAMEP(object))
378 #define PATHNAME(object) LispNewPathname(object)
379 #define CHECK_PATHNAME(object) \
380 if (!PATHNAMEP(object)) \
382 STRFUN(builtin), STROBJ(object))
386 #define XSTREAMP(object) ((object)->type == LispStream_t)
387 #define STREAMP(object) (POINTERP(object) && XSTREAMP(object))
388 #define CHECK_STREAM(object) \
389 if (!STREAMP(object)) \
391 STRFUN(builtin), STROBJ(object))
395 #define XHASHTABLEP(object) ((object)->type == LispHashTable_t)
396 #define HASHTABLEP(object) (POINTERP(object) && XHASHTABLEP(object))
397 #define CHECK_HASHTABLE(object) \
398 if (!HASHTABLEP(object)) \
400 STRFUN(builtin), STROBJ(object))
404 #define XREGEXP(object) ((object)->type == LispRegex_t)
405 #define REGEXP(object) (POINTERP(object) && XREGEXP(object))
406 #define CHECK_REGEX(object) \
407 if (!REGEXP(object)) \
409 STRFUN(builtin), STROBJ(object))
413 #define XBYTECODEP(object) ((object)->type == LispBytecode_t)
414 #define BYTECODEP(object) (POINTERP(object) && XBYTECODEP(object))
418 #define XOPAQUEP(object) ((object)->type == LispOpaque_t)
419 #define OPAQUEP(object) (POINTERP(object) && XOPAQUEP(object))
453 #define GC_PROTECT(object) \
456 lisp__data.protect.objects[lisp__data.protect.length++] = object
468 #define CONSTANTP(object) \
469 (!POINTERP(object) || \
470 XOBJECT_TYPE(object) < LispAtom_t || \
471 (XSYMBOLP(object) && XKEYWORDP(object)))
474 #define NCONSTANTP(object) \
475 (OBJECT_TYPE(object) >= LispAtom_t)
645 LispObj *code; /* object used to generate bytecode */