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

[Stefan Monnier]

branch: master
commit 73088b30cf5447c7aa459437c2f521ea9b443b0c
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/emacs-lisp/cl-preloaded.el (cl--typeof-types): Add `symbol-with-pos`
---
 lisp/emacs-lisp/cl-preloaded.el | 2 +-
 src/data.c                      | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el
index ab7c56c4e0..2b32bc4844 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 0347ff363c..72dcf6f878 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;