compare: Fix key bug

s-expressionists · Jul 1, 2024 · 2af4c94 · 2af4c94
1 parent b912526
commit 2af4c94
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 12 deletions.
diff --git a/code/compare/float-integer.lisp b/code/compare/float-integer.lisp
@@ -57,17 +57,17 @@
               (iterator-bits iterator))
       nil)))
 
-(defun float-integer/bd.s/f (&rest rest &key (coverage 1))
+(defun float-integer/bd.s/f (output &rest rest &key (coverage 1) &allow-other-keys)
   (apply #'test
          (list (make-instance 'float-integer
                               :client1 (make-instance 'quaviver/burger-dybvig:client)
                               :client2 (make-instance 'quaviver/schubfach:client)
                               :base 10))
          (list (make-instance 'bit-interval
                               :coverage coverage))
-         rest))
+         output rest))
 
-(defun float-integer/bd.s/d (&rest rest &key (coverage (expt 2 -32)))
+(defun float-integer/bd.s/d (output &rest rest &key (coverage (expt 2 -32)) &allow-other-keys)
   (apply #'test
          (list (make-instance 'float-integer
                               :client1 (make-instance 'quaviver/burger-dybvig:client)
@@ -76,19 +76,19 @@
          (list (make-instance 'bit-interval
                               :float-type 'double-float
                               :coverage coverage))
-         rest))
+         output rest))
 
-(defun float-integer/s.d/f (&rest rest &key (coverage 1))
+(defun float-integer/s.d/f (output &rest rest &key (coverage 1) &allow-other-keys)
   (apply #'test
          (list (make-instance 'float-integer
                               :client1 (make-instance 'quaviver/schubfach:client)
                               :client2 (make-instance 'quaviver/dragonbox:nearest-client)
                               :base 10))
          (list (make-instance 'bit-interval
                               :coverage coverage))
-         rest))
+         output rest))
 
-(defun float-integer/s.d/d (&rest rest &key (coverage (expt 2 -32)))
+(defun float-integer/s.d/d (output &rest rest &key (coverage (expt 2 -32)) &allow-other-keys)
   (apply #'test
          (list (make-instance 'float-integer
                               :client1 (make-instance 'quaviver/schubfach:client)
@@ -97,4 +97,4 @@
          (list (make-instance 'bit-interval
                               :float-type 'double-float
                               :coverage coverage))
-         rest))
+         output rest))
diff --git a/code/compare/integer-float.lisp b/code/compare/integer-float.lisp
@@ -40,17 +40,17 @@
               (iterator-bits iterator))
       nil)))
 
-(defun integer-float/j.l/f (&rest rest &key (coverage 1))
+(defun integer-float/j.l/f (output &rest rest &key (coverage 1) &allow-other-keys)
   (apply #'test
          (list (make-instance 'integer-float
                               :client1 (make-instance 'quaviver/jaffer:client)
                               :client2 (make-instance 'quaviver/liebler:client)
                               :base 10))
          (list (make-instance 'bit-interval
                               :coverage coverage))
-         rest))
+         output rest))
 
-(defun integer-float/j.l/d (&rest rest &key (coverage (expt 2 -32)))
+(defun integer-float/j.l/d (&rest rest &key (coverage (expt 2 -32)) &allow-other-keys)
   (apply #'test
          (list (make-instance 'integer-float
                               :client1 (make-instance 'quaviver/jaffer:client)
@@ -59,4 +59,4 @@
          (list (make-instance 'bit-interval
                               :float-type 'double-float
                               :coverage coverage))
-         rest))
+         output rest))