Changeset 422

Timestamp:

Jan 30, 2004, 11:34:52 AM (21 years ago)

Author:

Gary Byers

Message:

Lock on *TERMINATION-POPULATION* access.

File:

• trunk/ccl/level-1/l1-lisp-threads.lisp (modified) (5 diffs)

trunk/ccl/level-1/l1-lisp-threads.lisp

@@ -1189 +1189 @@
   (%cons-terminatable-alist))
 
+(defvar *termination-population-lock* (make-lock))
+
 
 (defvar *enable-automatic-termination* t)
@@ -1195 +1197 @@
   (let ((new-cell (list (cons object function)))
         (population *termination-population*))
-    (without-interrupts
+    (with-lock-grabbed (*termination-population-lock*)
      (setf (cdr new-cell) (population-data population)
            (population-data population) new-cell))
@@ -1207 +1209 @@
         (population *termination-population*))
     (loop
-      (without-interrupts
+      (with-lock-grabbed (*termination-population-lock*)
        (let ((list (population-termination-list population)))
          (unless list (return))
@@ -1222 +1224 @@
                   (setq found-it? t))))
       (declare (dynamic-extent #'test))
-      (without-interrupts
+      (with-lock-grabbed (*termination-population-lock*)
        (setf (population-data *termination-population*)
              (delete object (population-data *termination-population*)
@@ -1230 +1232 @@
 
 (defun termination-function (object)
-  (cdr (assq object (population-data *termination-population*))))
+  (with-lock-grabbed (*termination-population-lock*)
+    (cdr (assq object (population-data *termination-population*)))))
 
 (defun do-automatic-termination ()