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