Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv7613/src/runtime

Modified Files:
	print.c 
Log Message:
1.0.8.10: Untabify.


Index: print.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/print.c,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- print.c	28 Jul 2007 12:53:00 -0000	1.29
+++ print.c	28 Jul 2007 18:42:00 -0000	1.30
@@ -732,9 +732,9 @@
 
     if (var == NULL &&
         ((obj & LOWTAG_MASK) == FUN_POINTER_LOWTAG ||
-	 (obj & LOWTAG_MASK) == LIST_POINTER_LOWTAG ||
-	 (obj & LOWTAG_MASK) == INSTANCE_POINTER_LOWTAG ||
-	 (obj & LOWTAG_MASK) == OTHER_POINTER_LOWTAG))
+         (obj & LOWTAG_MASK) == LIST_POINTER_LOWTAG ||
+         (obj & LOWTAG_MASK) == INSTANCE_POINTER_LOWTAG ||
+         (obj & LOWTAG_MASK) == OTHER_POINTER_LOWTAG))
         var = define_var(NULL, obj, 0);
 
     if (var != NULL)