X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-package.lisp;h=87f1da1c6db1de8454c6a849d709a986bf5a1601;hb=f7faed97898dd0e94a18b0d1fca03aaa0fe24ab0;hp=4569a11a41757114128fad39d382990ea3a6fcd2;hpb=71bc8b09fc75083ea4bb2aee954abca1f1e1f214;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index 4569a11..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)))