(setq ans 'ede-locate-base))
(oset proj locate-obj (make-instance ans "Loc" :root root))
(when (called-interactively-p 'interactive)
(setq ans 'ede-locate-base))
(oset proj locate-obj (make-instance ans "Loc" :root root))
(when (called-interactively-p 'interactive)