{
lispobj *ptr;
- /* this can be called for untagged pointers as well as for
+ /* this can be called for untagged pointers as well as for
descriptors, so this assertion's not applicable
gc_assert(is_lisp_pointer(object));
*/
ptr = (lispobj *) native_pointer(object);
return ((from_space <= ptr) &&
- (ptr < from_space_free_pointer));
-}
+ (ptr < from_space_free_pointer));
+}
boolean
new_space_p(lispobj object)
/* gc_assert(is_lisp_pointer(object)); */
ptr = (lispobj *) native_pointer(object);
-
+
return ((new_space <= ptr) &&
- (ptr < new_space_free_pointer));
-}
+ (ptr < new_space_free_pointer));
+}
#else
#define from_space_p(ptr) \
- ((from_space <= ((lispobj *) ((pointer_sized_uint_t) ptr))) && \
- (((lispobj *) ((pointer_sized_uint_t) ptr))< from_space_free_pointer))
+ ((from_space <= ((lispobj *) ((pointer_sized_uint_t) ptr))) && \
+ (((lispobj *) ((pointer_sized_uint_t) ptr))< from_space_free_pointer))
#define new_space_p(ptr) \
- ((new_space <= ((lispobj *) ((pointer_sized_uint_t) ptr))) && \
- (((lispobj *) ((pointer_sized_uint_t) ptr)) < new_space_free_pointer))
+ ((new_space <= ((lispobj *) ((pointer_sized_uint_t) ptr))) && \
+ (((lispobj *) ((pointer_sized_uint_t) ptr)) < new_space_free_pointer))
#endif