diff --git a/ansi-tests/random-aux.lsp b/ansi-tests/random-aux.lsp index 7e079a2b3632e958768a6818fe8d5f7cb03b8ae3..2f91e35606793735eee036e220e479dc4d500346 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.")