230 |
(let ,@(if countp |
(let ,@(if countp |
231 |
'(((count (if (null count) |
'(((count (if (null count) |
232 |
most-positive-fixnum count))))) |
most-positive-fixnum count))))) |
233 |
,@(if countp '((declare (fixnum count)))) |
,@(if countp '((declare (integer count)))) |
234 |
nil |
nil |
235 |
(and test test-not (test-error)) |
(and test test-not (test-error)) |
236 |
(if (not from-end) |
(if (not from-end) |
327 |
(let (,number-satisfied) |
(let (,number-satisfied) |
328 |
(declare (fixnum n)) |
(declare (fixnum n)) |
329 |
(when (< n count) (setq count n)) |
(when (< n count) (setq count n)) |
330 |
|
(when (< count 0) (setq count 0)) |
331 |
(do ((newseq |
(do ((newseq |
332 |
(make-sequence (seqtype sequence) |
(make-sequence (seqtype sequence) |
333 |
(the fixnum (f- l count)))) |
(the fixnum (f- l count)))) |
343 |
`(let (,number-satisfied) |
`(let (,number-satisfied) |
344 |
(declare (fixnum n)) |
(declare (fixnum n)) |
345 |
(when (< n count) (setq count n)) |
(when (< n count) (setq count n)) |
346 |
|
(when (< count 0) (setq count 0)) |
347 |
(do ((newseq |
(do ((newseq |
348 |
(make-sequence (seqtype sequence) (the fixnum (f- l count)))) |
(make-sequence (seqtype sequence) (the fixnum (f- l count)))) |
349 |
,iterate-i-everywhere |
,iterate-i-everywhere |