X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fcheneygc-internal.h;h=874cff6e6849c53d99ea836b4b1af6adf71f1014;hb=223a19cb93b3ace1b039f3afb3152723027a1fe9;hp=a5aa1d71fce9d0c8df508338df849556e73425a5;hpb=9f10bc102adce15a820027777a03e49a7b7623da;p=sbcl.git

diff --git a/src/runtime/cheneygc-internal.h b/src/runtime/cheneygc-internal.h
index a5aa1d7..874cff6 100644
--- 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