[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 8dfff87: * cl-generic.el (cl-generic-generalizers):
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master 8dfff87: * cl-generic.el (cl-generic-generalizers): Clean up after braindamage |
Date: |
Wed, 18 Mar 2015 14:50:04 +0000 |
branch: master
commit 8dfff871bdf0e420c6f5570e72afc80471d40d51
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* cl-generic.el (cl-generic-generalizers): Clean up after braindamage
---
lisp/emacs-lisp/cl-generic.el | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el
index c9ca92d..fb11a3e 100644
--- a/lisp/emacs-lisp/cl-generic.el
+++ b/lisp/emacs-lisp/cl-generic.el
@@ -903,8 +903,8 @@ Can only be used from within the lexical body of a primary
or around method."
;; take place without requiring cl-lib.
(let ((class (cl--find-class type)))
(and (cl-typep class 'cl-structure-class)
- (when (cl--struct-class-type class)
- (error "Can't dispatch on cl-struct %S: type is %S"
+ (or (null (cl--struct-class-type class))
+ (error "Can't dispatch on cl-struct %S: type is %S"
type (cl--struct-class-type class)))
(progn (cl-assert (null (cl--struct-class-named class))) t)
(list cl--generic-struct-generalizer))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 8dfff87: * cl-generic.el (cl-generic-generalizers): Clean up after braindamage,
Stefan Monnier <=