;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(byte-code "\300\301!\210\300\302!\210\303\304!\204 \305\304\306\"\210\300\207" [require cl-lib package fboundp define-error defalias #[770 "\211\204 \300\262\211:\203 \301\302\303\304\"\"\202 \211\305NB\306\305\307\310B!!#\210\2052 \306\311#\207" [error apply append mapcar #[257 "\211\300N\206 \301\302\"B\207" [error-conditions error "Unknown signal `%s'"] 5 "\n\n(fn PARENT)"] error-conditions put delete-dups copy-sequence error-message] 11 "Define NAME as a new error signal.\nMESSAGE is a string that will be output to the echo area if such an error\nis signaled without being caught by a `condition-case'.\nPARENT is either a signal or a list of signals from which it inherits.\nDefaults to `error'.\n\n(fn NAME MESSAGE &optional PARENT)"]] 3)
#@147 Whether PACKAGE is a `package-desc' object.

Like `package-desc-p', but return nil, if `package-desc-p' is not
defined as function.

(fn PACKAGE)
(defalias 'epl--package-desc-p #[257 "\301\302!\205 \303!>\205 \304\207" [cl-struct-package-desc-tags fboundp package-desc-p type-of t] 3 (#$ . 858)])
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\"\210\307\312\313\310#\210\307\314\315\312#\207" [function-put epl--package-desc-p speed -1 put byte-optimizer byte-compile-inline-expand define-error epl-error "EPL error" epl-invalid-package "Invalid EPL package" epl-invalid-package-file "Invalid EPL package file"] 5)
#@32 Get the directory of packages.
(defalias 'epl-package-dir #[0 "\207" [package-user-dir] 1 (#$ . 1499)])
#@40 Get the default directory of packages.
(defalias 'epl-default-package-dir #[0 "\300\301\302N@!\207" [eval package-user-dir standard-value] 3 (#$ . 1610)])
#@64 Change the directory of packages to DIRECTORY.

(fn DIRECTORY)
(defalias 'epl-change-package-dir #[257 "\211\301 \207" [package-user-dir epl-initialize] 2 (#$ . 1771)])
#@41 Remember the load path for `epl-reset'.
(defvar epl--load-path-before-initialize nil (#$ . 1947))
#@126 Load Emacs Lisp packages and activate them.

With NO-ACTIVATE non-nil, do not activate packages.

(fn &optional NO-ACTIVATE)
(defalias 'epl-initialize #[256 "\302!\207" [load-path epl--load-path-before-initialize package-initialize] 3 (#$ . 2052)])
(defalias 'epl-refresh 'package-refresh-contents)
#@57 Add a package archive with NAME and URL.

(fn NAME URL)
(defalias 'epl-add-archive #[514 "\300\301B\"\207" [add-to-list package-archives] 6 (#$ . 2360)])
#@142 Reset the package system.

Clear the list of installed and available packages, the list of
package archives and reset the package directory.
(defalias 'epl-reset #[0 "\306\211\306\307\305!\203 \306\310\311 !\207" [package-alist package-archives package-archive-contents epl--load-path-before-initialize load-path package-obsolete-alist nil boundp epl-change-package-dir epl-default-package-dir] 3 (#$ . 2523)])
#@74 compiler-macro for inlining `epl-requirement-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epl-requirement-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-requirement-p (and (memq (type-of cl-x) cl-struct-epl-requirement-tags) t)) nil] 9 (#$ . 2947)])
(put 'epl-requirement-p 'compiler-macro 'epl-requirement-p--cmacro)
#@13 

(fn CL-X)
(defalias 'epl-requirement-p #[257 "\301!>\205	 \302\207" [cl-struct-epl-requirement-tags type-of t] 3 (#$ . 3311)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put epl-requirement-p side-effect-free error-free put epl-requirement cl-deftype-satisfies] 5)
#@77 compiler-macro for inlining `epl-requirement-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epl-requirement-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-requirement-name (progn (aref cl-x 1))) nil] 9 (#$ . 3605)])
(put 'epl-requirement-name 'compiler-macro 'epl-requirement-name--cmacro)
#@65 Access slot "name" of `epl-requirement' struct CL-X.

(fn CL-X)
(defalias 'epl-requirement-name #[257 "\211\300H\207" [1] 3 (#$ . 3945)])
(byte-code "\300\301\302\303#\300\207" [function-put epl-requirement-name side-effect-free t] 4)
#@80 compiler-macro for inlining `epl-requirement-version'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epl-requirement-version--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-requirement-version (progn (aref cl-x 2))) nil] 9 (#$ . 4186)])
(put 'epl-requirement-version 'compiler-macro 'epl-requirement-version--cmacro)
#@68 Access slot "version" of `epl-requirement' struct CL-X.

(fn CL-X)
(defalias 'epl-requirement-version #[257 "\211\300H\207" [2] 3 (#$ . 4541)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put epl-requirement-version side-effect-free t defalias copy-epl-requirement copy-sequence] 4)
#@98 compiler-macro for inlining `epl-requirement-create'.

(fn CL-WHOLE &cl-quote &key NAME VERSION)
(defalias 'epl-requirement-create--cmacro #[385 "\300\301\"A@\300\302\"A@\303\304\305\306\306&\207" [plist-member :name :version cl--defsubst-expand (name version) (cl-block epl-requirement-create (record 'epl-requirement name version)) nil] 12 (#$ . 4845)])
(put 'epl-requirement-create 'compiler-macro 'epl-requirement-create--cmacro)
#@76 Constructor for objects of type `epl-requirement'.

(fn &key NAME VERSION)
(defalias 'epl-requirement-create #[128 "\300\301\"A@\300\302\"A@\303\304#\207" [plist-member :name :version record epl-requirement] 7 (#$ . 5294)])
(byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303&	\207" [function-put epl-requirement-create side-effect-free t cl-struct-define epl-requirement "Structure describing a requirement.\n\nSlots:\n\n`name' The name of the required package, as symbol.\n\n`version' The version of the required package, as version list." cl-structure-object record nil ((cl-tag-slot) (name) (version)) cl-struct-epl-requirement-tags] 11)
#@60 The version of a REQUIREMENT, as string.

(fn REQUIREMENT)
(defalias 'epl-requirement-version-string #[257 "\300\301H!\207" [package-version-join 2] 4 (#$ . 5964)])
#@70 compiler-macro for inlining `epl-package-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epl-package-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-package-p (and (memq (type-of cl-x) cl-struct-epl-package-tags) t)) nil] 9 (#$ . 6136)])
(put 'epl-package-p 'compiler-macro 'epl-package-p--cmacro)
#@13 

(fn CL-X)
(defalias 'epl-package-p #[257 "\301!>\205	 \302\207" [cl-struct-epl-package-tags type-of t] 3 (#$ . 6476)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put epl-package-p side-effect-free error-free put epl-package cl-deftype-satisfies] 5)
#@73 compiler-macro for inlining `epl-package-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epl-package-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-package-name (progn (aref cl-x 1))) nil] 9 (#$ . 6754)])
(put 'epl-package-name 'compiler-macro 'epl-package-name--cmacro)
#@61 Access slot "name" of `epl-package' struct CL-X.

(fn CL-X)
(defalias 'epl-package-name #[257 "\211\300H\207" [1] 3 (#$ . 7074)])
(byte-code "\300\301\302\303#\300\207" [function-put epl-package-name side-effect-free t] 4)
#@80 compiler-macro for inlining `epl-package-description'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epl-package-description--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-package-description (progn (aref cl-x 2))) nil] 9 (#$ . 7303)])
(put 'epl-package-description 'compiler-macro 'epl-package-description--cmacro)
#@68 Access slot "description" of `epl-package' struct CL-X.

(fn CL-X)
(defalias 'epl-package-description #[257 "\211\300H\207" [2] 3 (#$ . 7658)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put epl-package-description side-effect-free t defalias copy-epl-package copy-sequence] 4)
#@98 compiler-macro for inlining `epl-package-create'.

(fn CL-WHOLE &cl-quote &key NAME DESCRIPTION)
(defalias 'epl-package-create--cmacro #[385 "\300\301\"A@\300\302\"A@\303\304\305\306\306&\207" [plist-member :name :description cl--defsubst-expand (name description) (cl-block epl-package-create (record 'epl-package name description)) nil] 12 (#$ . 7958)])
(put 'epl-package-create 'compiler-macro 'epl-package-create--cmacro)
#@76 Constructor for objects of type `epl-package'.

(fn &key NAME DESCRIPTION)
(defalias 'epl-package-create #[128 "\300\301\"A@\300\302\"A@\303\304#\207" [plist-member :name :description record epl-package] 7 (#$ . 8399)])
(byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303&	\207" [function-put epl-package-create side-effect-free t cl-struct-define epl-package "Structure representing a package.\n\nSlots:\n\n`name' The package name, as symbol.\n\n`description' The package description.\n\nThe format package description varies between package.el\nvariants.  For `package-desc' variants, it is simply the\ncorresponding `package-desc' object.  For legacy variants, it is\na vector `[VERSION REQS DOCSTRING]'.\n\nDo not access `description' directly, but instead use the\n`epl-package' accessors." cl-structure-object record nil ((cl-tag-slot) (name) (description)) cl-struct-epl-package-tags] 11)
#@218 Cast VAR to a package description in BODY.

VAR is a symbol, bound to an `epl-package' object.  This macro
casts this object to the `description' object, and binds the
description to VAR in BODY.

(fn VAR &rest BODY)
(defalias 'epl-package-as-description '(macro . #[385 "9\204\f \300\301\302D\"\210\303\304D\305\306DDCBB\300\307\310\311EEF\207" [signal wrong-type-argument symbolp if epl-package-p let epl-package-description 'wrong-type-argument list #'epl-package-p] 10 (#$ . 9324)]))
(byte-code "\300\301\302\303#\300\207" [function-put epl-package-as-description lisp-indent-function 1] 4)
#@71 Whether the description of PACKAGE is a `package-desc'.

(fn PACKAGE)
(defalias 'epl-package--package-desc-p #[257 "\211\301H\302\303!\205 \304!>\205 \305\207" [cl-struct-package-desc-tags 2 fboundp package-desc-p type-of t] 4 (#$ . 9934)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put epl-package--package-desc-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@60 Get the version of PACKAGE, as version list.

(fn PACKAGE)
(defalias 'epl-package-version #[257 "\302!>\203< \211\303H\304\305!\203$ \302!	>\204  \306\307\310D\"\210\211\303H\207\304\311!\2037 \311!\211<\2033 \207\312!\207\313\314\"\207\306\307\315D\"\207" [cl-struct-epl-package-tags cl-struct-package-desc-tags type-of 2 fboundp package-desc-version signal wrong-type-argument package-desc package-desc-vers version-to-list error "Cannot get version from %S" epl-package-p] 6 (#$ . 10338)])
#@58 Get the version from a PACKAGE, as string.

(fn PACKAGE)
(defalias 'epl-package-version-string #[257 "\300\301!!\207" [package-version-join epl-package-version] 4 (#$ . 10845)])
#@54 Get the summary of PACKAGE, as string.

(fn PACKAGE)
(defalias 'epl-package-summary #[257 "\302!>\2033 \211\303H\304\305!\203$ \302!	>\204  \306\307\310D\"\210\211\311H\207\304\312!\203. \312!\207\313\314\"\207\306\307\315D\"\207" [cl-struct-epl-package-tags cl-struct-package-desc-tags type-of 2 fboundp package-desc-summary signal wrong-type-argument package-desc 3 package-desc-doc error "Cannot get summary from %S" epl-package-p] 6 (#$ . 11030)])
#@65 Create a `epl-requirement' from a `package-desc' REQ.

(fn REQ)
(defalias 'epl-requirement--from-req #[257 "\211A@\300\301@\302<\203 \202 \303!$\207" [epl-requirement-create :name :version version-to-list] 8 (#$ . 11495)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put epl-requirement--from-req speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@107 Get the requirements of PACKAGE.

The requirements are a list of `epl-requirement' objects.

(fn PACKAGE)
(defalias 'epl-package-requirements #[257 "\302!>\203! \211\303H\304\305\302!	>\204 \306\307\310D\"\210\311H\"\207\306\307\312D\"\207" [cl-struct-epl-package-tags cl-struct-package-desc-tags type-of 2 mapcar epl-requirement--from-req signal wrong-type-argument package-desc 4 epl-package-p] 8 (#$ . 11882)])
#@163 Get the directory PACKAGE is installed to.

Return the absolute path of the installation directory of
PACKAGE, or nil, if PACKAGE is not installed.

(fn PACKAGE)
(defalias 'epl-package-directory #[257 "\301\302!\203 \303\304H!>\204 \305\306\307\304HD\"\210\211\304H\310H\207\301\311!\2030 \311\312\313H!\314!\"\207\315\316\"\207" [cl-struct-package-desc-tags fboundp package-desc-dir type-of 2 signal wrong-type-argument package-desc 7 package--dir symbol-name 1 epl-package-version-string error "Cannot get package directory from %S"] 6 (#$ . 12310)])
#@67 Determine whether PKG1 is before PKG2 by version.

(fn PKG1 PKG2)
(defalias 'epl-package-->= #[514 "\300\301!\301!\"?\207" [version-list-< epl-package-version] 6 (#$ . 12877)])
#@140 Create an `epl-package' from a PACKAGE-DESC.

PACKAGE-DESC is a `package-desc' object, from recent package.el
variants.

(fn PACKAGE-DESC)
(defalias 'epl-package--from-package-desc #[257 "\301\302!\2032 \211\301\303!\205 \304!>\205 \305\262\2032 \306\307\304!>\204, \310\311\312D\"\210\313H#\207\310\311\314D\"\207" [cl-struct-package-desc-tags fboundp package-desc-name package-desc-p type-of t record epl-package signal wrong-type-argument package-desc 1 epl--package-desc-p] 7 (#$ . 13063)])
#@37 Parse a package.el INFO.

(fn INFO)
(defalias 'epl-package--parse-info #[257 "\211\301\302!\205 \303!>\205 \304\262\203 \305!\207\306\307H!\310\311H\312H\313H#\314\315#\207" [cl-struct-package-desc-tags fboundp package-desc-p type-of t epl-package--from-package-desc intern 0 vector 3 1 2 record epl-package] 7 (#$ . 13575)])
#@191 Create an `epl-package' object from BUFFER.

BUFFER defaults to the current buffer.

Signal `epl-invalid-package' if the buffer does not contain a
valid package file.

(fn &optional BUFFER)
(defalias 'epl-package-from-buffer #[256 "r\211\206 pq\210\3001 \301 0\202 \302\303A\"\262)\304!\207" [(error) package-buffer-info signal epl-invalid-package epl-package--parse-info] 5 (#$ . 13921)])
#@124 Parse the package headers the file at FILE-NAME.

Return an `epl-package' object with the header metadata.

(fn FILE-NAME)
(defalias 'epl-package-from-lisp-file #[257 "\300\301\302\"r\211q\210\303\304\"\216\305!\210\3061. \3071! \310p!00\2026 0\311\312AB\"\262\2026 \311@A\"\262*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents (error) (epl-invalid-package) epl-package-from-buffer signal epl-invalid-package-file] 7 (#$ . 14324)])
#@144 Parse the package tarball at FILE-NAME.

Return a `epl-package' object with the meta data of the tarball
package in FILE-NAME.

(fn FILE-NAME)
(defalias 'epl-package-from-tar-file #[257 "\3001 \301\302!!0\207\210\303\304\305\"r\211q\210\306\307\"\216\310!\210\311 \210\301\302 !*\207" [(wrong-number-of-arguments) epl-package--parse-info package-tar-file-info generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents-literally tar-mode] 5 (#$ . 14862)])
#@129 Parse the package at FILE-NAME.

Return an `epl-package' object with the meta data of the package
at FILE-NAME.

(fn FILE-NAME)
(defalias 'epl-package-from-file #[257 "\301\302\303\304#)\266\203\203 \305!\207\306!\207" [inhibit-changing-match-data "\\.tar\\'" nil t string-match epl-package-from-tar-file epl-package-from-lisp-file] 8 (#$ . 15403)])
#@64 Parse a REQUIREMENT in a package descriptor.

(fn REQUIREMENT)
(defalias 'epl-package--parse-descriptor-requirement #[257 "\211\211A\262\242\242\300!D\207" [version-to-list] 7 (#$ . 15767)])
#@171 Load a `epl-package' from a package DESCRIPTOR-FILE.

A package descriptor is a file defining a new package.  Its name
typically ends with -pkg.el.

(fn DESCRIPTOR-FILE)
(defalias 'epl-package-from-descriptor-file #[257 "\301\302\303\"r\211q\210\304\305\"\216\306!\210eb\210\307p!\211@\310=\204# \311\312\"\210\313\314!\203O \313\315!\203O \316\314A\"\317\320\321!>\204E \322\323\324D\"\210\325H#\262\202~ \211A\211A\262\242\211A\262\242\211A\262\242\242\326\327\330!\331\332\333!\334\335A@\"#$\266\205\262*\207" [cl-struct-package-desc-tags generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents read define-package error "%S is no valid package descriptor" fboundp package-desc-from-define package-desc-name apply record epl-package type-of signal wrong-type-argument package-desc 1 epl-package-create :name intern :description vector version-to-list mapcar epl-package--parse-descriptor-requirement] 17 (#$ . 15970)])
#@260 Determine whether a PACKAGE, of MIN-VERSION or newer, is installed.

PACKAGE is either a package name as symbol, or a package object.
When a explicit MIN-VERSION is provided it overwrites the version of the PACKAGE object.

(fn PACKAGE &optional MIN-VERSION)
(defalias 'epl-package-installed-p #[513 "\301!>\203 \302H\202 \206 \301!>\205 \303!\304\"\207" [cl-struct-epl-package-tags type-of 1 epl-package-version package-installed-p] 7 (#$ . 17002)])
#@112 Parse an ENTRY from the list of built-in packages.

Return the corresponding `epl-package' object.

(fn ENTRY)
(defalias 'epl--parse-built-in-entry #[257 "\300\301!\203\f \302\301!!\207\303\304@A#\207" [fboundp package--from-builtin epl-package--from-package-desc record epl-package] 5 (#$ . 17474)])
#@69 Get all built-in packages.

Return a list of `epl-package' objects.
(defalias 'epl-built-in-packages #[0 "\301\302!\210\303\304\"\207" [package--builtins package-built-in-p foo mapcar epl--parse-built-in-entry] 3 (#$ . 17784)])
#@187 Find a built-in package with NAME.

NAME is a package name, as symbol.

Return the built-in package as `epl-package' object, or nil if
there is no built-in package with NAME.

(fn NAME)
(defalias 'epl-find-built-in-package #[257 "\301!\205 \302\236!\207" [package--builtins package-built-in-p epl--parse-built-in-entry] 4 (#$ . 18020)])
#@402 Determine whether a PACKAGE is outdated.

A package is outdated, if there is an available package with a
higher version.

PACKAGE is either a package name as symbol, or a package object.
In the former case, test the installed or built-in package with
the highest version number, in the later case, test the package
object itself.

Return t, if the package is outdated, or nil otherwise.

(fn PACKAGE)
(defalias 'epl-package-outdated-p #[257 "\301!>\203\f \211\202 \302!@\206 \303!\304\305H!@\205, \211\205, \306\307!\307!\"\207" [cl-struct-epl-package-tags type-of epl-find-installed-packages epl-find-built-in-package epl-find-available-packages 1 version-list-< epl-package-version] 7 (#$ . 18368)])
#@345 Parse a list of packages from ENTRY.

ENTRY is a single entry in a package list, e.g. `package-alist',
`package-archive-contents', etc.  Typically it is a cons cell,
but the exact format varies between package.el versions.  This
function tries to parse all known variants.

Return a list of `epl-package' objects parsed from ENTRY.

(fn ENTRY)
(defalias 'epl--parse-package-list-entry #[257 "\211A\211<\203 \300\301\302\"\303\"\207\304!\203 \305\306@#C\207\307\310\"\207" [sort mapcar epl-package--from-package-desc epl-package-->= vectorp record epl-package error "Cannot parse entry %S"] 6 (#$ . 19087)])
#@64 Get all installed packages.

Return a list of package objects.
(defalias 'epl-installed-packages #[0 "\301\302\303\304\"\"\207" [package-alist apply append mapcar epl--parse-package-list-entry] 5 (#$ . 19707)])
#@56 Filter outdated packages from PACKAGES.

(fn PACKAGES)
(defalias 'epl--filter-outdated-packages #[257 "\300\211\203 \211@\301!\203 \211B\262A\266\202\202 \210\211\237\207" [nil epl-package-outdated-p] 6 (#$ . 19925)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put epl--filter-outdated-packages speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@95 Get all outdated packages, as in `epl-package-outdated-p'.

Return a list of package objects.
(defalias 'epl-outdated-packages #[0 "\300 \301\211\203 \211@\302!\203 \211B\262A\266\202\202 \210\211\237\207" [epl-installed-packages nil epl-package-outdated-p] 6 (#$ . 20312)])
#@114 Find a package by NAME in a package LIST.

Return a list of corresponding `epl-package' objects.

(fn NAME LIST)
(defalias 'epl--find-package-in-list #[514 "\236\211\205\n \300!\207" [epl--parse-package-list-entry] 5 (#$ . 20602)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put epl--find-package-in-list speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@224 Find the latest installed package by NAME.

NAME is a package name, as symbol.

Return the installed package with the highest version number as
`epl-package' object, or nil, if no package with NAME is
installed.

(fn NAME)
(defalias 'epl-find-installed-package #[257 "\300!@\207" [epl-find-installed-packages] 3 (#$ . 20995)])
(make-obsolete 'epl-find-installed-package 'epl-find-installed-packages "0.7")
#@232 Find all installed packages by NAME.

NAME is a package name, as symbol.

Return a list of all installed packages with NAME, sorted by
version number in descending order.  Return nil, if there are no
packages with NAME.

(fn NAME)
(defalias 'epl-find-installed-packages #[257 "\211\236\211\205\f \301!\207" [package-alist epl--parse-package-list-entry] 6 (#$ . 21409)])
#@81 Get all packages available for installation.

Return a list of package objects.
(defalias 'epl-available-packages #[0 "\301\302\303\304\"\"\207" [package-archive-contents apply append mapcar epl--parse-package-list-entry] 5 (#$ . 21789)])
#@223 Find available packages for NAME.

NAME is a package name, as symbol.

Return a list of available packages for NAME, sorted by version
number in descending order.  Return nil, if there are no packages
for NAME.

(fn NAME)
(defalias 'epl-find-available-packages #[257 "\211\236\211\205\f \301!\207" [package-archive-contents epl--parse-package-list-entry] 6 (#$ . 22036)])
#@70 compiler-macro for inlining `epl-upgrade-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epl-upgrade-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-upgrade-p (and (memq (type-of cl-x) cl-struct-epl-upgrade-tags) t)) nil] 9 (#$ . 22418)])
(put 'epl-upgrade-p 'compiler-macro 'epl-upgrade-p--cmacro)
#@13 

(fn CL-X)
(defalias 'epl-upgrade-p #[257 "\301!>\205	 \302\207" [cl-struct-epl-upgrade-tags type-of t] 3 (#$ . 22759)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put epl-upgrade-p side-effect-free error-free put epl-upgrade cl-deftype-satisfies] 5)
#@78 compiler-macro for inlining `epl-upgrade-installed'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epl-upgrade-installed--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-upgrade-installed (progn (aref cl-x 1))) nil] 9 (#$ . 23038)])
(put 'epl-upgrade-installed 'compiler-macro 'epl-upgrade-installed--cmacro)
#@66 Access slot "installed" of `epl-upgrade' struct CL-X.

(fn CL-X)
(defalias 'epl-upgrade-installed #[257 "\211\300H\207" [1] 3 (#$ . 23384)])
(byte-code "\300\301\302\303#\300\207" [function-put epl-upgrade-installed side-effect-free t] 4)
#@78 compiler-macro for inlining `epl-upgrade-available'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epl-upgrade-available--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-upgrade-available (progn (aref cl-x 2))) nil] 9 (#$ . 23629)])
(put 'epl-upgrade-available 'compiler-macro 'epl-upgrade-available--cmacro)
#@66 Access slot "available" of `epl-upgrade' struct CL-X.

(fn CL-X)
(defalias 'epl-upgrade-available #[257 "\211\300H\207" [2] 3 (#$ . 23975)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put epl-upgrade-available side-effect-free t defalias copy-epl-upgrade copy-sequence] 4)
#@101 compiler-macro for inlining `epl-upgrade-create'.

(fn CL-WHOLE &cl-quote &key INSTALLED AVAILABLE)
(defalias 'epl-upgrade-create--cmacro #[385 "\300\301\"A@\300\302\"A@\303\304\305\306\306&\207" [plist-member :installed :available cl--defsubst-expand (installed available) (cl-block epl-upgrade-create (record 'epl-upgrade installed available)) nil] 12 (#$ . 24271)])
(put 'epl-upgrade-create 'compiler-macro 'epl-upgrade-create--cmacro)
#@79 Constructor for objects of type `epl-upgrade'.

(fn &key INSTALLED AVAILABLE)
(defalias 'epl-upgrade-create #[128 "\300\301\"A@\300\302\"A@\303\304#\207" [plist-member :installed :available record epl-upgrade] 7 (#$ . 24725)])
(byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303&	\207" [function-put epl-upgrade-create side-effect-free t cl-struct-define epl-upgrade "Structure describing an upgradable package.\nSlots:\n\n`installed' The installed package\n\n`available' The package available for installation." cl-structure-object record nil ((cl-tag-slot) (installed) (available)) cl-struct-epl-upgrade-tags] 11)
#@221 Find all upgradable PACKAGES.

PACKAGES is a list of package objects to upgrade, defaulting to
all installed packages.

Return a list of `epl-upgrade' objects describing all upgradable
packages.

(fn &optional PACKAGES)
(defalias 'epl-find-upgrades #[256 "\211\206 \300 \301\211\203> \211@\302!\303H\304!@\211\205 \302!\211\2035 \305\"\2035 \306\307#B\262\266A\266\202\202 \210\211\237\207" [epl-installed-packages nil epl-package-version 1 epl-find-available-packages version-list-< record epl-upgrade] 13 (#$ . 25370)])
(defalias 'epl-built-in-p 'package-built-in-p)
#@70 Install a package from FILE, like `package-install-file'.

(fn FILE)
(defalias 'epl-install-file #[257 "\301\302C\"\210\303!\211\211\304H\305\306!\205 \307!>\205 \310\266\202?\205% \311!\207" [cl-struct-package-desc-tags apply package-install-file epl-package-from-file 2 fboundp package-desc-p type-of t epl--kill-autoload-buffer] 6 (#$ . 25963) (byte-code "\300\301\302!A@!\207" [advice-eval-interactive-spec interactive-form package-install-file] 3)])
#@70 Kill the buffer associated with autoloads for PACKAGE.

(fn PACKAGE)
(defalias 'epl--kill-autoload-buffer #[257 "\301\302\303H\"\304\305!\"\306!\211\205 \307!)\207" [generated-autoload-file format "%s-autoloads.el" 1 expand-file-name epl-package-directory find-buffer-visiting kill-buffer] 6 (#$ . 26431)])
#@168 Install a PACKAGE.

PACKAGE is a `epl-package' object.  If FORCE is given and
non-nil, install PACKAGE, even if it is already installed.

(fn PACKAGE &optional FORCE)
(defalias 'epl-package-install #[513 "\211\204 \301!?\2052 \211\302H\303\304!\205 \305!>\205 \306\266\202\203) \307\302H!\207\307\310H!\210\311!\207" [cl-struct-package-desc-tags epl-package-installed-p 2 fboundp package-desc-p type-of t package-install 1 epl--kill-autoload-buffer] 6 (#$ . 26752)])
#@79 Delete a PACKAGE.

PACKAGE is a `epl-package' object to delete.

(fn PACKAGE)
(defalias 'epl-package-delete #[257 "\303\211\211\304H\305\306!\205 \307!	>\205 \310\266\202\203\" \311\304H!\202B \312\313H!\314!\311\"\210\313H\n\236\211\205> \315\n\"\211\262\266\202)\207" [delete-by-moving-to-trash cl-struct-package-desc-tags package-alist nil 2 fboundp package-desc-p type-of t package-delete symbol-name 1 epl-package-version-string delq] 7 (#$ . 27235)])
#@321 Upgrade PACKAGES.

PACKAGES is a list of package objects to upgrade, defaulting to
all installed packages.

The old versions of the updated packages are deleted, unless
PRESERVE-OBSOLETE is non-nil.

Return a list of all performed upgrades, as a list of
`epl-upgrade' objects.

(fn &optional PACKAGES PRESERVE-OBSOLETE)
(defalias 'epl-upgrade #[512 "\300!\211\211\203\" \211@\301\302H\303\"\210\204 \304\305H!\210A\266\202\202 \210\207" [epl-find-upgrades epl-package-install 2 force epl-package-delete 1] 8 (#$ . 27712)])
(provide 'epl)