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

Diff of /gcl/lsp/gcl_seq.lsp

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

revision 1.6 by pfdietz, Sat Aug 27 17:49:03 2005 UTC revision 1.7 by pfdietz, Wed Aug 31 13:32:42 2005 UTC
# Line 91  Line 91 
91                  (declare (type fixnum len))                  (declare (type fixnum len))
92                  (do ((i 0 (1+ i)))                  (do ((i 0 (1+ i)))
93                      ((>= i len))                      ((>= i len))
94                      (declare (type fixnum i))
95                    (setf tail (setf (cdr tail) (cons (elt s i) nil))))))))                    (setf tail (setf (cdr tail) (cons (elt s i) nil))))))))
96        (do ((x (make-sequence result-type        (do ((x (make-sequence result-type
97                               (apply #'+ (mapcar #'length sequences))))                               (apply #'+ (mapcar #'length sequences))))

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