/[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.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)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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