;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310!\"\210\305\311\312\310!\"\210\305\313\311\"\210\314\313\315\316#\210\317\310\320\311#\321\310\322\323\324$\210\325\326\327\330\327\331%\210\325\326\327\332\327\333%\210\325\334\327\335\327\336%\210\325\337\327\340\327\341%\210\325\337\327\342\327\343%\210\325\344\327\345\327\346%\210\325\347\327\350\327\351%\210\325\347\327\352\327\353%\210\325\354\327\355\327\356%\207" [require eieio cl-generic eieio-speedbar ede/auto defalias ede-target-p eieio-make-class-predicate ede-target ede-target--eieio-childp eieio-make-child-predicate ede-target-child-p make-obsolete "use (cl-typep ... \\='ede-target) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (eieio-speedbar-directory-button eieio-named) ((buttonface :initform 'speedbar-file-face) (name :initarg :name :type string :custom string :label "Name" :group (default name) :documentation "Name of this target.") (path :initarg :path :type string :documentation "The path to the sources of this target.\nRelative to the path of the project it belongs to.") (source :initarg :source :initform nil :type list :custom (repeat (string :tag "File")) :label "Source Files" :group (default source) :documentation "Source files in this target.") (versionsource :initarg :versionsource :initform nil :type list :custom (repeat (string :tag "File")) :label "Source Files with Version String" :group (source) :documentation "Source files with a version string in them.\nThese files are checked for a version string whenever the EDE version\nof the master project is changed.  When strings are found, the version\npreviously there is updated.") (sourcetype :allocation :class :type list :documentation "A list of `ede-sourcecode' objects this class will handle.\nThis is used to match target objects with the compilers they can use, and\nwhich files this object is interested in." :accessor ede-object-sourcecode) (keybindings :allocation :class :initform '(("D" . ede-debug-target)) :documentation "Keybindings specialized to this type of target." :accessor ede-object-keybindings) (menu :allocation :class :initform '(["Debug target" ede-debug-target (ede-buffer-belongs-to-target-p)] ["Run target" ede-run-target (ede-buffer-belongs-to-target-p)]) :documentation "Menu specialized to this type of target." :accessor ede-object-menu)) (:documentation "A target is a structure that describes a file set that produces something.\nTargets, as with `Make', is an entity that will manage a file set\nand knows how to compile or otherwise transform those files into some\nother desired outcome.") cl-generic-define-method ede-object-menu nil ((this (subclass ede-target))) #[257 "\300
\301\"\205\302
\301\"\207" [slot-boundp menu eieio-oref-default] 4 "Retrieve the class slot `menu' from a class `ede-target'.\nThis method is obsolete.\n\n(fn THIS)"] ((this ede-target)) #[257 "\300
\301\"\205\302
\301\"\207" [slot-boundp menu eieio-oref] 4 "Retrieve the slot `menu' from an object of class `ede-target'.\n\n(fn THIS)"] \(setf\ ede-object-menu\) (value (this ede-target)) #[514 "\300
\301#\207" [eieio-oset menu] 6 "\n\n(fn VALUE THIS)"] ede-object-keybindings ((this (subclass ede-target))) #[257 "\300
\301\"\205\302
\301\"\207" [slot-boundp keybindings eieio-oref-default] 4 "Retrieve the class slot `keybindings' from a class `ede-target'.\nThis method is obsolete.\n\n(fn THIS)"] ((this ede-target)) #[257 "\300
\301\"\205\302
\301\"\207" [slot-boundp keybindings eieio-oref] 4 "Retrieve the slot `keybindings' from an object of class `ede-target'.\n\n(fn THIS)"] \(setf\ ede-object-keybindings\) (value (this ede-target)) #[514 "\300
\301#\207" [eieio-oset keybindings] 6 "\n\n(fn VALUE THIS)"] ede-object-sourcecode ((this (subclass ede-target))) #[257 "\300
\301\"\205\302
\301\"\207" [slot-boundp sourcetype eieio-oref-default] 4 "Retrieve the class slot `sourcetype' from a class `ede-target'.\nThis method is obsolete.\n\n(fn THIS)"] ((this ede-target)) #[257 "\300
\301\"\205\302
\301\"\207" [slot-boundp sourcetype eieio-oref] 4 "Retrieve the slot `sourcetype' from an object of class `ede-target'.\n\n(fn THIS)"] \(setf\ ede-object-sourcecode\) (value (this ede-target)) #[514 "\300
\301#\207" [eieio-oset sourcetype] 6 "\n\n(fn VALUE THIS)"]] 7)
#@67 Create a new object of class type `ede-target'.

