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