diff --git a/general-info/release-20b.txt b/general-info/release-20b.txt index fafb4a4fd5e42cd5957d07011a0308c759d934a8..af48f63e2cbe7c76e549dcd5290c91fdb8f68c01 100644 --- a/general-info/release-20b.txt +++ b/general-info/release-20b.txt @@ -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 diff --git a/pcl/defclass.lisp b/pcl/defclass.lisp index 7e1a8dc8096a7a38e7c0a28aeab60985ccf5cace..54f8fbc5e6ecde37e3007169d9a9630d3ef8fce9 100644 --- a/pcl/defclass.lisp +++ b/pcl/defclass.lisp @@ -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))) ;;