diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2023-09-08 14:55:32 +0200 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-09-08 17:22:17 +0200 |
| commit | 4c45789d9b1a8df0bf3fc2b258dd54b06d3b26b7 (patch) | |
| tree | 994db12776755b3510b4a5d3eaecd2600da587e9 /compat-28.el | |
| parent | 75d0b8527f51aae42d23eee4aeb263e19055747e (diff) | |
Correct error signalling in sort, length=, length< and length>
Diffstat (limited to 'compat-28.el')
| -rw-r--r-- | compat-28.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compat-28.el b/compat-28.el index b305ab2..7081e33 100644 --- a/compat-28.el +++ b/compat-28.el @@ -65,7 +65,7 @@ issues are inherited." t)) ((arrayp sequence) (= (length sequence) length)) - ((signal 'wrong-type-argument sequence)))) + (t (signal 'wrong-type-argument (list 'sequencep sequence))))) (compat-defun length< (sequence length) ;; [[compat-tests:length<]] "Returns non-nil if SEQUENCE is shorter than LENGTH." @@ -75,7 +75,7 @@ issues are inherited." (null (nthcdr (1- length) sequence))) ((arrayp sequence) (< (length sequence) length)) - ((signal 'wrong-type-argument sequence)))) + (t (signal 'wrong-type-argument (list 'sequencep sequence))))) (compat-defun length> (sequence length) ;; [[compat-tests:length>]] "Returns non-nil if SEQUENCE is longer than LENGTH." @@ -84,7 +84,7 @@ issues are inherited." (and (nthcdr length sequence) t)) ((arrayp sequence) (> (length sequence) length)) - ((signal 'wrong-type-argument sequence)))) + (t (signal 'wrong-type-argument (list 'sequencep sequence))))) ;;;; Defined in fileio.c |