Skip to content
Snippets Groups Projects
Commit dcc5bf61 authored by ehuelsmann's avatar ehuelsmann
Browse files

Make the tests work with ABCL.

parent 1e2c719d
No related branches found
No related tags found
No related merge requests found
......@@ -294,6 +294,7 @@
(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)
......@@ -301,3 +302,6 @@
`(,weight (call-method ,method))))
method-list)))
`(loop (catch 'fail (return (rcase ,@clauses))))))
#+armedbear
(warn ";; WARNING: ABCL doesn't support the long form of DEFINE-METHOD-COMBINATION; randomized testing disabled.")
\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment