From 6f5f2ebfb4fe2652152bc0f69d6a1ffde3ec5c87 Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Tue, 21 Jun 2022 18:41:13 -0400 Subject: [PATCH] A trivial optimization and a formatting fix * lisp/subr.el (internal--compiler-macro-cXXr): Re-use `head' for `n'. Fix indentation and line length. --- lisp/subr.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index d14efccd82e..04eec977bb6 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -540,12 +540,12 @@ i.e., subtract 2 * `most-negative-fixnum' from VALUE before shifting it." ;; you may want to amend the other, too. (defun internal--compiler-macro-cXXr (form x) (let* ((head (car form)) - (n (symbol-name (car form))) + (n (symbol-name head)) (i (- (length n) 2))) (if (not (string-match "c[ad]+r\\'" n)) (if (and (fboundp head) (symbolp (symbol-function head))) - (internal--compiler-macro-cXXr (cons (symbol-function head) (cdr form)) - x) + (internal--compiler-macro-cXXr + (cons (symbol-function head) (cdr form)) x) (error "Compiler macro for cXXr applied to non-cXXr form")) (while (> i (match-beginning 0)) (setq x (list (if (eq (aref n i) ?a) 'car 'cdr) x)) -- 2.39.2