From: Christophe R. <cr...@us...> - 2003-03-29 15:14:34
|
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) |