diff options
| author | Stefan Monnier | 2015-01-15 08:58:45 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2015-01-16 17:49:00 -0500 |
| commit | 69f36afa11c0b754c40f4fc57408ccd85428e2b0 (patch) | |
| tree | d6bbe2d1b3f7defa437b053ea055fd589da035a3 /test | |
| parent | 9d940c667ab1dadc9d25a88cc2af1594b6c1bb49 (diff) | |
| download | emacs-69f36afa11c0b754c40f4fc57408ccd85428e2b0.tar.gz emacs-69f36afa11c0b754c40f4fc57408ccd85428e2b0.zip | |
* lisp/emacs-lisp/cl-macs.el: Fix last change.
(cl--labels-magic): New constant.
(cl--labels-convert): Use it to ask the macro what is its replacement
in the #'f case.
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/cl-lib-tests.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test/automated/cl-lib-tests.el b/test/automated/cl-lib-tests.el index bbfb8d1f1da..c83391b1cc5 100644 --- a/test/automated/cl-lib-tests.el +++ b/test/automated/cl-lib-tests.el | |||
| @@ -245,4 +245,7 @@ | |||
| 245 | (ert-deftest cl-loop-destructuring-with () | 245 | (ert-deftest cl-loop-destructuring-with () |
| 246 | (should (equal (cl-loop with (a b c) = '(1 2 3) return (+ a b c)) 6))) | 246 | (should (equal (cl-loop with (a b c) = '(1 2 3) return (+ a b c)) 6))) |
| 247 | 247 | ||
| 248 | (ert-deftest cl-flet-test () | ||
| 249 | (should (equal (cl-flet ((f1 (x) x)) (let ((x #'f1)) (funcall x 5))) 5))) | ||
| 250 | |||
| 248 | ;;; cl-lib.el ends here | 251 | ;;; cl-lib.el ends here |