[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master c5565ce: * lisp/emacs-lisp/cl-generic.el (cl--gener
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master c5565ce: * lisp/emacs-lisp/cl-generic.el (cl--generic-struct-tag): Don't burp on |
Date: |
Fri, 07 Aug 2015 17:34:45 +0000 |
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 ())
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master c5565ce: * lisp/emacs-lisp/cl-generic.el (cl--generic-struct-tag): Don't burp on,
Stefan Monnier <=