X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-package.lisp;h=87f1da1c6db1de8454c6a849d709a986bf5a1601;hb=171fde84561e232b8af8c05b82dfe8a8f9e08340;hp=3f9bb9aaa40881aff86843dd5ce03d53d4738174;hpb=8e6218a244d65acbae7ff5d3396705a4dec537d9;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index 3f9bb9a..87f1da1 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -61,9 +61,6 @@
   (declare (function function))
   ;; FIXME: Since name conflicts can be signalled while holding the
   ;; mutex, user code can be run leading to lock ordering problems.
-  ;;
-  ;; This used to be a spinlock, but there it can be held for a long
-  ;; time while the debugger waits for user input.
   (sb!thread:with-recursive-lock (*package-graph-lock*)
     (funcall function)))
 
@@ -75,7 +72,7 @@
 
 (defmacro with-package-names ((names &key) &body body)
   `(let ((,names *package-names*))
-     (with-locked-hash-table (,names)
+     (with-locked-system-table (,names)
        ,@body)))
 
 ;;;; PACKAGE-HASHTABLE stuff