search

syl20bnr / spacemacs

A community-driven Emacs distribution - The best editor is neither Emacs nor Vim, it's Emacs *and* Vim!
http://spacemacs.org
GNU General Public License v3.0
23.64k stars 4.89k forks source link

Can't reach melpa.org and other mirors from develop branch #13171

Closed n-raymond closed 4 years ago

n-raymond commented 4 years ago

Hi !

Description :octocat:

I am curently using spacemacs on the develop branch. I have faced a problem recently when adding a new layer to my dotfile: Spacemacs does not reach melpa.org and other mirors when trying to download modules needed by the layer during the initialization. I first suspected a problem of proxy or firewall since I was doing this operation from work but the same thing was happening from my home where I don't have those constraints. I then noted this behaviour was not occuring on the master branch, so I tried to find the commit that introduced it using git bissect and found it was commit 21551b6995e38110ce61fec58f608aa180b1d4fc. I also created a local branch from develop and reverted this commit and it solved my problem.

I haven't really understood the goal of this commit but it clearly introduced a bug so I wanted to share this with you guys !

Reproduction guide :beetle:

Observed behaviour: :eyes: :broken_heart:

Spacemacs can't reach melpa.org and other mirors, leading to timeouts when trying to download new pacakges. The following message appears in *spacemacs* buffer: 

