Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14453/tests

Modified Files:
	clos.impure.lisp 
Log Message:
0.8.9.50:
	Fix the first of Bruno Haible's test failures, more-or-less as
	per Nikodemus Siivola sbcl-devel 2004-04-16
	... also fix behaviour of OBSOLETE-INSTANCE-TRAP as hinted by NS


Index: clos.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/clos.impure.lisp,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- clos.impure.lisp	18 Oct 2003 10:14:53 -0000	1.47
+++ clos.impure.lisp	19 Apr 2004 11:09:44 -0000	1.48
@@ -732,5 +732,13 @@
 	 (defclass accessoroid-class () ((slot :accessor accessoroid)))
 	 program-error))
 
+;;; reported by Bruno Haible sbcl-devel 2004-04-15
+(defclass shared-slot-and-redefinition ()
+  ((size :initarg :size :initform 1 :allocation :class)))
+(let ((i (make-instance 'shared-slot-and-redefinition)))
+  (defclass shared-slot-and-redefinition ()
+    ((size :initarg :size :initform 2 :allocation :class)))
+  (assert (= (slot-value i 'size) 1)))
+
 ;;;; success
 (sb-ext:quit :unix-status 104)