projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Clean up all use of the *-space-free-pointers.
[sbcl.git]
/
src
/
code
/
target-package.lisp
diff --git
a/src/code/target-package.lisp
b/src/code/target-package.lisp
index
7efbdff
..
4569a11
100644
(file)
--- 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*))
(defmacro with-package-names ((names &key) &body body)
`(let ((,names *package-names*))
- (with-locked-hash-table (,names)
+ (with-locked-system-table (,names)
,@body)))
\f
;;;; PACKAGE-HASHTABLE stuff
,@body)))
\f
;;;; 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))
(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))
;; Check for race, signal the error outside the lock.
(when (and (not clobber) (find-package name))
(go :restart))