Steel Bank Common Lisp

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

Modified Files:
	version.lisp-expr 
Log Message:
1.0.8.10: Untabify.


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.3534
retrieving revision 1.3535
diff -u -d -r1.3534 -r1.3535
--- version.lisp-expr	28 Jul 2007 12:53:00 -0000	1.3534
+++ version.lisp-expr	28 Jul 2007 18:42:00 -0000	1.3535
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.8.9"
+"1.0.8.10"

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)

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

Modified Files:
	version.lisp-expr 
Log Message:
1.0.8.9: fix a potential segfault, and make a lisp pointercheck less obscure.


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.3533
retrieving revision 1.3534
diff -u -d -r1.3533 -r1.3534
--- version.lisp-expr	27 Jul 2007 12:09:10 -0000	1.3533
+++ version.lisp-expr	28 Jul 2007 12:53:00 -0000	1.3534
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.8.8"
+"1.0.8.9"

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

Modified Files:
	print.c 
Log Message:
1.0.8.9: fix a potential segfault, and make a lisp pointercheck less obscure.


Index: print.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/print.c,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- print.c	2 May 2007 17:42:33 -0000	1.28
+++ print.c	28 Jul 2007 12:53:00 -0000	1.29
@@ -335,7 +335,7 @@
                 obj = NIL;
                 break;
             }
-            print_obj(NULL, cons->car);
+            print_obj("", cons->car);
             obj = cons->cdr;
             space = 1;
             if (obj == NIL)
@@ -343,7 +343,7 @@
         }
         if (obj != NIL) {
             printf(" . ");
-            print_obj(NULL, obj);
+            print_obj("", obj);
         }
         putchar(')');
     }
@@ -731,8 +731,10 @@
         dont_descend = 1;
 
     if (var == NULL &&
-        /* FIXME: What does this "x & y & z & .." expression mean? */
-        (obj & FUN_POINTER_LOWTAG & LIST_POINTER_LOWTAG & INSTANCE_POINTER_LOWTAG & OTHER_POINTER_LOWTAG) != 0)
+        ((obj & LOWTAG_MASK) == FUN_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)