(Sets And Lists): Fix typos.

1 files changed, 3 insertions, 3 deletions

diff --git a/lispref/lists.texi b/lispref/lists.texi
index 17ed62a6d6c..62c7600fd17 100644
--- a/lispref/lists.texi
+++ b/lispref/lists.texi
@@ -1396,7 +1396,7 @@ 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
+The function @code{memql} 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
@@ -1406,11 +1406,11 @@ 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}.}
+(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}.}
+(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