dimitri/el-get — Issue #601: error invalid-function
Author: yyr
Created: 2012-02-27 06:19:10+00:00
State: open

pulled master a while ago.. I am getting this., FWIW my el-get is lazy ( it has other problems I will post them in a separate issue)

Debugger entered--Lisp error: (invalid-function (setq package-user-dir (expand-file-name (convert-standard-filename (concat (file-name-as-directory default-directory) "elpa"))) package-directory-list (list (file-name-as-directory package-user-dir) "/usr/share/emacs/site-lisp/elpa/")))
((setq package-user-dir (expand-file-name (convert-standard-filename (concat (file-name-as-directory default-directory) "elpa"))) package-directory-list (list (file-name-as-directory package-user-dir) "/usr/share/emacs/site-lisp/elpa/")) (make-directory package-user-dir t) (unless (boundp (quote package-subdirectory-regexp)) (defconst package-subdirectory-regexp "^\\([^.].*\\)-\\([0-9]+\\(?:[.][0-9]+\\)*\\)$" "Regular expression matching the name of\n a package subdirectory. The first subexpression is the package\n name. The second subexpression is the version string.")) (setq package-archives (quote (("ELPA" . "http://tromey.com/elpa/") ("gnu" . "http://elpa.gnu.org/packages/") ("marmalade" . "http://marmalade-repo.org/packages/")))))
eval(((setq package-user-dir (expand-file-name (convert-standard-filename (concat (file-name-as-directory default-directory) "elpa"))) package-directory-list (list (file-name-as-directory package-user-dir) "/usr/share/emacs/site-lisp/elpa/")) (make-directory package-user-dir t) (unless (boundp (quote package-subdirectory-regexp)) (defconst package-subdirectory-regexp "^\\([^.].*\\)-\\([0-9]+\\(?:[.][0-9]+\\)*\\)$" "Regular expression matching the name of\n a package subdirectory. The first subexpression is the package\n name. The second subexpression is the version string.")) (setq package-archives (quote (("ELPA" . "http://tromey.com/elpa/") ("gnu" . "http://elpa.gnu.org/packages/") ("marmalade" . "http://marmalade-repo.org/packages/"))))))
(let* ((pdir (el-get-package-directory package)) (default-directory pdir)) (eval form))
(progn (assert (listp form)) (el-get-verbose-message "el-get: Evaluating :%s form for package %s" fname package) (let* ((pdir (el-get-package-directory package)) (default-directory pdir)) (eval form)))
(if form (progn (assert (listp form)) (el-get-verbose-message "el-get: Evaluating :%s form for package %s" fname package) (let* ((pdir (el-get-package-directory package)) (default-directory pdir)) (eval form))))
(when form (assert (listp form)) (el-get-verbose-message "el-get: Evaluating :%s form for package %s" fname package) (let* ((pdir (el-get-package-directory package)) (default-directory pdir)) (eval form)))
(let* ((form (if (equal (car-safe form) (quote quote)) (prog1 (eval form) (warn "The :%s form for package %s is quoted unnecessarily." fname package)) form)) (form (cond ((null form) nil) ((symbolp form) (prog1 (\` (...)) (warn "The :%s form for package %s uses the old-style function form instead of a lisp form. The value should be changed from `%S' to `%S'" fname package form (\` ...)) (unless (symbol-function form) (warn "The function %s, which is called in the :%s form for package %s, does not seem to be defined. Calling it will probably fail." form fname package)))) ((functionp form) (prog1 (\` (...)) (if (and ... ...) (warn "The :%s form for package %s uses the old-style lambda form instead of a lisp form. The leading \"(lambda ()\" should be replaced with \"(progn\"." fname package) (warn "The :%s form for package %s uses the old-style function form instead of a lisp form." fname package)))) ((listp form) form) (t (error "Unknown :%s form for package %s: `%S'" fname package form))))) (when form (assert (listp form)) (el-get-verbose-message "el-get: Evaluating :%s form for package %s" fname package) (let* ((pdir (el-get-package-directory package)) (default-directory pdir)) (eval form))))
el-get-run-package-support(((setq package-user-dir (expand-file-name (convert-standard-filename (concat (file-name-as-directory default-directory) "elpa"))) package-directory-list (list (file-name-as-directory package-user-dir) "/usr/share/emacs/site-lisp/elpa/")) (make-directory package-user-dir t) (unless (boundp (quote package-subdirectory-regexp)) (defconst package-subdirectory-regexp "^\\([^.].*\\)-\\([0-9]+\\(?:[.][0-9]+\\)*\\)$" "Regular expression matching the name of\n a package subdirectory. The first subexpression is the package\n name. The second subexpression is the version string.")) (setq package-archives (quote (("ELPA" . "http://tromey.com/elpa/") ("gnu" . "http://elpa.gnu.org/packages/") ("marmalade" . "http://marmalade-repo.org/packages/"))))) "post-init" package)
(lambda nil (el-get-run-package-support (quote ((setq package-user-dir (expand-file-name (convert-standard-filename (concat ... "elpa"))) package-directory-list (list (file-name-as-directory package-user-dir) "/usr/share/emacs/site-lisp/elpa/")) (make-directory package-user-dir t) (unless (boundp (quote package-subdirectory-regexp)) (defconst package-subdirectory-regexp "^\\([^.].*\\)-\\([0-9]+\\(?:[.][0-9]+\\)*\\)$" "Regular expression matching the name of\n a package subdirectory. The first subexpression is the package\n name. The second subexpression is the version string.")) (setq package-archives (quote (("ELPA" . "http://tromey.com/elpa/") ("gnu" . "http://elpa.gnu.org/packages/") ("marmalade" . "http://marmalade-repo.org/packages/")))))) (quote "post-init") (quote package)))()
funcall((lambda nil (el-get-run-package-support (quote ((setq package-user-dir (expand-file-name (convert-standard-filename (concat ... "elpa"))) package-directory-list (list (file-name-as-directory package-user-dir) "/usr/share/emacs/site-lisp/elpa/")) (make-directory package-user-dir t) (unless (boundp (quote package-subdirectory-regexp)) (defconst package-subdirectory-regexp "^\\([^.].*\\)-\\([0-9]+\\(?:[.][0-9]+\\)*\\)$" "Regular expression matching the name of\n a package subdirectory. The first subexpression is the package\n name. The second subexpression is the version string.")) (setq package-archives (quote (("ELPA" . "http://tromey.com/elpa/") ("gnu" . "http://elpa.gnu.org/packages/") ("marmalade" . "http://marmalade-repo.org/packages/")))))) (quote "post-init") (quote package))))
eval((funcall (quote (lambda nil (el-get-run-package-support (quote ((setq package-user-dir (expand-file-name ...) package-directory-list (list ... "/usr/share/emacs/site-lisp/elpa/")) (make-directory package-user-dir t) (unless (boundp ...) (defconst package-subdirectory-regexp "^\\([^.].*\\)-\\([0-9]+\\(?:[.][0-9]+\\)*\\)$" "Regular expression matching the name of\n a package subdirectory. The first subexpression is the package\n name. The second subexpression is the version string.")) (setq package-archives (quote ...)))) (quote "post-init") (quote package))))))
eval-after-load("package" (el-get-run-package-support (quote ((setq package-user-dir (expand-file-name (convert-standard-filename (concat (file-name-as-directory default-directory) "elpa"))) package-directory-list (list (file-name-as-directory package-user-dir) "/usr/share/emacs/site-lisp/elpa/")) (make-directory package-user-dir t) (unless (boundp (quote package-subdirectory-regexp)) (defconst package-subdirectory-regexp "^\\([^.].*\\)-\\([0-9]+\\(?:[.][0-9]+\\)*\\)$" "Regular expression matching the name of\n a package subdirectory. The first subexpression is the package\n name. The second subexpression is the version string.")) (setq package-archives (quote (("ELPA" . "http://tromey.com/elpa/") ("gnu" . "http://elpa.gnu.org/packages/") ("marmalade" . "http://marmalade-repo.org/packages/")))))) (quote "post-init") (quote package)))
(let* ((package (el-get-as-symbol package)) (source (el-get-package-def package)) (pkgname (plist-get source :pkgname)) (feats (el-get-as-list (plist-get source :features))) (library (or (plist-get source :library) (car feats) pkgname package))) (el-get-verbose-message "Using library `%s' for `eval-after-load' for package `%s'" library package) (eval-after-load (el-get-as-string library) form))
el-get-eval-after-load(package (el-get-run-package-support (quote ((setq package-user-dir (expand-file-name (convert-standard-filename (concat (file-name-as-directory default-directory) "elpa"))) package-directory-list (list (file-name-as-directory package-user-dir) "/usr/share/emacs/site-lisp/elpa/")) (make-directory package-user-dir t) (unless (boundp (quote package-subdirectory-regexp)) (defconst package-subdirectory-regexp "^\\([^.].*\\)-\\([0-9]+\\(?:[.][0-9]+\\)*\\)$" "Regular expression matching the name of\n a package subdirectory. The first subexpression is the package\n name. The second subexpression is the version string.")) (setq package-archives (quote (("ELPA" . "http://tromey.com/elpa/") ("gnu" . "http://elpa.gnu.org/packages/") ("marmalade" . "http://marmalade-repo.org/packages/")))))) (quote "post-init") (quote package)))
el-get-lazy-run-package-support(((setq package-user-dir (expand-file-name (convert-standard-filename (concat (file-name-as-directory default-directory) "elpa"))) package-directory-list (list (file-name-as-directory package-user-dir) "/usr/share/emacs/site-lisp/elpa/")) (make-directory package-user-dir t) (unless (boundp (quote package-subdirectory-regexp)) (defconst package-subdirectory-regexp "^\\([^.].*\\)-\\([0-9]+\\(?:[.][0-9]+\\)*\\)$" "Regular expression matching the name of\n a package subdirectory. The first subexpression is the package\n name. The second subexpression is the version string.")) (setq package-archives (quote (("ELPA" . "http://tromey.com/elpa/") ("gnu" . "http://elpa.gnu.org/packages/") ("marmalade" . "http://marmalade-repo.org/packages/"))))) "post-init" package)
funcall(el-get-lazy-run-package-support ((setq package-user-dir (expand-file-name (convert-standard-filename (concat (file-name-as-directory default-directory) "elpa"))) package-directory-list (list (file-name-as-directory package-user-dir) "/usr/share/emacs/site-lisp/elpa/")) (make-directory package-user-dir t) (unless (boundp (quote package-subdirectory-regexp)) (defconst package-subdirectory-regexp "^\\([^.].*\\)-\\([0-9]+\\(?:[.][0-9]+\\)*\\)$" "Regular expression matching the name of\n a package subdirectory. The first subexpression is the package\n name. The second subexpression is the version string.")) (setq package-archives (quote (("ELPA" . "http://tromey.com/elpa/") ("gnu" . "http://elpa.gnu.org/packages/") ("marmalade" . "http://marmalade-repo.org/packages/"))))) "post-init" package)
(let ((el-get-maybe-lazy-runsupp (if lazy (function el-get-lazy-run-package-support) (function el-get-run-package-support))) (maybe-lazy-eval (if lazy (apply-partially (quote el-get-eval-after-load) package) (quote eval)))) (funcall el-get-maybe-lazy-runsupp postinit "post-init" package) (funcall maybe-lazy-eval (\` (el-get-load-package-user-init-file (quote (\, package))))) (funcall el-get-maybe-lazy-runsupp after "after" package))
(let* ((source (el-get-package-def package)) (method (el-get-package-method source)) (loads (el-get-as-list (plist-get source :load))) (autoloads (plist-get source :autoloads)) (feats (el-get-as-list (plist-get source :features))) (el-path (el-get-as-list (el-get-load-path package))) (lazy (el-get-plist-get-with-default source :lazy el-get-is-lazy)) (prepare (plist-get source :prepare)) (before (plist-get source :before)) (postinit (plist-get source :post-init)) (after (plist-get source :after)) (pkgname (plist-get source :pkgname)) (library (or (plist-get source :library) pkgname package)) (pdir (el-get-package-directory package))) (unless (eq method (quote builtin)) (unless (member method (quote (apt-get fink pacman))) (dolist (path el-path) (el-get-add-path-to-list package (quote load-path) path)) (el-get-install-or-init-info package (quote init))) (when el-get-byte-compile-at-init (el-get-byte-compile package)) (unless (eq autoloads t) (dolist (file (el-get-as-list autoloads)) (el-get-load-fast file)))) (el-get-run-package-support prepare "prepare" package) (el-get-run-package-support before "before" package) (unless lazy (dolist (file loads) (let ((pfile (concat pdir file))) (unless (file-exists-p pfile) (error "el-get could not find file '%s'" pfile)) (el-get-verbose-message "el-get: load '%s'" pfile) (el-get-load-fast pfile))) (unless (eq method (quote elpa)) (dolist (feat feats) (let ((feature (el-get-as-symbol feat))) (el-get-verbose-message "require '%s" feature) (require feature))))) (let ((el-get-maybe-lazy-runsupp (if lazy (function el-get-lazy-run-package-support) (function el-get-run-package-support))) (maybe-lazy-eval (if lazy (apply-partially (quote el-get-eval-after-load) package) (quote eval)))) (funcall el-get-maybe-lazy-runsupp postinit "post-init" package) (funcall maybe-lazy-eval (\` (el-get-load-package-user-init-file (quote (\, package))))) (funcall el-get-maybe-lazy-runsupp after "after" package)) (run-hook-with-args (quote el-get-post-init-hooks) package) package)
(condition-case err (let* ((source (el-get-package-def package)) (method (el-get-package-method source)) (loads (el-get-as-list (plist-get source :load))) (autoloads (plist-get source :autoloads)) (feats (el-get-as-list (plist-get source :features))) (el-path (el-get-as-list (el-get-load-path package))) (lazy (el-get-plist-get-with-default source :lazy el-get-is-lazy)) (prepare (plist-get source :prepare)) (before (plist-get source :before)) (postinit (plist-get source :post-init)) (after (plist-get source :after)) (pkgname (plist-get source :pkgname)) (library (or (plist-get source :library) pkgname package)) (pdir (el-get-package-directory package))) (unless (eq method (quote builtin)) (unless (member method (quote (apt-get fink pacman))) (dolist (path el-path) (el-get-add-path-to-list package (quote load-path) path)) (el-get-install-or-init-info package (quote init))) (when el-get-byte-compile-at-init (el-get-byte-compile package)) (unless (eq autoloads t) (dolist (file (el-get-as-list autoloads)) (el-get-load-fast file)))) (el-get-run-package-support prepare "prepare" package) (el-get-run-package-support before "before" package) (unless lazy (dolist (file loads) (let ((pfile (concat pdir file))) (unless (file-exists-p pfile) (error "el-get could not find file '%s'" pfile)) (el-get-verbose-message "el-get: load '%s'" pfile) (el-get-load-fast pfile))) (unless (eq method (quote elpa)) (dolist (feat feats) (let ((feature ...)) (el-get-verbose-message "require '%s" feature) (require feature))))) (let ((el-get-maybe-lazy-runsupp (if lazy (function el-get-lazy-run-package-support) (function el-get-run-package-support))) (maybe-lazy-eval (if lazy (apply-partially (quote el-get-eval-after-load) package) (quote eval)))) (funcall el-get-maybe-lazy-runsupp postinit "post-init" package) (funcall maybe-lazy-eval (\` (el-get-load-package-user-init-file (quote (\, package))))) (funcall el-get-maybe-lazy-runsupp after "after" package)) (run-hook-with-args (quote el-get-post-init-hooks) package) package) (debug error (el-get-installation-failed package err)))
el-get-init(package)
(while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-init p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--)))
(let* ((--cl-var-- init-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-init p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)
(catch (quote --cl-block-nil--) (let* ((--cl-var-- init-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-init p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let* ((--cl-var-- init-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-init p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)))
(block nil (let* ((--cl-var-- init-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-init p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil))
(loop for p in init-deps do (el-get-init p) collect p into done)
(let* ((required (el-get-list-package-names-with-status "required")) (installed (el-get-list-package-names-with-status "installed")) (to-init (if packages (loop for p in packages when (member (el-get-as-string p) installed) collect p) (mapcar (quote el-get-as-symbol) installed))) (init-deps (el-get-dependencies to-init)) (to-install (if packages (loop for p in packages unless (member p init-deps) collect p) (mapcar (quote el-get-as-symbol) required))) (install-deps (el-get-dependencies to-install)) done) (el-get-verbose-message "el-get-init-and-install: install %S" install-deps) (el-get-verbose-message "el-get-init-and-install: init %S" init-deps) (loop for p in install-deps do (el-get-do-install p) collect p into done) (loop for p in init-deps do (el-get-init p) collect p into done) done)
el-get-init-and-install((byte-code-cache dired-plus anything ace-jump-mode smex ido-ubiquitous yasnippet ac-math ac-octave highlight-parentheses auto-complete autopair diminish boxquote org-mode calfw magit paredit hl-sexp python-mode pylookup yaml-mode ncl emacs-grads gnuplot-mode emacs-w3m yaoddmuse crontab-mode screenshot profile-dotemacs el-get org2jekyll))
(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))
(let* ((packages (loop for p in packages when (listp p) append p else collect p)) (p-status (el-get-read-all-packages-status)) (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 (byte-code-cache dired-plus anything ace-jump-mode smex ido-ubiquitous yasnippet ac-math ac-octave highlight-parentheses auto-complete autopair diminish boxquote org-mode calfw magit paredit hl-sexp python-mode pylookup yaml-mode ncl emacs-grads gnuplot-mode emacs-w3m yaoddmuse crontab-mode screenshot profile-dotemacs el-get "org2jekyll"))
eval-buffer(#> nil "/home/yagnesh/.emacs.d/init-el-get.el" nil t) ; Reading at buffer position 3003
load-with-code-conversion("/home/yagnesh/.emacs.d/init-el-get.el" "/home/yagnesh/.emacs.d/init-el-get.el" nil nil)
load("init-el-get")
eval-buffer(# nil "/home/yagnesh/.emacs.d/init.el" nil t) ; Reading at buffer position 1723
load-with-code-conversion("/home/yagnesh/.emacs.d/init.el" "/home/yagnesh/.emacs.d/init.el" t t)
load("/home/yagnesh/.emacs.d/init" t t)
#[0 "\205\262