diff options
| author | Stefan Kangas | 2024-01-28 16:59:50 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2024-01-28 17:11:51 +0100 |
| commit | 71b5d5a9799a37948b2e8cca125a59e2bfb71e96 (patch) | |
| tree | 99d0be2f09a10eac15f453502e0e3c767a6b07ce /test/src/comp-tests.el | |
| parent | 6ebd5aa33765d6d3ffec96f9965d004ad539098e (diff) | |
| download | emacs-71b5d5a9799a37948b2e8cca125a59e2bfb71e96.tar.gz emacs-71b5d5a9799a37948b2e8cca125a59e2bfb71e96.zip | |
; Fix typos
Diffstat (limited to 'test/src/comp-tests.el')
| -rw-r--r-- | test/src/comp-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index 4e7ca88d197..54a9a6c11cc 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -906,7 +906,7 @@ Return a list of results." | |||
| 906 | 906 | ||
| 907 | (defun comp-tests--types-equal (t1 t2) | 907 | (defun comp-tests--types-equal (t1 t2) |
| 908 | "Whether the types T1 and T2 are equal." | 908 | "Whether the types T1 and T2 are equal." |
| 909 | (or (equal t1 t2) ; optimisation for the common case | 909 | (or (equal t1 t2) ; optimization for the common case |
| 910 | (and (consp t1) (consp t2) | 910 | (and (consp t1) (consp t2) |
| 911 | (eq (car t1) (car t2)) | 911 | (eq (car t1) (car t2)) |
| 912 | (if (memq (car t1) '(and or member)) | 912 | (if (memq (car t1) '(and or member)) |