[armedbear-cvs] r14050 - trunk/abcl/test/lisp/abcl

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sat Aug  4 02:41:51 2012
New Revision: 14050

Log:
Correct parameter name in clos test.

Modified:
   trunk/abcl/test/lisp/abcl/clos-tests.lisp

Modified: trunk/abcl/test/lisp/abcl/clos-tests.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/clos-tests.lisp	Fri Aug  3 13:43:53 2012	(r14049)
+++ trunk/abcl/test/lisp/abcl/clos-tests.lisp	Sat Aug  4 02:41:51 2012	(r14050)
@@ -256,7 +256,7 @@
     (vector-push-extend (list 'number p1 p2) s))
   (:method ((p1 string) (p2 t) s)
     (vector-push-extend (list 'string p1 p2) s))
-  (:method ((p1 t) (p2 t) s1) (vector-push-extend (list t p1 p2) s)))
+  (:method ((p1 t) (p2 t) s) (vector-push-extend (list t p1 p2) s)))
 
 (deftest dmc-test.5a
     (let ((v (make-array 0 :adjustable t :fill-pointer t)))