mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 15:21:51 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/cl-macs.el: Fix symbol-macrolet

Browse source 
Revert 0d112c00ba (to fix bug#26325)
and use a different fix for bug#26068.
(cl--symbol-macro-key): New function.
(cl--sm-macroexpand, cl-symbol-macrolet): Use it instead of `symbol-name`.
* test/lisp/emacs-lisp/cl-lib-tests.el (cl-lib-symbol-macrolet):
Failure is not expected any more.
This commit is contained in:
Stefan Monnier 2017-04-21 12:12:42 -04:00
parent 72d7961d67
commit 89898e43c7
2 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

1
test/lisp/emacs-lisp/cl-lib-tests.el
View file

@ -495,7 +495,6 @@
(ert-deftest cl-lib-symbol-macrolet ()
;; bug#26325
:expected-result :failed
(should (equal (cl-flet ((f (x) (+ x 5)))
(let ((x 5))
(f (+ x 6))))