CMUCL commit: src (general-info/release-20b.txt pcl/defclass.lisp)

[Raymond Toy]

    Date: Saturday, April 17, 2010 @ 11:57:04
  Author: rtoy
    Path: /project/cmucl/cvsroot/src

Modified: general-info/release-20b.txt pcl/defclass.lisp

pcl/defclass.lisp:
o Signal an error if a defclass name names a declaration.

general-info/release-20b.txt:
o Update


------------------------------+
 general-info/release-20b.txt |    2 ++
 pcl/defclass.lisp            |    5 ++++-
 2 files changed, 6 insertions(+), 1 deletion(-)


Index: src/general-info/release-20b.txt
diff -u src/general-info/release-20b.txt:1.16 src/general-info/release-20b.txt:1.17
--- src/general-info/release-20b.txt:1.16	Fri Apr 16 08:54:53 2010
+++ src/general-info/release-20b.txt	Sat Apr 17 11:57:04 2010
@@ -52,6 +52,8 @@
       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
Index: src/pcl/defclass.lisp
diff -u src/pcl/defclass.lisp:1.31 src/pcl/defclass.lisp:1.32
--- src/pcl/defclass.lisp:1.31	Fri Mar 19 11:19:03 2010
+++ src/pcl/defclass.lisp	Sat Apr 17 11:57:04 2010
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /project/cmucl/cvsroot/src/pcl/defclass.lisp,v 1.31 2010-03-19 15:19:03 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/pcl/defclass.lisp,v 1.32 2010-04-17 15:57:04 rtoy Exp $")
 ;;;
 
 (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)))
   ;;