Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv30316/tests
Modified Files:
clos.impure.lisp
Log Message:
1.0.1.3:
Oops, initforms for &AUX parameters were evaluated multiple times
for fast-method-functions. (Reported by Kevin Reid on sbcl-devel).
Index: clos.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/clos.impure.lisp,v
retrieving revision 1.89
retrieving revision 1.90
diff -u -d -r1.89 -r1.90
--- clos.impure.lisp 13 Nov 2006 07:20:22 -0000 1.89
+++ clos.impure.lisp 28 Dec 2006 23:48:04 -0000 1.90
@@ -1521,5 +1521,11 @@
(clim-style-lambda-list-test 1 2)
+(setf *count* 0)
+
+(test (&aux (a (incf *count*)) (b (incf *count*)))
+ (a b *count* (setf *count* 0))
+ ())
+
;;;; success
|