diff options
author | Guillaume Le Vaillant <glv@posteo.net> | 2024-08-13 10:28:30 +0200 |
---|---|---|
committer | Guillaume Le Vaillant <glv@posteo.net> | 2024-08-13 10:28:30 +0200 |
commit | ca8880797cbe235a94c0178871807d7fe476330a (patch) | |
tree | 15198eedd29152206ade36c3e537751dff242a86 | |
parent | 99f0a32a174253b72018830c33d2a9417b9ee487 (diff) |
Silence some compiler warnings
-rw-r--r-- | src/common.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/common.lisp b/src/common.lisp index 3e9f232..ebd4312 100644 --- 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) |