From f8858d19a909512ebb54e09904bcac6a8a90ec84 Mon Sep 17 00:00:00 2001 From: KG <41345727+kg583@users.noreply.github.com> Date: Sat, 12 Jul 2025 20:32:50 -0500 Subject: [PATCH] Use <= for three argument ~^ --- lib/format.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/format.lisp b/lib/format.lisp index f19409e96..583f039ba 100644 --- a/lib/format.lisp +++ b/lib/format.lisp @@ -611,7 +611,7 @@ and (nthcdr *format-arguments-variance* *format-arguments*)") (real (<= p1 p2 p3)) (character - (char< p1 p2 p3)))) + (char<= p1 p2 p3)))) (p2 (equal p1 p2)) (p1 (eql p1 0)) (t (null (if colon *format-colon-rest* *format-arguments*)))) @@ -2442,9 +2442,9 @@ and (nthcdr *format-arguments-variance* *format-arguments*)") (if (every (lambda (p) (nx-could-be-type p 'real)) parms) ;; If the params could also be chars, don't know enough to constant fold ;; anyway, so this test will do. - `(< ,p1 ,p2 ,p3) + `(<= ,p1 ,p2 ,p3) (if (every (lambda (p) (nx-could-be-type p 'character)) parms) - `(char< ,p1 ,p2 ,p3) + `(char<= ,p1 ,p2 ,p3) ;; At least one can't be real, at least one can't be char. (format-error "Wrong type of parameters for three-way comparison")))) (p2 `(equal ,p1 ,p2))