Parent Directory | Revision Log | Patch
revision 1.2 by camm, Sat Sep 21 20:33:07 2002 UTC | revision 1.3 by camm, Sat Sep 21 23:21:56 2002 UTC | |
---|---|---|
# | Line 695 | Line 695 |
695 | &key (key #'identity) | &key (key #'identity) |
696 | &aux (l1 (length sequence1)) (l2 (length sequence2))) | &aux (l1 (length sequence1)) (l2 (length sequence2))) |
697 | (declare (fixnum l1 l2)) | (declare (fixnum l1 l2)) |
698 | (when (equal key 'nil) (setq key #'identity)) | |
699 | (do ((newseq (make-sequence result-type (the fixnum (f+ l1 l2)))) | (do ((newseq (make-sequence result-type (the fixnum (f+ l1 l2)))) |
700 | (j 0 (f+ 1 j)) | (j 0 (f+ 1 j)) |
701 | (i1 0) | (i1 0) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |