From 2af4c94d5e122713c352c71abff21fadf0550155 Mon Sep 17 00:00:00 2001
From: "Tarn W. Burton" <twburton@gmail.com>
Date: Mon, 1 Jul 2024 12:57:14 -0400
Subject: [PATCH] compare: Fix key bug

---
 code/compare/float-integer.lisp | 16 ++++++++--------
 code/compare/integer-float.lisp |  8 ++++----
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/code/compare/float-integer.lisp b/code/compare/float-integer.lisp
index 371fcd11..1af0620f 100644
--- a/code/compare/float-integer.lisp
+++ b/code/compare/float-integer.lisp
@@ -57,7 +57,7 @@
               (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)
@@ -65,9 +65,9 @@
                               :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,9 +76,9 @@
          (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)
@@ -86,9 +86,9 @@
                               :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
index 0a42803c..25ba23f7 100644
--- a/code/compare/integer-float.lisp
+++ b/code/compare/integer-float.lisp
@@ -40,7 +40,7 @@
               (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)
@@ -48,9 +48,9 @@
                               :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))