dimitri/el-get — Issue #640: El-Get fails with (void-function el-get-package-name)
Author: jleechpe
Created: 2012-03-05 23:30:31+00:00
State: open

When updating today to the current head `e17d703721d739a65b086bc79d44d0242ac0e23b` I get the following error : `(void-function el-get-package-name)`. It seems to be related to commit `c51609718ec757b73f2071bf6a32a8a95fbe3716` where `el-get-package-name` was undefined yet still reference in the code. (And also to the issue brought up in #553 regarding changes to `.status.el` and remaining backwards compatible)

Opening emacs with `--debug-init` provides the following backtrace.

Debugger entered--Lisp error: (void-function el-get-package-name)
(el-get-package-name p)
(el-get-as-symbol (el-get-package-name p))
(setq x (el-get-as-symbol (el-get-package-name p)))
(while (consp --cl-var--) (setq --cl-var-- --cl-var-- p (pop --cl-var--) s (car --cl-var--)) (setq x (el-get-as-symbol (el-get-package-name p))) (if x (progn (push (cons x (list (quote status) s (quote recipe) (el-get-package-def x))) --cl-var--))) (setq --cl-var-- (cddr --cl-var--)))
(let* ((--cl-var-- ps) (--cl-var-- nil) (p nil) (s nil) (x nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq --cl-var-- --cl-var-- p (pop --cl-var--) s (car --cl-var--)) (setq x (el-get-as-symbol (el-get-package-name p))) (if x (progn (push (cons x (list (quote status) s (quote recipe) (el-get-package-def x))) --cl-var--))) (setq --cl-var-- (cddr --cl-var--))) (nreverse --cl-var--))
(catch (quote --cl-block-nil--) (let* ((--cl-var-- ps) (--cl-var-- nil) (p nil) (s nil) (x nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq --cl-var-- --cl-var-- p (pop --cl-var--) s (car --cl-var--)) (setq x (el-get-as-symbol (el-get-package-name p))) (if x (progn (push (cons x (list ... s ... ...)) --cl-var--))) (setq --cl-var-- (cddr --cl-var--))) (nreverse --cl-var--)))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let* ((--cl-var-- ps) (--cl-var-- nil) (p nil) (s nil) (x nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq --cl-var-- --cl-var-- p (pop --cl-var--) s (car --cl-var--)) (setq x (el-get-as-symbol (el-get-package-name p))) (if x (progn (push (cons x ...) --cl-var--))) (setq --cl-var-- (cddr --cl-var--))) (nreverse --cl-var--))))
(block nil (let* ((--cl-var-- ps) (--cl-var-- nil) (p nil) (s nil) (x nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq --cl-var-- --cl-var-- p (pop --cl-var--) s (car --cl-var--)) (setq x (el-get-as-symbol (el-get-package-name p))) (if x (progn (push (cons x (list ... s ... ...)) --cl-var--))) (setq --cl-var-- (cddr --cl-var--))) (nreverse --cl-var--)))
(loop for (p s) on ps by (quote cddr) for x = (el-get-as-symbol (el-get-package-name p)) when x collect (cons x (list (quote status) s (quote recipe) (el-get-package-def x))))
(if (consp (car ps)) ps (loop for (p s) on ps by (quote cddr) for x = (el-get-as-symbol (el-get-package-name p)) when x collect (cons x (list (quote status) s (quote recipe) (el-get-package-def x)))))
(let ((ps (when (file-exists-p el-get-status-file) (car (with-temp-buffer (insert-file-contents-literally el-get-status-file) (read-from-string (buffer-string))))))) (if (consp (car ps)) ps (loop for (p s) on ps by (quote cddr) for x = (el-get-as-symbol (el-get-package-name p)) when x collect (cons x (list (quote status) s (quote recipe) (el-get-package-def x))))))
el-get-read-status-file()
(let* ((--cl-var-- (el-get-read-status-file)) (prop nil) (p nil) (--cl-var-- 0)) (while (consp --cl-var--) (setq prop (car --cl-var--) p (pop prop)) (if (and (member (el-get-as-symbol p) packages) (member (plist-get prop (quote status)) status)) (incf --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) --cl-var--)
(catch (quote --cl-block-nil--) (let* ((--cl-var-- (el-get-read-status-file)) (prop nil) (p nil) (--cl-var-- 0)) (while (consp --cl-var--) (setq prop (car --cl-var--) p (pop prop)) (if (and (member (el-get-as-symbol p) packages) (member (plist-get prop (quote status)) status)) (incf --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) --cl-var--))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let* ((--cl-var-- (el-get-read-status-file)) (prop nil) (p nil) (--cl-var-- 0)) (while (consp --cl-var--) (setq prop (car --cl-var--) p (pop prop)) (if (and (member (el-get-as-symbol p) packages) (member (plist-get prop ...) status)) (incf --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) --cl-var--)))
(block nil (let* ((--cl-var-- (el-get-read-status-file)) (prop nil) (p nil) (--cl-var-- 0)) (while (consp --cl-var--) (setq prop (car --cl-var--) p (pop prop)) (if (and (member (el-get-as-symbol p) packages) (member (plist-get prop (quote status)) status)) (incf --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) --cl-var--))
(loop for (p . prop) in (el-get-read-status-file) count (and (member (el-get-as-symbol p) packages) (member (plist-get prop (quote status)) status)))
el-get-count-packages-with-status(nil "installed")
(let* ((packages (loop for p in packages when (listp p) append p else collect p)) (total (length packages)) (installed (el-get-count-packages-with-status packages "installed")) (progress (and (eq sync (quote wait)) (make-progress-reporter "Waiting for `el-get' to complete... " 0 (- total installed) 0))) (el-get-default-process-sync sync)) (prog1 (el-get-init-and-install (mapcar (quote el-get-as-symbol) packages)) (when progress (while (> (- total installed) 0) (sleep-for 0.2) (setq installed (el-get-count-packages-with-status packages "installed" "required")) (progress-reporter-update progress (- total installed))) (progress-reporter-done progress)) (el-get-eval-autoloads)))
el-get(sync)

I only have a small number of packages installed at the moment, so reinstalling is not going to take overly long, but the risk remains that someone else might have the same error with a greater amount to repair.