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

Diff of /gcl/lsp/gcl_seqlib.lsp

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

revision 1.9 by camm, Wed Oct 5 15:25:36 2005 UTC revision 1.10 by camm, Wed Oct 12 03:12:57 2005 UTC
# Line 389  Line 389 
389       (cond ((and ,i-in-range ,within-count ,satisfies-the-test)       (cond ((and ,i-in-range ,within-count ,satisfies-the-test)
390              (setf (elt newseq i) newitem)              (setf (elt newseq i) newitem)
391              ,kount-up)              ,kount-up)
392             (t (setf (elt newseq i) ,x))))))             (t (setf (elt newseq i) ,x)))))
393    
394    
395  (defseq nsubstitute (newitem) t nil  (defseq nsubstitute (newitem) t nil

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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