master: Avoid calling cache-statistics function

The branch "master" has been updated in SBCL:
       via  17e8361de455d7e89c8cf28aea91e3ce035b7853 (commit)
      from  a708727118bbe92967dee2f4880109b590b68087 (commit)

- Log -----------------------------------------------------------------
commit 17e8361de455d7e89c8cf28aea91e3ce035b7853
Author: Douglas Katzman <[email protected]>
Date:   Fri Apr 3 16:00:26 2026 -0400

    Avoid calling cache-statistics function
---
 tests/typecase-cache.pure.lisp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/tests/typecase-cache.pure.lisp b/tests/typecase-cache.pure.lisp
index b70ffdca6..3f6713c54 100644
--- a/tests/typecase-cache.pure.lisp
+++ b/tests/typecase-cache.pure.lisp
@@ -42,4 +42,11 @@
     (eval form)
     (assert (eq (f (funcall (intern (format nil "MAKE-TUR~D" i)))) 'jam))))
 (with-test (:name :expand-cache)
-  (assert (>= (sb-pcl::cache-statistics (car *cell*)) 100)))
+  (let* ((cache (car *cell*))
+         (as-string (write-to-string cache :escape t))
+         (expect "#<SB-PCL::CACHE 1 key, value, "))
+    (assert (string= as-string expect :end1 (length expect)))
+    (multiple-value-bind (lines endpos)
+        (parse-integer as-string :start (length expect) :junk-allowed t)
+      (assert (char= (char as-string endpos) #\/))
+      (assert (>= lines 100)))))

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


hooks/post-receive
-- 
SBCL