From 44195ccfefe19f57d4b16f053cf7b5fb9ff2e865 Mon Sep 17 00:00:00 2001
From: Andrea Corallo <acorallo@gnu.org>
Date: Tue, 15 Oct 2024 21:02:59 +0200
Subject: [PATCH] * lisp/emacs-lisp/comp-cstr.el (comp-cstr-type-p): Add
 assertion.

(cherry picked from commit 1686d48417315f809403aeb29559788ef4b755a6)
---
 lisp/emacs-lisp/comp-cstr.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el
index e19a507863e..7bb331aa6a1 100644
--- a/lisp/emacs-lisp/comp-cstr.el
+++ b/lisp/emacs-lisp/comp-cstr.el
@@ -935,6 +935,8 @@ Non memoized version of `comp-cstr-intersection-no-mem'."
 
 (defun comp-cstr-type-p (cstr type)
   "Return t if CSTR is certainly of type TYPE."
+  ;; Only basic types are valid input.
+  (cl-assert (symbolp type))
   (when
       (with-comp-cstr-accessors
         (cl-case type
-- 
2.39.5