From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 31 Mar 2017 14:05:12 +0000 (-0400)
Subject: * test/lisp/emacs-lisp/cl-lib-tests.el (cl-lib-symbol-macrolet): New test.
X-Git-Tag: emacs-26.0.90~522^2~7
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1f5b4ed62837817037ddc8e1f2d17782c6efc8e5;p=emacs.git

* test/lisp/emacs-lisp/cl-lib-tests.el (cl-lib-symbol-macrolet): New test.
---

diff --git a/test/lisp/emacs-lisp/cl-lib-tests.el b/test/lisp/emacs-lisp/cl-lib-tests.el
index 5edc3e72bf2..b5946208f10 100644
--- a/test/lisp/emacs-lisp/cl-lib-tests.el
+++ b/test/lisp/emacs-lisp/cl-lib-tests.el
@@ -493,4 +493,13 @@
   (should (cl-typep '* 'cl-lib-test-type))
   (should-not (cl-typep 1 'cl-lib-test-type)))
 
+(ert-deftest cl-lib-symbol-macrolet ()
+  (should (equal (cl-flet ((f (x) (+ x 5)))
+                   (let ((x 5))
+                     (f (+ x 6))))
+                 (cl-symbol-macrolet ((f (+ x 6)))
+                   (cl-flet ((f (x) (+ x 5)))
+                     (let ((x 5))
+                       (f f)))))))
+
 ;;; cl-lib.el ends here