bug#15918: 24.3; package-delete backtrace

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)

bug#15918: 24.3; package-delete backtrace

[Lars Ingebrigtsen]

Dave Abrahams <dave@boostpro.com> writes:

> 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.
>
> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
>   file-name-directory(nil)

(I'm going through old bug reports that unfortunately got no response at
the time.)

Are you still seeing this issue in newer Emacs versions?

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

bug#15918: 24.3; package-delete backtrace

[Dave Abrahams]

Thanks, I haven’t seen this in years.

> On Jan 19, 2021, at 6:36 PM, Lars Ingebrigtsen <larsi@gnus.org> wrote:
> 
> Dave Abrahams <dave@boostpro.com> writes:
> 
>> 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.
>> 
>> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
>>  file-name-directory(nil)
> 
> (I'm going through old bug reports that unfortunately got no response at
> the time.)
> 
> Are you still seeing this issue in newer Emacs versions?
> 
> -- 
> (domestic pets only, the antidote for overdose, milk.)
>   bloggy blog: https://www.google.com/url?q=http://lars.ingebrigtsen.no&source=gmail-imap&ust=1611715014000000&usg=AOvVaw0XzRFOGRLqLbI8sbnk2XHo

bug#15918: 24.3; package-delete backtrace

[Lars Ingebrigtsen]

Dave Abrahams <dave@boostpro.com> writes:

> Thanks, I haven’t seen this in years.

Thanks; closing this bug report, then.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no