diff --git a/bootfiles/18e/boot13.lisp b/bootfiles/18e/boot13.lisp new file mode 100644 index 0000000000000000000000000000000000000000..c503fec1398eb23158e39d9ad7437d7fd653d806 --- /dev/null +++ b/bootfiles/18e/boot13.lisp @@ -0,0 +1,9 @@ +;;; +;;; Boot file for removing the "" nickname of the KEYWORD package. +;;; To bootstrap, copy this file to target:bootstrap.lisp +;;; using Pierre Mai's build scripts, and do a full build. +;;; + +(rename-package "KEYWORD" "KEYWORD") + +;;; end of file. diff --git a/code/reader.lisp b/code/reader.lisp index 8e50de9029fa2a994ace4ca85228ee8f1e29c361..26cd23709b73d5df8dc322941f4d9c22f6d875cd 100644 --- a/code/reader.lisp +++ b/code/reader.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.34 2003/06/02 16:29:23 emarsden Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.35 2003/06/14 12:21:39 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1098,7 +1098,11 @@ (t (go SYMBOL))) RETURN-SYMBOL (casify-read-buffer escapes) - (let ((found (if package (find-package package) *package*))) + (let ((found (if package + (if (zerop (length package)) + *keyword-package* + (find-package package)) + *package*))) (unless found (error 'reader-package-error :stream stream :format-arguments (list package) diff --git a/general-info/release-19a.txt b/general-info/release-19a.txt index a5da76aa7719eb2e581aab852bee6ea9c55cb74a..0258e2e22ef8c0726b7f9fb319e5e8246c5b3b3f 100644 --- a/general-info/release-19a.txt +++ b/general-info/release-19a.txt @@ -116,6 +116,7 @@ New in this release: - ADD-METHOD returning its first argument, the generic function. - DEFCLASS redefining a class with the given name only if the name is the proper name of an existing class. + - KEYWORD package no longer having nickname "". * Numerous bugfixes: - NSET-EXCLUSIVE-OR returns the same results as SET-EXCLUSIVE-OR