(fn &rest SLOTS)
(defalias 'ede-target #[128 "\300\301\302#\207" [apply make-instance ede-target] 5 (#$ . 4411)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-target compiler-macro ede-target--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'ede-target--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 4688)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias ede-project-placeholder-p eieio-make-class-predicate ede-project-placeholder ede-project-placeholder--eieio-childp eieio-make-child-predicate ede-project-placeholder-child-p make-obsolete "use (cl-typep ... \\='ede-project-placeholder) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (eieio-speedbar-directory-button) ((name :initarg :name :initform "Untitled" :type string :custom string :label "Name" :group (default name) :documentation "The name used when generating distribution files.") (version :initarg :version :initform "1.0" :type string :custom string :label "Version" :group (default name) :documentation "The version number used when distributing files.") (directory :type string :initarg :directory :documentation "Directory this project is associated with.") (dirinode :documentation "The inode id for :directory.") (file :type string :initarg :file :documentation "The File uniquely tagging this project instance.\nFor some project types, this will be the file that stores the project configuration.\nIn other projects types, this file is merely a unique identifier to this type of project.") (rootproject :initform nil :type (or null ede-project-placeholder-child) :documentation "Pointer to our root project.")) (:documentation "Placeholder object for projects not loaded into memory.\nProjects placeholders will be stored in a user specific location\nand querying them will cause the actual project to get loaded.")] 6)
#@80 Create a new object of class type `ede-project-placeholder'.

