comparison lisp/emacs-lisp/byte-opt.el @ 92426:646c75baf82e

(byte-optimize-form-code-walker): Walk into the body of lambdas after byte-compile-unfold-lambda.

92425:c6c2c9daee54

	   (and (nth 1 form)
		(not for-effect)
		form))
	  ((or (byte-code-function-p fn)
	       (eq 'lambda (car-safe fn)))
	   (byte-compile-unfold-lambda 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
	   ;; are more deeply nested are optimized first.
	   (cons fn

92426:646c75baf82e

	   (and (nth 1 form)
		(not for-effect)
		form))
	  ((or (byte-code-function-p fn)
	       (eq 'lambda (car-safe fn)))
           (byte-optimize-form-code-walker
            (byte-compile-unfold-lambda form)
            for-effect))
	  ((memq fn '(let let*))
	   ;; recursively enter the optimizer for the bindings and body
	   ;; of a let or let*.  This for depth-firstness: forms that
	   ;; are more deeply nested are optimized first.
	   (cons fn