From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 30 Apr 2022 02:13:20 +0000 (-0400)
Subject: * lisp/emacs-lisp/cl-preloaded.el (cl--typeof-types): Add `symbol-with-pos`
X-Git-Tag: emacs-29.0.90~1931^2~209
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=73088b30cf5447c7aa459437c2f521ea9b443b0c;p=emacs.git

* lisp/emacs-lisp/cl-preloaded.el (cl--typeof-types): Add `symbol-with-pos`
---

diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el
index ab7c56c4e00..2b32bc4844a 100644
--- a/lisp/emacs-lisp/cl-preloaded.el
+++ b/lisp/emacs-lisp/cl-preloaded.el
@@ -53,7 +53,7 @@
 (defconst cl--typeof-types
   ;; Hand made from the source code of `type-of'.
   '((integer number number-or-marker atom)
-    (symbol atom) (string array sequence atom)
+    (symbol-with-pos symbol atom) (symbol atom) (string array sequence atom)
     (cons list sequence)
     ;; Markers aren't `numberp', yet they are accepted wherever integers are
     ;; accepted, pretty much.
diff --git a/src/data.c b/src/data.c
index 0347ff363c1..72dcf6f878d 100644
--- a/src/data.c
+++ b/src/data.c
@@ -211,6 +211,7 @@ for example, (type-of 1) returns `integer'.  */)
       return Qcons;
 
     case Lisp_Vectorlike:
+      /* WARNING!!  Keep 'cl--typeof-types' in sync with this code!!  */
       switch (PSEUDOVECTOR_TYPE (XVECTOR (object)))
         {
         case PVEC_NORMAL_VECTOR: return Qvector;