[Sbcl-commits] CVS: sbcl/tests clos.impure.lisp,1.53,1.54

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

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

Modified Files:
	clos.impure.lisp 
Log Message:
0.8.11.15:
	Fix bug 276.  Woo yay.  Now we can be evil in DEFMETHODs again.
	... also log a couple more HaibleMOPBugs


Index: clos.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/clos.impure.lisp,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -d -r1.53 -r1.54
--- clos.impure.lisp	24 May 2004 14:28:21 -0000	1.53
+++ clos.impure.lisp	16 Jun 2004 21:00:24 -0000	1.54
@@ -811,5 +811,15 @@
   (assert (equal (aref v 0) '(number 1 2)))
   (assert (equal (aref v 1) '(t 1 2))))
 
+;;; BUG 276: declarations and mutation.
+(defmethod fee ((x fixnum))
+  (setq x (/ x 2))
+  x)
+(assert (= (fee 1) 1/2))
+(defmethod fum ((x fixnum))
+  (setf x (/ x 2))
+  x)
+(assert (= (fum 3) 3/2))
+
 ;;;; success
 (sb-ext:quit :unix-status 104)