[Sbcl-commits] CVS: sbcl/tests mop.impure.lisp,1.8,1.9

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv17653/tests

Modified Files:
	mop.impure.lisp 
Log Message:
0.pre8.13:
	Make ENSURE-CLASS-USING-CLASS's arguments go the AMOP-specified 
	way round (noted sbcl-devel 2003-29-03 by CSR)


Index: mop.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/mop.impure.lisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- mop.impure.lisp	24 Mar 2003 18:39:11 -0000	1.8
+++ mop.impure.lisp	29 Mar 2003 15:14:30 -0000	1.9
@@ -124,5 +124,15 @@
 				  0))
 		    collect x)))
 
+;;; make sure that ENSURE-CLASS-USING-CLASS's arguments are the right
+;;; way round (!)
+(defvar *e-c-u-c-arg-order* nil)
+(defmethod ensure-class-using-class :after
+    (class (name (eql 'e-c-u-c-arg-order)) &key &allow-other-keys)
+  (setf *e-c-u-c-arg-order* t))
+(defclass e-c-u-c-arg-orderoid () ())
+(assert (null *e-c-u-c-arg-order*))
+(defclass e-c-u-c-arg-order () ())
+(assert (eq *e-c-u-c-arg-order* t))
 ;;;; success
 (sb-ext:quit :unix-status 104)