procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/cl-generic.el (cl--generic-struct-tag): Don't burp on

Browse source 
non-struct vectors.
This commit is contained in:
Stefan Monnier 2015-08-07 13:34:34 -04:00
parent 19154876b9
commit c5565ce5b0
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/cl-generic.el
View file

@ -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 ())