Mercurial > hg > xemacs-beta

diff lisp/cl-macs.el @ 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 5bb0735f56e0
children dca5bb2adff1
line wrap: on
line diff
--- 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))))