Add `cl-constantly' function

* lisp/emacs-lisp/cl-lib.el (cl-constantly): Add Common Lisp
function missing (bug#21584).
This commit is contained in:
Lars Ingebrigtsen 2021-12-02 10:19:10 +01:00
parent 5db380abad
commit 7ca865dc52
2 changed files with 10 additions and 0 deletions

View file

@ -551,4 +551,9 @@
(should cl-old-struct-compat-mode)
(cl-old-struct-compat-mode (if saved 1 -1))))
(ert-deftest cl-constantly ()
(should (equal (mapcar (cl-constantly 3) '(a b c d))
'(3 3 3 3))))
;;; cl-lib-tests.el ends here