))
(inits (oref obj initializers)))
;; Force the name to match for new objects.
- (setf (slot-value nobj 'object-name) (oref nobj name))
+ (eieio-object-set-name-string nobj (oref nobj name))
;; Handle init args.
(while inits
(eieio-oset nobj (car inits) (car (cdr inits)))
(declare-function ede-directory-safe-p "ede")
(declare-function ede-add-project-to-global-list "ede")
-(defclass ede-project-autoload (eieio-named)
+(defclass ede-project-autoload ()
((name :initarg :name
:documentation "Name of this project type")
(file :initarg :file