From: Nikodemus S. <de...@us...> - 2007-06-20 19:06:02
|
Update of /cvsroot/sbcl/sbcl/src/runtime In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv1323/src/runtime Modified Files: gencgc.c Log Message: 1.0.6.59: bogus metacircles due to interrupted applicable method comp. * If an interrupt arrives while have stuff on the *CACHE-MISS-VALUES-STACK* and the interrupt handler happens to call a gf that is already there, we used to think this was a metacircle. Instead we need to bind variables like this to "empty" values for interrupt hanlers. * Test. * Note some bugs. Index: gencgc.c =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/runtime/gencgc.c,v retrieving revision 1.115 retrieving revision 1.116 diff -u -d -r1.115 -r1.116 --- gencgc.c 20 Jun 2007 18:11:57 -0000 1.115 +++ gencgc.c 20 Jun 2007 19:05:54 -0000 1.116 @@ -1084,7 +1084,7 @@ struct thread *thread = arch_os_get_current_thread(); print_generation_stats(1); fprintf(stderr, "GC control variables:\n"); - fprintf(stderr, " *GC-INHIBIT* = %s\n *GC-PENDING* = %s\n", + fprintf(stderr, " *GC-INHIBIT* = %s\n *GC-PENDING* = %s\n", SymbolValue(GC_INHIBIT,thread)==NIL ? "false" : "true", SymbolValue(GC_PENDING,thread)==NIL ? "false" : "true"); #ifdef LISP_FEATURE_SB_THREAD |