Commit 92237336 authored by Daniel Kochmański's avatar Daniel Kochmański

gcl: disable some tests for implementation

parent b6d28828
......@@ -76,11 +76,11 @@
(defmethod simple-method ((self class-0-0) other) other)
#-(or clisp poplog)
#-(or clisp poplog gcl)
(defgeneric complex-method (a b &rest rest)
(:method-combination and))
#-(or clisp poplog)
#-(or clisp poplog gcl)
(defmethod complex-method and ((self class-0-0) other &rest rest)
(declare (ignore rest))
other)
......
......@@ -400,6 +400,7 @@
:short "CLOS/method+after"
:long "Define after methods on our instances, then run some method calls"
:function 'cl-bench.clos:methodcalls/simple+after
:disabled-for '(:gcl)
:runs 2)
(defbench methodcalls/complex
......@@ -408,12 +409,13 @@
:long "Run methodcalls with and method combination."
:function 'cl-bench.clos:methodcalls/complex
:runs 5
:disabled-for '(:clisp :poplog))
:disabled-for '(:clisp :poplog :gcl))
(defbench eql-specialized-fib
:group :clos
:long "Fibonnaci function implemented with EQL specialization"
:function 'cl-bench.clos:run-eql-fib
:runs 2)
:runs 2
:disabled-for '(:gcl))
;; EOF
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment