diff options
| author | Andrea Corallo | 2023-10-18 16:10:08 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2023-10-19 13:59:57 +0200 |
| commit | a567faf4c2bc497e50ce3c6ace32c1333cf3b706 (patch) | |
| tree | e609039fdf8ff366a85871991980ed6e95c60d72 /test/src/comp-tests.el | |
| parent | 3e193edd68b1abd9483267ba09c6e5c0c59e6c23 (diff) | |
| download | emacs-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.el | 4 |
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) |