From 853a6a19533ea9695025dfcafb68bd2eb48bb0af Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Sat, 14 Jun 2003 12:21:39 +0000
Subject: [PATCH] 	Remove the "" nickname of the KEYWORD package, as per
 ANSI. 	Found by Paul Dietz.

	* src/bootfiles/18e/boot13.lisp: New file.

	* src/code/reader.lisp (read-token) <RETURN-SYMBOL>: If the
	package name is "", use *keyword-package*.
---
 bootfiles/18e/boot13.lisp    | 9 +++++++++
 code/reader.lisp             | 8 ++++++--
 general-info/release-19a.txt | 1 +
 3 files changed, 16 insertions(+), 2 deletions(-)
 create mode 100644 bootfiles/18e/boot13.lisp

diff --git a/bootfiles/18e/boot13.lisp b/bootfiles/18e/boot13.lisp
new file mode 100644
index 000000000..c503fec13
--- /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 8e50de902..26cd23709 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 a5da76aa7..0258e2e22 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
-- 
GitLab