From a4fc1a2269de3fb4c6c6d1d7d7bdf96b26785db3 Mon Sep 17 00:00:00 2001
From: ehuelsmann <ehuelsmann@localhost>
Date: Tue, 13 Sep 2011 20:17:48 +0000
Subject: [PATCH] ABCL *does* support DEFINE-METHOD-COMBINATION (long form)
 now!

---
 ansi-tests/random-aux.lsp | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/ansi-tests/random-aux.lsp b/ansi-tests/random-aux.lsp
index 7e079a2b..2f91e356 100644
--- a/ansi-tests/random-aux.lsp
+++ b/ansi-tests/random-aux.lsp
@@ -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 ,@clauses))))))
 
-#+armedbear
-(warn "ABCL doesn't support the long form of DEFINE-METHOD-COMBINATION; randomized testing disabled.")
-- 
GitLab