diff options
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index ac6ba7f630a..a9201444b0d 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el | |||
| @@ -89,7 +89,8 @@ strings case-insensitively." | |||
| 89 | ((numberp x) | 89 | ((numberp x) |
| 90 | (and (numberp y) (= x y))) | 90 | (and (numberp y) (= x y))) |
| 91 | ((consp x) | 91 | ((consp x) |
| 92 | (while (and (consp x) (consp y) (equalp (cl-pop x) (cl-pop y)))) | 92 | (while (and (consp x) (consp y) (equalp (car x) (car y))) |
| 93 | (setq x (cdr x) y (cdr y))) | ||
| 93 | (and (not (consp x)) (equalp x y))) | 94 | (and (not (consp x)) (equalp x y))) |
| 94 | ((vectorp x) | 95 | ((vectorp x) |
| 95 | (and (vectorp y) (= (length x) (length y)) | 96 | (and (vectorp y) (= (length x) (length y)) |