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


#@244 Takes a path item (a string) and adds it to load path in the
correct position for an add-on package, before the emacs system
directories, but after the /usr/local/ directories.  After modifying
load-path, returns the new load-path.

(fn ITEM)
(defalias 'debian-pkg-add-load-path-item #[257 "\301\302\211\203\211@\203\303\304@\"\203\262T\262A\202
\204'\305\306!\210\302\301\211:\203I\211@B\262A
U\203BB\262
T\262\202*\237\211\207" [load-path 0 nil string-match "^/usr/local" error "No /usr/local/ prefixed paths in load-path"] 10 (#$ . 84)])#@96 Takes a list of strings and returns the list with *adjacent*
duplicates removed.

(fn STRINGS)
(defalias 'debian-unique-strings #[257 "\300
:\203
@A@\230\204
@
B\262

A\262\202
\237\207" [nil] 4 (#$ . 659)])#@321 Load each file of the form XXfilename.el or XXfilename.elc in any
of the dirs, where XX must be a number.  The files will be run in
alphabetical order.  If a file appears in more than one of the dirs,
then the earlier dir takes precedence, and a .elc file always
supercedes a .el file of the same name.

(fn &rest DIRS)#@12 

(fn DIR)#@13 

(fn FILE)
(defalias 'debian-run-directories #[128 "\301\302\"\303\304\301\305\"\"\301\306\301\307\"\"\310\311\312\"!\304\"\313\314\"\210\211\2053\211@\315
\"\210A\202#\207" [load-path mapcar copy-sequence apply append #[257 "\300
\301\302\303$\207" [directory-files nil "^[0-9][0-9].*\\.elc?$" t] 6 (#$ . 1205)] #[257 "\300\301\"\203\f\211\302\303O\207\300\304\"\203\211\302\305O\207\207" [string-match "\\.el$" 0 -3 "\\.elc$" -4] 4 (#$ . 1221)] #[257 "\300
!\207" [file-name-nondirectory] 3 (#$ . 1221)] debian-unique-strings sort string< mapc #[257 "\3001\n\301
\302\"0\207\303\304\305!#\207" [(error) load nil message "Error while loading %s: %s" error-message-string] 7 (#$ . 1221)] remq] 10 (#$ . 880)])#@15 

(fn FLAVOR)
(defalias 'debian-startup #[257 "\300\301\302\303!\"!\207" [debian-run-directories format "/etc/%s/site-start.d" symbol-name] 6 (#$ . 1958)])