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

* lisp/emacs-lisp/eieio-core.el (eieio--class): Derive from cl--class

Browse source 
(eieio--class-p): Remove, provided by cl-defstruct.
This commit is contained in:
Stefan Monnier 2015-04-14 23:04:45 -04:00
parent 17d667b387
commit 5de3427203
1 changed files with 1 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/emacs-lisp/eieio-core.el
View file

@ -89,21 +89,8 @@ Currently under control of this var:
(cl-defstruct (eieio--class
(:constructor nil)
(:constructor eieio--class-make (name &aux (tag 'defclass)))
(:type vector)
(:include cl--class)
(:copier nil))
;; We use an untagged cl-struct, with our own hand-made tag as first field
;; (containing the symbol `defclass'). It would be better to use a normal
;; cl-struct with its normal tag (e.g. so that cl-defstruct can define the
;; predicate for us), but that breaks compatibility with .elc files compiled
;; against older versions of EIEIO.
tag
;; Fields we could inherit from cl--class (if we used a tagged cl-struct):
(name nil :type symbol) ;The type name.
(docstring nil :type string)
(parents nil :type (or eieio--class (list-of eieio--class)))
(slots nil :type (vector cl-slot-descriptor))
(index-table nil :type hash-table)
;; Fields specific to EIEIO classes:
children
initarg-tuples ;; initarg tuples list
(class-slots nil :type eieio--slot)
@ -152,12 +139,6 @@ Currently under control of this var:
(or (eieio--class-v class) class)
class))
(defsubst eieio--class-p (class)
"Return non-nil if CLASS is a valid class object."
(condition-case nil
(eq (aref class 0) 'defclass)
(error nil)))
(defun class-p (class)
"Return non-nil if CLASS is a valid class vector.
CLASS is a symbol." ;FIXME: Is it a vector or a symbol?