From 73088b30cf5447c7aa459437c2f521ea9b443b0c Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 29 Apr 2022 22:13:20 -0400 Subject: [PATCH] * 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 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; -- 2.39.2