diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-01-08 18:44:13 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-01-08 18:44:13 -0500 |
| commit | 3b9dad88e02f05773c599808266febf3e4128222 (patch) | |
| tree | c2d14608aa3e6845ddfceaaa79b49b3cfbaf265e /test/lisp/emacs-lisp/cl-macs-tests.el | |
| parent | 9d3d6f850060db078c7a6853aa3eb8f6e8dca520 (diff) | |
| download | emacs-3b9dad88e02f05773c599808266febf3e4128222.tar.gz emacs-3b9dad88e02f05773c599808266febf3e4128222.tar.bz2 emacs-3b9dad88e02f05773c599808266febf3e4128222.zip | |
* lisp/subr.el (letrec): Optimize some non-recursive bindings
* lisp/emacs-lisp/macroexp.el (macroexp--fgrep): Look inside bytecode
objects as well.
* test/lisp/emacs-lisp/cl-macs-tests.el (cl-macs--labels):
* test/lisp/subr-tests.el (subr--tests-letrec): New tests.
Diffstat (limited to 'test/lisp/emacs-lisp/cl-macs-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/cl-macs-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/cl-macs-tests.el b/test/lisp/emacs-lisp/cl-macs-tests.el index 446983c2e3e..7774ed3145b 100644 --- a/test/lisp/emacs-lisp/cl-macs-tests.el +++ b/test/lisp/emacs-lisp/cl-macs-tests.el @@ -610,4 +610,12 @@ collection clause." ;; Just make sure the function can be instrumented. (edebug-defun))) +;;; cl-labels + +(ert-deftest cl-macs--labels () + ;; Simple recursive function. + (cl-labels ((len (xs) (if xs (1+ (len (cdr xs))) 0))) + (should (equal (len (make-list 42 t)) 42))) + ) + ;;; cl-macs-tests.el ends here |