[Emacs-diffs] master c5565ce: * lisp/emacs-lisp/cl-generic.el (cl--generic-struct-tag): Don't burp on

[Stefan Monnier]

branch: master
commit c5565ce5b00e4234339ef6a4bdea50d8b6b6aec7
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * lisp/emacs-lisp/cl-generic.el (cl--generic-struct-tag): Don't burp on
    
    non-struct vectors.
---
 lisp/emacs-lisp/cl-generic.el |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el
index 619428d..63cd910 100644
--- a/lisp/emacs-lisp/cl-generic.el
+++ b/lisp/emacs-lisp/cl-generic.el
@@ -986,8 +986,9 @@ The value returned is a list of elements of the form
   `(and (vectorp ,name)
         (> (length ,name) 0)
         (let ((tag (aref ,name 0)))
-          (if (eq (symbol-function tag) :quick-object-witness-check)
-              tag))))
+          (and (symbolp tag)
+               (eq (symbol-function tag) :quick-object-witness-check)
+               tag))))
 
 (defun cl--generic-class-parents (class)
   (let ((parents ())