master: Appease cmucl

The branch "master" has been updated in SBCL:
       via  72da092e1175f80e7d014d521e024188e27512e2 (commit)
      from  ed0f3c56c19b96c5d7eab7cb88697defb5cb58f0 (commit)

- Log -----------------------------------------------------------------
commit 72da092e1175f80e7d014d521e024188e27512e2
Author: Stas Boukarev <[email protected]>
Date:   Thu Aug 13 06:17:27 2026 +0300

    Appease cmucl
---
 src/pcl/defclass.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/pcl/defclass.lisp b/src/pcl/defclass.lisp
index 43b83af76..618f16a5a 100644
--- a/src/pcl/defclass.lisp
+++ b/src/pcl/defclass.lisp
@@ -193,7 +193,7 @@
                  ,defclass-form)))))))
 
 (defun canonize-defclass-options (expansion-state class-name options)
-  (declare ((simple-vector 4) expansion-state))
+  (declare (type (simple-vector 4) expansion-state))
   (maplist (lambda (sublist)
              (let ((option-name (first (pop sublist))))
                (when (member option-name sublist :key #'first :test #'eq)
@@ -239,7 +239,7 @@
       (values (or metaclass 'standard-class) (nreverse canonized-options))))
 
 (defun canonize-defclass-slot (expansion-state class-name metaclass spec env)
-  (declare ((simple-vector 4) expansion-state))
+  (declare (type (simple-vector 4) expansion-state))
   (let ((location (sb-c::make-definition-source-location))
         (spec (sb-int:ensure-list spec)))
     (when (and (cdr spec) (null (cddr spec)))
@@ -335,7 +335,7 @@
                            name class-name)))))
 
 (defun make-initfunction (expansion-state initform &optional (type t) source-form)
-  (declare ((simple-vector 4) expansion-state))
+  (declare (type (simple-vector 4) expansion-state))
   (cond ((and (or (eq initform t)
                   (equal initform ''t))
               (eq type t))

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


hooks/post-receive
-- 
SBCL