cl-delete-duplicates: Parse :if to have cl-if bound

* lisp/emacs-lisp/cl-seq.el (cl--delete-duplicates):
We need also to parse keyword :if, otherwise cl-if
is unbound.
This reverts commit:
68fdbeb917b80e29e0b15506f18f7ed41d8ffdfd

diff --git a/lisp/emacs-lisp/cl-seq.el b/lisp/emacs-lisp/cl-seq.el
index 5c93670be92f66d61f053fb2066680dbae31497f..98e5f4e42884292c15e39b2636e9bc34611de88a 100644 (file)
--- a/lisp/emacs-lisp/cl-seq.el
+++ b/lisp/emacs-lisp/cl-seq.el
@@ -347,7 +347,8 @@ This is a destructive function; it reuses the storage of SEQ whenever possible.
 (defun cl--delete-duplicates (cl-seq cl-keys cl-copy)
   (if (listp cl-seq)
       (cl--parsing-keywords
-          (:test :test-not :key (:start 0) :end :from-end)
+          ;; We need to parse :if, otherwise `cl-if' is unbound.
+          (:test :test-not :key (:start 0) :end :from-end :if)
          ()
        (if cl-from-end
            (let ((cl-p (nthcdr cl-start cl-seq)) cl-i)