bug#15918: 24.3; package-delete backtrace

[Dave Abrahams]

I installed use-package from melpa.  It was upgraded recently, so 

`M-x list-packages'
`U x y e s RET ~ x y e s RET'

I don't know how to reproduce this from emacs -Q, unfortunately.  It
looks like the package in question ("use-package") no longer has a
directory in ~/.emacs.d/elpa.  I only have the newer
use-package-20131105.1032.  I'm not sure why the package manager still
thinks it's installed.

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  file-name-directory(nil)
  (string-equal (file-name-directory dir) (file-name-as-directory 
(expand-file-name package-user-dir)))
  (if (string-equal (file-name-directory dir) (file-name-as-directory 
(expand-file-name package-user-dir))) (progn (delete-directory dir t t) 
(message "Package `%s-%s' deleted." name version)) (error "Package `%s-%s' is a 
system package, not deleting" name version))
  (let ((dir (package--dir name version))) (if (string-equal 
(file-name-directory dir) (file-name-as-directory (expand-file-name 
package-user-dir))) (progn (delete-directory dir t t) (message "Package `%s-%s' 
deleted." name version)) (error "Package `%s-%s' is a system package, not 
deleting" name version)))
  package-delete("use-package" "20131026.11")
  (lambda nil (package-delete (car elt) (cdr elt)))()
  funcall((lambda nil (package-delete (car elt) (cdr elt))))
  (if debug-on-error (funcall body) (condition-case err (funcall body) (error 
(message (cadr err)))))
  (let ((body (function (lambda nil (package-delete (car elt) (cdr elt)))))) 
(if debug-on-error (funcall body) (condition-case err (funcall body) (error 
(message (cadr err))))))
  (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let ((body (function 
(lambda nil (package-delete (car elt) (cdr elt)))))) (if debug-on-error 
(funcall body) (condition-case err (funcall body) (error (message (cadr 
err)))))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (let ((--dolist-tail-- delete-list) elt) (while --dolist-tail-- (setq elt 
(car --dolist-tail--)) (let ((body (function (lambda nil (package-delete ... 
...))))) (if debug-on-error (funcall body) (condition-case err (funcall body) 
(error (message (cadr err)))))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (progn (let ((--dolist-tail-- delete-list) elt) (while --dolist-tail-- (setq 
elt (car --dolist-tail--)) (let ((body (function (lambda nil ...)))) (if 
debug-on-error (funcall body) (condition-case err (funcall body) (error 
(message ...))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  (if (yes-or-no-p (if (= (length delete-list) 1) (format "Delete package 
`%s-%s'? " (caar delete-list) (cdr (car delete-list))) (format "Delete these %d 
packages (%s)? " (length delete-list) (mapconcat (function (lambda (elt) 
(concat ... "-" ...))) delete-list ", ")))) (progn (let ((--dolist-tail-- 
delete-list) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let 
((body (function ...))) (if debug-on-error (funcall body) (condition-case err 
(funcall body) (error ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) 
(error "Aborted"))
  (progn (if (yes-or-no-p (if (= (length delete-list) 1) (format "Delete 
package `%s-%s'? " (caar delete-list) (cdr (car delete-list))) (format "Delete 
these %d packages (%s)? " (length delete-list) (mapconcat (function (lambda ... 
...)) delete-list ", ")))) (progn (let ((--dolist-tail-- delete-list) elt) 
(while --dolist-tail-- (setq elt (car --dolist-tail--)) (let ((body ...)) (if 
debug-on-error (funcall body) (condition-case err ... ...))) (setq 
--dolist-tail-- (cdr --dolist-tail--))))) (error "Aborted")))
  (if delete-list (progn (if (yes-or-no-p (if (= (length delete-list) 1) 
(format "Delete package `%s-%s'? " (caar delete-list) (cdr (car delete-list))) 
(format "Delete these %d packages (%s)? " (length delete-list) (mapconcat 
(function ...) delete-list ", ")))) (progn (let ((--dolist-tail-- delete-list) 
elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let (...) (if 
debug-on-error ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (error 
"Aborted"))))
  (let (install-list delete-list cmd id) (save-excursion (goto-char 
(point-min)) (while (not (eobp)) (setq cmd (char-after)) (if (eq cmd 32) nil 
(setq id (tabulated-list-get-id)) (cond ((eq cmd 68) (setq delete-list (cons 
... delete-list))) ((eq cmd 73) (setq install-list (cons ... install-list))))) 
(forward-line))) (if install-list (progn (if (yes-or-no-p (if (= (length 
install-list) 1) (format "Install package `%s'? " (car install-list)) (format 
"Install these %d packages (%s)? " (length install-list) (mapconcat ... 
install-list ", ")))) (mapc (quote package-install) install-list)))) (if 
delete-list (progn (if (yes-or-no-p (if (= (length delete-list) 1) (format 
"Delete package `%s-%s'? " (caar delete-list) (cdr ...)) (format "Delete these 
%d packages (%s)? " (length delete-list) (mapconcat ... delete-list ", ")))) 
(progn (let ((--dolist-tail-- delete-list) elt) (while --dolist-tail-- (setq 
elt ...) (let ... ...) (setq --dolist-tail-- ...)))) (error "Aborted")))) (and 
delete-list (null install-list) (package-initialize)) (if (or delete-list 
install-list) (package-menu--generate t t) (message "No operations 
specified.")))
  package-menu-execute()
  call-interactively(package-menu-execute nil nil)
--8<---------------cut here---------------end--------------->8---


In GNU Emacs 24.3.1 (x86_64-apple-darwin11.4.2, Carbon Version 1.6.0 AppKit 
1138.51)
 of 2013-09-24 on Yukikaze.local
Windowing system distributor `Apple Inc.', version 10.9.0
Configured using:
 `configure '--with-mac'
 '--enable-mac-app=/Users/xin/Documents/emacs-mac-port/build'
 '--prefix=/Users/xin/Documents/emacs-mac-port/build''

Important settings:
  locale-coding-system: utf-8-unix
  default enable-multibyte-characters: t

Major mode: Debugger

Minor modes in effect:
  diff-auto-refine-mode: t
  shell-dirtrack-mode: t
  me-minor-mode: t
  delete-selection-mode: t
  override-global-mode: t
  tooltip-mode: t
  mac-mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  buffer-read-only: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
r e p o r t - e m a c s - b u g ) ) C-x C-e C-, M-x 
r e p o r t <tab> m a <tab> <return> C-g C-e C-n C-a 
<tab> C-n C-a <tab> C-p C-e C-, C-, C-b <M-backspace> 
<backspace> C-e C-n C-n C-a <tab> C-n C-a <tab> C-e 
C-, C-, C-, C-. C-. C-. C-, m a c - C-e C-p C-p C-p 
C-p C-e <return> C-n C-e C-n C-n C-p C-n C-n C-e ) 
C-x C-e C-p C-p C-p C-p C-p C-p C-p C-p C-s f e a t 
C-, ( C-e ) C-n C-n C-n C-n C-n C-p C-p C-p C-p C-p 
C-a C-n C-SPC C-n C-n C-n C-n C-n C-n C-M-\ C-p C-e 
C-x C-e M-x r e p l <backspace> o r t - e m <tab> b 
u <tab> <return> C-g C-x b * D e <tab> C-g C-g C-x 
b * B a <tab> <return> C-SPC C-p C-p C-p C-g C-p C-. 
<return> M-x e v a l - b u f f e r C-g <C-return> q 
<C-return> M-x e v a l - b u f f e r <return> C-x b 
* p a c <tab> C-g M-x p a c k a g e - l i s t <tab> 
<return> M-> ~ x y e s <return> C-p C-SPC C-g M-x r 
e p o r t - e m <tab> b u g C-g <C-return> <C-return> 
M-" M-: d i r <return> M-: p a c k a g e C-g C-SPC 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n M-w M-x r e p o r t - u <backspace> 
e m a <tab> b <tab> <return>

Recent messages:
Contacting host: melpa.milkbox.net:80
Saving file /Users/dave/.emacs.d/elpa/archives/melpa/archive-contents...
Wrote /Users/dave/.emacs.d/elpa/archives/melpa/archive-contents
Mark set
Entering debugger...
Mark set
Quit [2 times]
nil
Quit
Mark activated

Load-path shadows:
/usr/local/share/emacs/site-lisp/trampver hides 
/Applications/Emacs.app/Contents/Resources/lisp/net/trampver
/usr/local/share/emacs/site-lisp/tramp hides 
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp
/usr/local/share/emacs/site-lisp/tramp-uu hides 
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp-uu
/usr/local/share/emacs/site-lisp/tramp-smb hides 
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp-smb
/usr/local/share/emacs/site-lisp/tramp-sh hides 
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp-sh
/usr/local/share/emacs/site-lisp/tramp-loaddefs hides 
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp-loaddefs
/usr/local/share/emacs/site-lisp/tramp-gw hides 
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp-gw
/usr/local/share/emacs/site-lisp/tramp-ftp hides 
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp-ftp
/usr/local/share/emacs/site-lisp/tramp-compat hides 
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp-compat
/usr/local/share/emacs/site-lisp/tramp-cmds hides 
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp-cmds
/usr/local/share/emacs/site-lisp/tramp-cache hides 
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp-cache

Features:
(emacsbug two-column iso-transl lisp-mnt iswitchb ido esh-var esh-io
esh-cmd esh-opt esh-ext esh-proc esh-arg eldoc esh-groups eshell
esh-module esh-mode esh-util ediff-merg ediff-diff ediff-wind ediff-help
ediff-util ediff-mult ediff-init ediff dired-x tar-mode find-lisp
autoload network-stream starttls url-http tls url-gw url-cache url-auth
url url-proxy url-privacy url-expand url-methods url-history url-cookie
url-domsuf url-util url-parse url-vars qp mail-extr sort mailcap shadow
message sendmail rfc822 mml mml-sec mm-decode mm-bodies mm-encode
mail-parse rfc2231 rfc2047 rfc2045 ietf-drums mailabbrev gmm-utils
mailheader sh-script smie executable reporter elp tramp-cmds tramp-cache
tramp-sh tramp tramp-compat auth-source eieio password-cache
tramp-loaddefs trampver dabbrev pp mule-util magit-log-edit log-edit
pcvs-util add-log magit-bisect magit-key-mode magit epa derived epg
epg-config git-rebase-mode server rx tabify man whitespace diff-mode
diff goto-addr view debug org-wl org-w3m org-vm org-rmail org-mhe
org-mew org-irc org-jsinfo org-infojs org-html org-exp ob-exp
org-exp-blocks org-agenda org-info org-gnus org-docview org-bibtex
bibtex org-bbdb org ob-tangle ob-ref ob-lob ob-table org-footnote
org-src ob-comint ob-keys org-pcomplete org-list org-faces org-entities
noutline outline org-version ob-emacs-lisp ob org-compat org-macs
ob-eval org-loaddefs format-spec cal-menu calendar cal-loaddefs
find-dired grep compile dired-aux help-mode shell pcomplete comint
ansi-color ring vc-git misearch multi-isearch thingatpt dired jka-compr
melpa use-package diminish initsplit cl-macs gv cus-edit find-func cl
gnus gnus-ems nnheader gnus-util mail-utils mm-util mail-prsvr wid-edit
delsel cus-start cus-load elhome edmacro kmacro bind-key easy-mmode
elhome-autoloads initsplit-autoloads magit-filenotify-autoloads
magit-log-edit-autoloads magit-svn-autoloads magit-autoloads info
easymenu git-rebase-mode-autoloads git-commit-mode-autoloads finder-inf
melpa-autoloads byte-opt warnings bytecomp byte-compile cconv advice
help-fns cl-lib advice-preload use-package-autoloads diminish-autoloads
bind-key-autoloads package time-date tooltip ediff-hook vc-hooks
lisp-float-type mwheel mac-win tool-bar dnd fontset image regexp-opt
fringe tabulated-list newcomment lisp-mode register page menu-bar
rfn-eshadow timer select scroll-bar mouse jit-lock font-lock syntax
facemenu font-core frame cham georgian utf-8-lang misc-lang vietnamese
tibetan thai tai-viet lao korean japanese hebrew greek romanian slovak
czech european ethiopic indian cyrillic chinese case-table epa-hook
jka-cmpr-hook help simple abbrev minibuffer loaddefs button faces
cus-face macroexp files text-properties overlay sha1 md5 base64 format
env code-pages mule custom widget hashtable-print-readable backquote
multi-tty make-network-process emacs)