diff --git a/ansi-tests/remove-aux.lsp b/ansi-tests/remove-aux.lsp index da01abe4f042cd230493e607b9fe6dc6bb54cb79..4dda4d556eea33666e1be8e99ff49d7f57655abd 100644 --- a/ansi-tests/remove-aux.lsp +++ b/ansi-tests/remove-aux.lsp @@ -148,6 +148,7 @@ ((2 3) (random (1+ len))) (t (if (coin) -1 -10000000000000)))) (seq (multiple-value-bind (x y z) (make-random-remove-input len type element-type) + (declare (ignore x z)) y)) (key (and (coin) (case type-select @@ -172,6 +173,7 @@ (defun random-test-remove-args (maxlen) (multiple-value-bind (element-type type len start end from-end count seq key test test-not) (make-random-rd-params maxlen) + (declare (ignore type)) (let ((element (if (and (coin) (> len 0)) (random-from-seq seq) (make-random-element element-type)))