912 |
(setq var (prog1 other (setq other var)))) |
(setq var (prog1 other (setq other var)))) |
913 |
(setq loop-map-form |
(setq loop-map-form |
914 |
(list (if (memq word '(key-seq key-seqs)) |
(list (if (memq word '(key-seq key-seqs)) |
915 |
'cl-map-keymap-recursively 'cl-map-keymap) |
'cl-map-keymap-recursively 'map-keymap) |
916 |
(list 'function (list* 'lambda (list var other) |
(list 'function (list* 'lambda (list var other) |
917 |
'--cl-map)) map)))) |
'--cl-map)) map)))) |
918 |
|
|
2497 |
(list 'progn |
(list 'progn |
2498 |
(if p nil ; give up if defaults refer to earlier args |
(if p nil ; give up if defaults refer to earlier args |
2499 |
(list 'define-compiler-macro name |
(list 'define-compiler-macro name |
2500 |
(list* '&whole 'cl-whole '&cl-quote args) |
(if (memq '&key args) |
2501 |
|
(list* '&whole 'cl-whole '&cl-quote args) |
2502 |
|
(cons '&cl-quote args)) |
2503 |
(list* 'cl-defsubst-expand (list 'quote argns) |
(list* 'cl-defsubst-expand (list 'quote argns) |
2504 |
(list 'quote (list* 'block name body)) |
(list 'quote (list* 'block name body)) |
2505 |
(not (or unsafe (cl-expr-access-order pbody argns))) |
(not (or unsafe (cl-expr-access-order pbody argns))) |