# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1255362158 -3600
# Node ID 84f870bbd17bd363b41e40b617c29fc1e79724bb
# Parent  312503644bc3b1c563a9f5f1946ed6359c825789
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.

diff -r 312503644bc3 -r 84f870bbd17b lisp/ChangeLog
--- 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):
diff -r 312503644bc3 -r 84f870bbd17b lisp/cl-macs.el
--- 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))))