Skip to content
Snippets Groups Projects
Commit 853a6a19 authored by gerd's avatar gerd
Browse files

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*.
parent ab2e7a90
No related branches found
No related tags found
No related merge requests found
;;;
;;; 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.
......@@ -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)
......
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment