trailing-zeros: ignore unused VALUE for CCL

CCL warns about it otherwise. * code/trailing-zeros/implementation.lisp (quaviver:float-integer): Ignore unused VALUE in fallback :AROUND method specialized to base 10.
s-expressionists · Jun 20, 2024 · d5f77b0 · d5f77b0
1 parent 759eb1a
commit d5f77b0
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/code/trailing-zeros/implementation.lisp b/code/trailing-zeros/implementation.lisp
@@ -101,6 +101,7 @@
 
 (defmethod quaviver:float-integer :around
  ((client client) (base (eql 10)) value)
+ (declare (ignore value))
  (multiple-value-bind (significand exponent sign)
  (call-next-method)
  (unless (or (not (numberp exponent))