Parent Directory | Revision Log | 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)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |