native: ignore BASE, EXPONENT in INTEGER-FLOAT

* code/native/integer-float.lisp (quaviver:integer-float): Ignore unused parameters.
s-expressionists · Jul 5, 2024 · 9aa5785 · 9aa5785
1 parent 3b06535
commit 9aa5785
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/code/native/integer-float.lisp b/code/native/integer-float.lisp
@@ -9,13 +9,16 @@
 
 (defmethod quaviver:integer-float
     ((client client) (result-type (eql 'single-float)) base (significand (eql 0)) exponent sign)
+  (declare (ignore base exponent))
   (if (minusp sign) -0f0 0f0))
 
 (defmethod quaviver:integer-float
     ((client client) (result-type (eql 'double-float)) base (significand (eql 0)) exponent sign)
+  (declare (ignore base exponent))
   (if (minusp sign) -0d0 0d0))
 
 #+quaviver/long-float
 (defmethod quaviver:integer-float
     ((client client) (result-type (eql 'long-float)) base (significand (eql 0)) exponent sign)
+  (declare (ignore base exponent))
   (if (minusp sign) -0l0 0l0))