mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 07:40:39 -08:00
Code Issues Projects Releases Wiki Activity

New functions plusp and minusp

Browse source 
* lisp/emacs-lisp/cl-lib.el (cl-plusp, cl-minusp): Move from here...
* lisp/subr.el (plusp, minusp): ...to here.  Make old names into
aliases, documented as deprecated.  Add type declarations.  Change from
defsubst to regular functions with compiler macros.
* lisp/obsolete/cl.el: Don't alias plusp and minusp.

* test/lisp/emacs-lisp/cl-lib-tests.el (cl-lib-test-plusp)
(cl-lib-test-minusp): Move tests from here...
* test/lisp/subr-tests.el (subr-test-plusp, subr-test-minusp):
...to here.

* doc/lispref/numbers.texi (Predicates on Numbers): Document plusp
and minusp.
* doc/misc/cl.texi (Predicates on Numbers): Delete cl-plusp and
cl-minusp.
* lisp/emacs-lisp/shortdoc.el (number): Document plusp and minusp
instead of cl-plusp and cl-minusp.
This commit is contained in:
Stefan Kangas 2025-02-17 21:58:53 +01:00
parent 1d27028df8
commit afbf932106
9 changed files with 80 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -79,38 +79,6 @@
(should (= (cl-decf (alist-get 'a alist 0)) -1))
(should (= (alist-get 'a alist 0) -1))))
(ert-deftest cl-lib-test-plusp ()
(should-not (cl-plusp -1.0e+INF))
(should-not (cl-plusp -1.5e2))
(should-not (cl-plusp -3.14))
(should-not (cl-plusp -1))
(should-not (cl-plusp -0.0))
(should-not (cl-plusp 0))
(should-not (cl-plusp 0.0))
(should-not (cl-plusp -0.0e+NaN))
(should-not (cl-plusp 0.0e+NaN))
(should (cl-plusp 1))
(should (cl-plusp 3.14))
(should (cl-plusp 1.5e2))
(should (cl-plusp 1.0e+INF))
(should-error (cl-plusp "42") :type 'wrong-type-argument))
(ert-deftest cl-lib-test-minusp ()
(should (cl-minusp -1.0e+INF))
(should (cl-minusp -1.5e2))
(should (cl-minusp -3.14))
(should (cl-minusp -1))
(should-not (cl-minusp -0.0))
(should-not (cl-minusp 0))
(should-not (cl-minusp 0.0))
(should-not (cl-minusp -0.0e+NaN))
(should-not (cl-minusp 0.0e+NaN))
(should-not (cl-minusp 1))
(should-not (cl-minusp 3.14))
(should-not (cl-minusp 1.5e2))
(should-not (cl-minusp 1.0e+INF))
(should-error (cl-minusp "-42") :type 'wrong-type-argument))
(ert-deftest cl-digit-char-p ()
(should (eql 3 (cl-digit-char-p ?3)))
(should (eql 10 (cl-digit-char-p ?a 11)))