aboutsummaryrefslogtreecommitdiffstats
path: root/test/src/comp-tests.el
diff options
context:
space:
mode:
authorAndrea Corallo2023-10-18 16:10:08 +0200
committerAndrea Corallo2023-10-19 13:59:57 +0200
commita567faf4c2bc497e50ce3c6ace32c1333cf3b706 (patch)
treee609039fdf8ff366a85871991980ed6e95c60d72 /test/src/comp-tests.el
parent3e193edd68b1abd9483267ba09c6e5c0c59e6c23 (diff)
downloademacs-a567faf4c2bc497e50ce3c6ace32c1333cf3b706.tar.gz
emacs-a567faf4c2bc497e50ce3c6ace32c1333cf3b706.zip
Add two missing 'number-or-marker' entries to the cl machinery (bug#66615)
Assuming 'number-or-marker' is a type (as present multiple times in cl--typeof-types) adding some missing entries for coherency. * lisp/emacs-lisp/cl-preloaded.el (cl--typeof-types): Add 'number-or-marker' as supertype of 'number' in the 'float' branch. * lisp/emacs-lisp/cl-macs.el (cl-deftype-satisfies): Add 'number-or-marker'. * test/lisp/emacs-lisp/comp-cstr-tests.el (comp-cstr-typespec-tests-alist): Update test. * test/src/comp-tests.el (comp-tests-type-spec-tests): Update two testes.
Diffstat (limited to 'test/src/comp-tests.el')
-rw-r--r--test/src/comp-tests.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 4444ab61219..2b3c3dd4c75 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -977,7 +977,7 @@ Return a list of results."
977 (if (= x y) 977 (if (= x y)
978 x 978 x
979 'foo)) 979 'foo))
980 '(or (member foo) marker number)) 980 '(or (member foo) number-or-marker))
981 981
982 ;; 14 982 ;; 14
983 ((defun comp-tests-ret-type-spec-f (x) 983 ((defun comp-tests-ret-type-spec-f (x)
@@ -1117,7 +1117,7 @@ Return a list of results."
1117 ((defun comp-tests-ret-type-spec-f (x) 1117 ((defun comp-tests-ret-type-spec-f (x)
1118 (when (> x 1.0) 1118 (when (> x 1.0)
1119 x)) 1119 x))
1120 '(or null marker number)) 1120 '(or null number-or-marker))
1121 1121
1122 ;; 36 1122 ;; 36
1123 ((defun comp-tests-ret-type-spec-f (x y) 1123 ((defun comp-tests-ret-type-spec-f (x y)