From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 18 Jul 2017 16:01:27 +0000 (-0400)
Subject: * emacs-lisp/cl-lib.el (cl--old-struct-type-of): Accept `[]'
X-Git-Tag: emacs-26.0.90~518^2~63
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fa72de6cf74735c1983720c818b6d67af832e646;p=emacs.git

* emacs-lisp/cl-lib.el (cl--old-struct-type-of): Accept `[]'
---

diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el
index c183852fd3b..6ac08d839b1 100644
--- a/lisp/emacs-lisp/cl-lib.el
+++ b/lisp/emacs-lisp/cl-lib.el
@@ -631,7 +631,7 @@ If ALIST is non-nil, the new pairs are prepended to it."
   (require 'cl-seq))
 
 (defun cl--old-struct-type-of (orig-fun object)
-  (or (and (vectorp object)
+  (or (and (vectorp object) (> (length object) 0)
            (let ((tag (aref object 0)))
              (when (and (symbolp tag)
                         (string-prefix-p "cl-struct-" (symbol-name tag)))