Changeset 13138

Timestamp:

Oct 30, 2009, 3:14:35 PM (15 years ago)

Author:

gz

Message:

Merge r13100 (thread safety in delete package)

File:

• branches/working-0711/ccl/level-1/l1-symhash.lisp (modified) (2 diffs)

branches/working-0711/ccl/level-1/l1-symhash.lisp

@@ -631 +631 @@
                         (cerror "Do nothing" 'no-such-package :package package)
                         (return-from delete-package nil)))))
-  (unless (memq package %all-packages%)
-    (return-from delete-package nil))
+  (with-package-list-read-lock
+    (unless (memq package %all-packages%)
+      (return-from delete-package nil)))
   (when (pkg.used-by package)
     (cerror "unuse ~S" 'package-is-used-by :package package
@@ -641 +642 @@
     (unuse-package (car (pkg.used package)) package))
   (setf (pkg.shadowed package) nil)
-  (setq %all-packages% (nremove package %all-packages%))
+  (with-package-list-write-lock
+    (setq %all-packages% (nremove package %all-packages%)))
   (dolist (n (pkg.names package))
     (let* ((ref (register-package-ref n)))