Skip to content
Snippets Groups Projects
Commit 12fc4123 authored by rtoy's avatar rtoy
Browse files

pcl/defclass.lisp:

o Signal an error if a defclass name names a declaration.

general-info/release-20b.txt:
o Update
parent 048cc388
No related branches found
No related tags found
No related merge requests found
......@@ -52,6 +52,8 @@ New in this release:
now instead of the current table.
- PRINC-TO-STRING binds *PRINT-READABLY* to NIL as required.
Previously, it used the current value of *PRINT-READABLY*.
- DEFCLASS signals an error if the class name already names a
DECLARATION.
* Bugfixes:
- On Unicode builds, printing of '|\|| and '|`| was incorrect
......
......@@ -25,7 +25,7 @@
;;; *************************************************************************
(file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defclass.lisp,v 1.31 2010/03/19 15:19:03 rtoy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defclass.lisp,v 1.32 2010/04/17 15:57:04 rtoy Rel $")
;;;
(in-package :pcl)
......@@ -101,6 +101,9 @@
options (copy-tree options))
;;
(when (eq *boot-state* 'complete)
(when (c::info declaration recognized name)
(error _"Defclass already names a declaration: ~S." name))
(dolist (super supers)
(check-seals super 'expand-defclass)))
;;
......
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