(fn &rest SLOTS)
(defalias 'ede-project-placeholder #[128 "\300\301\302#\207" [apply make-instance ede-project-placeholder] 5 (#$ . 6539)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-project-placeholder compiler-macro ede-project-placeholder--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'ede-project-placeholder--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 6881)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\210\320\321\322\323\322\324%\210\320\321\322\325\322\326%\210\320\327\322\330\322\331%\210\320\332\322\333\322\334%\210\320\332\322\335\322\336%\210\320\337\322\340\322\341%\207" [defalias ede-project-p eieio-make-class-predicate ede-project ede-project--eieio-childp eieio-make-child-predicate ede-project-child-p make-obsolete "use (cl-typep ... \\='ede-project) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-project-placeholder) ((subproj :initform nil :type list :documentation "Sub projects controlled by this project.\nFor Automake based projects, each directory is treated as a project.") (targets :initarg :targets :type (list-of ede-target) :custom (repeat (object :objectcreatefcn ede-new-target-custom)) :label "Local Targets" :group (targets) :documentation "List of top level targets in this project.") (locate-obj :type (or null ede-locate-base-child) :documentation "A locate object to use as a backup to `ede-expand-filename'.") (tool-cache :initarg :tool-cache :type list :custom (repeat object) :label "Tool: " :group tools :documentation "List of tool cache configurations in this project.\nThis allows any tool to create, manage, and persist project-specific settings.") (mailinglist :initarg :mailinglist :initform #1="" :type string :custom string :label "Mailing List Address" :group name :documentation "An email address where users might send email for help.") (web-site-url :initarg :web-site-url :initform #1# :type string :custom string :label "Web Site URL" :group name :documentation "URL to this projects web site.\nThis is a URL to be sent to a web site for documentation.") (web-site-directory :initarg :web-site-directory :initform #1# :custom string :label "Web Page Directory" :group name :documentation "A directory where web pages can be found by Emacs.\nFor remote locations use a path compatible with ange-ftp or EFS.\nYou can also use TRAMP for use with rcp & scp.") (web-site-file :initarg :web-site-file :initform #1# :custom string :label "Web Page File" :group name :documentation "A file which contains the website for this project.\nThis file can be relative to slot `web-site-directory'.\nThis can be a local file, use ange-ftp, EFS, or TRAMP.") (ftp-site :initarg :ftp-site :initform #1# :type string :custom string :label "FTP site" :group name :documentation "FTP site where this project's distribution can be found.\nThis FTP site should be in Emacs form, as needed by `ange-ftp', but can\nalso be of a form used by TRAMP for use with scp, or rcp.") (ftp-upload-site :initarg :ftp-upload-site :initform #1# :type string :custom string :label "FTP Upload site" :group name :documentation "FTP Site to upload new distributions to.\nThis FTP site should be in Emacs form as needed by `ange-ftp'.\nIf this slot is nil, then use `ftp-site' instead.") (configurations :initarg :configurations :initform '("debug" "release") :type list :custom (repeat string) :label "Configuration Options" :group (settings) :documentation "List of available configuration types.\nIndividual target/project types can form associations between a configuration,\nand target specific elements such as build variables.") (configuration-default :initarg :configuration-default :initform "debug" :custom string :label "Current Configuration" :group (settings) :documentation "The default configuration.") (local-variables :initarg :local-variables :initform nil :custom (repeat (cons (sexp :tag "Variable") (sexp :tag "Value"))) :label "Project Local Variables" :group (settings) :documentation "Project local variables") (keybindings :allocation :class :initform '(("D" . ede-debug-target) ("R" . ede-run-target)) :documentation "Keybindings specialized to this type of target." :accessor ede-object-keybindings) (menu :allocation :class :initform '(["Update Version" ede-update-version ede-object] ["Version Control Status" ede-vc-project-directory ede-object] ["Edit Project Website" ede-edit-web-page (and ede-object (oref (ede-toplevel) web-site-file))] ["Browse Project URL" ede-web-browse-home (and ede-object (not (string= #1# (oref (ede-toplevel) web-site-url))))] "--" ["Rescan Project Files" ede-rescan-toplevel t] ["Edit Projectfile" ede-edit-file-target (ede-buffer-belongs-to-project-p)]) :documentation "Menu specialized to this type of target." :accessor ede-object-menu)) (:documentation "Top level EDE project specification.\nAll specific project types must derive from this project." :method-invocation-order :depth-first) cl-generic-define-method ede-object-menu nil ((this (subclass ede-project))) #[257 "\300
\301\"\205\302
\301\"\207" [slot-boundp menu eieio-oref-default] 4 "Retrieve the class slot `menu' from a class `ede-project'.\nThis method is obsolete.\n\n(fn THIS)"] ((this ede-project)) #[257 "\300
\301\"\205\302
\301\"\207" [slot-boundp menu eieio-oref] 4 "Retrieve the slot `menu' from an object of class `ede-project'.\n\n(fn THIS)"] \(setf\ ede-object-menu\) (value (this ede-project)) #[514 "\300
\301#\207" [eieio-oset menu] 6 "\n\n(fn VALUE THIS)"] ede-object-keybindings ((this (subclass ede-project))) #[257 "\300
\301\"\205\302
\301\"\207" [slot-boundp keybindings eieio-oref-default] 4 "Retrieve the class slot `keybindings' from a class `ede-project'.\nThis method is obsolete.\n\n(fn THIS)"] ((this ede-project)) #[257 "\300
\301\"\205\302
\301\"\207" [slot-boundp keybindings eieio-oref] 4 "Retrieve the slot `keybindings' from an object of class\n`ede-project'.\n\n(fn THIS)"] \(setf\ ede-object-keybindings\) (value (this ede-project)) #[514 "\300
\301#\207" [eieio-oset keybindings] 6 "\n\n(fn VALUE THIS)"]] 7)
#@68 Create a new object of class type `ede-project'.

