From dfe066b23ee5f32f2518b74b31586bb051ecd537 Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Tue, 9 May 2017 12:58:24 -0400 Subject: [PATCH] Export *IN-WITHOUT-GCING* from SB!KERNEL and fix a C runtime bug. This has been subtly broken ever since 8ede17a6b7 which changed the static symbol from SB!IMPL to SB!VM without changing any of the places where the symbol appeared in Lisp. So all the code compiled fine, but the C constant in static-symbols.h was a totally different symbol. --- package-data-list.lisp-expr | 1 + src/code/globals.lisp | 2 +- src/compiler/generic/parms.lisp | 2 +- 3 files changed, 3 insertions(+), 2 deletions(-) diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr index 9fe733246..ced0dcca9 100644 --- a/package-data-list.lisp-expr +++ b/package-data-list.lisp-expr @@ -1596,6 +1596,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "*EVAL-CALLS*" "*GC-INHIBIT*" "*GC-PENDING*" #!+sb-thread "*STOP-FOR-GC-PENDING*" + "*IN-WITHOUT-GCING*" "*UNIVERSAL-TYPE*" "*UNIVERSAL-FUN-TYPE*" "*UNPARSE-FUN-TYPE-SIMPLIFY*" "*WILD-TYPE*" "WORD-LOGICAL-AND" "WORD-LOGICAL-ANDC1" diff --git a/src/code/globals.lisp b/src/code/globals.lisp index 4bf755644..92de90140 100644 --- a/src/code/globals.lisp +++ b/src/code/globals.lisp @@ -16,7 +16,7 @@ sb!debug:*stack-top-hint* *handler-clusters* *restart-clusters* - *in-without-gcing* *gc-inhibit* *gc-pending* + *gc-inhibit* *gc-pending* #!+sb-thread *stop-for-gc-pending* #!+sb-dynamic-core sb!vm::*required-runtime-c-symbols* *posix-argv*)) diff --git a/src/compiler/generic/parms.lisp b/src/compiler/generic/parms.lisp index 5a3419555..d7184dbe6 100644 --- a/src/compiler/generic/parms.lisp +++ b/src/compiler/generic/parms.lisp @@ -171,7 +171,7 @@ sb!unix::*interrupt-pending* #!+sb-thruption sb!unix::*thruption-pending* #!+sb-thruption sb!impl::*restart-clusters* - sb!vm::*in-without-gcing* + *in-without-gcing* *gc-inhibit* *gc-pending* #!-sb-thread -- 2.11.4.GIT