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

gcl: disable some tests for implementation

parent b6d28828
...@@ -76,11 +76,11 @@ ...@@ -76,11 +76,11 @@
(defmethod simple-method ((self class-0-0) other) other) (defmethod simple-method ((self class-0-0) other) other)
#-(or clisp poplog) #-(or clisp poplog gcl)
(defgeneric complex-method (a b &rest rest) (defgeneric complex-method (a b &rest rest)
(:method-combination and)) (:method-combination and))
#-(or clisp poplog) #-(or clisp poplog gcl)
(defmethod complex-method and ((self class-0-0) other &rest rest) (defmethod complex-method and ((self class-0-0) other &rest rest)
(declare (ignore rest)) (declare (ignore rest))
other) other)
......
...@@ -400,6 +400,7 @@ ...@@ -400,6 +400,7 @@
:short "CLOS/method+after" :short "CLOS/method+after"
:long "Define after methods on our instances, then run some method calls" :long "Define after methods on our instances, then run some method calls"
:function 'cl-bench.clos:methodcalls/simple+after :function 'cl-bench.clos:methodcalls/simple+after
:disabled-for '(:gcl)
:runs 2) :runs 2)
(defbench methodcalls/complex (defbench methodcalls/complex
...@@ -408,12 +409,13 @@ ...@@ -408,12 +409,13 @@
:long "Run methodcalls with and method combination." :long "Run methodcalls with and method combination."
:function 'cl-bench.clos:methodcalls/complex :function 'cl-bench.clos:methodcalls/complex
:runs 5 :runs 5
:disabled-for '(:clisp :poplog)) :disabled-for '(:clisp :poplog :gcl))
(defbench eql-specialized-fib (defbench eql-specialized-fib
:group :clos :group :clos
:long "Fibonnaci function implemented with EQL specialization" :long "Fibonnaci function implemented with EQL specialization"
:function 'cl-bench.clos:run-eql-fib :function 'cl-bench.clos:run-eql-fib
:runs 2) :runs 2
:disabled-for '(:gcl))
;; EOF ;; 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