[ansi-test-cvs] r2165 - trunk/ansi-tests

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Sep 13 13:17:48 2011
New Revision: 2165

Log:
ABCL *does* support DEFINE-METHOD-COMBINATION (long form) now!

Modified:
   trunk/ansi-tests/random-aux.lsp

Modified: trunk/ansi-tests/random-aux.lsp
==============================================================================
--- trunk/ansi-tests/random-aux.lsp	Mon Nov  8 15:13:30 2010	(r2164)
+++ trunk/ansi-tests/random-aux.lsp	Tue Sep 13 13:17:48 2011	(r2165)
@@ -294,7 +294,6 @@
 (defun positive-integer-qualifier-p (qualifiers)
   (typep qualifiers '(cons (integer 1) null)))
 
-#-armedbear
 (define-method-combination randomized nil ((method-list positive-integer-qualifier-p))
   (assert method-list)
   (let ((clauses (mapcar #'(lambda (method)
@@ -303,5 +302,3 @@
                          method-list)))
   `(loop (catch 'fail (return (rcase , at clauses))))))
 
-#+armedbear
-(warn "ABCL doesn't support the long form of DEFINE-METHOD-COMBINATION; randomized testing disabled.")