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

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index 3f9bb9a..4569a11 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -75,7 +75,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