X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-package.lisp;h=4569a11a41757114128fad39d382990ea3a6fcd2;hb=6caf3ed5713773cb423f46bf40a29f2438c97c78;hp=7efbdff7931db4ed3563a6737234b31bbda320f9;hpb=8b44c2ab1f8608780991b5695b06bad59005fbb1;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index 7efbdff..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
@@ -599,7 +599,7 @@ implementation it is ~S." *default-package-use-list*)
        (cerror "Clobber existing package."
                "A package named ~S already exists" name)
        (setf clobber t))
-     (with-packages ()
+     (with-package-graph ()
        ;; Check for race, signal the error outside the lock.
        (when (and (not clobber) (find-package name))
          (go :restart))