dimitri/el-get — Issue #648: el-get-as-symbol: Symbol's function definition is void: el-get-strip-keyword-colon 
Author: renard
Created: 2012-03-07 23:10:59+00:00
State: open

This happens since 5cee6902 because `el-get-strip-keyword-colon` is not defined.

This function should be something like:

````
(defun el-get-strip-keyword-colon (package-symbol)
"Remove heading colon in package symbol."
(intern (substring (symbol-name package-symbol) 1)))
````

Here is the complete backtrace:

````

Debugger entered--Lisp error: (void-function el-get-strip-keyword-colon)
(el-get-strip-keyword-colon p)
(el-get-as-symbol (el-get-strip-keyword-colon p))
(setq x (el-get-as-symbol (el-get-strip-keyword-colon 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-strip-keyword-colon 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-strip-keyword-colon 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-strip-keyword-colon 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-strip-keyword-colon 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-strip-keyword-colon 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-strip-keyword-colon 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-strip-keyword-colon 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-strip-keyword-colon p)) when x collect (cons x (list (quote status) s (quote recipe) (el-get-package-def x))))))
el-get-read-status-file()
(or package-status-alist (el-get-read-status-file))
(let ((p-alist (or package-status-alist (el-get-read-status-file)))) (plist-get (cdr (assq (el-get-as-symbol package) p-alist)) (quote recipe)))
el-get-read-package-status-recipe("el-get")
(let* ((source (el-get-package-def package)) (old-source (el-get-read-package-status-recipe package)) (method (el-get-package-method source)) (old-method (el-get-package-method old-source))) (not (eq method old-method)))
el-get-update-requires-reinstall("el-get")
(if (el-get-update-requires-reinstall package) (el-get-reinstall package) (if (plist-get source :checksum) (error "el-get: remove checksum from package %s to update it." package) (funcall update package url (quote el-get-post-update)) (message "el-get update %s" package)))
(let* ((source (el-get-package-def package)) (method (el-get-package-method source)) (update (el-get-method method :update)) (url (plist-get source :url)) (commands (plist-get source :build))) (if (el-get-update-requires-reinstall package) (el-get-reinstall package) (if (plist-get source :checksum) (error "el-get: remove checksum from package %s to update it." package) (funcall update package url (quote el-get-post-update)) (message "el-get update %s" package))))
el-get-update("el-get")
(let ((el-get-default-process-sync t) (el-get-dir (expand-file-name ".." (file-name-directory el-get-script)))) (el-get-update "el-get"))
el-get-self-update()
(let ((debug-on-error t)) (el-get-self-update))
eval((let ((debug-on-error t)) (el-get-self-update)) nil)
eval-expression((let ((debug-on-error t)) (el-get-self-update)) nil)
call-interactively(eval-expression nil nil)
````