master e5889c7: Simplify and streamline optimizer clauses

[Mattias Engdegård]

branch: master
commit e5889c704f9351c2cb91d8db2b36af72d9ab4151
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    Simplify and streamline optimizer clauses
    
    * lisp/emacs-lisp/byte-opt.el (byte-optimize-form-code-walker):
    Remove clause for 'with-output-to-temp-buffer', since it is a
    macro and will have been expanded before reaching this point.
    Move clauses for 'lambda' and 'closure' to avoid splitting
    a cond jump table.
---
 lisp/emacs-lisp/byte-opt.el | 23 +++++++++--------------
 1 file changed, 9 insertions(+), 14 deletions(-)

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 6f801be..48efff9 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -391,13 +391,6 @@
           (and (nth 1 form)
                (not for-effect)
                form))
-         ((eq (car-safe fn) 'lambda)
-          (let ((newform (byte-compile-unfold-lambda form)))
-            (if (eq newform form)
-                ;; Some error occurred, avoid infinite recursion
-                form
-              (byte-optimize-form-code-walker newform for-effect))))
-         ((eq (car-safe fn) 'closure) form)
          ((memq fn '(let let*))
           ;; recursively enter the optimizer for the bindings and body
           ;; of a let or let*.  This for depth-firstness: forms that
@@ -444,13 +437,6 @@
           ;; will be optimized away in the lap-optimize pass.
           (cons fn (byte-optimize-body (cdr form) for-effect)))
 
-         ((eq fn 'with-output-to-temp-buffer)
-          ;; this is just like the above, except for the first argument.
-          (cons fn
-            (cons
-             (byte-optimize-form (nth 1 form) nil)
-             (byte-optimize-body (cdr (cdr form)) for-effect))))
-
          ((eq fn 'if)
           (when (< (length form) 3)
             (byte-compile-warn "too few arguments for `if'"))
@@ -530,6 +516,15 @@
           ;; Needed as long as we run byte-optimize-form after cconv.
           ((eq fn 'internal-make-closure) form)
 
+         ((eq (car-safe fn) 'lambda)
+          (let ((newform (byte-compile-unfold-lambda form)))
+            (if (eq newform form)
+                ;; Some error occurred, avoid infinite recursion
+                form
+              (byte-optimize-form-code-walker newform for-effect))))
+
+         ((eq (car-safe fn) 'closure) form)
+
           ((byte-code-function-p fn)
            (cons fn (mapcar #'byte-optimize-form (cdr form))))