Mercurial > hg > xemacs-beta

changeset 4714:84f870bbd17b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix another bug in the delete-duplicates compiler macro. 2009-10-12 Aidan Kehoe <kehoea@parhasard.net> * cl-macs.el (delete-duplicates): Fix another bug in the delete-duplicates compiler macro, thank you the byte compiler.
author Aidan Kehoe <kehoea@parhasard.net>
date Mon, 12 Oct 2009 16:42:38 +0100
parents 312503644bc3
children a357478dd457
files lisp/ChangeLog lisp/cl-macs.el
diffstat 2 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sat Oct 10 15:04:59 2009 +0100
+++ b/lisp/ChangeLog	Mon Oct 12 16:42:38 2009 +0100
@@ -1,3 +1,9 @@
+2009-10-12  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* cl-macs.el (delete-duplicates): 
+	Fix another bug in the delete-duplicates compiler macro, thank you
+	the byte compiler. 
+
 2009-10-07  Andreas Roehler  <andreas.roehler@online.de>
 
 	* lisp.el (beginning-of-defun-function):
--- a/lisp/cl-macs.el	Sat Oct 10 15:04:59 2009 +0100
+++ b/lisp/cl-macs.el	Mon Oct 12 16:42:38 2009 +0100
@@ -3240,7 +3240,7 @@
                    begin)
                ;; Call cl-delete-duplicates explicitly, to avoid the form
                ;; getting compiler-macroexpanded again:
-               (cl-delete-duplicates begin ,(third form) ,(fourth form) nil))))
+               (cl-delete-duplicates begin ',cl-keys nil))))
           ((and (= 4 (length form))
                 (eq :test (third form))
                 (or (equal '(quote equal) (fourth form))
@@ -3255,7 +3255,7 @@
                    begin)
                ;; Call cl-delete-duplicates explicitly, to avoid the form
                ;; getting compiler-macroexpanded again:
-               (cl-delete-duplicates begin ,(third form) ,(fourth form) nil))))
+               (cl-delete-duplicates begin ',cl-keys nil))))
           (t
            form))))