Mercurial > emacs
comparison lisp/emacs-lisp/cl-macs.el @ 21485:72354f140c33
(cl-do-arglist): Intern initializes the
value of keyword symbols, so don't do it again.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Sun, 12 Apr 1998 18:12:18 +0000 |
parents | 99cb527e79ba |
children | 63185360c2fa |
comparison
equal
deleted
inserted
replaced
21484:e4f63bf20c03 | 21485:72354f140c33 |
---|---|
300 (if (eq (cl-const-expr-p def) t) | 300 (if (eq (cl-const-expr-p def) t) |
301 (list | 301 (list |
302 'quote | 302 'quote |
303 (list nil (cl-const-expr-val def))) | 303 (list nil (cl-const-expr-val def))) |
304 (list 'list nil def)))))))) | 304 (list 'list nil def)))))))) |
305 (cl-push karg keys) | 305 (cl-push karg keys))))) |
306 (if (= (aref (symbol-name karg) 0) ?:) | |
307 (progn (set karg karg) | |
308 (cl-push (list 'setq karg (list 'quote karg)) | |
309 bind-inits))))))) | |
310 (setq keys (nreverse keys)) | 306 (setq keys (nreverse keys)) |
311 (or (and (eq (car args) '&allow-other-keys) (cl-pop args)) | 307 (or (and (eq (car args) '&allow-other-keys) (cl-pop args)) |
312 (null keys) (= safety 0) | 308 (null keys) (= safety 0) |
313 (let* ((var (gensym "--keys--")) | 309 (let* ((var (gensym "--keys--")) |
314 (allow '(:allow-other-keys)) | 310 (allow '(:allow-other-keys)) |