From 8e6218a244d65acbae7ff5d3396705a4dec537d9 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Wed, 2 Mar 2011 10:59:41 +0000 Subject: [PATCH] 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. --- src/code/target-package.lisp | 2 +- version.lisp-expr | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp index 7efbdff..3f9bb9a 100644 --- 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 --- 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" -- 1.7.10.4