(cl-do-arglist): Intern initializes the

value of keyword symbols, so don't do it again.

1 files changed, 1 insertions, 5 deletions

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 59873addb46..7467b2bb5ed 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -302,11 +302,7 @@ ARGLIST allows full Common Lisp conventions."
                                           'quote
                                           (list nil (cl-const-expr-val def)))
                                        (list 'list nil def))))))))
-              (cl-push karg keys)
-              (if (= (aref (symbol-name karg) 0) ?:)
-                  (progn (set karg karg)
-                         (cl-push (list 'setq karg (list 'quote karg))
-                                  bind-inits)))))))
+              (cl-push karg keys)))))
       (setq keys (nreverse keys))
       (or (and (eq (car args) '&allow-other-keys) (cl-pop args))
           (null keys) (= safety 0)