diff options
Diffstat (limited to 'test/lisp/emacs-lisp/bytecomp-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/bytecomp-tests.el | 43 |
1 files changed, 0 insertions, 43 deletions
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.") |