]> code.delx.au - gnu-emacs/commitdiff
(Sets And Lists): Add memql.
authorKim F. Storm <storm@cua.dk>
Tue, 10 Oct 2006 16:11:57 +0000 (16:11 +0000)
committerKim F. Storm <storm@cua.dk>
Tue, 10 Oct 2006 16:11:57 +0000 (16:11 +0000)
lispref/lists.texi

index 1c6247d818cde6e3ca68332defb36241c6386fb9..17ed62a6d6cb8d703489b53eb4a806364349ef18 100644 (file)
@@ -1395,6 +1395,27 @@ The function @code{delq} offers a way to perform this operation
 destructively.  See @ref{Sets And Lists}.
 @end defun
 
+@defun memql object list
+The function @code{member} tests to see whether @var{object} is a member
+of @var{list}, comparing members with @var{object} using @code{eql},
+so floating point elements are compared by value.
+If @var{object} is a member, @code{memql} returns a list starting with
+its first occurrence in @var{list}.  Otherwise, it returns @code{nil}.
+
+Compare this with @code{memq}:
+
+@example
+@group
+(memql 1.2 '(1.1 1.2 1.3)  ; @r{@code{1.2} and @code{1.2} are @code{eql}.}
+     @result{} (1.2 1.3)
+@end group
+@group
+(memq 1.2 '(1.1 1.2 1.3)  ; @r{@code{1.2} and @code{1.2} are not @code{eq}.}
+     @result{} nil
+@end group
+@end example
+@end defun
+
 The following three functions are like @code{memq}, @code{delq} and
 @code{remq}, but use @code{equal} rather than @code{eq} to compare
 elements.  @xref{Equality Predicates}.