(common-lisp-indent-function): Use `eq' instead of `eql'.

diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index d038a6228a7088bd30a73505f3dd480c662ad6e5..c4af6c4df9d503d49faf08d1cfe0ff04d418e870 100644 (file)
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -161,15 +161,15 @@ by `lisp-body-indent'."
                    (setq method lisp-indent-defun-method)))
 
             (cond ((and (memq (char-after (1- containing-sexp)) '(?\' ?\`))
-                        (not (eql (char-after (- containing-sexp 2)) ?\#)))
+                        (not (eq (char-after (- containing-sexp 2)) ?\#)))
                    ;; No indentation for "'(...)" elements
                    (setq calculated (1+ sexp-column)))
-                 ((or (eql (char-after (1- containing-sexp)) ?\,)
-                      (and (eql (char-after (1- containing-sexp)) ?\@)
-                           (eql (char-after (- containing-sexp 2)) ?\,)))
+                 ((or (eq (char-after (1- containing-sexp)) ?\,)
+                      (and (eq (char-after (1- containing-sexp)) ?\@)
+                           (eq (char-after (- containing-sexp 2)) ?\,)))
                   ;; ",(...)" or ",@(...)"
                   (setq calculated normal-indent))
-                  ((eql (char-after (1- containing-sexp)) ?\#)
+                  ((eq (char-after (1- containing-sexp)) ?\#)
                    ;; "#(...)"
                    (setq calculated (1+ sexp-column)))
                   ((null method))