1.0.46.21: renaming oops in MAKE-PACKAGE

 When WITH-PACKAGES was renamed WITH-PACKAGE-GRAPH, MAKE-PACKAGE was
 not updated -- but amusingly no error was signalled, because

 * The form was that of a function call, so no program-error.

 * Before the undefined function could be called, a non-local transfer always
   took control elsewhere, so no undefined-function error.

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index 7efbdff..3f9bb9a 100644 (file)
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -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))

diff --git a/version.lisp-expr b/version.lisp-expr
index 54a9437..004fc83 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -20,4 +20,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.46.20"
+"1.0.46.21"