Errors:
    - An error occurred while installing attrap (error: (file-error make client process failed Connection timed out :name melpa.org :buffer #<killed buffer> :host 10.49.64.5 :service 8080 :nowait nil :tls-parameters nil))
    - An error occurred while installing cmm-mode (error: (file-error Failed connect Connection timed out))
    - An error occurred while installing company-cabal (error: (file-error Failed connect Connection timed out))
    - An error occurred while installing company-ghc (error: (file-error Failed connect Connection timed out))
    - An error occurred while installing company-ghci (error: (file-error Failed connect Connection timed out))
    - An error occurred while installing dante (error: (file-error Failed connect Connection timed out))
    - An error occurred while installing flycheck-haskell (error: (file-error Failed connect Connection timed out))
    - An error occurred while installing ghc (error: (file-error Failed connect Connection timed out))
    - An error occurred while installing haskell-mode (error: (file-error Failed connect Connection timed out))
    - An error occurred while installing haskell-snippets (error: (file-error Failed connect Connection timed out))
    - An error occurred while installing helm-hoogle (error: (file-error Failed connect Connection timed out))
    - An error occurred while installing hindent (error: (file-error Failed connect Connection timed out))
    - An error occurred while installing hlint-refactor (error: (file-error Failed connect Connection timed out))
    - An error occurred while installing intero (error: (file-error Failed connect Connection timed out))
    - An error occurred while installing lsp-haskell (error: (file-error Failed connect Connection timed out))
    [...]

Expected behaviour: :heart: :smile:

The initialization phase should succeed to download those package and spacemacs should start normally.

System Info :computer:

Backtrace :paw_prints:

It was a real pain to get those debug traces using the --debug-init option: Since the initialization phase was not done, the key bindings was only partially working (I'm a evil user) and no transiant state menu was openning... I finally succeeded in copying a part of the buffer but I suspect this is not the complete log. Sorry for that!

Debugger entered--Lisp error: (file-error "make client process failed" "Connection timed out" :name "melpa.org" :buffer #<killed buffer> :host "10.49.64.5" :service 8080 :nowait nil :tls-parameters nil)
  signal(file-error ("make client process failed" "Connection timed out" :name "melpa.org" :buffer #<killed buffer> :host "10.49.64.5" :service 8080 :nowait nil :tls-parameters nil))
*   debugger-may-continue = t
*   inhibit-redisplay = nil
*   inhibit-debugger = t
*   inhibit-changing-match-data = nil
  package-install-from-archive(#s(package-desc :name attrap :version (20191119 1515) :summary "ATtempt To Repair At Point" :reqs ((dash (2 12 0)) (emacs (25 1)) (f (0 19 0)) (flycheck (0 30)) (s (1 11 0))) :kind single :archive "melpa" :dir nil :extras ((:commit . "12e234aeb16e190435133b29e93c69c67ec1ee6b") (:keywords "programming" "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/attrap")) :signed nil))
* mapc(package-install-from-archive (#s(package-desc :name attrap :version (20191119 1515) :summary "ATtempt To Repair At Point" :reqs ((dash (2 12 0)) (emacs (25 1)) (f (0 19 0)) (flycheck (0 30)) (s (1 11 0))) :kind single :archive "melpa" :dir nil :extras ((:commit . "12e234aeb16e190435133b29e93c69c67ec1ee6b") (:keywords "programming" "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/attrap")) :signed nil)))
* package-download-transaction((#s(package-desc :name attrap :version (20191119 1515) :summary "ATtempt To Repair At Point" :reqs ((dash (2 12 0)) (emacs (25 1)) (f (0 19 0)) (flycheck (0 30)) (s (1 11 0))) :kind single :archive "melpa" :dir nil :extras ((:commit . "12e234aeb16e190435133b29e93c69c67ec1ee6b") (:keywords "programming" "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/attrap")) :signed nil)))
  #f(compiled-function (pkg &optional dont-select) "Install the package PKG.\nPKG can be a `package-desc' or a symbol naming one of the available packages\nin an archive in `package-archives'.  Interactively, prompt for its name.\n\nIf called interactively or if DONT-SELECT nil, add PKG to\n`package-selected-packages'.\n\nIf PKG is a `package-desc' and it is already installed, don't try\nto install it but still mark it as selected." (interactive #f(compiled-function () #<bytecode 0x1b78279>)) #<bytecode 0x136046d>)(#s(package-desc :name attrap :version (20191119 1515) :summary "ATtempt To Repair At Point" :reqs ((dash (2 12 0)) (emacs (25 1)) (f (0 19 0)) (flycheck (0 30)) (s (1 11 0))) :kind single :archive "melpa" :dir nil :extras ((:commit . "12e234aeb16e190435133b29e93c69c67ec1ee6b") (:keywords "programming" "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/attrap")) :signed nil))
  apply(#f(compiled-function (pkg &optional dont-select) "Install the package PKG.\nPKG can be a `package-desc' or a symbol naming one of the available packages\nin an archive in `package-archives'.  Interactively, prompt for its name.\n\nIf called interactively or if DONT-SELECT nil, add PKG to\n`package-selected-packages'.\n\nIf PKG is a `package-desc' and it is already installed, don't try\nto install it but still mark it as selected." (interactive #f(compiled-function () #<bytecode 0x1b79b05>)) #<bytecode 0x136046d>) #s(package-desc :name attrap :version (20191119 1515) :summary "ATtempt To Repair At Point" :reqs ((dash (2 12 0)) (emacs (25 1)) (f (0 19 0)) (flycheck (0 30)) (s (1 11 0))) :kind single :archive "melpa" :dir nil :extras ((:commit . "12e234aeb16e190435133b29e93c69c67ec1ee6b") (:keywords "programming" "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/attrap")) :signed nil))
  (if (or patched (eq (quote org-plus-contrib) name)) (if (package-installed-p name) nil (apply func args)) (apply func args))
  (let ((name (if (and (memq (type-of pkg) cl-struct-package-desc-tags) t) (progn (or (and (memq ... cl-struct-package-desc-tags) t) (signal (quote wrong-type-argument) (list ... pkg))) (aref pkg 1)) pkg))) (if (or patched (eq (quote org-plus-contrib) name)) (if (package-installed-p name) nil (apply func args)) (apply func args)))
  (let* ((pkg (car args)) (patched (cond ((and (symbolp pkg) (eq (quote org) pkg)) (setcar args (quote org-plus-contrib)) t) ((and (and (memq ... cl-struct-package-desc-tags) t) (eq (quote org) (progn ... ...))) (progn (or (and ... t) (signal ... ...)) (let* (...) (aset v 1 ...))) t) ((and (and (memq ... cl-struct-package-desc-tags) t) (assq (quote org) (progn ... ...))) (let* ((v ...)) (setcar v (quote org-plus-contrib))) t)))) (let ((name (if (and (memq (type-of pkg) cl-struct-package-desc-tags) t) (progn (or (and ... t) (signal ... ...)) (aref pkg 1)) pkg))) (if (or patched (eq (quote org-plus-contrib) name)) (if (package-installed-p name) nil (apply func args)) (apply func args))))
  configuration-layer//package-install-org(#f(compiled-function (pkg &optional dont-select) "Install the package PKG.\nPKG can be a `package-desc' or a symbol naming one of the available packages\nin an archive in `package-archives'.  Interactively, prompt for its name.\n\nIf called interactively or if DONT-SELECT nil, add PKG to\n`package-selected-packages'.\n\nIf PKG is a `package-desc' and it is already installed, don't try\nto install it but still mark it as selected." (interactive #f(compiled-function () #<bytecode 0x1b8144d>)) #<bytecode 0x136046d>) #s(package-desc :name attrap :version (20191119 1515) :summary "ATtempt To Repair At Point" :reqs ((dash (2 12 0)) (emacs (25 1)) (f (0 19 0)) (flycheck (0 30)) (s (1 11 0))) :kind single :archive "melpa" :dir nil :extras ((:commit . "12e234aeb16e190435133b29e93c69c67ec1ee6b") (:keywords "programming" "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/attrap")) :signed nil))
  apply(configuration-layer//package-install-org #f(compiled-function (pkg &optional dont-select) "Install the package PKG.\nPKG can be a `package-desc' or a symbol naming one of the available packages\nin an archive in `package-archives'.  Interactively, prompt for its name.\n\nIf called interactively or if DONT-SELECT nil, add PKG to\n`package-selected-packages'.\n\nIf PKG is a `package-desc' and it is already installed, don't try\nto install it but still mark it as selected." (interactive #f(compiled-function () #<bytecode 0x1b825d1>)) #<bytecode 0x136046d>) #s(package-desc :name attrap :version (20191119 1515) :summary "ATtempt To Repair At Point" :reqs ((dash (2 12 0)) (emacs (25 1)) (f (0 19 0)) (flycheck (0 30)) (s (1 11 0))) :kind single :archive "melpa" :dir nil :extras ((:commit . "12e234aeb16e190435133b29e93c69c67ec1ee6b") (:keywords "programming" "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/attrap")) :signed nil))
  package-install(#s(package-desc :name attrap :version (20191119 1515) :summary "ATtempt To Repair At Point" :reqs ((dash (2 12 0)) (emacs (25 1)) (f (0 19 0)) (flycheck (0 30)) (s (1 11 0))) :kind single :archive "melpa" :dir nil :extras ((:commit . "12e234aeb16e190435133b29e93c69c67ec1ee6b") (:keywords "programming" "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/attrap")) :signed nil))
  (if pkg-desc (package-install (car (cdr pkg-desc))) (package-install pkg-name))
  (let ((pkg-desc (assq pkg-name package-archive-contents))) (let ((--dolist-tail-- (configuration-layer//get-package-deps-from-archive pkg-name)) dep) (while --dolist-tail-- (setq dep (car --dolist-tail--)) (if (package-installed-p (car dep) (car (cdr dep))) (configuration-layer//activate-package (car dep)) (configuration-layer//install-from-elpa (car dep))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (if pkg-desc (package-install (car (cdr pkg-desc))) (package-install pkg-name)))
  (if (not (assq pkg-name package-archive-contents)) (spacemacs-buffer/append (format (concat "\nPackage %s is unavailable. " "Is the package name misspelled?\n") pkg-name)) (let ((pkg-desc (assq pkg-name package-archive-contents))) (let ((--dolist-tail-- (configuration-layer//get-package-deps-from-archive pkg-name)) dep) (while --dolist-tail-- (setq dep (car --dolist-tail--)) (if (package-installed-p (car dep) (car (cdr dep))) (configuration-layer//activate-package (car dep)) (configuration-layer//install-from-elpa (car dep))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (if pkg-desc (package-install (car (cdr pkg-desc))) (package-install pkg-name))))
  configuration-layer//install-from-elpa(attrap)
  (cond ((or (null pkg) (eq (quote elpa) location)) (configuration-layer//install-from-elpa pkg-name) (if pkg (progn (cfgl-package-set-property pkg :lazy-install nil)))) ((and (listp location) (eq (quote recipe) (car location))) (configuration-layer//install-from-recipe pkg) (cfgl-package-set-property pkg :lazy-install nil)) (t (configuration-layer//warning "Cannot install package %S." pkg-name)))
  (condition-case err (cond ((or (null pkg) (eq (quote elpa) location)) (configuration-layer//install-from-elpa pkg-name) (if pkg (progn (cfgl-package-set-property pkg :lazy-install nil)))) ((and (listp location) (eq (quote recipe) (car location))) (configuration-layer//install-from-recipe pkg) (cfgl-package-set-property pkg :lazy-install nil)) (t (configuration-layer//warning "Cannot install package %S." pkg-name))) ((debug quote error) (configuration-layer//error (concat "\nAn error occurred while installing %s " "(error: %s)\n") pkg-name err) (spacemacs//redisplay)))
  (if (package-installed-p pkg-name min-version) nil (condition-case err (cond ((or (null pkg) (eq (quote elpa) location)) (configuration-layer//install-from-elpa pkg-name) (if pkg (progn (cfgl-package-set-property pkg :lazy-install nil)))) ((and (listp location) (eq (quote recipe) (car location))) (configuration-layer//install-from-recipe pkg) (cfgl-package-set-property pkg :lazy-install nil)) (t (configuration-layer//warning "Cannot install package %S." pkg-name))) ((debug quote error) (configuration-layer//error (concat "\nAn error occurred while installing %s " "(error: %s)\n") pkg-name err) (spacemacs//redisplay))))
  (let* ((layer (if pkg (progn (car (eieio-oref pkg (quote :owners)))))) (location (if pkg (progn (eieio-oref pkg (quote :location))))) (min-version (if pkg (progn (eieio-oref pkg (quote :min-version)))))) (spacemacs-buffer/replace-last-line (format "--> installing %s: %s%s... [%s/%s]" (if layer "package" "dependency") pkg-name (if layer (format "@%S" layer) "") installed-count not-inst-count) t) (spacemacs//redisplay) (if (package-installed-p pkg-name min-version) nil (condition-case err (cond ((or (null pkg) (eq (quote elpa) location)) (configuration-layer//install-from-elpa pkg-name) (if pkg (progn (cfgl-package-set-property pkg :lazy-install nil)))) ((and (listp location) (eq (quote recipe) (car location))) (configuration-layer//install-from-recipe pkg) (cfgl-package-set-property pkg :lazy-install nil)) (t (configuration-layer//warning "Cannot install package %S." pkg-name))) ((debug quote error) (configuration-layer//error (concat "\nAn error occurred while installing %s " "(error: %s)\n") pkg-name err) (spacemacs//redisplay)))))
  configuration-layer//install-package(#<cfgl-package cfgl-package>)
  (if (and pkg (memq (eieio-oref pkg (quote :step)) (quote (bootstrap pre)))) nil (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg))
  (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq (eieio-oref pkg (quote :step)) (quote (bootstrap pre)))) nil (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg)))
  (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq (eieio-oref pkg (quote :step)) (quote (bootstrap pre)))) nil (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq (eieio-oref pkg (quote :step)) (quote (bootstrap pre)))) nil (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format "Found %s new package(s) to install...\n" not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq (eieio-oref pkg ...) (quote ...))) (progn (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg)))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq (eieio-oref pkg ...) (quote ...))) nil (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs-buffer/append "\n") (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup)))
  (progn (spacemacs-buffer/set-mode-line "Installing packages..." t) (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format "Found %s new package(s) to install...\n" not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq ... ...)) (progn (setq installed-count ...) (configuration-layer//install-package pkg)))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq ... ...)) nil (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs-buffer/append "\n") (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup))))
  (if upkg-names (progn (spacemacs-buffer/set-mode-line "Installing packages..." t) (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format "Found %s new package(s) to install...\n" not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg ...)) (if (and pkg ...) (progn ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg ...)) (if (and pkg ...) nil (setq installed-count ...) (configuration-layer//install-package pkg))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs-buffer/append "\n") (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup)))))
  (let* ((upkg-names (configuration-layer//get-uninstalled-packages packages)) (not-inst-count (length upkg-names)) installed-count) (if upkg-names (progn (spacemacs-buffer/set-mode-line "Installing packages..." t) (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format "Found %s new package(s) to install...\n" not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let (...) (if ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let (...) (if ... nil ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs-buffer/append "\n") (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup))))))
  (let ((display-buffer-alist (quote (("\\(\\*Compile-Log\\*\\)\\|\\(\\*Warnings\\*\\)" (display-buffer-in-side-window) (inhibit-same-window . t) (side . bottom) (window-height . 0.2)))))) (configuration-layer//configure-quelpa) (let* ((upkg-names (configuration-layer//get-uninstalled-packages packages)) (not-inst-count (length upkg-names)) installed-count) (if upkg-names (progn (spacemacs-buffer/set-mode-line "Installing packages..." t) (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format "Found %s new package(s) to install...\n" not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name ...) (let ... ...) (setq --dolist-tail-- ...))) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name ...) (let ... ...) (setq --dolist-tail-- ...))) (spacemacs-buffer/append "\n") (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup)))))))
  configuration-layer//install-packages((ac-ispell ace-jump-helm-line ace-link ace-window adoc-mode aggressive-indent ansible ansible-doc async attrap auto-compile auto-complete auto-highlight-symbol auto-yasnippet avy bind-key bind-map centered-cursor-mode clean-aindent-mode cmm-mode color-identifiers-mode column-enforce-mode company company-ansible company-cabal company-ghc company-ghci company-lsp company-statistics dante define-word desktop devdocs diminish doom-modeline dotenv-mode dumb-jump editorconfig elisp-slime-nav ensime eval-sexp-fu evil evil-anzu evil-args evil-cleverparens evil-ediff evil-escape evil-exchange evil-goggles evil-iedit-state ...))
  (let ((packages (append (configuration-layer//filter-distant-packages configuration-layer--used-packages t (quote (not (oref pkg :lazy-install)))) (if (eq (quote all) dotspacemacs-install-packages) (progn (let (all-other-packages) (let ... ...) (configuration-layer//filter-distant-packages all-other-packages nil))))))) (configuration-layer//install-packages packages) (if (and (or (eq (quote used) dotspacemacs-install-packages) (eq (quote used-only) dotspacemacs-install-packages)) (not configuration-layer-force-distribution) (not configuration-layer-exclude-all-layers)) (progn (configuration-layer/delete-orphan-packages packages))))
  (progn (let ((packages (append (configuration-layer//filter-distant-packages configuration-layer--used-packages t (quote (not ...))) (if (eq (quote all) dotspacemacs-install-packages) (progn (let ... ... ...)))))) (configuration-layer//install-packages packages) (if (and (or (eq (quote used) dotspacemacs-install-packages) (eq (quote used-only) dotspacemacs-install-packages)) (not configuration-layer-force-distribution) (not configuration-layer-exclude-all-layers)) (progn (configuration-layer/delete-orphan-packages packages)))))
  (if spacemacs-sync-packages (progn (let ((packages (append (configuration-layer//filter-distant-packages configuration-layer--used-packages t (quote ...)) (if (eq ... dotspacemacs-install-packages) (progn ...))))) (configuration-layer//install-packages packages) (if (and (or (eq (quote used) dotspacemacs-install-packages) (eq (quote used-only) dotspacemacs-install-packages)) (not configuration-layer-force-distribution) (not configuration-layer-exclude-all-layers)) (progn (configuration-layer/delete-orphan-packages packages))))))
  configuration-layer//load()
  (cond (changed-since-last-dump-p (configuration-layer//load) (if (spacemacs/emacs-with-pdumper-set-p) (progn (configuration-layer/message "Layer list has changed since last dump.") (configuration-layer//dump-emacs)))) (spacemacs-force-dump (configuration-layer//load) (if (spacemacs/emacs-with-pdumper-set-p) (progn (configuration-layer/message (concat "--force-dump passed on the command line, " "forcing a redump.")) (configuration-layer//dump-emacs)))) ((spacemacs-is-dumping-p) (configuration-layer//load)) ((and (spacemacs/emacs-with-pdumper-set-p) (spacemacs-run-from-dump-p)) (configuration-layer/message "Running from a dumped file. Skipping the loading process!")) (t (configuration-layer//load) (if (spacemacs/emacs-with-pdumper-set-p) (progn (configuration-layer/message (concat "Layer list has not changed since last time. " "Skipping dumping process!"))))))
  configuration-layer/load()
  (let ((file-name-handler-alist nil)) (require (quote core-spacemacs)) (spacemacs/dump-restore-load-path) (configuration-layer/load-lock-file) (spacemacs/init) (configuration-layer/stable-elpa-init) (configuration-layer/load) (spacemacs-buffer/display-startup-note) (spacemacs/setup-startup-hook) (spacemacs/dump-eval-delayed-functions) (if (and dotspacemacs-enable-server (not (spacemacs-is-dumping-p))) (progn (require (quote server)) (if dotspacemacs-server-socket-dir (progn (setq server-socket-dir dotspacemacs-server-socket-dir))) (if (server-running-p) nil (message "Starting a server...") (server-start)))))
  (if (not (version<= spacemacs-emacs-min-version emacs-version)) (error (concat "Your version of Emacs (%s) is too old. " "Spacemacs requires Emacs version %s or above.") emacs-version spacemacs-emacs-min-version) (let ((file-name-handler-alist nil)) (require (quote core-spacemacs)) (spacemacs/dump-restore-load-path) (configuration-layer/load-lock-file) (spacemacs/init) (configuration-layer/stable-elpa-init) (configuration-layer/load) (spacemacs-buffer/display-startup-note) (spacemacs/setup-startup-hook) (spacemacs/dump-eval-delayed-functions) (if (and dotspacemacs-enable-server (not (spacemacs-is-dumping-p))) (progn (require (quote server)) (if dotspacemacs-server-socket-dir (progn (setq server-socket-dir dotspacemacs-server-socket-dir))) (if (server-running-p) nil (message "Starting a server...") (server-start))))))
  eval-buffer(#<buffer  *load*> nil "/home/nraymond/.emacs.d/init.el" nil t)  ; Reading at buffer position 1880
  load-with-code-conversion("/home/nraymond/.emacs.d/init.el" "/home/nraymond/.emacs.d/init.el" t t)
  load("/home/nraymond/.emacs.d/init" t t)
  #f(compiled-function () #<bytecode 0x1df6a1>)()
  command-line()
  normal-top-level(Debugger entered--Lisp error: (file-error "make client process failed" "Connection timed out" :name "melpa.org" :buffer #<killed buffer> :host "10.49.64.5" :service 8080 :nowait nil :tls-parameters nil)
  signal(file-error ("make client process failed" "Connection timed out" :name "melpa.org" :buffer #<killed buffer> :host "10.49.64.5" :service 8080 :nowait nil :tls-parameters nil))
*   debugger-may-continue = t
*   inhibit-redisplay = nil
*   inhibit-debugger = t
*   inhibit-changing-match-data = nil
  package-install-from-archive(#s(package-desc :name attrap :version (20191119 1515) :summary "ATtempt To Repair At Point" :reqs ((dash (2 12 0)) (emacs (25 1)) (f (0 19 0)) (flycheck (0 30)) (s (1 11 0))) :kind single :archive "melpa" :dir nil :extras ((:commit . "12e234aeb16e190435133b29e93c69c67ec1ee6b") (:keywords "programming" "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/attrap")) :signed nil))
* mapc(package-install-from-archive (#s(package-desc :name attrap :version (20191119 1515) :summary "ATtempt To Repair At Point" :reqs ((dash (2 12 0)) (emacs (25 1)) (f (0 19 0)) (flycheck (0 30)) (s (1 11 0))) :kind single :archive "melpa" :dir nil :extras ((:commit . "12e234aeb16e190435133b29e93c69c67ec1ee6b") (:keywords "programming" "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/attrap")) :signed nil)))
* package-download-transaction((#s(package-desc :name attrap :version (20191119 1515) :summary "ATtempt To Repair At Point" :reqs ((dash (2 12 0)) (emacs (25 1)) (f (0 19 0)) (flycheck (0 30)) (s (1 11 0))) :kind single :archive "melpa" :dir nil :extras ((:commit . "12e234aeb16e190435133b29e93c69c67ec1ee6b") (:keywords "programming" "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/attrap")) :signed nil)))
  #f(compiled-function (pkg &optional dont-select) "Install the package PKG.\nPKG can be a `package-desc' or a symbol naming one of the available packages\nin an archive in `package-archives'.  Interactively, prompt for its name.\n\nIf called interactively or if DONT-SELECT nil, add PKG to\n`package-selected-packages'.\n\nIf PKG is a `package-desc' and it is already installed, don't try\nto install it but still mark it as selected." (interactive #f(compiled-function () #<bytecode 0x1b78279>)) #<bytecode 0x136046d>)(#s(package-desc :name attrap :version (20191119 1515) :summary "ATtempt To Repair At Point" :reqs ((dash (2 12 0)) (emacs (25 1)) (f (0 19 0)) (flycheck (0 30)) (s (1 11 0))) :kind single :archive "melpa" :dir nil :extras ((:commit . "12e234aeb16e190435133b29e93c69c67ec1ee6b") (:keywords "programming" "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/attrap")) :signed nil))
  apply(#f(compiled-function (pkg &optional dont-select) "Install the package PKG.\nPKG can be a `package-desc' or a symbol naming one of the available packages\nin an archive in `package-archives'.  Interactively, prompt for its name.\n\nIf called interactively or if DONT-SELECT nil, add PKG to\n`package-selected-packages'.\n\nIf PKG is a `package-desc' and it is already installed, don't try\nto install it but still mark it as selected." (interactive #f(compiled-function () #<bytecode 0x1b79b05>)) #<bytecode 0x136046d>) #s(package-desc :name attrap :version (20191119 1515) :summary "ATtempt To Repair At Point" :reqs ((dash (2 12 0)) (emacs (25 1)) (f (0 19 0)) (flycheck (0 30)) (s (1 11 0))) :kind single :archive "melpa" :dir nil :extras ((:commit . "12e234aeb16e190435133b29e93c69c67ec1ee6b") (:keywords "programming" "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/attrap")) :signed nil))
  (if (or patched (eq (quote org-plus-contrib) name)) (if (package-installed-p name) nil (apply func args)) (apply func args))
  (let ((name (if (and (memq (type-of pkg) cl-struct-package-desc-tags) t) (progn (or (and (memq ... cl-struct-package-desc-tags) t) (signal (quote wrong-type-argument) (list ... pkg))) (aref pkg 1)) pkg))) (if (or patched (eq (quote org-plus-contrib) name)) (if (package-installed-p name) nil (apply func args)) (apply func args)))
  (let* ((pkg (car args)) (patched (cond ((and (symbolp pkg) (eq (quote org) pkg)) (setcar args (quote org-plus-contrib)) t) ((and (and (memq ... cl-struct-package-desc-tags) t) (eq (quote org) (progn ... ...))) (progn (or (and ... t) (signal ... ...)) (let* (...) (aset v 1 ...))) t) ((and (and (memq ... cl-struct-package-desc-tags) t) (assq (quote org) (progn ... ...))) (let* ((v ...)) (setcar v (quote org-plus-contrib))) t)))) (let ((name (if (and (memq (type-of pkg) cl-struct-package-desc-tags) t) (progn (or (and ... t) (signal ... ...)) (aref pkg 1)) pkg))) (if (or patched (eq (quote org-plus-contrib) name)) (if (package-installed-p name) nil (apply func args)) (apply func args))))
  configuration-layer//package-install-org(#f(compiled-function (pkg &optional dont-select) "Install the package PKG.\nPKG can be a `package-desc' or a symbol naming one of the available packages\nin an archive in `package-archives'.  Interactively, prompt for its name.\n\nIf called interactively or if DONT-SELECT nil, add PKG to\n`package-selected-packages'.\n\nIf PKG is a `package-desc' and it is already installed, don't try\nto install it but still mark it as selected." (interactive #f(compiled-function () #<bytecode 0x1b8144d>)) #<bytecode 0x136046d>) #s(package-desc :name attrap :version (20191119 1515) :summary "ATtempt To Repair At Point" :reqs ((dash (2 12 0)) (emacs (25 1)) (f (0 19 0)) (flycheck (0 30)) (s (1 11 0))) :kind single :archive "melpa" :dir nil :extras ((:commit . "12e234aeb16e190435133b29e93c69c67ec1ee6b") (:keywords "programming" "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/attrap")) :signed nil))
  apply(configuration-layer//package-install-org #f(compiled-function (pkg &optional dont-select) "Install the package PKG.\nPKG can be a `package-desc' or a symbol naming one of the available packages\nin an archive in `package-archives'.  Interactively, prompt for its name.\n\nIf called interactively or if DONT-SELECT nil, add PKG to\n`package-selected-packages'.\n\nIf PKG is a `package-desc' and it is already installed, don't try\nto install it but still mark it as selected." (interactive #f(compiled-function () #<bytecode 0x1b825d1>)) #<bytecode 0x136046d>) #s(package-desc :name attrap :version (20191119 1515) :summary "ATtempt To Repair At Point" :reqs ((dash (2 12 0)) (emacs (25 1)) (f (0 19 0)) (flycheck (0 30)) (s (1 11 0))) :kind single :archive "melpa" :dir nil :extras ((:commit . "12e234aeb16e190435133b29e93c69c67ec1ee6b") (:keywords "programming" "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/attrap")) :signed nil))
  package-install(#s(package-desc :name attrap :version (20191119 1515) :summary "ATtempt To Repair At Point" :reqs ((dash (2 12 0)) (emacs (25 1)) (f (0 19 0)) (flycheck (0 30)) (s (1 11 0))) :kind single :archive "melpa" :dir nil :extras ((:commit . "12e234aeb16e190435133b29e93c69c67ec1ee6b") (:keywords "programming" "tools") (:authors ("Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com")) (:maintainer "Jean-Philippe Bernardy" . "jeanphilippe.bernardy@gmail.com") (:url . "https://github.com/jyp/attrap")) :signed nil))
  (if pkg-desc (package-install (car (cdr pkg-desc))) (package-install pkg-name))
  (let ((pkg-desc (assq pkg-name package-archive-contents))) (let ((--dolist-tail-- (configuration-layer//get-package-deps-from-archive pkg-name)) dep) (while --dolist-tail-- (setq dep (car --dolist-tail--)) (if (package-installed-p (car dep) (car (cdr dep))) (configuration-layer//activate-package (car dep)) (configuration-layer//install-from-elpa (car dep))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (if pkg-desc (package-install (car (cdr pkg-desc))) (package-install pkg-name)))
  (if (not (assq pkg-name package-archive-contents)) (spacemacs-buffer/append (format (concat "\nPackage %s is unavailable. " "Is the package name misspelled?\n") pkg-name)) (let ((pkg-desc (assq pkg-name package-archive-contents))) (let ((--dolist-tail-- (configuration-layer//get-package-deps-from-archive pkg-name)) dep) (while --dolist-tail-- (setq dep (car --dolist-tail--)) (if (package-installed-p (car dep) (car (cdr dep))) (configuration-layer//activate-package (car dep)) (configuration-layer//install-from-elpa (car dep))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (if pkg-desc (package-install (car (cdr pkg-desc))) (package-install pkg-name))))
  configuration-layer//install-from-elpa(attrap)
  (cond ((or (null pkg) (eq (quote elpa) location)) (configuration-layer//install-from-elpa pkg-name) (if pkg (progn (cfgl-package-set-property pkg :lazy-install nil)))) ((and (listp location) (eq (quote recipe) (car location))) (configuration-layer//install-from-recipe pkg) (cfgl-package-set-property pkg :lazy-install nil)) (t (configuration-layer//warning "Cannot install package %S." pkg-name)))
  (condition-case err (cond ((or (null pkg) (eq (quote elpa) location)) (configuration-layer//install-from-elpa pkg-name) (if pkg (progn (cfgl-package-set-property pkg :lazy-install nil)))) ((and (listp location) (eq (quote recipe) (car location))) (configuration-layer//install-from-recipe pkg) (cfgl-package-set-property pkg :lazy-install nil)) (t (configuration-layer//warning "Cannot install package %S." pkg-name))) ((debug quote error) (configuration-layer//error (concat "\nAn error occurred while installing %s " "(error: %s)\n") pkg-name err) (spacemacs//redisplay)))
  (if (package-installed-p pkg-name min-version) nil (condition-case err (cond ((or (null pkg) (eq (quote elpa) location)) (configuration-layer//install-from-elpa pkg-name) (if pkg (progn (cfgl-package-set-property pkg :lazy-install nil)))) ((and (listp location) (eq (quote recipe) (car location))) (configuration-layer//install-from-recipe pkg) (cfgl-package-set-property pkg :lazy-install nil)) (t (configuration-layer//warning "Cannot install package %S." pkg-name))) ((debug quote error) (configuration-layer//error (concat "\nAn error occurred while installing %s " "(error: %s)\n") pkg-name err) (spacemacs//redisplay))))
  (let* ((layer (if pkg (progn (car (eieio-oref pkg (quote :owners)))))) (location (if pkg (progn (eieio-oref pkg (quote :location))))) (min-version (if pkg (progn (eieio-oref pkg (quote :min-version)))))) (spacemacs-buffer/replace-last-line (format "--> installing %s: %s%s... [%s/%s]" (if layer "package" "dependency") pkg-name (if layer (format "@%S" layer) "") installed-count not-inst-count) t) (spacemacs//redisplay) (if (package-installed-p pkg-name min-version) nil (condition-case err (cond ((or (null pkg) (eq (quote elpa) location)) (configuration-layer//install-from-elpa pkg-name) (if pkg (progn (cfgl-package-set-property pkg :lazy-install nil)))) ((and (listp location) (eq (quote recipe) (car location))) (configuration-layer//install-from-recipe pkg) (cfgl-package-set-property pkg :lazy-install nil)) (t (configuration-layer//warning "Cannot install package %S." pkg-name))) ((debug quote error) (configuration-layer//error (concat "\nAn error occurred while installing %s " "(error: %s)\n") pkg-name err) (spacemacs//redisplay)))))
  configuration-layer//install-package(#<cfgl-package cfgl-package>)
  (if (and pkg (memq (eieio-oref pkg (quote :step)) (quote (bootstrap pre)))) nil (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg))
  (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq (eieio-oref pkg (quote :step)) (quote (bootstrap pre)))) nil (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg)))
  (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq (eieio-oref pkg (quote :step)) (quote (bootstrap pre)))) nil (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq (eieio-oref pkg (quote :step)) (quote (bootstrap pre)))) nil (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format "Found %s new package(s) to install...\n" not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq (eieio-oref pkg ...) (quote ...))) (progn (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg)))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq (eieio-oref pkg ...) (quote ...))) nil (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs-buffer/append "\n") (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup)))
  (progn (spacemacs-buffer/set-mode-line "Installing packages..." t) (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format "Found %s new package(s) to install...\n" not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq ... ...)) (progn (setq installed-count ...) (configuration-layer//install-package pkg)))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq ... ...)) nil (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs-buffer/append "\n") (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup))))
  (if upkg-names (progn (spacemacs-buffer/set-mode-line "Installing packages..." t) (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format "Found %s new package(s) to install...\n" not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg ...)) (if (and pkg ...) (progn ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let ((pkg ...)) (if (and pkg ...) nil (setq installed-count ...) (configuration-layer//install-package pkg))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs-buffer/append "\n") (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup)))))
  (let* ((upkg-names (configuration-layer//get-uninstalled-packages packages)) (not-inst-count (length upkg-names)) installed-count) (if upkg-names (progn (spacemacs-buffer/set-mode-line "Installing packages..." t) (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format "Found %s new package(s) to install...\n" not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let (...) (if ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (let (...) (if ... nil ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs-buffer/append "\n") (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup))))))
  (let ((display-buffer-alist (quote (("\\(\\*Compile-Log\\*\\)\\|\\(\\*Warnings\\*\\)" (display-buffer-in-side-window) (inhibit-same-window . t) (side . bottom) (window-height . 0.2)))))) (configuration-layer//configure-quelpa) (let* ((upkg-names (configuration-layer//get-uninstalled-packages packages)) (not-inst-count (length upkg-names)) installed-count) (if upkg-names (progn (spacemacs-buffer/set-mode-line "Installing packages..." t) (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format "Found %s new package(s) to install...\n" not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name ...) (let ... ...) (setq --dolist-tail-- ...))) (let ((--dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name ...) (let ... ...) (setq --dolist-tail-- ...))) (spacemacs-buffer/append "\n") (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup)))))))
  configuration-layer//install-packages((ac-ispell ace-jump-helm-line ace-link ace-window adoc-mode aggressive-indent ansible ansible-doc async attrap auto-compile auto-complete auto-highlight-symbol auto-yasnippet avy bind-key bind-map centered-cursor-mode clean-aindent-mode cmm-mode color-identifiers-mode column-enforce-mode company company-ansible company-cabal company-ghc company-ghci company-lsp company-statistics dante define-word desktop devdocs diminish doom-modeline dotenv-mode dumb-jump editorconfig elisp-slime-nav ensime eval-sexp-fu evil evil-anzu evil-args evil-cleverparens evil-ediff evil-escape evil-exchange evil-goggles evil-iedit-state ...))
  (let ((packages (append (configuration-layer//filter-distant-packages configuration-layer--used-packages t (quote (not (oref pkg :lazy-install)))) (if (eq (quote all) dotspacemacs-install-packages) (progn (let (all-other-packages) (let ... ...) (configuration-layer//filter-distant-packages all-other-packages nil))))))) (configuration-layer//install-packages packages) (if (and (or (eq (quote used) dotspacemacs-install-packages) (eq (quote used-only) dotspacemacs-install-packages)) (not configuration-layer-force-distribution) (not configuration-layer-exclude-all-layers)) (progn (configuration-layer/delete-orphan-packages packages))))
  (progn (let ((packages (append (configuration-layer//filter-distant-packages configuration-layer--used-packages t (quote (not ...))) (if (eq (quote all) dotspacemacs-install-packages) (progn (let ... ... ...)))))) (configuration-layer//install-packages packages) (if (and (or (eq (quote used) dotspacemacs-install-packages) (eq (quote used-only) dotspacemacs-install-packages)) (not configuration-layer-force-distribution) (not configuration-layer-exclude-all-layers)) (progn (configuration-layer/delete-orphan-packages packages)))))
  (if spacemacs-sync-packages (progn (let ((packages (append (configuration-layer//filter-distant-packages configuration-layer--used-packages t (quote ...)) (if (eq ... dotspacemacs-install-packages) (progn ...))))) (configuration-layer//install-packages packages) (if (and (or (eq (quote used) dotspacemacs-install-packages) (eq (quote used-only) dotspacemacs-install-packages)) (not configuration-layer-force-distribution) (not configuration-layer-exclude-all-layers)) (progn (configuration-layer/delete-orphan-packages packages))))))
  configuration-layer//load()
  (cond (changed-since-last-dump-p (configuration-layer//load) (if (spacemacs/emacs-with-pdumper-set-p) (progn (configuration-layer/message "Layer list has changed since last dump.") (configuration-layer//dump-emacs)))) (spacemacs-force-dump (configuration-layer//load) (if (spacemacs/emacs-with-pdumper-set-p) (progn (configuration-layer/message (concat "--force-dump passed on the command line, " "forcing a redump.")) (configuration-layer//dump-emacs)))) ((spacemacs-is-dumping-p) (configuration-layer//load)) ((and (spacemacs/emacs-with-pdumper-set-p) (spacemacs-run-from-dump-p)) (configuration-layer/message "Running from a dumped file. Skipping the loading process!")) (t (configuration-layer//load) (if (spacemacs/emacs-with-pdumper-set-p) (progn (configuration-layer/message (concat "Layer list has not changed since last time. " "Skipping dumping process!"))))))
  configuration-layer/load()
  (let ((file-name-handler-alist nil)) (require (quote core-spacemacs)) (spacemacs/dump-restore-load-path) (configuration-layer/load-lock-file) (spacemacs/init) (configuration-layer/stable-elpa-init) (configuration-layer/load) (spacemacs-buffer/display-startup-note) (spacemacs/setup-startup-hook) (spacemacs/dump-eval-delayed-functions) (if (and dotspacemacs-enable-server (not (spacemacs-is-dumping-p))) (progn (require (quote server)) (if dotspacemacs-server-socket-dir (progn (setq server-socket-dir dotspacemacs-server-socket-dir))) (if (server-running-p) nil (message "Starting a server...") (server-start)))))
  (if (not (version<= spacemacs-emacs-min-version emacs-version)) (error (concat "Your version of Emacs (%s) is too old. " "Spacemacs requires Emacs version %s or above.") emacs-version spacemacs-emacs-min-version) (let ((file-name-handler-alist nil)) (require (quote core-spacemacs)) (spacemacs/dump-restore-load-path) (configuration-layer/load-lock-file) (spacemacs/init) (configuration-layer/stable-elpa-init) (configuration-layer/load) (spacemacs-buffer/display-startup-note) (spacemacs/setup-startup-hook) (spacemacs/dump-eval-delayed-functions) (if (and dotspacemacs-enable-server (not (spacemacs-is-dumping-p))) (progn (require (quote server)) (if dotspacemacs-server-socket-dir (progn (setq server-socket-dir dotspacemacs-server-socket-dir))) (if (server-running-p) nil (message "Starting a server...") (server-start))))))
  eval-buffer(#<buffer  *load*> nil "/home/nraymond/.emacs.d/init.el" nil t)  ; Reading at buffer position 1880
  load-with-code-conversion("/home/nraymond/.emacs.d/init.el" "/home/nraymond/.emacs.d/init.el" t t)
  load("/home/nraymond/.emacs.d/init" t t)
  #f(compiled-function () #<bytecode 0x1df6a1>)()
  command-line()
  normal-top-level(
emacs18 commented 4 years ago

Following in your error log caught my eye:

:name melpa.org :buffer #<killed buffer> :host 10.49.64.5

IP addressses starting with 10 are all intranet addresses, i.e., this cannot possibly be a valid IP address for any internet site. Following shows a more reasonable IP address:

$ ping melpa.org
PING melpa.org (178.128.185.1) 56(84) bytes of data.

Could your problem be related with IP configuration at your site?

emacs18 commented 4 years ago

Perhaps :host refers to the IP address of your own machine?

n-raymond commented 4 years ago

Thanks for your quick answer! :)

Well seen! 10.49.64.5 is the proxy IP at my current job.

I think my proxy configuration was still operational even if I was at home, even if I disabled it in my terminal because .spacemacs.env file saved it (I just discovered this behaviour this morning).

This could explains why it fails only when installing a new package (since other packages are locally cached). However I don't understand why this only happens if commit 21551b6995e38110ce61fec58f608aa180b1d4fc was applied. Shouldn't it fails every time when trying to access an unreachable proxy ? :thinking:

I will try asap to install a fresh layer from current develop branch after cleaning my environment and removing .spacemacs.env file to see if this fixes the problem.

emacs18 commented 4 years ago

I think it was a mistake for spacemacs to save and restore environments. There are so many ways in which it could come back and bite us. That is why for me I have it disabled always by commenting out one line as shown here.

diff --git a/core/templates/.spacemacs.template b/core/templates/.spacemacs.template
index 7613ccc62..329acdf35 100644
--- a/core/templates/.spacemacs.template
+++ b/core/templates/.spacemacs.template
@@ -443,7 +443,11 @@ This function defines the environment variables for your Emacs session. By
 default it calls `spacemacs/load-spacemacs-env' which loads the environment
 variables declared in `~/.spacemacs.env' or `~/.spacemacs.d/.spacemacs.env'.
 See the header of this file for more information."
-  (spacemacs/load-spacemacs-env))
+  ;; Saving and loading environment is too risky when many different machines
+  ;; use the same emacs files! Perhaps the environment file name should include
+  ;; the hostname.
+  ;; (spacemacs/load-spacemacs-env)
+  )

 (defun dotspacemacs/user-init ()
   "Initialization for user code:
emacs18 commented 4 years ago

For most users, you can probably just edit ~/.spacemacs file to make above change if you want to make it.

emacs18 commented 4 years ago

@n-raymond I think this issue should be closed.

n-raymond commented 4 years ago

Thanks for your help I will use your workaround to disable it. This should solve my problem.

Issue closed ! :)