From c5d72690c5b2d49e9a8d77e31e061b50a685ef3c Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Sun, 20 Mar 2011 18:36:01 +0000 Subject: [PATCH] get rid of *EQL-SPECIALIZER-TABLE-LOCK* Use WITH-LOCKED-HASH-TABLE instead. --- src/pcl/defs.lisp | 5 +---- version.lisp-expr | 2 +- 2 files changed, 2 insertions(+), 5 deletions(-) diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp index 2085f9e..21f0eb8 100644 --- a/src/pcl/defs.lisp +++ b/src/pcl/defs.lisp @@ -592,13 +592,10 @@ (defvar *eql-specializer-table* (make-hash-table :test 'eql)) -(defvar *eql-specializer-table-lock* - (sb-thread::make-spinlock :name "EQL-specializer table lock")) - (defun intern-eql-specializer (object) ;; Need to lock, so that two threads don't get non-EQ specializers ;; for an EQL object. - (sb-thread::with-spinlock (*eql-specializer-table-lock*) + (with-locked-hash-table (*eql-specializer-table*) (or (gethash object *eql-specializer-table*) (setf (gethash object *eql-specializer-table*) (make-instance 'eql-specializer :object object))))) diff --git a/version.lisp-expr b/version.lisp-expr index aceeb6f..bd1fc2d 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -20,4 +20,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.46.38" +"1.0.46.39" -- 1.7.10.4