0.9.2.42:

[sbcl.git] / src / runtime / cheneygc-internal.h

diff --git a/src/runtime/cheneygc-internal.h b/src/runtime/cheneygc-internal.h
index a5aa1d7..874cff6 100644 (file)
--- a/src/runtime/cheneygc-internal.h
+++ b/src/runtime/cheneygc-internal.h
@@ -13,15 +13,15 @@ from_space_p(lispobj object)
 {
     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)
@@ -31,20 +31,20 @@ 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