Add `cl-constantly' function
* lisp/emacs-lisp/cl-lib.el (cl-constantly): Add Common Lisp function missing (bug#21584).
This commit is contained in:
parent
5db380abad
commit
7ca865dc52
2 changed files with 10 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue