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

* cl-generic.el (cl-generic-generalizers): Clean up after braindamage

Browse source
This commit is contained in:
Stefan Monnier 2015-03-18 10:49:55 -04:00
parent 872481d9e2
commit 8dfff871bd
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

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