Hi,

(defgeneric equals (a b &rest keys &key recursive key &allow-other-keys)
 ... )

This method works correctly:

(defmethod equals ((a t) (b t) &rest keys)
  (declare (ignore keys))
  (equalp a b))
... )

But, this method throws an error:

(defmethod equals ((a float) (b float)
                   &rest keys
                   &key
                     floating-compare
                     (max-relative-diff 1.19e-7))
... )

My understanding from http://www.lispworks.com/documentation/HyperSpec/Body/07_fd.htm is that since &allow-other-keys has been set, this should work.

As a point of reference, SBCL allows this, but of course that is not the determinant of correctness. :-)

Best regards,

Paul