From: Andrea Corallo <acorallo@gnu.org>
Date: Tue, 15 Oct 2024 19:02:59 +0000 (+0200)
Subject: * lisp/emacs-lisp/comp-cstr.el (comp-cstr-type-p): Add assertion.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=44195ccfefe19f57d4b16f053cf7b5fb9ff2e865;p=emacs.git

* lisp/emacs-lisp/comp-cstr.el (comp-cstr-type-p): Add assertion.

(cherry picked from commit 1686d48417315f809403aeb29559788ef4b755a6)
---

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