From cd0edb8eca04cfc00ff9474a4342aa5e8896dd66 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Sun, 28 Mar 2010 09:37:39 +0000 Subject: [PATCH] 1.0.37.1: more correct restart text for MAKE-PACKAGE * Selecting CONTINUE will clobber the existing package, not leave it alone. --- NEWS | 3 +++ src/code/target-package.lisp | 2 +- version.lisp-expr | 2 +- 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/NEWS b/NEWS index 1cb1e6c..78c2c54 100644 --- a/NEWS +++ b/NEWS @@ -1,4 +1,7 @@ ;;;; -*- coding: utf-8; fill-column: 78 -*- +changes relative to sbcl-1.0.36: + * bug fix: correct restart text for the continuable error in MAKE-PACKAGE. + changes in sbcl-1.0.37 relative to sbcl-1.0.36: * enhancement: Backtrace from THROW to uncaught tag on x86oids now shows stack frame thrown from. diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp index ff0bd14..db1234c 100644 --- a/src/code/target-package.lisp +++ b/src/code/target-package.lisp @@ -570,7 +570,7 @@ implementation it is ~S." *default-package-use-list*) ;; make the package. (when (find-package name) ;; ANSI specifies that this error is correctable. - (cerror "Leave existing package alone." + (cerror "Clobber existing package." "A package named ~S already exists" name)) (let* ((name (package-namify name)) (package (internal-make-package diff --git a/version.lisp-expr b/version.lisp-expr index f89cbd1..d48c0ed 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,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.37" +"1.0.37.1" -- 1.7.10.4