(fn &rest SLOTS)
(defalias 'ede-project #[128 "\300\301\302#\207" [apply make-instance ede-project] 5 (#$ . 12893)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-project compiler-macro ede-project--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'ede-project--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 13176)])
#@76 For the project in which OBJ resides, execute FORMS.

(fn OBJ &rest FORMS)
(defalias 'ede-with-projectfile '(macro . #[385 "
9\204\n\300\301\"\210\302\303\304\305\306BB\307DFD\310B\311\312\313\314\"BBE\207" [message "Beware! ede-with-projectfile's first arg is copied: %S" let* pf if obj-of-class-p ('ede-target) ede-target-parent ((dbka (get-file-buffer (oref pf file)))) with-current-buffer (if (not dbka) (find-file-noselect (oref pf file)) dbka) append ((if (not dbka) (kill-buffer (current-buffer))))] 9 (#$ . 13406)]))
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\312\313DD\314\315\316\317\320&\207" [function-put ede-with-projectfile lisp-indent-function 1 put edebug-form-spec t custom-declare-variable ede-project-placeholder-cache-file funcall function #[0 "\300\301\302\"\207" [locate-user-emacs-file "ede-projects.el" ".projects.ede"] 3 ""] "File containing the list of projects EDE has viewed.\nIf set to nil, then the cache is not saved." :group ede :type file] 9)
#@44 List of project files EDE has seen before.
(defvar ede-project-cache-files nil (#$ . 14418))
#@57 Save a cache of EDE objects that Emacs has seen before.
(defalias 'ede-save-cache #[0 "\205w	\n\304C\3051o\306\307\"q\210\310 \210\311c\210
\203A
@\203:\312!\203:\313@\314\"\315
!\2039\316
\317\261\210\210
A\262\202\211\203S\320
@\317\261\210\211A\262
\202A\321c\210\3221b\323\324!0\210\202h\210\325\326\"\210\327p!0\202t\210\325\330\")\266\202\207" [ede-project-placeholder-cache-file ede-projects ede-project-cache-files recentf-exclude #[257 "\300\207" [t] 2 "\n\n(fn _)"] (error) find-file-noselect t erase-buffer ";; EDE project cache file.\n;; This contains a list of projects you have visited.\n(" ede-project-p eieio-oref file file-exists-p "\n  \"" "\"" "\n \"" "\n)\n" (error) save-buffer 0 message "File %s could not be saved." kill-buffer "File %s could not be read."] 6 (#$ . 14517) nil])
#@33 Load the cache of EDE projects.
(defalias 'ede-load-cache #[0 "\212\303\304!\3051Zr\211q\210\306 \210\307!\203\310!\210eb\210\311p!\312	\211\2036\313\314@\315\"\"\262\211A\262
\202!\203N\307@!\203G@B\262A\262\2026
\237\211\266\203)0\210\202[\210\211\205b\316
!\262
)\207" [ede-project-placeholder-cache-file ede-projects ede-project-cache-files get-buffer-create "*ede cache*" (error) erase-buffer file-exists-p insert-file-contents read nil delete eieio-oref file kill-buffer] 8 (#$ . 15348)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\300\310\302\316\302\317%\210\300\320\302\321\302\322%\210\300\320\302\323\302\324%\207" [cl-generic-define-method ede-subproject-relative-path nil ((proj ede-project) &optional parent-in) #[513 "\211\206\300!\301\302\303\"!
\203!
=\204!\304
\301\302\303\"!\"\207\305\207" [ede-parent-project file-name-directory eieio-oref file file-relative-name ""] 10 "Get a path name for PROJ which is relative to the parent project.\nIf PARENT is specified, then be relative to the PARENT project.\nSpecifying PARENT is useful for sub-sub projects relative to the root project.\n\n(fn PROJ &optional PARENT-IN)"] ede-subproject-p ((proj ede-project)) #[257 "\300
!\207" [ede-parent-project] 3 "Return non-nil if PROJ is a sub project.\n\n(fn PROJ)"] ede-name ((this ede-target)) #[257 "\300
\301\"\207" [eieio-oref name] 4 "Return the name of THIS target.\n\n(fn THIS)"] ede-target-name ((this ede-target)) #[257 "\300
\301\"\207" [eieio-oref name] 4 "Return the name of THIS target, suitable for make or debug style commands.\n\n(fn THIS)"] ((this ede-project)) #[257 "\300
\301\"\207" [eieio-oref name] 4 "Return a short-name for THIS project file.\nDo this by extracting the lowest directory name.\n\n(fn THIS)"] ede-description ((this ede-project)) #[257 "\300\301\302!\303\304\"G\303\305\"G$\207" [format "Project %s: %d subprojects, %d targets." ede-name eieio-oref subproj targets] 8 "Return a description suitable for the minibuffer about THIS.\n\n(fn THIS)"] ((this ede-target)) #[257 "\300\301\302!\303\304\"G#\207" [format "Target %s: with %d source files." ede-name eieio-oref source] 7 "Return a description suitable for the minibuffer about THIS.\n\n(fn THIS)"]] 6)
#@110 Return the header file for the current buffer.
Not all buffers need headers, so return nil if no applicable.
(defalias 'ede-header-file #[0 "\205\301p\"\207" [ede-object ede-buffer-header-file] 3 (#$ . 17683)])
(byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\207" [cl-generic-define-method ede-buffer-header-file nil ((_this ede-project) _buffer) #[514 "\300\207" [nil] 3 "Return nil, projects don't have header files.\n\n(fn THIS BUFFER)"] ((this ede-target) buffer) #[514 "r\211q\210\300\301\302\303#\203\304\305\224\305\225\"\2022\306!\302
\2030\211\2040\307@\310 \"\262

A\262\202\262
)\207" [re-search-forward "::Header:: \\([a-zA-Z0-9.]+\\)" nil t buffer-substring-no-properties 1 ede-target-sourcecode ede-buffer-header-file buffer-file-name] 7 "There are no default header files in EDE.\nDo a quick check to see if there is a Header tag in this buffer.\n\n(fn THIS BUFFER)"]] 6)
#@196 Return the documentation files for the current buffer.
Not all buffers need documentations, so return nil if no applicable.
Some projects may have multiple documentation files, so return a list.
(defalias 'ede-documentation-files #[0 "\205\301p\"\207" [ede-object ede-buffer-documentation-files] 3 (#$ . 18610)])
(byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\210\300\307\302\310\302\311%\210\300\307\302\312\302\313%\207" [cl-generic-define-method ede-buffer-documentation-files nil ((this ede-project) _buffer) #[514 "\300!\207" [ede-documentation] 4 "Return all documentation in project THIS based on BUFFER.\n\n(fn THIS BUFFER)"] ((_this ede-target) buffer) #[514 "r\211q\210\300\301\302\303#\203\304\305\224\305\225\"\202\306 \307
p\"\262
)\207" [re-search-forward "::Documentation:: \\([a-zA-Z0-9.]+\\)" nil t buffer-substring-no-properties 1 ede-toplevel ede-buffer-documentation-files] 6 "Check for some documentation files for THIS.\nAlso do a quick check to see if there is a Documentation tag in this BUFFER.\n\n(fn THIS BUFFER)"] ede-documentation ((this ede-project)) #[257 "\300
\301\"\300\302\"\303\203\304\305@!\"\262
A\262\202	
\2031\304\305@!\"\262

A\262\202\207" [eieio-oref targets subproj nil append ede-documentation] 7 "Return a list of files that provide documentation.\nDocumentation is not for object THIS, but is provided by THIS for other\nfiles in the project.\n\n(fn THIS)"] ((_this ede-target)) #[257 "\300\207" [nil] 2 "Return a list of files that provide documentation.\nDocumentation is not for object THIS, but is provided by THIS for other\nfiles in the project.\n\n(fn THIS)"]] 6)
#@73 Return a list of HTML documentation files associated with this project.
(defalias 'ede-html-documentation-files #[0 "\300\301 !\207" [ede-html-documentation ede-toplevel] 2 (#$ . 20279)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\207" [cl-generic-define-method ede-html-documentation nil ((_this ede-project)) #[257 "\300\207" ["Return a list of HTML files provided by project THIS."] 2 "\n\n(fn THIS)"] ede-want-file-p ((this ede-target) file) #[514 "\300!\211\203\301
@\"\204\211A\262
\202\207" [ede-target-sourcecode ede-want-file-p] 6 "Return non-nil if THIS target wants FILE.\n\n(fn THIS FILE)"] ede-want-file-source-p ((this ede-target) file) #[514 "\300!\211\203\301
@\"\204\211A\262
\202\207" [ede-target-sourcecode ede-want-file-source-p] 6 "Return non-nil if THIS target wants FILE.\n\n(fn THIS FILE)"] ede-target-sourcecode ((this ede-target)) #[257 "\300
\301\"\302
<\203
\203
@J
B\262

A\262\202\207" [eieio-oref sourcetype nil] 5 "Return the sourcecode objects which THIS permits.\n\n(fn THIS)"]] 6)
#@82 Run adebug against the current EDE project.
Display the results as a debug list.
(defalias 'ede-adebug-project #[0 "\300\301!\210\302 \205\303\304!\210\305\302 \306\"\207" [require data-debug ede-current-project data-debug-new-buffer "*Analyzer ADEBUG*" data-debug-insert-object-slots ""] 3 (#$ . 21406) nil])
#@89 Run adebug against the current EDE parent project.
Display the results as a debug list.
(defalias 'ede-adebug-project-parent #[0 "\300\301!\210\302 \205\303\304!\210\305\302 \306\"\207" [require data-debug ede-parent-project data-debug-new-buffer "*Analyzer ADEBUG*" data-debug-insert-object-slots ""] 3 (#$ . 21724) nil])
#@89 Run adebug against the current EDE parent project.
Display the results as a debug list.
(defalias 'ede-adebug-project-root #[0 "\300\301!\210\302 \205\303\304!\210\305\302 \306\"\207" [require data-debug ede-toplevel data-debug-new-buffer "*Analyzer ADEBUG*" data-debug-insert-object-slots ""] 3 (#$ . 22055) nil])
#@185 Return the ede project which is the root of the current project.
Optional argument SUBPROJ indicates a subproject to start from
instead of the current project.

(fn &optional SUBPROJ)
(defalias 'ede-toplevel #[256 "\211\204\206)\211\206\301 \211\203\302
!\206'\303
!\203&\303
!\262
\202\211\262
\207" [ede-object-root-project ede-current-project ede-project-root ede-parent-project] 4 (#$ . 22379)])
#@225 Fills :directory or :file slots if they're missing in project THIS.
The other slot will be used to calculate values.
PROJECT-FILE-NAME is a name of project file (short name, like `pom.xml', etc.

(fn THIS PROJECT-FILE-NAME)
(defalias 'ede-normalize-file/directory #[514 "\300\301\"\203\302\303\"\204)\300\304\"\203)\302\305\"\203)\306\303\307\302\305\"\"#\210\300\304\"\2038\302\305\"?\205Q\300\301\"\205Q\302\303\"\205Q\306\305\310\302\303\"!#\207" [slot-boundp :file eieio-oref file :directory directory eieio-oset expand-file-name file-name-directory] 10 (#$ . 22798)])
(provide 'ede/base)