Skip to content
Snippets Groups Projects
Commit d6b8e7bd authored by pfdietz's avatar pfdietz
Browse files

Added IGNORE declarations.

parent 3a99734f
No related branches found
No related tags found
No related merge requests found
...@@ -148,6 +148,7 @@ ...@@ -148,6 +148,7 @@
((2 3) (random (1+ len))) ((2 3) (random (1+ len)))
(t (if (coin) -1 -10000000000000)))) (t (if (coin) -1 -10000000000000))))
(seq (multiple-value-bind (x y z) (make-random-remove-input len type element-type) (seq (multiple-value-bind (x y z) (make-random-remove-input len type element-type)
(declare (ignore x z))
y)) y))
(key (and (coin) (key (and (coin)
(case type-select (case type-select
...@@ -172,6 +173,7 @@ ...@@ -172,6 +173,7 @@
(defun random-test-remove-args (maxlen) (defun random-test-remove-args (maxlen)
(multiple-value-bind (element-type type len start end from-end count seq key test test-not) (multiple-value-bind (element-type type len start end from-end count seq key test test-not)
(make-random-rd-params maxlen) (make-random-rd-params maxlen)
(declare (ignore type))
(let ((element (if (and (coin) (> len 0)) (let ((element (if (and (coin) (> len 0))
(random-from-seq seq) (random-from-seq seq)
(make-random-element element-type))) (make-random-element element-type)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment