From 22ddd2ba13ae002a23f41ae543e211a06a85ad8f Mon Sep 17 00:00:00 2001 From: Mattias Engdegård Date: Wed, 12 Jan 2022 19:47:39 +0100 Subject: Revert "Fix closure-conversion of shadowed captured lambda-lifted vars" This reverts commit 3ec8c8b3ae2359ceb8135b672e86526969c16b7e. It was committed to a stable branch without prior discussion; see bug#53071. --- test/lisp/emacs-lisp/bytecomp-tests.el | 43 ---------------------------------- 1 file changed, 43 deletions(-) (limited to 'test/lisp/emacs-lisp/bytecomp-tests.el') diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el index b5914745381..8a09c545914 100644 --- a/test/lisp/emacs-lisp/bytecomp-tests.el +++ b/test/lisp/emacs-lisp/bytecomp-tests.el @@ -640,49 +640,6 @@ inner loops respectively." (f (list (lambda (x) (setq a x))))) (funcall (car f) 3) (list a b)) - - ;; These expressions give different results in lexbind and dynbind modes, - ;; but in each the compiler and interpreter should agree! - ;; (They look much the same but come in pairs exercising both the - ;; `let' and `let*' paths.) - (let ((f (lambda (x) - (lambda () - (let ((g (lambda () x))) - (let ((x 'a)) - (list x (funcall g)))))))) - (funcall (funcall f 'b))) - (let ((f (lambda (x) - (lambda () - (let ((g (lambda () x))) - (let* ((x 'a)) - (list x (funcall g)))))))) - (funcall (funcall f 'b))) - (let ((f (lambda (x) - (lambda () - (let ((g (lambda () x))) - (setq x (list x x)) - (let ((x 'a)) - (list x (funcall g)))))))) - (funcall (funcall f 'b))) - (let ((f (lambda (x) - (lambda () - (let ((g (lambda () x))) - (setq x (list x x)) - (let* ((x 'a)) - (list x (funcall g)))))))) - (funcall (funcall f 'b))) - (let ((f (lambda (x) - (let ((g (lambda () x)) - (h (lambda () (setq x (list x x))))) - (let ((x 'a)) - (list x (funcall g) (funcall h))))))) - (funcall (funcall f 'b))) - (let ((f (lambda (x) - (let ((g (lambda () x)) - (h (lambda () (setq x (list x x))))) - (let* ((x 'a)) - (list x (funcall g) (funcall h))))))) - (funcall (funcall f 'b))) ) "List of expressions for cross-testing interpreted and compiled code.") -- cgit v1.2.3