0.8.21.45:

[sbcl.git] / tests / clos.impure.lisp

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index b4393ca..763ea83 100644 (file)
--- a/tests/clos.impure.lisp
+++ b/tests/clos.impure.lisp
@@ -905,6 +905,23 @@
                     (method-for-defined-classes #\3))
                   "3")))
 
+
+\f
+;;; When class definition does not complete due to a bad accessor
+;;; name, do not cause an error when a new accessor name is provided
+;;; during class redefinition
+
+(defun existing-name (object)
+  (list object))
+
+(assert (raises-error? (defclass redefinition-of-accessor-class ()
+                         ((slot :accessor existing-name)))))
+
+(defclass redefinition-of-accessor-class ()
+  ((slot :accessor new-name)))
+
+\f
+
 (load "package-ctor-bug.lisp")
 (assert (= (package-ctor-bug:test) 3))
 (delete-package "PACKAGE-CTOR-BUG")