diff options
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index b1ada00f4a4..20a956b474a 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -2503,8 +2503,9 @@ The function's arguments should be treated as immutable. | |||
| 2503 | ,(if (memq '&key args) | 2503 | ,(if (memq '&key args) |
| 2504 | `(&whole cl-whole &cl-quote ,@args) | 2504 | `(&whole cl-whole &cl-quote ,@args) |
| 2505 | (cons '&cl-quote args)) | 2505 | (cons '&cl-quote args)) |
| 2506 | ,(format "compiler-macro for inlining `%s'." name) | ||
| 2506 | (cl--defsubst-expand | 2507 | (cl--defsubst-expand |
| 2507 | ',argns '(cl-block ,name ,@body) | 2508 | ',argns '(cl-block ,name ,@(cdr (macroexp-parse-body body))) |
| 2508 | ;; We used to pass `simple' as | 2509 | ;; We used to pass `simple' as |
| 2509 | ;; (not (or unsafe (cl-expr-access-order pbody argns))) | 2510 | ;; (not (or unsafe (cl-expr-access-order pbody argns))) |
| 2510 | ;; But this is much too simplistic since it | 2511 | ;; But this is much too simplistic since it |