# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 892404738 0
# Node ID 72354f140c33c3faa6e834768977692b87688562
# Parent  e4f63bf20c035d5d6f3ab29efbb15ae53a759f81
(cl-do-arglist): Intern initializes the
value of keyword symbols, so don't do it again.

diff -r e4f63bf20c03 -r 72354f140c33 lisp/emacs-lisp/cl-macs.el
--- a/lisp/emacs-lisp/cl-macs.el	Sun Apr 12 18:08:02 1998 +0000
+++ b/lisp/emacs-lisp/cl-macs.el	Sun Apr 12 18:12:18 1998 +0000
@@ -302,11 +302,7 @@
 					  '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)