Mercurial > hg > xemacs-beta

diff lisp/cl-macs.el @ 5099:a24f2ab0093b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Avoid the query-coding-tests.el hang, by fixing a logic bug. 2010-03-05 Aidan Kehoe <kehoea@parhasard.net> * cl-macs.el (delete-duplicates): Correct the logic of this compiler macro when :from-end is nil, avoiding a hang in query-coding-tests.el. Thanks for the reports, Vin and Mats!
author Aidan Kehoe <kehoea@parhasard.net>
date Fri, 05 Mar 2010 15:11:52 +0000
parents 1ee30d3f9dd0
children f552caabf58b
line wrap: on
line diff
--- a/lisp/cl-macs.el	Thu Mar 04 16:47:16 2010 +0000
+++ b/lisp/cl-macs.el	Fri Mar 05 15:11:52 2010 +0000
@@ -3331,8 +3331,8 @@
                    (setq cl-seq begin)
                    (while (cddr cl-seq)
                      (if (memq (cadr cl-seq) (cddr cl-seq))
-                         (setcdr (cdr cl-seq) (cddr cl-seq))
-                       (setq cl-seq (cdr cl-seq))))
+                         (setcdr (cdr cl-seq) (cddr cl-seq)))
+                     (setq cl-seq (cdr cl-seq)))
                    begin)
                ;; Call cl-delete-duplicates explicitly, to avoid the form
                ;; getting compiler-macroexpanded again: