(defmacro with-package-names ((names &key) &body body)
`(let ((,names *package-names*))
(defmacro with-package-names ((names &key) &body body)
`(let ((,names *package-names*))
;; 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))
(nuke-symbol (if (eq w :internal)
(package-internal-symbols package)
(package-external-symbols package))
(nuke-symbol (if (eq w :internal)
(package-internal-symbols package)
(package-external-symbols package))