master: Tidy up some type specifiers

The branch "master" has been updated in SBCL:
       via  1f72eef99e028a04b85e028054cce075a9c73336 (commit)
      from  6094278bbe5646ef4472e37a61ecb7bab395aff5 (commit)

- Log -----------------------------------------------------------------
commit 1f72eef99e028a04b85e028054cce075a9c73336
Author: Stas Boukarev <[email protected]>
Date:   Wed Apr 8 04:27:09 2026 +0300

    Tidy up some type specifiers
---
 src/compiler/srctran.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp
index 213114af2..b4cb3145c 100644
--- a/src/compiler/srctran.lisp
+++ b/src/compiler/srctran.lisp
@@ -5983,7 +5983,7 @@
                               (cond ((or (float-safe-p)
                                          (loop for arg in args
                                                do
-                                               (if (lvar-csubtypep arg (and number (not (or (eql 0) (complex ratio)))))
+                                               (if (lvar-csubtypep arg (and number (not (or (eql 0) (complex rational)))))
                                                    (setf good arg)
                                                    (setf all-good nil))
                                                finally (return all-good)))
@@ -6107,7 +6107,7 @@
                            (sin (*)
                             (when (or (float-safe-p)
                                       (lvar-csubtypep (first args)
-                                                      (and number (not (or (eql 0) (complex ratio))))))
+                                                      (and number (not (or (eql 0) (complex rational))))))
                               (negate-lvar (first args) test any-branch)))))))))
         (negate-lvar x test any-branch)))))
 
@@ -9468,7 +9468,7 @@
            (give-up-ir1-transform)))))
 
 (deftransform parse-integer ((string &key (start 0) end radix junk-allowed)
-                             (t &key (:radix (constant-arg (or null (member 10 16))))
+                             (t &key (:radix (constant-arg (member 10 16)))
                                 (:start t) (:end t) (:junk-allowed t)))
   `(,(if (and radix
               (= (lvar-value radix) 16))
@@ -10291,7 +10291,7 @@
     (let* ((min (reduce #'min keys))
            (max (reduce #'max keys))
            (table-size (1+ (- max min)))
-           ;; TOOD: this size could be reduced now. For spread-out fixnum keys,
+           ;; TODO: this size could be reduced now. For spread-out fixnum keys,
            ;; we'll use a perfect hash, making the table exactly sized.
            ;; So the situation where low load factor is beneficial are few.
            (size-limit (* (length keys) 2)))

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL