/[gcl]/gcl/lsp/seqlib.lsp
ViewVC logotype

Diff of /gcl/lsp/seqlib.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by camm, Sun Nov 3 18:06:49 2002 UTC revision 1.7 by camm, Sun Nov 17 20:09:57 2002 UTC
# Line 230  Line 230 
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)
# Line 327  Line 327 
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))))
# Line 342  Line 343 
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

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26