Silence some compiler warnings

sharplispers · Aug 13, 2024 · ca88807 · ca88807
1 parent 99f0a32
commit ca88807
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/common.lisp b/src/common.lisp
@@ -946,6 +946,7 @@ behavior."
                                (aref input-block2 input-block2-start))))))
 
 (define-compiler-macro xor-block (&whole form &environment env block-length input-block1 input-block1-start input-block2 input-block2-start output-block output-block-start)
+  (declare (ignorable env block-length input-block1 input-block1-start input-block2 input-block2-start output-block output-block-start))
   (cond
     #+(and sbcl x86-64 ironclad-assembly)
     ((and (constantp block-length env)
@@ -1011,6 +1012,7 @@ behavior."
                                           block-length
                                           input-block input-block-start
                                           output-block output-block-start)
+  (declare (ignorable env block-length input-block input-block-start output-block output-block-start))
   (cond
     #+(and sbcl x86-64 ironclad-assembly)
     ((and (constantp block-length env)