zl:1 - FTP

sys:%string-search-char
554
For a table of related items: See the section "Case-Insensitive String
Searches" in Symbolics Common Lisp: Language Concepts.
I
sys:%string-search-char char string start end Function
This is a low-level string search, possibly more efficient than the other
searching functions. Its only current efficiency advantage is its simplified
arguments and minimized type-checking.
string must be an array;
char must be a character;
from, and to must be integers.
Except for this lack of type-coercion, and the fact that none of the arguments
is optional, sys:%string-search-char is the same as
zl:string-search-char. This function is documented for the benefit of those
who require the maximum possible efficiency in string searching.
Examples:
(sys:%string-search-char #\a
(make-array 4 :e1ement-type Jcharacter
:initia1-e1ement #\a) 2 4) => 2
(sys:%string-search-char #\p "zippy" 9 99) => 2
For a table of related items: See the section "Case-Insensitive String
Searches" in Symbolics Common Lisp: Language Concepts.
zl:string-search-char char string &optional (from 0) to Function
zl:string-search-char searches through string starting at the index from,
which defaults to the beginning, and returns the index of the first character
that is char-equal to char, or nil if none is found. If the to argument
is supplied, it is used in place of NIL
(zl:string-search-char #\a "banana") => 1
(zl:string-search-char #\a "banana") => 1
(zl :string-search-char #\a "banana" 3) => 1
(zl:string-search-char #\a "banana" 1 4 ) => 1
The Symbolics Common Lisp equivalent to zl:string-search-char is the
function:
string-search-char
For a table of related items: See the section "Case-Insensitive String
Searches" in Symbolics Common Lisp: Language Concepts.