zl:1 - FTP

353 minusp
minusp number Function
Returns t if its argument is a negative number, strictly less than zero.
Otherwise it returns nil. If number is not a noncomplex number, minusp
signals an error.
Examples:
(minusp -5) => T
(minusp 9) => NIL
(minusp 9.9d9) => NIL
(minusp -9.9) => NIL
For a table of related items: See the section "Numeric Property-checking
Predicates" in Symbolics Common Lisp: Language Concepts.
•
mismatch sequencel sequence2 &key from-end (test #'eql) test-not Function
key (startl 0) (start2 0) endl end2
mismatch compares the specified subsequences of sequencel and sequence2
element-wise. If they are of equal length and match in every element, the
result is nil. Otherwise, the result is a non-negative integer representing
the index within sequencel of the leftmost position at which the two subsequences
fail to match, or, if one subsequence is shorter than and a
matching prefix of the other, the result is the index relative to sequencel
beyond the last position tested.
For example:
(mismatch '(loon heron stork) '(loon heron stork)) => NIL
(mismatch '(hawk loon owl pelican) '(hawk loon eagle pelican)) => 2
(mismatch '(1 2 3) '(1 2 3 4 5)) => 3
If the value of the :from-end keyword is non-nil, then one plus the index of
the rightmost position in which the sequences differ is returned. In effect,
the (sub)sequences are aligned at their right-hand ends and the last elements
are compared, then the ones before, and so on. The index returned
is again an index relative to sequencel. For example:
(mismatch '(hawk loon owl pelican) '(hawk loon eagle pelican)
:from-end t) => 3
:test specifies the test to be performed. An element of sequence satisfies
the test if (funcall testfun item (keyfn x)) is true. Where test fun is the test
function specified by :test, keyfn is the function specified by :key and x is an
element of the sequence. The default test is eql.
For example: