zl:1 - FTP

nsubstitute-if-not
380
I
However,
(setq numbers '(9 9 9» => (9 9 9)
(nsubstitute-if-not 1 #'numberp numbers) => (9 9 9)
numbers => (9 9 9)
numbers => (1 9 9)
(nsubstitute-if-not 2 #'consp numbers) => (2 2 2)
numbers => (2 2 2)
newitem can be any Symbolics Common Lisp object but must be a suitable
element for the sequence.
predicate is the test to be performed on each element.
sequence can be either a list or a vector (one-dimensional array). Note that
nil is considered to be a sequence, of length zero.
The value of the keyword argument : key, if non-nil, is a function that
takes one argument. This function extracts from each element the part to
be tested in place of the whole element.
For example:
(nsubstitute-if-not 1 #'oddp '«1 1) (1 2) (4 3»
=> «1 1) 1 (4 3»)
:key #'second)
A non-nil :from-end specification matters only when the :count argument
is provided; in that case only the rightmost :count elements satisfying the
test are replaced.
For example:
(nsubstitute-if-not 'hi #'atom '('b a 'b) :from-end t :count 1 )
=> ('8 A HI)
Use the keyword arguments :start and :end to delimit the portion of the
sequence to be operated on.
:start and :end must be non-negative integer indices into the sequence.
:start must be less than or equal to :end, else an error is signalled. It
defaults to zero (the start of the sequence).
:start indicates the start position for the operation within the sequence.
:end indicates the position of the first element in the sequence beyond the
end of the operation. It defaults to nil (the length of the sequence).
If both :start and :end are omitted, the entire sequence is processed by
default.
For example: