Steel Bank Common Lisp

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

Modified Files:
	dynbind.c 
Log Message:
1.0.6.42: handle unbound markers (from BIND-SENTINEL) in unbind_to_here

	* Like in the x86oid UNBIND-TO-HERE vop
        * Fixes calling SAVE-LISP-AND-DIE when the call stack contains
          functions compiled with high DEBUG quality


Index: dynbind.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/dynbind.c,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- dynbind.c	13 Sep 2006 17:30:30 -0000	1.16
+++ dynbind.c	10 Jun 2007 11:10:38 -0000	1.17
@@ -95,7 +95,9 @@
 
         symbol = binding->symbol;
         if (symbol) {
-            SetTlSymbolValue(symbol, binding->value,thread);
+            if (symbol != UNBOUND_MARKER_WIDETAG) {
+                SetTlSymbolValue(symbol, binding->value,thread);
+            }
             binding->symbol = 0;
         }
     }

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

Modified Files:
	version.lisp-expr 
Log Message:
1.0.6.42: handle unbound markers (from BIND-SENTINEL) in unbind_to_here

	* Like in the x86oid UNBIND-TO-HERE vop
        * Fixes calling SAVE-LISP-AND-DIE when the call stack contains
          functions compiled with high DEBUG quality


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.3465
retrieving revision 1.3466
diff -u -d -r1.3465 -r1.3466
--- version.lisp-expr	9 Jun 2007 18:31:37 -0000	1.3465
+++ version.lisp-expr	10 Jun 2007 11:10:38 -0000	1.3466
@@ -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.6.41"
+"1.0.6.42"