From 9f81202cf33e2f87c98ecac8f0511f67932214c8 Mon Sep 17 00:00:00 2001 From: Juho Snellman Date: Mon, 2 Oct 2006 13:43:19 +0000 Subject: [PATCH] 0.9.17.6: Cleanup. * Fix formatting of sub-items in 0.9.17 NEWS (thanks to Kevin Reid) * gc.lisp whitespace canonicalization --- NEWS | 6 +++--- src/code/gc.lisp | 4 ++-- version.lisp-expr | 2 +- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/NEWS b/NEWS index be6d635..22eaf0f 100644 --- a/NEWS +++ b/NEWS @@ -63,9 +63,9 @@ changes in sbcl-0.9.17 (0.9.99?) relative to sbcl-0.9.16: * bug fix: SLOT-VALUE optimizations are no longer done on method parameters whose bindings are modified * improvements to the win32 port (thanks to Yaroslav Kavenchuk): - * bug fix: arguments to RUN-PROGRAM are escaped correctly - * replace dummy implementations of CL:MACHINE-INSTANCE and - CL:SOFTWARE-VERSION with proper version + ** bug fix: arguments to RUN-PROGRAM are escaped correctly + ** replace dummy implementations of CL:MACHINE-INSTANCE and + CL:SOFTWARE-VERSION with proper version changes in sbcl-0.9.16 relative to sbcl-0.9.15: * feature: implemented the READER-METHOD-CLASS and diff --git a/src/code/gc.lisp b/src/code/gc.lisp index fbd4e4b..1a5abc7 100644 --- a/src/code/gc.lisp +++ b/src/code/gc.lisp @@ -180,7 +180,7 @@ run in any thread.") (sb!thread:make-mutex :name "GC lock") "ID of thread running SUB-GC") (defun sub-gc (&key (gen 0)) - (unless (eq sb!thread:*current-thread* + (unless (eq sb!thread:*current-thread* (sb!thread::mutex-value *already-in-gc*)) ;; With gencgc, unless *GC-PENDING* every allocation in this ;; function triggers another gc, potentially exceeding maximum @@ -219,7 +219,7 @@ run in any thread.") ;; from the outermost SUB-GC? ;; ;; KLUDGE: Don't run the hooks in GC's triggered by dying threads, - ;; so that user-code never runs with + ;; so that user-code never runs with ;; (thread-alive-p *current-thread*) => nil ;; The long-term solution will be to keep a separate thread for ;; finalizers and after-gc hooks. diff --git a/version.lisp-expr b/version.lisp-expr index 99ff286..5d740d2 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -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".) -"0.9.17.5" +"0.9.17.6" -- 1.7.10.4