From 65c0d931f79672e15c6dfd633b619eabfbe9183a Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Thu, 3 Oct 2019 22:15:43 +0200 Subject: [PATCH] alist-get instead of assoc cdr --- lisp/emacs-lisp/comp.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 9f808d2704b..584a02af0e3 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -389,7 +389,7 @@ Put PREFIX in front of it." (error "Can't native compile an already bytecompiled function")) (setf (comp-func-byte-func func) (byte-compile (comp-func-symbol-name func))) - (let ((lap (cdr (assoc function-name (reverse byte-to-native-bytecode))))) + (let ((lap (alist-get function-name (reverse byte-to-native-bytecode)))) (cl-assert lap) (comp-log lap) (let ((lambda-list (aref (comp-func-byte-func func) 0))) @@ -409,7 +409,7 @@ Put PREFIX in front of it." ('defconst (cdr x)))) byte-to-native-top-level-forms))) (cl-loop for (name . bytecode) in (remove-if-not #'car byte-to-native-bytecode) - for lap = (cdr (assoc name byte-to-native-lap)) + for lap = (alist-get name byte-to-native-lap) for lambda-list = (aref bytecode 0) for func = (make-comp-func :symbol-name name :byte-func bytecode @@ -1330,12 +1330,12 @@ This can run just once." (pcase rval (`(,(or 'call 'direct-call) ,f . ,_) (setf (comp-mvar-type lval) - (cdr (assq f comp-known-ret-types)))) + (alist-get f comp-known-ret-types))) (`(,(or 'callref 'direct-callref) ,f . ,args) (cl-loop for v in args do (setf (comp-mvar-ref v) t)) (setf (comp-mvar-type lval) - (cdr (assq f comp-known-ret-types)))) + (alist-get f comp-known-ret-types))) (_ (comp-mvar-propagate lval rval)))) (`(phi ,lval . ,rest) -- 2.39.5